Home » Archimedes archive » Acorn Computing » 1994 03.adf » 9403 » Draw/Example3
Draw/Example3
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1994 03.adf » 9403 |
| Filename: | Draw/Example3 |
| Read OK: | ✔ |
| File size: | 160C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > Example3 20 30REM The draw module - Example 3 40REM Show different line styles 50REM by Ben Summers 60 70 80ONERROR REPORT:PRINT" at line "ERL:END 90 100REM find a suitible mode (multisync if possible) 110SYS "OS_CheckModeValid",20 TO ;f% 120IF (f% AND 2) = 2 THEN MODE 12 ELSE MODE 20 130 140 150 160REM first, make a path... 170 180RESTORE 190DIM path% 1024 200 210n = 0 220REPEAT 230 READ e% 240 path%!(n*4) = e% 250 n += 1 260UNTIL e% = -1 270 280DATA 2,32*1024,32*1024, 8,32*1024,128*1024 290DATA 6,96*1024,320*1024,64*1024,0,192*1024,128*1024 300DATA 8,128*1024,16*1024, 8,32*1024,32*1024, 5, 0, -1 310 320 330REM ************************************************************** 340REM ** Simple path 350REM ************************************************************** 360 370PRINT "The path..." 380PRINT "Press any key." 390 400SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 410SYS "Draw_Stroke",path%,0,0,0,0,0,0 420 430G = GET 440 450 460REM ************************************************************** 470REM ** Simple path, with high flatness 480REM ************************************************************** 490 500CLS 510PRINT "The same path, but with a high flatness" 520PRINT "Note the jagged curve" 530PRINT "Press any key." 540 550REM plot that path 560SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 570flatness% = 32*256 580SYS "Draw_Stroke",path%,0,0,flatness%,0,0,0 590 600G = GET 610 620 630REM ************************************************************** 640REM ** Filled path 650REM ************************************************************** 660 670CLS 680 690PRINT "The path, filled" 700PRINT "Press any key." 710 720SYS "ColourTrans_SetGCOL",&0000FF00,,,0,0 730SYS "Draw_Fill",path%,0,0,0 740SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 750SYS "Draw_Stroke",path%,0,0,0,0,0,0 760 770G = GET 780 790 800REM ************************************************************** 810REM ** Filled path with a thick lines 820REM ************************************************************** 830 840CLS 850 860DIM cap_join% 32 870 880PRINT "The path, filled, with thick lines" 890PRINT "Press any key." 900 910SYS "ColourTrans_SetGCOL",&0000FF00,,,0,0 920SYS "Draw_Fill",path%,0,0,0 930 940line_thickness% = 16 * 256 950REM 16 OS units (we are using an untransformed path, 960REM so user units = internal draw units 970 980cap_join%?0 = 2 990cap_join%?1 = 0 1000cap_join%?2 = 0 1010cap_join%?3 = 0 :REM no other words necessary in block 1020 1030SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 1040SYS "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,0 1050 1060G = GET 1070 1080 1090REM ************************************************************** 1100REM ** Filled path with a thick lines, but mitred this time 1110REM ************************************************************** 1120 1130CLS 1140 1150PRINT "The path, filled, with mitred thick lines" 1160PRINT "Press any key." 1170 1180SYS "ColourTrans_SetGCOL",&0000FF00,,,0,0 1190SYS "Draw_Fill",path%,0,0,0 1200 1210cap_join%?0 = 0 1220cap_join%?1 = 0 1230cap_join%?2 = 0 1240cap_join%?3 = 0 1250cap_join%!4 = &100000 :REM mitre limit 1260 1270SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 1280SYS "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,0 1290 1300G = GET 1310 1320 1330REM ************************************************************** 1340REM ** Filled path with a thick lines, and dashed 1350REM ************************************************************** 1360 1370CLS 1380 1390PRINT "The path, filled, with dashed thick lines" 1400PRINT "Press any key." 1410 1420DIM dash% 64 1430 1440SYS "ColourTrans_SetGCOL",&0000FF00,,,0,0 1450SYS "Draw_Fill",path%,0,0,0 1460 1470cap_join%?0 = 0 1480cap_join%?1 = 0 1490cap_join%?2 = 0 1500cap_join%?3 = 0 1510cap_join%!4 = &100000 :REM mitre limit 1520 1530dash%!0 = 0 :REM start at the beginning 1540dash%!4 = 4 :REM there are four elements to this patter 1550dash%!8 = 128*256 :REM elements... remeber, they are in 1560dash%!12 = 64*256 :REM user units, which equal internal 1570dash%!16 = 64*256 :REM draw units in this example. 1580dash%!20 = 128*256 1590 1600SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 1610SYS "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,dash% 1620 1630G = GET 1640 1650 1660REM ************************************************************** 1670REM ** Filled path with a thick lines, and dashed with arrows 1680REM ************************************************************** 1690 1700CLS 1710 1720PRINT "The path, filled, with dashed and arrowed thick lines" 1730PRINT "Press any key." 1740 1750SYS "ColourTrans_SetGCOL",&0000FF00,,,0,0 1760SYS "Draw_Fill",path%,0,0,0 1770 1780arrow_width = 1.5 1790arrow_height = 3 1800 1810cap_join%?0 = 0 1820cap_join%?1 = 3 1830cap_join%?2 = 0 1840cap_join%?3 = 0 1850cap_join%!4 = &40000 :REM mitre limit 1860cap_join%!8 = (arrow_width * 256) + ((arrow_height * 256) << 16) 1870 1880SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 1890SYS "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,dash% 1900 1910G = GET 1920 1930 1940REM ************************************************************** 1950REM ** Filled path with a thick lines, dashed, and transformed 1960REM ************************************************************** 1970 1980CLS 1990 2000PRINT "The path, filled, with dashed thick lines, and transformed" 2010PRINT "Press any key." 2020 2030DIM transform% 32 2040 2050a = 1 2060b = 0.25 2070c = 0.15 2080d = 1.2 2090 2100transform%!0 = a * 2^16 2110transform%!4 = b * 2^16 2120transform%!8 = c * 2^16 2130transform%!12 = d * 2^16 2140transform%!16 = 0 2150transform%!20 = 0 2160 2170cap_join%?0 = 0 2180cap_join%?1 = 0 2190cap_join%?2 = 0 2200cap_join%?3 = 0 2210cap_join%!4 = &100000 :REM mitre limit 2220 2230SYS "ColourTrans_SetGCOL",&0000FF00,,,0,0 2240SYS "Draw_Fill",path%,0,transform%,0 2250 2260SYS "ColourTrans_SetGCOL",&00FF0000,,,0,0 2270SYS "Draw_Stroke",path%,0,transform%,0,line_thickness%,cap_join%,dash% 2280 2290 2300END 2310 2320 2330
� > Example3 !� The draw module - Example 3 ( � Show different line styles 2� by Ben Summers < F P� �:�" at line "�:� Z d2� find a suitible mode (multisync if possible) n#ș "OS_CheckModeValid",20 � ;f% x � (f% � 2) = 2 � � 12 � � 20 � � � �� first, make a path... � �� �� path% 1024 � � n = 0 �� � � e% � path%!(n*4) = e% � n += 1 � e% = -1 +� 2,32*1024,32*1024, 8,32*1024,128*1024 "4� 6,96*1024,320*1024,64*1024,0,192*1024,128*1024 ,5� 8,128*1024,16*1024, 8,32*1024,32*1024, 5, 0, -1 6 @ JD� ************************************************************** T� ** Simple path ^D� ************************************************************** h r� "The path..." |� "Press any key." � �,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 �&ș "Draw_Stroke",path%,0,0,0,0,0,0 � � G = � � � �D� ************************************************************** �)� ** Simple path, with high flatness �D� ************************************************************** � �� �/� "The same path, but with a high flatness" � "Note the jagged curve" � "Press any key." &� plot that path 0,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 :flatness% = 32*256 D.ș "Draw_Stroke",path%,0,0,flatness%,0,0,0 N X G = � b l vD� ************************************************************** �� ** Filled path �D� ************************************************************** � �� � �� "The path, filled" �� "Press any key." � �,ș "ColourTrans_SetGCOL",&0000FF00,,,0,0 � ș "Draw_Fill",path%,0,0,0 �,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 �&ș "Draw_Stroke",path%,0,0,0,0,0,0 � G = � D� ************************************************************** *(� ** Filled path with a thick lines 4D� ************************************************************** > H� R \� cap_join% 32 f p*� "The path, filled, with thick lines" z� "Press any key." � �,ș "ColourTrans_SetGCOL",&0000FF00,,,0,0 � ș "Draw_Fill",path%,0,0,0 � � line_thickness% = 16 * 256 �6� 16 OS units (we are using an untransformed path, �)� so user units = internal draw units � �cap_join%?0 = 2 �cap_join%?1 = 0 �cap_join%?2 = 0 �Ecap_join%?3 = 0 :� no other words necessary in block � ,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 <ș "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,0 $ G = � . 8 BD� ************************************************************** L>� ** Filled path with a thick lines, but mitred this time VD� ************************************************************** ` j� t ~1� "The path, filled, with mitred thick lines" �� "Press any key." � �,ș "ColourTrans_SetGCOL",&0000FF00,,,0,0 � ș "Draw_Fill",path%,0,0,0 � �cap_join%?0 = 0 �cap_join%?1 = 0 �cap_join%?2 = 0 �cap_join%?3 = 0 �/cap_join%!4 = &100000 :� mitre limit � �,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 <ș "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,0 G = � ( 2D� ************************************************************** <4� ** Filled path with a thick lines, and dashed FD� ************************************************************** P Z� d n1� "The path, filled, with dashed thick lines" x� "Press any key." � �� dash% 64 � �,ș "ColourTrans_SetGCOL",&0000FF00,,,0,0 � ș "Draw_Fill",path%,0,0,0 � �cap_join%?0 = 0 �cap_join%?1 = 0 �cap_join%?2 = 0 �cap_join%?3 = 0 �0cap_join%!4 = &100000 :� mitre limit � �1dash%!0 = 0 :� start at the beginning Adash%!4 = 4 :� there are four elements to this patter <dash%!8 = 128*256 :� elements... remeber, they are in ;dash%!12 = 64*256 :� user units, which equal internal "6dash%!16 = 64*256 :� draw units in this example. ,dash%!20 = 128*256 6 @,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 J@ș "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,dash% T ^ G = � h r |D� ************************************************************** �@� ** Filled path with a thick lines, and dashed with arrows �D� ************************************************************** � �� � �=� "The path, filled, with dashed and arrowed thick lines" �� "Press any key." � �,ș "ColourTrans_SetGCOL",&0000FF00,,,0,0 � ș "Draw_Fill",path%,0,0,0 � �arrow_width = 1.5 �arrow_height = 3 cap_join%?0 = 0 cap_join%?1 = 3 &cap_join%?2 = 0 0cap_join%?3 = 0 :/cap_join%!4 = &40000 :� mitre limit DDcap_join%!8 = (arrow_width * 256) + ((arrow_height * 256) << 16) N X,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 b@ș "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,dash% l v G = � � � �D� ************************************************************** �A� ** Filled path with a thick lines, dashed, and transformed �D� ************************************************************** � �� � �B� "The path, filled, with dashed thick lines, and transformed" �� "Press any key." � �� transform% 32 � a = 1 b = 0.25 c = 0.15 d = 1.2 * 4 transform%!0 = a * 2^16 > transform%!4 = b * 2^16 H transform%!8 = c * 2^16 R transform%!12 = d * 2^16 \transform%!16 = 0 ftransform%!20 = 0 p zcap_join%?0 = 0 �cap_join%?1 = 0 �cap_join%?2 = 0 �cap_join%?3 = 0 �0cap_join%!4 = &100000 :� mitre limit � �,ș "ColourTrans_SetGCOL",&0000FF00,,,0,0 �'ș "Draw_Fill",path%,0,transform%,0 � �,ș "ColourTrans_SetGCOL",&00FF0000,,,0,0 �Iș "Draw_Stroke",path%,0,transform%,0,line_thickness%,cap_join%,dash% � � �� �
00000000 0d 00 0a 10 f4 20 3e 20 45 78 61 6d 70 6c 65 33 |..... > Example3| 00000010 0d 00 14 04 0d 00 1e 21 f4 20 54 68 65 20 64 72 |.......!. The dr| 00000020 61 77 20 6d 6f 64 75 6c 65 20 2d 20 45 78 61 6d |aw module - Exam| 00000030 70 6c 65 20 33 0d 00 28 20 f4 20 53 68 6f 77 20 |ple 3..( . Show | 00000040 64 69 66 66 65 72 65 6e 74 20 6c 69 6e 65 20 73 |different line s| 00000050 74 79 6c 65 73 0d 00 32 14 f4 20 62 79 20 42 65 |tyles..2.. by Be| 00000060 6e 20 53 75 6d 6d 65 72 73 0d 00 3c 04 0d 00 46 |n Summers..<...F| 00000070 04 0d 00 50 18 ee 85 20 f6 3a f1 22 20 61 74 20 |...P... .:." at | 00000080 6c 69 6e 65 20 22 9e 3a e0 0d 00 5a 04 0d 00 64 |line ".:...Z...d| 00000090 32 f4 20 66 69 6e 64 20 61 20 73 75 69 74 69 62 |2. find a suitib| 000000a0 6c 65 20 6d 6f 64 65 20 28 6d 75 6c 74 69 73 79 |le mode (multisy| 000000b0 6e 63 20 69 66 20 70 6f 73 73 69 62 6c 65 29 0d |nc if possible).| 000000c0 00 6e 23 c8 99 20 22 4f 53 5f 43 68 65 63 6b 4d |.n#.. "OS_CheckM| 000000d0 6f 64 65 56 61 6c 69 64 22 2c 32 30 20 b8 20 3b |odeValid",20 . ;| 000000e0 66 25 0d 00 78 20 e7 20 28 66 25 20 80 20 32 29 |f%..x . (f% . 2)| 000000f0 20 3d 20 32 20 8c 20 eb 20 31 32 20 8b 20 eb 20 | = 2 . . 12 . . | 00000100 32 30 0d 00 82 04 0d 00 8c 04 0d 00 96 04 0d 00 |20..............| 00000110 a0 1b f4 20 66 69 72 73 74 2c 20 6d 61 6b 65 20 |... first, make | 00000120 61 20 70 61 74 68 2e 2e 2e 0d 00 aa 04 0d 00 b4 |a path..........| 00000130 05 f7 0d 00 be 10 de 20 70 61 74 68 25 20 31 30 |....... path% 10| 00000140 32 34 0d 00 c8 04 0d 00 d2 09 6e 20 3d 20 30 0d |24........n = 0.| 00000150 00 dc 05 f5 0d 00 e6 0a 20 20 f3 20 65 25 0d 00 |........ . e%..| 00000160 f0 16 20 20 70 61 74 68 25 21 28 6e 2a 34 29 20 |.. path%!(n*4) | 00000170 3d 20 65 25 0d 00 fa 0c 20 20 6e 20 2b 3d 20 31 |= e%.... n += 1| 00000180 0d 01 04 0d fd 20 65 25 20 3d 20 2d 31 0d 01 0e |..... e% = -1...| 00000190 04 0d 01 18 2b dc 20 32 2c 33 32 2a 31 30 32 34 |....+. 2,32*1024| 000001a0 2c 33 32 2a 31 30 32 34 2c 20 38 2c 33 32 2a 31 |,32*1024, 8,32*1| 000001b0 30 32 34 2c 31 32 38 2a 31 30 32 34 0d 01 22 34 |024,128*1024.."4| 000001c0 dc 20 36 2c 39 36 2a 31 30 32 34 2c 33 32 30 2a |. 6,96*1024,320*| 000001d0 31 30 32 34 2c 36 34 2a 31 30 32 34 2c 30 2c 31 |1024,64*1024,0,1| 000001e0 39 32 2a 31 30 32 34 2c 31 32 38 2a 31 30 32 34 |92*1024,128*1024| 000001f0 0d 01 2c 35 dc 20 38 2c 31 32 38 2a 31 30 32 34 |..,5. 8,128*1024| 00000200 2c 31 36 2a 31 30 32 34 2c 20 38 2c 33 32 2a 31 |,16*1024, 8,32*1| 00000210 30 32 34 2c 33 32 2a 31 30 32 34 2c 20 35 2c 20 |024,32*1024, 5, | 00000220 30 2c 20 2d 31 0d 01 36 04 0d 01 40 04 0d 01 4a |0, -1..6...@...J| 00000230 44 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |D. *************| 00000240 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000270 2a 0d 01 54 15 f4 20 2a 2a 20 20 53 69 6d 70 6c |*..T.. ** Simpl| 00000280 65 20 70 61 74 68 0d 01 5e 44 f4 20 2a 2a 2a 2a |e path..^D. ****| 00000290 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000002c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 01 68 04 0d 01 |**********..h...| 000002d0 72 13 f1 20 22 54 68 65 20 70 61 74 68 2e 2e 2e |r.. "The path...| 000002e0 22 0d 01 7c 16 f1 20 22 50 72 65 73 73 20 61 6e |"..|.. "Press an| 000002f0 79 20 6b 65 79 2e 22 0d 01 86 04 0d 01 90 2c c8 |y key.".......,.| 00000300 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 |. "ColourTrans_S| 00000310 65 74 47 43 4f 4c 22 2c 26 30 30 46 46 30 30 30 |etGCOL",&00FF000| 00000320 30 2c 2c 2c 30 2c 30 0d 01 9a 26 c8 99 20 22 44 |0,,,0,0...&.. "D| 00000330 72 61 77 5f 53 74 72 6f 6b 65 22 2c 70 61 74 68 |raw_Stroke",path| 00000340 25 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 01 a4 |%,0,0,0,0,0,0...| 00000350 04 0d 01 ae 09 47 20 3d 20 a5 0d 01 b8 04 0d 01 |.....G = .......| 00000360 c2 04 0d 01 cc 44 f4 20 2a 2a 2a 2a 2a 2a 2a 2a |.....D. ********| 00000370 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000003a0 2a 2a 2a 2a 2a 2a 0d 01 d6 29 f4 20 2a 2a 20 20 |******...). ** | 000003b0 53 69 6d 70 6c 65 20 70 61 74 68 2c 20 77 69 74 |Simple path, wit| 000003c0 68 20 68 69 67 68 20 66 6c 61 74 6e 65 73 73 0d |h high flatness.| 000003d0 01 e0 44 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..D. ***********| 000003e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000410 2a 2a 2a 0d 01 ea 04 0d 01 f4 05 db 0d 01 fe 2f |***............/| 00000420 f1 20 22 54 68 65 20 73 61 6d 65 20 70 61 74 68 |. "The same path| 00000430 2c 20 62 75 74 20 77 69 74 68 20 61 20 68 69 67 |, but with a hig| 00000440 68 20 66 6c 61 74 6e 65 73 73 22 0d 02 08 1d f1 |h flatness".....| 00000450 20 22 4e 6f 74 65 20 74 68 65 20 6a 61 67 67 65 | "Note the jagge| 00000460 64 20 63 75 72 76 65 22 0d 02 12 16 f1 20 22 50 |d curve"..... "P| 00000470 72 65 73 73 20 61 6e 79 20 6b 65 79 2e 22 0d 02 |ress any key."..| 00000480 1c 04 0d 02 26 14 f4 20 70 6c 6f 74 20 74 68 61 |....&.. plot tha| 00000490 74 20 70 61 74 68 0d 02 30 2c c8 99 20 22 43 6f |t path..0,.. "Co| 000004a0 6c 6f 75 72 54 72 61 6e 73 5f 53 65 74 47 43 4f |lourTrans_SetGCO| 000004b0 4c 22 2c 26 30 30 46 46 30 30 30 30 2c 2c 2c 30 |L",&00FF0000,,,0| 000004c0 2c 30 0d 02 3a 16 66 6c 61 74 6e 65 73 73 25 20 |,0..:.flatness% | 000004d0 3d 20 33 32 2a 32 35 36 0d 02 44 2e c8 99 20 22 |= 32*256..D... "| 000004e0 44 72 61 77 5f 53 74 72 6f 6b 65 22 2c 70 61 74 |Draw_Stroke",pat| 000004f0 68 25 2c 30 2c 30 2c 66 6c 61 74 6e 65 73 73 25 |h%,0,0,flatness%| 00000500 2c 30 2c 30 2c 30 0d 02 4e 04 0d 02 58 09 47 20 |,0,0,0..N...X.G | 00000510 3d 20 a5 0d 02 62 04 0d 02 6c 04 0d 02 76 44 f4 |= ...b...l...vD.| 00000520 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************| 00000530 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000550 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.| 00000560 02 80 15 f4 20 2a 2a 20 20 46 69 6c 6c 65 64 20 |.... ** Filled | 00000570 70 61 74 68 0d 02 8a 44 f4 20 2a 2a 2a 2a 2a 2a |path...D. ******| 00000580 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000005b0 2a 2a 2a 2a 2a 2a 2a 2a 0d 02 94 04 0d 02 9e 05 |********........| 000005c0 db 0d 02 a8 04 0d 02 b2 18 f1 20 22 54 68 65 20 |.......... "The | 000005d0 70 61 74 68 2c 20 66 69 6c 6c 65 64 22 0d 02 bc |path, filled"...| 000005e0 16 f1 20 22 50 72 65 73 73 20 61 6e 79 20 6b 65 |.. "Press any ke| 000005f0 79 2e 22 0d 02 c6 04 0d 02 d0 2c c8 99 20 22 43 |y.".......,.. "C| 00000600 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 65 74 47 43 |olourTrans_SetGC| 00000610 4f 4c 22 2c 26 30 30 30 30 46 46 30 30 2c 2c 2c |OL",&0000FF00,,,| 00000620 30 2c 30 0d 02 da 1e c8 99 20 22 44 72 61 77 5f |0,0...... "Draw_| 00000630 46 69 6c 6c 22 2c 70 61 74 68 25 2c 30 2c 30 2c |Fill",path%,0,0,| 00000640 30 0d 02 e4 2c c8 99 20 22 43 6f 6c 6f 75 72 54 |0...,.. "ColourT| 00000650 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 26 30 |rans_SetGCOL",&0| 00000660 30 46 46 30 30 30 30 2c 2c 2c 30 2c 30 0d 02 ee |0FF0000,,,0,0...| 00000670 26 c8 99 20 22 44 72 61 77 5f 53 74 72 6f 6b 65 |&.. "Draw_Stroke| 00000680 22 2c 70 61 74 68 25 2c 30 2c 30 2c 30 2c 30 2c |",path%,0,0,0,0,| 00000690 30 2c 30 0d 02 f8 04 0d 03 02 09 47 20 3d 20 a5 |0,0........G = .| 000006a0 0d 03 0c 04 0d 03 16 04 0d 03 20 44 f4 20 2a 2a |.......... D. **| 000006b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000006e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 03 2a 28 |************..*(| 000006f0 f4 20 2a 2a 20 20 46 69 6c 6c 65 64 20 70 61 74 |. ** Filled pat| 00000700 68 20 77 69 74 68 20 61 20 74 68 69 63 6b 20 6c |h with a thick l| 00000710 69 6e 65 73 0d 03 34 44 f4 20 2a 2a 2a 2a 2a 2a |ines..4D. ******| 00000720 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000750 2a 2a 2a 2a 2a 2a 2a 2a 0d 03 3e 04 0d 03 48 05 |********..>...H.| 00000760 db 0d 03 52 04 0d 03 5c 12 de 20 63 61 70 5f 6a |...R...\.. cap_j| 00000770 6f 69 6e 25 20 33 32 0d 03 66 04 0d 03 70 2a f1 |oin% 32..f...p*.| 00000780 20 22 54 68 65 20 70 61 74 68 2c 20 66 69 6c 6c | "The path, fill| 00000790 65 64 2c 20 77 69 74 68 20 74 68 69 63 6b 20 6c |ed, with thick l| 000007a0 69 6e 65 73 22 0d 03 7a 16 f1 20 22 50 72 65 73 |ines"..z.. "Pres| 000007b0 73 20 61 6e 79 20 6b 65 79 2e 22 0d 03 84 04 0d |s any key.".....| 000007c0 03 8e 2c c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 |..,.. "ColourTra| 000007d0 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 26 30 30 30 |ns_SetGCOL",&000| 000007e0 30 46 46 30 30 2c 2c 2c 30 2c 30 0d 03 98 1e c8 |0FF00,,,0,0.....| 000007f0 99 20 22 44 72 61 77 5f 46 69 6c 6c 22 2c 70 61 |. "Draw_Fill",pa| 00000800 74 68 25 2c 30 2c 30 2c 30 0d 03 a2 04 0d 03 ac |th%,0,0,0.......| 00000810 1e 6c 69 6e 65 5f 74 68 69 63 6b 6e 65 73 73 25 |.line_thickness%| 00000820 20 3d 20 31 36 20 2a 20 32 35 36 0d 03 b6 36 f4 | = 16 * 256...6.| 00000830 20 31 36 20 4f 53 20 75 6e 69 74 73 20 28 77 65 | 16 OS units (we| 00000840 20 61 72 65 20 75 73 69 6e 67 20 61 6e 20 75 6e | are using an un| 00000850 74 72 61 6e 73 66 6f 72 6d 65 64 20 70 61 74 68 |transformed path| 00000860 2c 0d 03 c0 29 f4 20 73 6f 20 75 73 65 72 20 75 |,...). so user u| 00000870 6e 69 74 73 20 3d 20 69 6e 74 65 72 6e 61 6c 20 |nits = internal | 00000880 64 72 61 77 20 75 6e 69 74 73 0d 03 ca 04 0d 03 |draw units......| 00000890 d4 13 63 61 70 5f 6a 6f 69 6e 25 3f 30 20 3d 20 |..cap_join%?0 = | 000008a0 32 0d 03 de 13 63 61 70 5f 6a 6f 69 6e 25 3f 31 |2....cap_join%?1| 000008b0 20 3d 20 30 0d 03 e8 13 63 61 70 5f 6a 6f 69 6e | = 0....cap_join| 000008c0 25 3f 32 20 3d 20 30 0d 03 f2 45 63 61 70 5f 6a |%?2 = 0...Ecap_j| 000008d0 6f 69 6e 25 3f 33 20 3d 20 30 20 20 20 20 20 20 |oin%?3 = 0 | 000008e0 20 20 20 20 20 20 20 20 3a f4 20 6e 6f 20 6f 74 | :. no ot| 000008f0 68 65 72 20 77 6f 72 64 73 20 6e 65 63 65 73 73 |her words necess| 00000900 61 72 79 20 69 6e 20 62 6c 6f 63 6b 0d 03 fc 04 |ary in block....| 00000910 0d 04 06 2c c8 99 20 22 43 6f 6c 6f 75 72 54 72 |...,.. "ColourTr| 00000920 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 26 30 30 |ans_SetGCOL",&00| 00000930 46 46 30 30 30 30 2c 2c 2c 30 2c 30 0d 04 10 3c |FF0000,,,0,0...<| 00000940 c8 99 20 22 44 72 61 77 5f 53 74 72 6f 6b 65 22 |.. "Draw_Stroke"| 00000950 2c 70 61 74 68 25 2c 30 2c 30 2c 30 2c 6c 69 6e |,path%,0,0,0,lin| 00000960 65 5f 74 68 69 63 6b 6e 65 73 73 25 2c 63 61 70 |e_thickness%,cap| 00000970 5f 6a 6f 69 6e 25 2c 30 0d 04 1a 04 0d 04 24 09 |_join%,0......$.| 00000980 47 20 3d 20 a5 0d 04 2e 04 0d 04 38 04 0d 04 42 |G = .......8...B| 00000990 44 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |D. *************| 000009a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000009d0 2a 0d 04 4c 3e f4 20 2a 2a 20 20 46 69 6c 6c 65 |*..L>. ** Fille| 000009e0 64 20 70 61 74 68 20 77 69 74 68 20 61 20 74 68 |d path with a th| 000009f0 69 63 6b 20 6c 69 6e 65 73 2c 20 62 75 74 20 6d |ick lines, but m| 00000a00 69 74 72 65 64 20 74 68 69 73 20 74 69 6d 65 0d |itred this time.| 00000a10 04 56 44 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.VD. ***********| 00000a20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000a50 2a 2a 2a 0d 04 60 04 0d 04 6a 05 db 0d 04 74 04 |***..`...j....t.| 00000a60 0d 04 7e 31 f1 20 22 54 68 65 20 70 61 74 68 2c |..~1. "The path,| 00000a70 20 66 69 6c 6c 65 64 2c 20 77 69 74 68 20 6d 69 | filled, with mi| 00000a80 74 72 65 64 20 74 68 69 63 6b 20 6c 69 6e 65 73 |tred thick lines| 00000a90 22 0d 04 88 16 f1 20 22 50 72 65 73 73 20 61 6e |"..... "Press an| 00000aa0 79 20 6b 65 79 2e 22 0d 04 92 04 0d 04 9c 2c c8 |y key.".......,.| 00000ab0 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 |. "ColourTrans_S| 00000ac0 65 74 47 43 4f 4c 22 2c 26 30 30 30 30 46 46 30 |etGCOL",&0000FF0| 00000ad0 30 2c 2c 2c 30 2c 30 0d 04 a6 1e c8 99 20 22 44 |0,,,0,0...... "D| 00000ae0 72 61 77 5f 46 69 6c 6c 22 2c 70 61 74 68 25 2c |raw_Fill",path%,| 00000af0 30 2c 30 2c 30 0d 04 b0 04 0d 04 ba 13 63 61 70 |0,0,0........cap| 00000b00 5f 6a 6f 69 6e 25 3f 30 20 3d 20 30 0d 04 c4 13 |_join%?0 = 0....| 00000b10 63 61 70 5f 6a 6f 69 6e 25 3f 31 20 3d 20 30 0d |cap_join%?1 = 0.| 00000b20 04 ce 13 63 61 70 5f 6a 6f 69 6e 25 3f 32 20 3d |...cap_join%?2 =| 00000b30 20 30 0d 04 d8 13 63 61 70 5f 6a 6f 69 6e 25 3f | 0....cap_join%?| 00000b40 33 20 3d 20 30 0d 04 e2 2f 63 61 70 5f 6a 6f 69 |3 = 0.../cap_joi| 00000b50 6e 25 21 34 20 3d 20 26 31 30 30 30 30 30 20 20 |n%!4 = &100000 | 00000b60 20 20 20 20 20 20 3a f4 20 6d 69 74 72 65 20 6c | :. mitre l| 00000b70 69 6d 69 74 0d 04 ec 04 0d 04 f6 2c c8 99 20 22 |imit.......,.. "| 00000b80 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 65 74 47 |ColourTrans_SetG| 00000b90 43 4f 4c 22 2c 26 30 30 46 46 30 30 30 30 2c 2c |COL",&00FF0000,,| 00000ba0 2c 30 2c 30 0d 05 00 3c c8 99 20 22 44 72 61 77 |,0,0...<.. "Draw| 00000bb0 5f 53 74 72 6f 6b 65 22 2c 70 61 74 68 25 2c 30 |_Stroke",path%,0| 00000bc0 2c 30 2c 30 2c 6c 69 6e 65 5f 74 68 69 63 6b 6e |,0,0,line_thickn| 00000bd0 65 73 73 25 2c 63 61 70 5f 6a 6f 69 6e 25 2c 30 |ess%,cap_join%,0| 00000be0 0d 05 0a 04 0d 05 14 09 47 20 3d 20 a5 0d 05 1e |........G = ....| 00000bf0 04 0d 05 28 04 0d 05 32 44 f4 20 2a 2a 2a 2a 2a |...(...2D. *****| 00000c00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000c30 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 05 3c 34 f4 20 2a |*********..<4. *| 00000c40 2a 20 20 46 69 6c 6c 65 64 20 70 61 74 68 20 77 |* Filled path w| 00000c50 69 74 68 20 61 20 74 68 69 63 6b 20 6c 69 6e 65 |ith a thick line| 00000c60 73 2c 20 61 6e 64 20 64 61 73 68 65 64 0d 05 46 |s, and dashed..F| 00000c70 44 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |D. *************| 00000c80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000cb0 2a 0d 05 50 04 0d 05 5a 05 db 0d 05 64 04 0d 05 |*..P...Z....d...| 00000cc0 6e 31 f1 20 22 54 68 65 20 70 61 74 68 2c 20 66 |n1. "The path, f| 00000cd0 69 6c 6c 65 64 2c 20 77 69 74 68 20 64 61 73 68 |illed, with dash| 00000ce0 65 64 20 74 68 69 63 6b 20 6c 69 6e 65 73 22 0d |ed thick lines".| 00000cf0 05 78 16 f1 20 22 50 72 65 73 73 20 61 6e 79 20 |.x.. "Press any | 00000d00 6b 65 79 2e 22 0d 05 82 04 0d 05 8c 0e de 20 64 |key."......... d| 00000d10 61 73 68 25 20 36 34 0d 05 96 04 0d 05 a0 2c c8 |ash% 64.......,.| 00000d20 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 |. "ColourTrans_S| 00000d30 65 74 47 43 4f 4c 22 2c 26 30 30 30 30 46 46 30 |etGCOL",&0000FF0| 00000d40 30 2c 2c 2c 30 2c 30 0d 05 aa 1e c8 99 20 22 44 |0,,,0,0...... "D| 00000d50 72 61 77 5f 46 69 6c 6c 22 2c 70 61 74 68 25 2c |raw_Fill",path%,| 00000d60 30 2c 30 2c 30 0d 05 b4 04 0d 05 be 13 63 61 70 |0,0,0........cap| 00000d70 5f 6a 6f 69 6e 25 3f 30 20 3d 20 30 0d 05 c8 13 |_join%?0 = 0....| 00000d80 63 61 70 5f 6a 6f 69 6e 25 3f 31 20 3d 20 30 0d |cap_join%?1 = 0.| 00000d90 05 d2 13 63 61 70 5f 6a 6f 69 6e 25 3f 32 20 3d |...cap_join%?2 =| 00000da0 20 30 0d 05 dc 13 63 61 70 5f 6a 6f 69 6e 25 3f | 0....cap_join%?| 00000db0 33 20 3d 20 30 0d 05 e6 30 63 61 70 5f 6a 6f 69 |3 = 0...0cap_joi| 00000dc0 6e 25 21 34 20 3d 20 26 31 30 30 30 30 30 20 20 |n%!4 = &100000 | 00000dd0 20 20 20 20 20 20 20 3a f4 20 6d 69 74 72 65 20 | :. mitre | 00000de0 6c 69 6d 69 74 0d 05 f0 04 0d 05 fa 31 64 61 73 |limit.......1das| 00000df0 68 25 21 30 20 3d 20 30 20 20 20 20 20 20 20 20 |h%!0 = 0 | 00000e00 20 3a f4 20 73 74 61 72 74 20 61 74 20 74 68 65 | :. start at the| 00000e10 20 62 65 67 69 6e 6e 69 6e 67 0d 06 04 41 64 61 | beginning...Ada| 00000e20 73 68 25 21 34 20 3d 20 34 20 20 20 20 20 20 20 |sh%!4 = 4 | 00000e30 20 20 3a f4 20 74 68 65 72 65 20 61 72 65 20 66 | :. there are f| 00000e40 6f 75 72 20 65 6c 65 6d 65 6e 74 73 20 74 6f 20 |our elements to | 00000e50 74 68 69 73 20 70 61 74 74 65 72 0d 06 0e 3c 64 |this patter...<d| 00000e60 61 73 68 25 21 38 20 3d 20 31 32 38 2a 32 35 36 |ash%!8 = 128*256| 00000e70 20 20 20 3a f4 20 65 6c 65 6d 65 6e 74 73 2e 2e | :. elements..| 00000e80 2e 20 20 72 65 6d 65 62 65 72 2c 20 74 68 65 79 |. remeber, they| 00000e90 20 61 72 65 20 69 6e 0d 06 18 3b 64 61 73 68 25 | are in...;dash%| 00000ea0 21 31 32 20 3d 20 36 34 2a 32 35 36 20 20 20 3a |!12 = 64*256 :| 00000eb0 f4 20 75 73 65 72 20 75 6e 69 74 73 2c 20 77 68 |. user units, wh| 00000ec0 69 63 68 20 65 71 75 61 6c 20 69 6e 74 65 72 6e |ich equal intern| 00000ed0 61 6c 0d 06 22 36 64 61 73 68 25 21 31 36 20 3d |al.."6dash%!16 =| 00000ee0 20 36 34 2a 32 35 36 20 20 20 3a f4 20 64 72 61 | 64*256 :. dra| 00000ef0 77 20 75 6e 69 74 73 20 69 6e 20 74 68 69 73 20 |w units in this | 00000f00 65 78 61 6d 70 6c 65 2e 0d 06 2c 16 64 61 73 68 |example...,.dash| 00000f10 25 21 32 30 20 3d 20 31 32 38 2a 32 35 36 0d 06 |%!20 = 128*256..| 00000f20 36 04 0d 06 40 2c c8 99 20 22 43 6f 6c 6f 75 72 |6...@,.. "Colour| 00000f30 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 26 |Trans_SetGCOL",&| 00000f40 30 30 46 46 30 30 30 30 2c 2c 2c 30 2c 30 0d 06 |00FF0000,,,0,0..| 00000f50 4a 40 c8 99 20 22 44 72 61 77 5f 53 74 72 6f 6b |J@.. "Draw_Strok| 00000f60 65 22 2c 70 61 74 68 25 2c 30 2c 30 2c 30 2c 6c |e",path%,0,0,0,l| 00000f70 69 6e 65 5f 74 68 69 63 6b 6e 65 73 73 25 2c 63 |ine_thickness%,c| 00000f80 61 70 5f 6a 6f 69 6e 25 2c 64 61 73 68 25 0d 06 |ap_join%,dash%..| 00000f90 54 04 0d 06 5e 09 47 20 3d 20 a5 0d 06 68 04 0d |T...^.G = ...h..| 00000fa0 06 72 04 0d 06 7c 44 f4 20 2a 2a 2a 2a 2a 2a 2a |.r...|D. *******| 00000fb0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000fe0 2a 2a 2a 2a 2a 2a 2a 0d 06 86 40 f4 20 2a 2a 20 |*******...@. ** | 00000ff0 20 46 69 6c 6c 65 64 20 70 61 74 68 20 77 69 74 | Filled path wit| 00001000 68 20 61 20 74 68 69 63 6b 20 6c 69 6e 65 73 2c |h a thick lines,| 00001010 20 61 6e 64 20 64 61 73 68 65 64 20 77 69 74 68 | and dashed with| 00001020 20 61 72 72 6f 77 73 0d 06 90 44 f4 20 2a 2a 2a | arrows...D. ***| 00001030 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00001060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 06 9a 04 0d |***********.....| 00001070 06 a4 05 db 0d 06 ae 04 0d 06 b8 3d f1 20 22 54 |...........=. "T| 00001080 68 65 20 70 61 74 68 2c 20 66 69 6c 6c 65 64 2c |he path, filled,| 00001090 20 77 69 74 68 20 64 61 73 68 65 64 20 61 6e 64 | with dashed and| 000010a0 20 61 72 72 6f 77 65 64 20 74 68 69 63 6b 20 6c | arrowed thick l| 000010b0 69 6e 65 73 22 0d 06 c2 16 f1 20 22 50 72 65 73 |ines"..... "Pres| 000010c0 73 20 61 6e 79 20 6b 65 79 2e 22 0d 06 cc 04 0d |s any key.".....| 000010d0 06 d6 2c c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 |..,.. "ColourTra| 000010e0 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 26 30 30 30 |ns_SetGCOL",&000| 000010f0 30 46 46 30 30 2c 2c 2c 30 2c 30 0d 06 e0 1e c8 |0FF00,,,0,0.....| 00001100 99 20 22 44 72 61 77 5f 46 69 6c 6c 22 2c 70 61 |. "Draw_Fill",pa| 00001110 74 68 25 2c 30 2c 30 2c 30 0d 06 ea 04 0d 06 f4 |th%,0,0,0.......| 00001120 15 61 72 72 6f 77 5f 77 69 64 74 68 20 3d 20 31 |.arrow_width = 1| 00001130 2e 35 0d 06 fe 14 61 72 72 6f 77 5f 68 65 69 67 |.5....arrow_heig| 00001140 68 74 20 3d 20 33 0d 07 08 04 0d 07 12 13 63 61 |ht = 3........ca| 00001150 70 5f 6a 6f 69 6e 25 3f 30 20 3d 20 30 0d 07 1c |p_join%?0 = 0...| 00001160 13 63 61 70 5f 6a 6f 69 6e 25 3f 31 20 3d 20 33 |.cap_join%?1 = 3| 00001170 0d 07 26 13 63 61 70 5f 6a 6f 69 6e 25 3f 32 20 |..&.cap_join%?2 | 00001180 3d 20 30 0d 07 30 13 63 61 70 5f 6a 6f 69 6e 25 |= 0..0.cap_join%| 00001190 3f 33 20 3d 20 30 0d 07 3a 2f 63 61 70 5f 6a 6f |?3 = 0..:/cap_jo| 000011a0 69 6e 25 21 34 20 3d 20 26 34 30 30 30 30 20 20 |in%!4 = &40000 | 000011b0 20 20 20 20 20 20 20 3a f4 20 6d 69 74 72 65 20 | :. mitre | 000011c0 6c 69 6d 69 74 0d 07 44 44 63 61 70 5f 6a 6f 69 |limit..DDcap_joi| 000011d0 6e 25 21 38 20 3d 20 28 61 72 72 6f 77 5f 77 69 |n%!8 = (arrow_wi| 000011e0 64 74 68 20 2a 20 32 35 36 29 20 2b 20 28 28 61 |dth * 256) + ((a| 000011f0 72 72 6f 77 5f 68 65 69 67 68 74 20 2a 20 32 35 |rrow_height * 25| 00001200 36 29 20 3c 3c 20 31 36 29 0d 07 4e 04 0d 07 58 |6) << 16)..N...X| 00001210 2c c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 |,.. "ColourTrans| 00001220 5f 53 65 74 47 43 4f 4c 22 2c 26 30 30 46 46 30 |_SetGCOL",&00FF0| 00001230 30 30 30 2c 2c 2c 30 2c 30 0d 07 62 40 c8 99 20 |000,,,0,0..b@.. | 00001240 22 44 72 61 77 5f 53 74 72 6f 6b 65 22 2c 70 61 |"Draw_Stroke",pa| 00001250 74 68 25 2c 30 2c 30 2c 30 2c 6c 69 6e 65 5f 74 |th%,0,0,0,line_t| 00001260 68 69 63 6b 6e 65 73 73 25 2c 63 61 70 5f 6a 6f |hickness%,cap_jo| 00001270 69 6e 25 2c 64 61 73 68 25 0d 07 6c 04 0d 07 76 |in%,dash%..l...v| 00001280 09 47 20 3d 20 a5 0d 07 80 04 0d 07 8a 04 0d 07 |.G = ...........| 00001290 94 44 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |.D. ************| 000012a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000012d0 2a 2a 0d 07 9e 41 f4 20 2a 2a 20 20 46 69 6c 6c |**...A. ** Fill| 000012e0 65 64 20 70 61 74 68 20 77 69 74 68 20 61 20 74 |ed path with a t| 000012f0 68 69 63 6b 20 6c 69 6e 65 73 2c 20 64 61 73 68 |hick lines, dash| 00001300 65 64 2c 20 61 6e 64 20 74 72 61 6e 73 66 6f 72 |ed, and transfor| 00001310 6d 65 64 0d 07 a8 44 f4 20 2a 2a 2a 2a 2a 2a 2a |med...D. *******| 00001320 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00001350 2a 2a 2a 2a 2a 2a 2a 0d 07 b2 04 0d 07 bc 05 db |*******.........| 00001360 0d 07 c6 04 0d 07 d0 42 f1 20 22 54 68 65 20 70 |.......B. "The p| 00001370 61 74 68 2c 20 66 69 6c 6c 65 64 2c 20 77 69 74 |ath, filled, wit| 00001380 68 20 64 61 73 68 65 64 20 74 68 69 63 6b 20 6c |h dashed thick l| 00001390 69 6e 65 73 2c 20 61 6e 64 20 74 72 61 6e 73 66 |ines, and transf| 000013a0 6f 72 6d 65 64 22 0d 07 da 16 f1 20 22 50 72 65 |ormed"..... "Pre| 000013b0 73 73 20 61 6e 79 20 6b 65 79 2e 22 0d 07 e4 04 |ss any key."....| 000013c0 0d 07 ee 13 de 20 74 72 61 6e 73 66 6f 72 6d 25 |..... transform%| 000013d0 20 33 32 0d 07 f8 04 0d 08 02 09 61 20 3d 20 31 | 32........a = 1| 000013e0 0d 08 0c 0c 62 20 3d 20 30 2e 32 35 0d 08 16 0c |....b = 0.25....| 000013f0 63 20 3d 20 30 2e 31 35 0d 08 20 0b 64 20 3d 20 |c = 0.15.. .d = | 00001400 31 2e 32 0d 08 2a 04 0d 08 34 1c 74 72 61 6e 73 |1.2..*...4.trans| 00001410 66 6f 72 6d 25 21 30 20 20 3d 20 61 20 2a 20 32 |form%!0 = a * 2| 00001420 5e 31 36 0d 08 3e 1c 74 72 61 6e 73 66 6f 72 6d |^16..>.transform| 00001430 25 21 34 20 20 3d 20 62 20 2a 20 32 5e 31 36 0d |%!4 = b * 2^16.| 00001440 08 48 1c 74 72 61 6e 73 66 6f 72 6d 25 21 38 20 |.H.transform%!8 | 00001450 20 3d 20 63 20 2a 20 32 5e 31 36 0d 08 52 1c 74 | = c * 2^16..R.t| 00001460 72 61 6e 73 66 6f 72 6d 25 21 31 32 20 3d 20 64 |ransform%!12 = d| 00001470 20 2a 20 32 5e 31 36 0d 08 5c 15 74 72 61 6e 73 | * 2^16..\.trans| 00001480 66 6f 72 6d 25 21 31 36 20 3d 20 30 0d 08 66 15 |form%!16 = 0..f.| 00001490 74 72 61 6e 73 66 6f 72 6d 25 21 32 30 20 3d 20 |transform%!20 = | 000014a0 30 0d 08 70 04 0d 08 7a 13 63 61 70 5f 6a 6f 69 |0..p...z.cap_joi| 000014b0 6e 25 3f 30 20 3d 20 30 0d 08 84 13 63 61 70 5f |n%?0 = 0....cap_| 000014c0 6a 6f 69 6e 25 3f 31 20 3d 20 30 0d 08 8e 13 63 |join%?1 = 0....c| 000014d0 61 70 5f 6a 6f 69 6e 25 3f 32 20 3d 20 30 0d 08 |ap_join%?2 = 0..| 000014e0 98 13 63 61 70 5f 6a 6f 69 6e 25 3f 33 20 3d 20 |..cap_join%?3 = | 000014f0 30 0d 08 a2 30 63 61 70 5f 6a 6f 69 6e 25 21 34 |0...0cap_join%!4| 00001500 20 3d 20 26 31 30 30 30 30 30 20 20 20 20 20 20 | = &100000 | 00001510 20 20 20 3a f4 20 6d 69 74 72 65 20 6c 69 6d 69 | :. mitre limi| 00001520 74 0d 08 ac 04 0d 08 b6 2c c8 99 20 22 43 6f 6c |t.......,.. "Col| 00001530 6f 75 72 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c |ourTrans_SetGCOL| 00001540 22 2c 26 30 30 30 30 46 46 30 30 2c 2c 2c 30 2c |",&0000FF00,,,0,| 00001550 30 0d 08 c0 27 c8 99 20 22 44 72 61 77 5f 46 69 |0...'.. "Draw_Fi| 00001560 6c 6c 22 2c 70 61 74 68 25 2c 30 2c 74 72 61 6e |ll",path%,0,tran| 00001570 73 66 6f 72 6d 25 2c 30 0d 08 ca 04 0d 08 d4 2c |sform%,0.......,| 00001580 c8 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f |.. "ColourTrans_| 00001590 53 65 74 47 43 4f 4c 22 2c 26 30 30 46 46 30 30 |SetGCOL",&00FF00| 000015a0 30 30 2c 2c 2c 30 2c 30 0d 08 de 49 c8 99 20 22 |00,,,0,0...I.. "| 000015b0 44 72 61 77 5f 53 74 72 6f 6b 65 22 2c 70 61 74 |Draw_Stroke",pat| 000015c0 68 25 2c 30 2c 74 72 61 6e 73 66 6f 72 6d 25 2c |h%,0,transform%,| 000015d0 30 2c 6c 69 6e 65 5f 74 68 69 63 6b 6e 65 73 73 |0,line_thickness| 000015e0 25 2c 63 61 70 5f 6a 6f 69 6e 25 2c 64 61 73 68 |%,cap_join%,dash| 000015f0 25 0d 08 e8 04 0d 08 f2 04 0d 08 fc 05 e0 0d 09 |%...............| 00001600 06 04 0d 09 10 04 0d 09 1a 04 0d ff |............| 0000160c
.