Home » Archimedes archive » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95 » !AWMar95/Goodies/DrawBasic/!DrawBasic/Resources/Attributes
!AWMar95/Goodies/DrawBasic/!DrawBasic/Resources/Attributes
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 » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95 |
| Filename: | !AWMar95/Goodies/DrawBasic/!DrawBasic/Resources/Attributes |
| Read OK: | ✔ |
| File size: | 397E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Archimedes archive » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95 » !AWMar95/Goodies/DrawBasic/!DrawBasic/Resources/Attributes
- Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95 » !AWApr95/Goodies/Draw/!DrawBasic/Resources/Attributes
- Archimedes archive » Archimedes World » AW-1995-05-Disc1.adf » AWMay95_1 » InTheMag/DrawBasic/!DrawBasic/Resources/Attributes
- Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/DrawBasic/!DrawBasic/Resources/Attributes
File contents
10REM >DrawBasic:Resources.Attributes 20REM ======================================================= 30REM 40REM copyright Joe Taylor June 1994 50REM 60REM N.B. For ERROR THROWBACK to work The first line above 70REM MUST have the correct pathname of this file. 80REM If you move the location of the file remember to 90REM alter this pathname. 100REM 110REM ======================================================= 120 130REM ****************** 140REM 150REM 5 PATH ATTRIBUTES 160REM 170REM ****************** 180 190REM ============== 200REM 5.1 Line Width 210REM ============== 220 230DEF FNLineWidth=!(HIMEM+232) 240 250DEF PROCWidth(width) 260!(HIMEM+232)=INT(width*640) 270ENDPROC 280 290DEF PROCWidth@(Draw_Path%,width) 300 REM ------------------------------- 310 REM 320 REM Sets the line width 330 REM 340 REM N.B. Thickness is specified in 350 REM printers points 360 REM 370 REM ------------------------------ 380 LOCAL _Path% 390 _Path%=!Draw_Path% 400 IF _Path%<>0 THEN _Path%!32=INT(width*640) 410ENDPROC 420 430REM =============== 440REM 5.2 Line Colour 450REM =============== 460 470DEF FNLineColour=!(HIMEM+224) 480 490DEF PROCColour(col%) 500IF ABS col%<16 THEN col%=FNDesktopColour(ABS col%) 510!(HIMEM+224)=col% 520ENDPROC 530 540DEF PROCColour@(Draw_Path%,colour%) 550 REM -------------------- 560 REM 570 REM Sets the line colour 580 REM 590 REM -------------------- 600 LOCAL _Path% 610 _Path%=!Draw_Path% 620 IF _Path%<>0 THEN 630 IF ABS(colour%)<16 THEN _Path%!28=FNDesktopColour(ABS(colour%)MOD16) ELSE _Path%!28=colour% 640 ENDIF 650ENDPROC 660 670REM =============== 680REM 5.3 Fill Colour 690REM =============== 700 710DEF FNFillColour=!(HIMEM+228) 720 730DEF PROCFill(col%) 740IF ABS col%<16 THEN col%=FNDesktopColour(ABS col%) 750!(HIMEM+228)=col% 760ENDPROC 770 780DEF PROCFill@(Draw_Path%,colour%) 790 REM --------------------- 800 REM 810 REM Sets the fill colour 820 REM 830 REM --------------------- 840 LOCAL _Path% 850 _Path%=!Draw_Path% 860 IF _Path%<>0 THEN 870 IF ABS(colour%)<16 THEN _Path%!24=FNDesktopColour(ABS(colour%)MOD16) ELSE _Path%!24=colour% 880 ENDIF 890ENDPROC 900 910REM ================== 920REM 5.4 Colour mixing 930REM ================== 940 950DEF FNShade(Red%,Green%,Blue%)=(Red%<<8)+(Green%<<16)+(Blue%<<24) 960 970DEF FNShadePC(Red,Green,Blue) 980LOCAL _R%,_B%,_G% 990_R%=INT(Red*255/100+.5) : _G%=INT(Green*255/100+.5): _B%=INT(Blue*255/100+.5) 1000=FNShade(_R%,_G%,_B%) 1010 1020DEF FNShadeCMYK(Cyan,Magenta,Yellow,Key) 1030LOCAL _Red%,_Green%,_Blue%,_C%,_M%,_Y%,_K% 1040_C%=INT(Cyan*65536/100+.5) : _M%=INT(Magenta*65536/100+.5) 1050_Y%=INT(Yellow*65536/100+.5): _K%=INT(Key*65536/100+.5) 1060SYS "ColourTrans_ConvertCMYKToRGB",_C%,_M%,_Y%,_K% TO _Red%,_Green%,_Blue% 1070IF (_Red%>>8)=256 THEN _Red%-=1 1080IF (_Green%>>8)=256 THEN _Green%-=1 1090IF (_Blue%>>8)=256 THEN _Blue%-=1 1100=FNShade(_Red%>>8,_Green%>>8,_Blue%>>8) 1110 1120DEF FNShadeHSV(Hue,Saturation,Value) 1130LOCAL _Red%,_Green%,_Blue%,_H%,_S%,_V% 1140_H%=Hue<<16 1150_S%=INT(Saturation*65536/100+.5) 1160_V%=INT(Value*65536/100+.5) 1170SYS "ColourTrans_ConvertHSVToRGB",_H%,_S%,_V% TO _Red%,_Green%,_Blue% 1180IF (_Red%>>8)=256 THEN _Red%-=1 1190IF (_Green%>>8)=256 THEN _Green%-=1 1200IF (_Blue%>>8)=256 THEN _Blue%-=1 1210=FNShade(_Red%>>8,_Green%>>8,_Blue%>>8) 1220 1230DEF FNWhite=FNShade(255,255,255) 1240DEF FNBlack=%11111111 1250DEF FNBlue=FNShade(0,68,153) 1260DEF FNYellow=FNShade(238,238,0) 1270DEF FNLightGreen=FNShade(0,204,0) 1280DEF FNRed=FNShade(221,0,0) 1290DEF FNCream=FNShade(238,238,187) 1300DEF FNGreen=FNShade(85,136,0) 1310DEF FNOrange=FNShade(255,187,0) 1320DEF FNLightBlue=FNShade(0,187,255) 1330 1340DEF FNGrey(scale) 1350LOCAL _intensity% 1360IF scale>=7 THEN =FNBlack 1370_intensity%=INT((7-scale)*255/7+.5) 1380=FNShade(_intensity%,_intensity%,_intensity%) 1390 1400DEF FNDesktopColour(colour%) 1410IF ABS colour%<256 THEN colour%=(ABS colour%) MOD 16 1420 CASE colour% OF 1430 WHEN 0 : colour%=FNShade(255,255,255) 1440 WHEN 1 : colour%=FNShade(221,221,221) 1450 WHEN 2 : colour%=FNShade(187,187,187) 1460 WHEN 3 : colour%=FNShade(153,153,153) 1470 WHEN 4 : colour%=FNShade(119,119,119) 1480 WHEN 5 : colour%=FNShade(85,85,85) 1490 WHEN 6 : colour%=FNShade(51,51,51) 1500 WHEN 7 : colour%=%11111111 1510 WHEN 8 : colour%=FNShade(0,68,153) 1520 WHEN 9 : colour%=FNShade(238,238,0) 1530 WHEN 10 : colour%=FNShade(0,204,0) 1540 WHEN 11 : colour%=FNShade(221,0,0) 1550 WHEN 12 : colour%=FNShade(238,238,187) 1560 WHEN 13 : colour%=FNShade(85,136,0) 1570 WHEN 14 : colour%=FNShade(255,187,0) 1580 WHEN 15 : colour%=FNShade(0,187,255) 1590 ENDCASE 1600=colour% 1610 1620REM ================== 1630REM 5.5 Winding Rules 1640REM ================== 1650 1660DEF FNStyle=!(HIMEM+236) 1670 1680DEF FNWindingRule=!(HIMEM+236) 1690 1700DEF PROCWindingRule(winding_rule%) 1710IF winding_rule%=0 THEN 1720!(HIMEM+236)=(FNStyle AND NOT%1000000) EOR %1000000 1730ELSE 1740!(HIMEM+236)=(FNStyle AND NOT%1000000) EOR %0000000 1750ENDIF 1760ENDPROC 1770 1780DEF PROCWindingRule@(Draw_Path%,winding_rule%) 1790 REM ----------------------- 1800 REM 1810 REM Even Odd winding Rule 1820 REM 1830 REM ---------------------- 1840 LOCAL _Path% 1850 _Path%=!Draw_Path% 1860 IF _Path%<>0 THEN 1870 IF winding_rule%=0 THEN 1880 Path%!36=(FNStyle AND NOT%1000000) EOR %1000000 1890 ELSE 1900 Path%!36=(FNStyle AND NOT%1000000) EOR %0000000 1910 ENDIF 1920 ENDIF 1930ENDPROC 1940 1950REM ================= 1960REM 5.6 Dashed Lines 1970REM ================= 1980 1990DEF FNDash=!(HIMEM+76) 2000 2010DEF PROCDashOff 2020!(HIMEM+76)=0 2030ENDPROC 2040 2050DEF PROCDash(pattern%) 2060!(HIMEM+76)=pattern% 2070ENDPROC 2080 2090DEF PROCDash@(Draw_Path%,pattern%) 2100 REM ----------------------------- 2110 REM 2120 REM Dash Pattern 2130 REM 2140 REM - - - - - - - - 2150 REM 2160 REM pattern!0=n 2170 REM pattern!4=length into 2180 REM pattern!8=length of 1st stroke 2190 REM 2200 REM etc. 2210 REM 2220 REM "length" in points 2230 REM 2240 REM ----------------------------- 2250 LOCAL _Path%,_i%,_n%,_max% 2260 _Path%=!Draw_Path% 2270 IF _Path%<>0 THEN 2280 _n%=pattern%!4 2290 _Path%!4+=4*(_n%+2) 2300 _Path%!36=((_Path%!36) AND NOT(1<<7)) EOR (1<<7) 2310 _max%=!(HIMEM+4) 2320 PROCMoveMemory(_Path%+40,_n%+2) 2330 _i%=Draw_Path%-4 2340 WHILE _i%>=_max% : !_i%+=4*(_n%+2) : _i%-=4 : ENDWHILE 2350 FOR _i%=0 TO _n%+1 2360 _Path%!(40+4*_i%)=(pattern%!(4*_i%))*640 2370 NEXT 2380 _Path%!44=_n% 2390 ENDIF 2400 ENDPROC 2410 2420DEF FNDashPattern(NumberOfElements%) 2430LOCAL _pattern% 2440IF NumberOfElements%<=0 THEN ERROR 0, "Number of elements in dash pattern negative!" 2450DIM _pattern% 8+4*NumberOfElements% 2460FOR _i%=0 TO 4+4*NumberOfElements% STEP 4 2470 _pattern%!_i%=0 2480 NEXT 2490 _pattern%!4=NumberOfElements% 2500=_pattern% 2510 2520DEF PROCDashLength(pattern%,item%,length%) 2530IF item%<0 OR item%>(pattern%!4) THEN ERROR 0, "No such item in Dash pattern!" 2540IF item%=0 THEN !pattern%=length% ELSE pattern%!(4+4*item%)=length% 2550ENDPROC 2560 2570DEF FNEquiDash(length%) 2580 REM ----------------------------- 2590 REM 2600 REM Equidistant Dash Pattern 2610 REM 2620 REM - - - - - - - - - - 2630 REM 2640 REM Arguments in OS units 2650 REM 2660 REM ----------------------------- 2670LOCAL _pattern : DIM _pattern 12 2680!_pattern=0 : _pattern!4=1 : _pattern!8=length% 2690=_pattern 2700 2710DEF FNDotDash(length%) 2720 REM ----------------------------- 2730 REM 2740 REM Non-equidistant Dash Pattern 2750 REM 2760 REM -- - -- - -- - -- - -- - 2770 REM 2780 REM Arguments in OS units 2790 REM 2800 REM ----------------------------- 2810 LOCAL _pattern : DIM _pattern 6*4 2820 !_pattern=0 : _pattern!4=4 2830 _pattern!8=2*length% : _pattern!12=length% 2840 _pattern!16=length% : _pattern!20=length% 2850 =_pattern 2860 2870DEF FNNonEquiDash(stroke_length%,move_length%) 2880 REM ----------------------------- 2890 REM 2900 REM Non-equidistant Dash Pattern 2910 REM 2920 REM -- -- -- -- -- -- -- -- -- 2930 REM 2940 REM Arguments in inches 2950 REM 2960 REM ----------------------------- 2970 LOCAL _pattern : DIM _pattern 4*4 2980 !_pattern=0 : _pattern!4=2 2990 _pattern!8=stroke_length% : _pattern!12=move_length% 3000 =_pattern 3010 3020 3030REM ========== 3040REM 5.7 Joins 3050REM ========== 3060 3070DEF PROCJoins(index%) 3080CASE index% OF 3090WHEN 0 : PROCRoundJoins 3100WHEN 1 : PROCBevelJoins 3110OTHERWISE 3120 PROCMitreJoins 3130ENDCASE 3140ENDPROC 3150 3160DEF PROCJoins@(Draw_Path%,index%) 3170CASE index% OF 3180WHEN 0 : PROCRoundJoins@(Draw_Path%) 3190WHEN 1 : PROCBevelJoins@(Draw_Path%) 3200OTHERWISE 3210 PROCMitreJoins@(Draw_Path%) 3220ENDCASE 3230ENDPROC 3240 3250DEF PROCRoundJoins 3260 REM ------------ 3270 REM 3280 REM Round Joins 3290 REM 3300 REM ------------ 3310 !(HIMEM+236)=(FNStyle AND NOT%11) EOR %01 3320 ENDPROC 3330 3340DEF PROCRoundJoins@(Draw_Path%) 3350 REM ------------ 3360 REM 3370 REM Round Joins 3380 REM 3390 REM ------------ 3400 LOCAL _Path% 3410 _Path%=!Draw_Path% 3420 IF _Path%<>0 THEN _Path%!36=((_Path%!36) AND NOT%11) EOR %01 3430 ENDPROC 3440 3450DEF PROCBevelJoins 3460 REM ------------------------- 3470 REM 3480 REM Bevel Joins 3490 REM 3500 REM N.B. This is the default. 3510 REM 3520 REM ------------------------- 3530 !(HIMEM+236)=(FNStyle AND NOT%11) EOR %10 3540 ENDPROC 3550 3560DEF PROCBevelJoins@(Draw_Path%) 3570 REM ------------------------- 3580 REM 3590 REM Bevel Joins 3600 REM 3610 REM N.B. This is the default. 3620 REM 3630 REM ------------------------- 3640 LOCAL _Path% : _Path%=!Draw_Path% 3650 IF _Path%<>0 THEN _Path%!36=((_Path%!36) AND NOT%11) EOR %10 3660 ENDPROC 3670 3680DEF PROCMitreJoins 3690 REM ------------ 3700 REM 3710 REM Mitre Joins 3720 REM 3730 REM ------------ 3740 !(HIMEM+236)=(FNStyle AND NOT%11) EOR %00 3750 ENDPROC 3760 3770DEF PROCMitreJoins@(Draw_Path%) 3780 REM ------------ 3790 REM 3800 REM Mitre Joins 3810 REM 3820 REM ------------ 3830 LOCAL _Path% : _Path%=!Draw_Path% 3840 IF _Path%<>0 THEN _Path%!36=((_Path%!36) AND NOT%11) EOR %00 3850 ENDPROC 3860 3870REM ============== 3880REM 5.8 Line Caps 3890REM ============== 3900 3910DEF PROCButtCaps(index%) 3920 REM --------------------- 3930 REM 3940 REM Butt Caps index= 1 forward only 3950 REM =-1 back only 3960 REM = 0 both 3970 REM N.B. This the default 3980 REM 3990 REM --------------------- 4000 IF index%>=0 !(HIMEM+236)=(FNStyle AND NOT%1100) EOR %0000 4010 IF index%<=0 !(HIMEM+236)=(FNStyle AND NOT%110000) EOR %000000 4020 ENDPROC 4030 4040DEF PROCButtCaps@(Draw_Path%,index%) 4050 REM --------------------- 4060 REM 4070 REM Butt End Caps 4080 REM 4090 REM N.B. This the default 4100 REM 4110 REM --------------------- 4120 LOCAL _Path% : _Path%=!Draw_Path% 4130 IF _Path%<>0 THEN 4140 IF index%>=0 _Path%!36=((_Path%!36) AND NOT%1100) EOR %0000 4150 IF index%<=0 _Path%!36=((_Path%!36) AND NOT%110000) EOR %000000 4160 ENDIF 4170 ENDPROC 4180 4190DEF PROCRoundCaps(index%) 4200 REM ----------------- 4210 REM 4220 REM Round End Caps 4230 REM 4240 REM ----------------- 4250 IF index%>=0 !(HIMEM+236)=(FNStyle AND NOT%1100) EOR %0100 4260 IF index%<=0 !(HIMEM+236)=(FNStyle AND NOT%110000) EOR %010000 4270 ENDPROC 4280 4290DEF PROCRoundCaps@(Draw_Path%,index%) 4300 REM ----------------- 4310 REM 4320 REM Round End Caps 4330 REM 4340 REM ----------------- 4350 LOCAL _Path% : _Path%=!Draw_Path% 4360 IF _Path%<>0 THEN 4370 IF index%>=0 _Path%!36=((_Path%!36) AND NOT%1100) EOR %0100 4380 IF index%<=0 _Path%!36=((_Path%!36) AND NOT%110000) EOR %010000 4390 ENDIF 4400 ENDPROC 4410 4420DEF PROCSquareCaps(index%) 4430 REM ----------------- 4440 REM 4450 REM Square End Caps 4460 REM 4470 REM ----------------- 4480 IF index%>=0 !(HIMEM+236)=(FNStyle AND NOT%1100) EOR %1000 4490 IF index%<=0 !(HIMEM+236)=(FNStyle AND NOT%110000) EOR %100000 4500 ENDPROC 4510 4520DEF PROCSquareCaps@(Draw_Path%,index%) 4530 REM ----------------- 4540 REM 4550 REM Square End Caps 4560 REM 4570 REM ----------------- 4580 LOCAL _Path% : _Path%=!Draw_Path% 4590 LOCAL _Path% : _Path%=!Draw_Path% 4600 IF _Path%<>0 THEN 4610 IF index%>=0 _Path%!36=((_Path%!36) AND NOT%1100) EOR %1000 4620 IF index%<=0 _Path%!36=((_Path%!36) AND NOT%110000) EOR %100000 4630 ENDIF 4640 ENDPROC 4650 4660DEF PROCTriangleCaps(index%,width,height) 4670IF index%>=0 THEN 4680 !(HIMEM+236)=(FNStyle AND NOT%1100) EOR %1100 4690 !(HIMEM+236)=(FNStyle AND NOT(&FF<<16)) EOR (INT(width*16))<<16 4700 !(HIMEM+236)=(FNStyle AND NOT(&FF<<24)) EOR (INT(height*16))<<24 4710 ENDIF 4720IF index%<=0 THEN 4730 !(HIMEM+236)=(FNStyle AND NOT%110000) EOR %110000 4740 !(HIMEM+236)=(FNStyle AND NOT(&FF<<16)) EOR (INT(width*16))<<16 4750 !(HIMEM+236)=(FNStyle AND NOT(&FF<<24)) EOR (INT(height*16))<<24 4760ENDIF 4770 ENDPROC 4780 4790DEF PROCTriangleCaps@(Draw_Path%,index%,width,height) 4800 REM -------------------------------------- 4810 REM 4820 REM Draws triangular caps. 4830 REM 4840 REM N.B. "width" and "pointbackward" are 4850 REM measured in terms of line width. 4860 REM 4870 REM 4880 REM /| 4890 REM < |=== 4900 REM \| 4910 REM 4920 REM 4930 REM 4940 REM E.g. width=3 means that the cap will 4950 REM be 3 line widths on either side 4960 REM 4970 REM --------------------------------------- 4980 LOCAL _Path% : _Path%=!Draw_Path% 4990 IF _Path%<>0 THEN 5000 IF index%<=0 THEN 5010 _Path%!36=((_Path%!36) AND NOT%110000) EOR %110000 5020 _Path%!36=((_Path%!36) AND NOT(&FF<<16)) EOR (INT(width*16))<<16 5030 _Path%!36=((_Path%!36) AND NOT(&FF<<24)) EOR (INT(height*16))<<24 5040 ENDIF 5050 IF index%>=0 THEN 5060 _Path%!36=((_Path%!36) AND NOT%1100) EOR %1100 5070 _Path%!36=((_Path%!36) AND NOT(&FF<<16)) EOR (INT(width*16))<<16 5080 _Path%!36=((_Path%!36) AND NOT(&FF<<24)) EOR (INT(height*16))<<24 5090 ENDIF 5100 ENDIF 5110 ENDPROC 5120 5130 5140REM ================== 5150REM 3.6 Drawing Paths 5160REM ================== 5170 5180DEF PROCDrawPath(path%) 5190 IF !(!path%)=2 THEN PROCDraw_RenderPath(!path%,FNDrawTrans) 5200 ENDPROC 5210 5220DEF PROCDraw_RenderPath(path%,transform) 5230IF path%<>0 THEN 5240LOCAL _Path%,_Dash%,_Thickness%,_Style%,_Flatness%,_Fill_Style%,_length%,_x%,_y%,_X%,_Y%,_col% 5250SYS "Hourglass_On" 5260_Flatness%=0 5270REM Store the path object's bounding box 5280REM ==================================== 5290 _x%=path%!8 : _y%=path%!12 : _X%=path%!16 : _Y%=path%!20 5300REM The style of drawing 5310REM ==================== 5320 _Thickness%=path%!32 5330 _Style%=path%!36 5340 _Path%=path%+40 5350 REM Dash Pattern (If present) 5360 REM ========================= 5370 IF (_Style% AND (1<<7)) = 0 THEN 5380 _Dash%=0 5390 ELSE 5400 _Dash%=_Path% 5410 _Path%+=4*(_Dash%!4)+8 5420 ENDIF 5430 REM Cap and Join 5440 REM ------------ 5450 path%?8 = _Style% AND %11 : REM Join style 5460 path%?9 =(_Style% AND %1100)>>2 : REM End caps 5470 path%?10=(_Style% AND %110000)>>4 : REM Start caps 5480 path%?11=0 5490 REM Mitre join limits 5500 REM ----------------- 5510 path%!12=10<<16 : REM Bevelling when < 11 degrees 5520 REM Triangular caps 5530 REM --------------- 5540 REM Cap width 5550 REM ********* 5560 _length%=path%?38 : REM # of 16'ths of line width 5570 path%?16=(_length%MOD16)<<4 : REM End caps 5580 path%?17=_length%DIV16 5590 path%?20=(_length%MOD16)<<4 : REM Start caps 5600 path%?21=_length%DIV16 5610 REM Cap length 5620 REM ********** 5630 _length%=path%?39 : REM # of 16'ths of line width 5640 path%?18=(_length%MOD16)<<4 : REM End caps 5650 path%?19=_length%DIV16 5660 path%?22=(_length%MOD16)<<4 : REM Start caps 5670 path%?23=_length%DIV16 5680REM Fill the object (if required) 5690REM ============================ 5700REM 5710REM N.B. Fill colour is value of path%!24 5720REM Do NOT fill if this value is -1 5730REM ECF patterns are used to give best approximation 5740REM to colour 5750 5760 IF (_Style% AND (1<<6))=0 THEN _Fill_Style%=&30 ELSE _Fill_Style%=&32 5770 CASE path%!24 OF 5780 WHEN -1 5790 OTHERWISE 5800 _col%=path%!24 5810 IF !(HIMEM+20)=0 AND _col%=0 THEN _col%=(255<<8)+(255<<16)+(255<<24) 5820 SYS "ColourTrans_SetGCOL",_col%,,,1<<8 5830 SYS "Draw_Fill",_Path%,_Fill_Style%,transform,_Flatness% 5840 ENDCASE 5850REM Draw the boundary 5860REM ================= 5870REM 5880REM Set the outline colour and draw the path. 5890REM N.B. 1) Outline colour is stored at path%!28 5900REM 2) Cap and join at path%+8 5910 _col%=path%!28 5920 IF !(HIMEM+20)=0 AND _col%=0 THEN _col%=(255<<8)+(255<<16)+(255<<24) 5930 SYS "ColourTrans_SetGCOL",_col% 5940 SYS "Draw_Stroke",_Path%,,transform,_Flatness%,_Thickness%,path%+8,_Dash% 5950REM Restore the path object's bounding box 5960REM ====================================== 5970 path%!8=_x% : path%!12=_y% : path%!16=_X% : path%!20=_Y% 5980 SYS "Hourglass_Off" 5990 ENDIF 6000ENDPROC
%� >DrawBasic:Resources.Attributes
=� =======================================================
�
($� copyright Joe Taylor June 1994
2�
<;� N.B. For ERROR THROWBACK to work The first line above
F7� MUST have the correct pathname of this file.
P;� If you move the location of the file remember to
Z � alter this pathname.
d�
n=� =======================================================
x
�� ******************
��
�� 5 PATH ATTRIBUTES
��
�� ******************
�
�� ==============
�� 5.1 Line Width
�� ==============
�
�� �LineWidth=!(�+232)
�
�� �Width(width)
!(�+232)=�(width*640)
�
" � �Width@(Draw_Path%,width)
,& � -------------------------------
6 �
@ � Sets the line width
J �
T% � N.B. Thickness is specified in
^ � printers points
h �
r% � ------------------------------
|
� _Path%
� _Path%=!Draw_Path%
�) � _Path%<>0 � _Path%!32=�(width*640)
��
�
�� ===============
�� 5.2 Line Colour
�� ===============
�
�� �LineColour=!(�+224)
�
�� �Colour(col%)
�-� � col%<16 � col%=�DesktopColour(� col%)
�!(�+224)=col%
�
"� �Colour@(Draw_Path%,colour%)
& � --------------------
0 �
: � Sets the line colour
D �
N � --------------------
X
� _Path%
b _Path%=!Draw_Path%
l � _Path%<>0 �
vS � �(colour%)<16 � _Path%!28=�DesktopColour(�(colour%)�16) � _Path%!28=colour%
� �
��
�
�� ===============
�� 5.3 Fill Colour
�� ===============
�
�� �FillColour=!(�+228)
�
�� �Fill(col%)
�-� � col%<16 � col%=�DesktopColour(� col%)
�!(�+228)=col%
��
� �Fill@(Draw_Path%,colour%)
� ---------------------
�
* � Sets the fill colour
4 �
> � ---------------------
H
� _Path%
R _Path%=!Draw_Path%
\ � _Path%<>0 �
fR � �(colour%)<16 � _Path%!24=�DesktopColour(�(colour%)�16) � _Path%!24=colour%
p �
z�
�
�� ==================
�� 5.4 Colour mixing
�� ==================
�
�B� �Shade(Red%,Green%,Blue%)=(Red%<<8)+(Green%<<16)+(Blue%<<24)
�
� � �ShadePC(Red,Green,Blue)
�� _R%,_B%,_G%
�L_R%=�(Red*255/100+.5) : _G%=�(Green*255/100+.5): _B%=�(Blue*255/100+.5)
�=�Shade(_R%,_G%,_B%)
�
�)� �ShadeCMYK(Cyan,Magenta,Yellow,Key)
*� _Red%,_Green%,_Blue%,_C%,_M%,_Y%,_K%
;_C%=�(Cyan*65536/100+.5) : _M%=�(Magenta*65536/100+.5)
7_Y%=�(Yellow*65536/100+.5): _K%=�(Key*65536/100+.5)
$Lș "ColourTrans_ConvertCMYKToRGB",_C%,_M%,_Y%,_K% � _Red%,_Green%,_Blue%
. � (_Red%>>8)=256 � _Red%-=1
8#� (_Green%>>8)=256 � _Green%-=1
B!� (_Blue%>>8)=256 � _Blue%-=1
L*=�Shade(_Red%>>8,_Green%>>8,_Blue%>>8)
V
`%� �ShadeHSV(Hue,Saturation,Value)
j&� _Red%,_Green%,_Blue%,_H%,_S%,_V%
t_H%=Hue<<16
~"_S%=�(Saturation*65536/100+.5)
� _V%=�(Value*65536/100+.5)
�Gș "ColourTrans_ConvertHSVToRGB",_H%,_S%,_V% � _Red%,_Green%,_Blue%
� � (_Red%>>8)=256 � _Red%-=1
�#� (_Green%>>8)=256 � _Green%-=1
�!� (_Blue%>>8)=256 � _Blue%-=1
�*=�Shade(_Red%>>8,_Green%>>8,_Blue%>>8)
�
� � �White=�Shade(255,255,255)
�� �Black=%11111111
� � �Blue=�Shade(0,68,153)
� � �Yellow=�Shade(238,238,0)
�!� �LightGreen=�Shade(0,204,0)
� �Red=�Shade(221,0,0)
� �Cream=�Shade(238,238,187)
� �Green=�Shade(85,136,0)
� �Orange=�Shade(255,187,0)
("� �LightBlue=�Shade(0,187,255)
2
<� �Grey(scale)
F� _intensity%
P� scale>=7 � =�Black
Z%_intensity%=�((7-scale)*255/7+.5)
d0=�Shade(_intensity%,_intensity%,_intensity%)
n
x � �DesktopColour(colour%)
�.� � colour%<256 � colour%=(� colour%) � 16
� Ȏ colour% �
�' � 0 : colour%=�Shade(255,255,255)
�' � 1 : colour%=�Shade(221,221,221)
�' � 2 : colour%=�Shade(187,187,187)
�' � 3 : colour%=�Shade(153,153,153)
�' � 4 : colour%=�Shade(119,119,119)
�$ � 5 : colour%=�Shade(85,85,85)
�$ � 6 : colour%=�Shade(51,51,51)
� � 7 : colour%=%11111111
�$ � 8 : colour%=�Shade(0,68,153)
�% � 9 : colour%=�Shade(238,238,0)
�$ � 10 : colour%=�Shade(0,204,0)
$ � 11 : colour%=�Shade(221,0,0)
( � 12 : colour%=�Shade(238,238,187)
% � 13 : colour%=�Shade(85,136,0)
"& � 14 : colour%=�Shade(255,187,0)
,& � 15 : colour%=�Shade(0,187,255)
6 �
@ =colour%
J
T� ==================
^� 5.5 Winding Rules
h� ==================
r
|� �Style=!(�+236)
�
�� �WindingRule=!(�+236)
�
�!� �WindingRule(winding_rule%)
�� winding_rule%=0 �
�,!(�+236)=(�Style � �%1000000) � %1000000
��
�,!(�+236)=(�Style � �%1000000) � %0000000
��
��
�
�-� �WindingRule@(Draw_Path%,winding_rule%)
� � -----------------------
�
� Even Odd winding Rule
�
& � ----------------------
0
� _Path%
: _Path%=!Draw_Path%
D � _Path%<>0 �
N � winding_rule%=0 �
X0 Path%!36=(�Style � �%1000000) � %1000000
b �
l0 Path%!36=(�Style � �%1000000) � %0000000
v �
� �
��
�
�� =================
�� 5.6 Dashed Lines
�� =================
�
�� �Dash=!(�+76)
�
�� �DashOff
�
!(�+76)=0
��
�
� �Dash(pattern%)
!(�+76)=pattern%
�
*!� �Dash@(Draw_Path%,pattern%)
4$ � -----------------------------
> �
H � Dash Pattern
R �
\ � - - - - - - - -
f �
p � pattern!0=n
z � pattern!4=length into
�& � pattern!8=length of 1st stroke
� �
� � etc.
� �
� � "length" in points
� �
�$ � -----------------------------
� � _Path%,_i%,_n%,_max%
� _Path%=!Draw_Path%
� � _Path%<>0 �
� _n%=pattern%!4
� _Path%!4+=4*(_n%+2)
�0 _Path%!36=((_Path%!36) � �(1<<7)) � (1<<7)
_max%=!(�+4)
" �MoveMemory(_Path%+40,_n%+2)
_i%=Draw_Path%-4
$2 ȕ _i%>=_max% : !_i%+=4*(_n%+2) : _i%-=4 : �
. � _i%=0 � _n%+1
8/ _Path%!(40+4*_i%)=(pattern%!(4*_i%))*640
B �
L _Path%!44=_n%
V �
` �
j
t%� �DashPattern(NumberOfElements%)
~� _pattern%
�P� NumberOfElements%<=0 � � 0, "Number of elements in dash pattern negative!"
�%� _pattern% 8+4*NumberOfElements%
�'� _i%=0 � 4+4*NumberOfElements% � 4
� _pattern%!_i%=0
� �
�" _pattern%!4=NumberOfElements%
�=_pattern%
�
�)� �DashLength(pattern%,item%,length%)
�I� item%<0 � item%>(pattern%!4) � � 0, "No such item in Dash pattern!"
�@� item%=0 � !pattern%=length% � pattern%!(4+4*item%)=length%
��
� �EquiDash(length%)
$ � -----------------------------
�
( � Equidistant Dash Pattern
2 �
< � - - - - - - - - - -
F �
P � Arguments in OS units
Z �
d$ � -----------------------------
n � _pattern : � _pattern 12
x3!_pattern=0 : _pattern!4=1 : _pattern!8=length%
�
=_pattern
�
�� �DotDash(length%)
�$ � -----------------------------
� �
�# � Non-equidistant Dash Pattern
� �
� � -- - -- - -- - -- - -- -
� �
� � Arguments in OS units
� �
�$ � -----------------------------
� � _pattern : � _pattern 6*4
!_pattern=0 : _pattern!4=4
/ _pattern!8=2*length% : _pattern!12=length%
/ _pattern!16=length% : _pattern!20=length%
" =_pattern
,
6/� �NonEquiDash(stroke_length%,move_length%)
@$ � -----------------------------
J �
T# � Non-equidistant Dash Pattern
^ �
h" � -- -- -- -- -- -- -- -- --
r �
| � Arguments in inches
� �
�$ � -----------------------------
� � _pattern : � _pattern 4*4
� !_pattern=0 : _pattern!4=2
�9 _pattern!8=stroke_length% : _pattern!12=move_length%
� =_pattern
�
�
�� ==========
�� 5.7 Joins
�� ==========
�
�� �Joins(index%)
Ȏ index% �
� 0 : �RoundJoins
� 1 : �BevelJoins
&
0 �MitreJoins
:�
D�
N
X � �Joins@(Draw_Path%,index%)
bȎ index% �
l"� 0 : �RoundJoins@(Draw_Path%)
v"� 1 : �BevelJoins@(Draw_Path%)
�
� �MitreJoins@(Draw_Path%)
��
��
�
�� �RoundJoins
� � ------------
� �
� � Round Joins
� �
� � ------------
�$ !(�+236)=(�Style � �%11) � %01
� �
� �RoundJoins@(Draw_Path%)
� ------------
�
* � Round Joins
4 �
> � ------------
H
� _Path%
R _Path%=!Draw_Path%
\7 � _Path%<>0 � _Path%!36=((_Path%!36) � �%11) � %01
f �
p
z� �BevelJoins
� � -------------------------
� �
� � Bevel Joins
� �
� � N.B. This is the default.
� �
� � -------------------------
�# !(�+236)=(�Style � �%11) � %10
� �
�
� � �BevelJoins@(Draw_Path%)
� � -------------------------
� �
� Bevel Joins
�
� N.B. This is the default.
$ �
. � -------------------------
8" � _Path% : _Path%=!Draw_Path%
B7 � _Path%<>0 � _Path%!36=((_Path%!36) � �%11) � %10
L �
V
`� �MitreJoins
j � ------------
t �
~ � Mitre Joins
� �
� � ------------
�# !(�+236)=(�Style � �%11) � %00
� �
�
� � �MitreJoins@(Draw_Path%)
� � ------------
� �
� � Mitre Joins
� �
� � ------------
�" � _Path% : _Path%=!Draw_Path%
7 � _Path%<>0 � _Path%!36=((_Path%!36) � �%11) � %00
�
� ==============
(� 5.8 Line Caps
2� ==============
<
F� �ButtCaps(index%)
P � ---------------------
Z �
d& � Butt Caps index= 1 forward only
n# � =-1 back only
x � = 0 both
� � N.B. This the default
� �
� � ---------------------
�3 � index%>=0 !(�+236)=(�Style � �%1100) � %0000
�7 � index%<=0 !(�+236)=(�Style � �%110000) � %000000
� �
�
�#� �ButtCaps@(Draw_Path%,index%)
� � ---------------------
� �
� � Butt End Caps
� �
� � N.B. This the default
�
� ---------------------
" � _Path% : _Path%=!Draw_Path%
" � _Path%<>0 �
,: � index%>=0 _Path%!36=((_Path%!36) � �%1100) � %0000
6> � index%<=0 _Path%!36=((_Path%!36) � �%110000) � %000000
@ �
J �
T
^� �RoundCaps(index%)
h � -----------------
r �
| � Round End Caps
� �
� � -----------------
�4 � index%>=0 !(�+236)=(�Style � �%1100) � %0100
�8 � index%<=0 !(�+236)=(�Style � �%110000) � %010000
� �
�
�$� �RoundCaps@(Draw_Path%,index%)
� � -----------------
� �
� � Round End Caps
� �
� � -----------------
�" � _Path% : _Path%=!Draw_Path%
� _Path%<>0 �
: � index%>=0 _Path%!36=((_Path%!36) � �%1100) � %0100
> � index%<=0 _Path%!36=((_Path%!36) � �%110000) � %010000
& �
0 �
:
D� �SquareCaps(index%)
N � -----------------
X �
b � Square End Caps
l �
v � -----------------
�3 � index%>=0 !(�+236)=(�Style � �%1100) � %1000
�7 � index%<=0 !(�+236)=(�Style � �%110000) � %100000
� �
�
�%� �SquareCaps@(Draw_Path%,index%)
� � -----------------
� �
� � Square End Caps
� �
� � -----------------
�" � _Path% : _Path%=!Draw_Path%
�" � _Path% : _Path%=!Draw_Path%
� � _Path%<>0 �
: � index%>=0 _Path%!36=((_Path%!36) � �%1100) � %1000
> � index%<=0 _Path%!36=((_Path%!36) � �%110000) � %100000
�
�
*
4(� �TriangleCaps(index%,width,height)
>� index%>=0 �
H' !(�+236)=(�Style � �%1100) � %1100
R7 !(�+236)=(�Style � �(&FF<<16)) � (�(width*16))<<16
\8 !(�+236)=(�Style � �(&FF<<24)) � (�(height*16))<<24
f �
p� index%<=0 �
z+ !(�+236)=(�Style � �%110000) � %110000
�7 !(�+236)=(�Style � �(&FF<<16)) � (�(width*16))<<16
�8 !(�+236)=(�Style � �(&FF<<24)) � (�(height*16))<<24
��
� �
�
�4� �TriangleCaps@(Draw_Path%,index%,width,height)
�- � --------------------------------------
� �
� � Draws triangular caps.
� �
�, � N.B. "width" and "pointbackward" are
�- � measured in terms of line width.
� �
�
� /|
� < |===
$ � \|
. �
8 �
B �
L, � E.g. width=3 means that the cap will
V, � be 3 line widths on either side
` �
j. � ---------------------------------------
t" � _Path% : _Path%=!Draw_Path%
~ � _Path%<>0 �
� � index%<=0 �
�2 _Path%!36=((_Path%!36) � �%110000) � %110000
�> _Path%!36=((_Path%!36) � �(&FF<<16)) � (�(width*16))<<16
�? _Path%!36=((_Path%!36) � �(&FF<<24)) � (�(height*16))<<24
� �
� � index%>=0 �
�. _Path%!36=((_Path%!36) � �%1100) � %1100
�> _Path%!36=((_Path%!36) � �(&FF<<16)) � (�(width*16))<<16
�? _Path%!36=((_Path%!36) � �(&FF<<24)) � (�(height*16))<<24
� �
� �
� �
� ==================
� 3.6 Drawing Paths
(� ==================
2
<� �DrawPath(path%)
F8 � !(!path%)=2 � �Draw_RenderPath(!path%,�DrawTrans)
P �
Z
d'� �Draw_RenderPath(path%,transform)
n� path%<>0 �
x^� _Path%,_Dash%,_Thickness%,_Style%,_Flatness%,_Fill_Style%,_length%,_x%,_y%,_X%,_Y%,_col%
�ș "Hourglass_On"
�_Flatness%=0
�*� Store the path object's bounding box
�*� ====================================
�@ _x%=path%!8 : _y%=path%!12 : _X%=path%!16 : _Y%=path%!20
�� The style of drawing
�� ====================
� _Thickness%=path%!32
� _Style%=path%!36
� _Path%=path%+40
�# � Dash Pattern (If present)
�# � =========================
�" � (_Style% � (1<<7)) = 0 �
_Dash%=0
�
_Dash%=_Path%
"" _Path%+=4*(_Dash%!4)+8
, �
6 � Cap and Join
@ � ------------
J6 path%?8 = _Style% � %11 : � Join style
T4 path%?9 =(_Style% � %1100)>>2 : � End caps
^6 path%?10=(_Style% � %110000)>>4 : � Start caps
h path%?11=0
r � Mitre join limits
| � -----------------
�A path%!12=10<<16 : � Bevelling when < 11 degrees
� � Triangular caps
� � ---------------
� � Cap width
� � *********
�A _length%=path%?38 : � # of 16'ths of line width
�. path%?16=(_length%�16)<<4 : � End caps
� path%?17=_length%�16
�0 path%?20=(_length%�16)<<4 : � Start caps
� path%?21=_length%�16
� � Cap length
� � **********
�A _length%=path%?39 : � # of 16'ths of line width
. path%?18=(_length%�16)<<4 : � End caps
path%?19=_length%�16
0 path%?22=(_length%�16)<<4 : � Start caps
& path%?23=_length%�16
0#� Fill the object (if required)
:"� ============================
D�
N+� N.B. Fill colour is value of path%!24
X*� Do NOT fill if this value is -1
b;� ECF patterns are used to give best approximation
l� to colour
v
�D � (_Style% � (1<<6))=0 � _Fill_Style%=&30 � _Fill_Style%=&32
� Ȏ path%!24 �
�
� -1
�
� _col%=path%!24
�E � !(�+20)=0 � _col%=0 � _col%=(255<<8)+(255<<16)+(255<<24)
�0 ș "ColourTrans_SetGCOL",_col%,,,1<<8
�B ș "Draw_Fill",_Path%,_Fill_Style%,transform,_Flatness%
� �
�� Draw the boundary
�� =================
��
�/� Set the outline colour and draw the path.
2� N.B. 1) Outline colour is stored at path%!28
%� 2) Cap and join at path%+8
_col%=path%!28
B � !(�+20)=0 � _col%=0 � _col%=(255<<8)+(255<<16)+(255<<24)
*& ș "ColourTrans_SetGCOL",_col%
4P ș "Draw_Stroke",_Path%,,transform,_Flatness%,_Thickness%,path%+8,_Dash%
>,� Restore the path object's bounding box
H,� ======================================
R@ path%!8=_x% : path%!12=_y% : path%!16=_X% : path%!20=_Y%
\ ș "Hourglass_Off"
f �
p�
� 00000000 0d 00 0a 25 f4 20 3e 44 72 61 77 42 61 73 69 63 |...%. >DrawBasic|
00000010 3a 52 65 73 6f 75 72 63 65 73 2e 41 74 74 72 69 |:Resources.Attri|
00000020 62 75 74 65 73 0d 00 14 3d f4 20 3d 3d 3d 3d 3d |butes...=. =====|
00000030 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000060 3d 3d 0d 00 1e 05 f4 0d 00 28 24 f4 20 63 6f 70 |==.......($. cop|
00000070 79 72 69 67 68 74 20 4a 6f 65 20 54 61 79 6c 6f |yright Joe Taylo|
00000080 72 20 4a 75 6e 65 20 31 39 39 34 0d 00 32 05 f4 |r June 1994..2..|
00000090 0d 00 3c 3b f4 20 4e 2e 42 2e 20 46 6f 72 20 45 |..<;. N.B. For E|
000000a0 52 52 4f 52 20 54 48 52 4f 57 42 41 43 4b 20 74 |RROR THROWBACK t|
000000b0 6f 20 77 6f 72 6b 20 54 68 65 20 66 69 72 73 74 |o work The first|
000000c0 20 6c 69 6e 65 20 61 62 6f 76 65 0d 00 46 37 f4 | line above..F7.|
000000d0 20 20 20 20 20 20 4d 55 53 54 20 68 61 76 65 20 | MUST have |
000000e0 74 68 65 20 63 6f 72 72 65 63 74 20 70 61 74 68 |the correct path|
000000f0 6e 61 6d 65 20 6f 66 20 74 68 69 73 20 66 69 6c |name of this fil|
00000100 65 2e 0d 00 50 3b f4 20 20 20 20 20 20 49 66 20 |e...P;. If |
00000110 79 6f 75 20 6d 6f 76 65 20 74 68 65 20 6c 6f 63 |you move the loc|
00000120 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 6c |ation of the fil|
00000130 65 20 72 65 6d 65 6d 62 65 72 20 74 6f 0d 00 5a |e remember to..Z|
00000140 1f f4 20 20 20 20 20 20 61 6c 74 65 72 20 74 68 |.. alter th|
00000150 69 73 20 70 61 74 68 6e 61 6d 65 2e 0d 00 64 05 |is pathname...d.|
00000160 f4 0d 00 6e 3d f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d |...n=. =========|
00000170 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00000190 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 |==============..|
000001a0 78 04 0d 00 82 18 f4 20 2a 2a 2a 2a 2a 2a 2a 2a |x...... ********|
000001b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 8c 05 f4 0d |**********......|
000001c0 00 96 17 f4 20 35 20 50 41 54 48 20 41 54 54 52 |.... 5 PATH ATTR|
000001d0 49 42 55 54 45 53 0d 00 a0 05 f4 0d 00 aa 18 f4 |IBUTES..........|
000001e0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************|
000001f0 2a 2a 2a 0d 00 b4 04 0d 00 be 14 f4 20 3d 3d 3d |***......... ===|
00000200 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 c8 14 f4 |===========.....|
00000210 20 35 2e 31 20 4c 69 6e 65 20 57 69 64 74 68 0d | 5.1 Line Width.|
00000220 00 d2 14 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |.... ===========|
00000230 3d 3d 3d 0d 00 dc 04 0d 00 e6 19 dd 20 a4 4c 69 |===......... .Li|
00000240 6e 65 57 69 64 74 68 3d 21 28 93 2b 32 33 32 29 |neWidth=!(.+232)|
00000250 0d 00 f0 04 0d 00 fa 13 dd 20 f2 57 69 64 74 68 |......... .Width|
00000260 28 77 69 64 74 68 29 0d 01 04 19 21 28 93 2b 32 |(width)....!(.+2|
00000270 33 32 29 3d a8 28 77 69 64 74 68 2a 36 34 30 29 |32)=.(width*640)|
00000280 0d 01 0e 05 e1 0d 01 18 04 0d 01 22 1f dd 20 f2 |...........".. .|
00000290 57 69 64 74 68 40 28 44 72 61 77 5f 50 61 74 68 |Width@(Draw_Path|
000002a0 25 2c 77 69 64 74 68 29 0d 01 2c 26 20 f4 20 2d |%,width)..,& . -|
000002b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000002c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 01 |--------------..|
000002d0 36 06 20 f4 0d 01 40 1a 20 f4 20 53 65 74 73 20 |6. ...@. . Sets |
000002e0 74 68 65 20 6c 69 6e 65 20 77 69 64 74 68 0d 01 |the line width..|
000002f0 4a 06 20 f4 0d 01 54 25 20 f4 20 4e 2e 42 2e 20 |J. ...T% . N.B. |
00000300 54 68 69 63 6b 6e 65 73 73 20 69 73 20 73 70 65 |Thickness is spe|
00000310 63 69 66 69 65 64 20 69 6e 0d 01 5e 1b 20 f4 20 |cified in..^. . |
00000320 20 20 20 20 20 70 72 69 6e 74 65 72 73 20 70 6f | printers po|
00000330 69 6e 74 73 0d 01 68 06 20 f4 0d 01 72 25 20 f4 |ints..h. ...r% .|
00000340 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------------|
00000350 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
00000360 01 7c 0d 20 ea 20 5f 50 61 74 68 25 0d 01 86 17 |.|. . _Path%....|
00000370 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f 50 61 | _Path%=!Draw_Pa|
00000380 74 68 25 0d 01 90 29 20 e7 20 5f 50 61 74 68 25 |th%...) . _Path%|
00000390 3c 3e 30 20 8c 20 5f 50 61 74 68 25 21 33 32 3d |<>0 . _Path%!32=|
000003a0 a8 28 77 69 64 74 68 2a 36 34 30 29 0d 01 9a 05 |.(width*640)....|
000003b0 e1 0d 01 a4 04 0d 01 ae 15 f4 20 3d 3d 3d 3d 3d |.......... =====|
000003c0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 01 b8 15 f4 20 |==========..... |
000003d0 35 2e 32 20 4c 69 6e 65 20 43 6f 6c 6f 75 72 0d |5.2 Line Colour.|
000003e0 01 c2 15 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |.... ===========|
000003f0 3d 3d 3d 3d 0d 01 cc 04 0d 01 d6 1a dd 20 a4 4c |====......... .L|
00000400 69 6e 65 43 6f 6c 6f 75 72 3d 21 28 93 2b 32 32 |ineColour=!(.+22|
00000410 34 29 0d 01 e0 04 0d 01 ea 13 dd 20 f2 43 6f 6c |4)......... .Col|
00000420 6f 75 72 28 63 6f 6c 25 29 0d 01 f4 2d e7 20 94 |our(col%)...-. .|
00000430 20 63 6f 6c 25 3c 31 36 20 8c 20 63 6f 6c 25 3d | col%<16 . col%=|
00000440 a4 44 65 73 6b 74 6f 70 43 6f 6c 6f 75 72 28 94 |.DesktopColour(.|
00000450 20 63 6f 6c 25 29 0d 01 fe 11 21 28 93 2b 32 32 | col%)....!(.+22|
00000460 34 29 3d 63 6f 6c 25 0d 02 08 05 e1 0d 02 12 04 |4)=col%.........|
00000470 0d 02 1c 22 dd 20 f2 43 6f 6c 6f 75 72 40 28 44 |...". .Colour@(D|
00000480 72 61 77 5f 50 61 74 68 25 2c 63 6f 6c 6f 75 72 |raw_Path%,colour|
00000490 25 29 0d 02 26 1b 20 f4 20 2d 2d 2d 2d 2d 2d 2d |%)..&. . -------|
000004a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 02 30 |-------------..0|
000004b0 06 20 f4 0d 02 3a 1b 20 f4 20 53 65 74 73 20 74 |. ...:. . Sets t|
000004c0 68 65 20 6c 69 6e 65 20 63 6f 6c 6f 75 72 0d 02 |he line colour..|
000004d0 44 06 20 f4 0d 02 4e 1b 20 f4 20 2d 2d 2d 2d 2d |D. ...N. . -----|
000004e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
000004f0 02 58 0d 20 ea 20 5f 50 61 74 68 25 0d 02 62 17 |.X. . _Path%..b.|
00000500 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f 50 61 | _Path%=!Draw_Pa|
00000510 74 68 25 0d 02 6c 12 20 e7 20 5f 50 61 74 68 25 |th%..l. . _Path%|
00000520 3c 3e 30 20 8c 0d 02 76 53 20 20 e7 20 94 28 63 |<>0 ...vS . .(c|
00000530 6f 6c 6f 75 72 25 29 3c 31 36 20 8c 20 5f 50 61 |olour%)<16 . _Pa|
00000540 74 68 25 21 32 38 3d a4 44 65 73 6b 74 6f 70 43 |th%!28=.DesktopC|
00000550 6f 6c 6f 75 72 28 94 28 63 6f 6c 6f 75 72 25 29 |olour(.(colour%)|
00000560 83 31 36 29 20 8b 20 5f 50 61 74 68 25 21 32 38 |.16) . _Path%!28|
00000570 3d 63 6f 6c 6f 75 72 25 0d 02 80 07 20 20 cd 0d |=colour%.... ..|
00000580 02 8a 05 e1 0d 02 94 04 0d 02 9e 15 f4 20 3d 3d |............. ==|
00000590 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 02 a8 |=============...|
000005a0 15 f4 20 35 2e 33 20 46 69 6c 6c 20 43 6f 6c 6f |.. 5.3 Fill Colo|
000005b0 75 72 0d 02 b2 15 f4 20 3d 3d 3d 3d 3d 3d 3d 3d |ur..... ========|
000005c0 3d 3d 3d 3d 3d 3d 3d 0d 02 bc 04 0d 02 c6 1a dd |=======.........|
000005d0 20 a4 46 69 6c 6c 43 6f 6c 6f 75 72 3d 21 28 93 | .FillColour=!(.|
000005e0 2b 32 32 38 29 0d 02 d0 04 0d 02 da 11 dd 20 f2 |+228)......... .|
000005f0 46 69 6c 6c 28 63 6f 6c 25 29 0d 02 e4 2d e7 20 |Fill(col%)...-. |
00000600 94 20 63 6f 6c 25 3c 31 36 20 8c 20 63 6f 6c 25 |. col%<16 . col%|
00000610 3d a4 44 65 73 6b 74 6f 70 43 6f 6c 6f 75 72 28 |=.DesktopColour(|
00000620 94 20 63 6f 6c 25 29 0d 02 ee 11 21 28 93 2b 32 |. col%)....!(.+2|
00000630 32 38 29 3d 63 6f 6c 25 0d 02 f8 05 e1 0d 03 02 |28)=col%........|
00000640 04 0d 03 0c 20 dd 20 f2 46 69 6c 6c 40 28 44 72 |.... . .Fill@(Dr|
00000650 61 77 5f 50 61 74 68 25 2c 63 6f 6c 6f 75 72 25 |aw_Path%,colour%|
00000660 29 0d 03 16 1c 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d |).... . --------|
00000670 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 03 20 |-------------.. |
00000680 06 20 f4 0d 03 2a 1b 20 f4 20 53 65 74 73 20 74 |. ...*. . Sets t|
00000690 68 65 20 66 69 6c 6c 20 63 6f 6c 6f 75 72 0d 03 |he fill colour..|
000006a0 34 06 20 f4 0d 03 3e 1c 20 f4 20 2d 2d 2d 2d 2d |4. ...>. . -----|
000006b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000006c0 0d 03 48 0d 20 ea 20 5f 50 61 74 68 25 0d 03 52 |..H. . _Path%..R|
000006d0 17 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f 50 |. _Path%=!Draw_P|
000006e0 61 74 68 25 0d 03 5c 12 20 e7 20 5f 50 61 74 68 |ath%..\. . _Path|
000006f0 25 3c 3e 30 20 8c 0d 03 66 52 20 e7 20 94 28 63 |%<>0 ...fR . .(c|
00000700 6f 6c 6f 75 72 25 29 3c 31 36 20 8c 20 5f 50 61 |olour%)<16 . _Pa|
00000710 74 68 25 21 32 34 3d a4 44 65 73 6b 74 6f 70 43 |th%!24=.DesktopC|
00000720 6f 6c 6f 75 72 28 94 28 63 6f 6c 6f 75 72 25 29 |olour(.(colour%)|
00000730 83 31 36 29 20 8b 20 5f 50 61 74 68 25 21 32 34 |.16) . _Path%!24|
00000740 3d 63 6f 6c 6f 75 72 25 0d 03 70 07 20 20 cd 0d |=colour%..p. ..|
00000750 03 7a 05 e1 0d 03 84 04 0d 03 8e 18 f4 20 3d 3d |.z........... ==|
00000760 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00000770 0d 03 98 17 f4 20 35 2e 34 20 43 6f 6c 6f 75 72 |..... 5.4 Colour|
00000780 20 6d 69 78 69 6e 67 0d 03 a2 18 f4 20 3d 3d 3d | mixing..... ===|
00000790 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d |===============.|
000007a0 03 ac 04 0d 03 b6 42 dd 20 a4 53 68 61 64 65 28 |......B. .Shade(|
000007b0 52 65 64 25 2c 47 72 65 65 6e 25 2c 42 6c 75 65 |Red%,Green%,Blue|
000007c0 25 29 3d 28 52 65 64 25 3c 3c 38 29 2b 28 47 72 |%)=(Red%<<8)+(Gr|
000007d0 65 65 6e 25 3c 3c 31 36 29 2b 28 42 6c 75 65 25 |een%<<16)+(Blue%|
000007e0 3c 3c 32 34 29 0d 03 c0 04 0d 03 ca 1e dd 20 a4 |<<24)......... .|
000007f0 53 68 61 64 65 50 43 28 52 65 64 2c 47 72 65 65 |ShadePC(Red,Gree|
00000800 6e 2c 42 6c 75 65 29 0d 03 d4 11 ea 20 5f 52 25 |n,Blue)..... _R%|
00000810 2c 5f 42 25 2c 5f 47 25 0d 03 de 4c 5f 52 25 3d |,_B%,_G%...L_R%=|
00000820 a8 28 52 65 64 2a 32 35 35 2f 31 30 30 2b 2e 35 |.(Red*255/100+.5|
00000830 29 20 20 3a 20 5f 47 25 3d a8 28 47 72 65 65 6e |) : _G%=.(Green|
00000840 2a 32 35 35 2f 31 30 30 2b 2e 35 29 3a 20 5f 42 |*255/100+.5): _B|
00000850 25 3d a8 28 42 6c 75 65 2a 32 35 35 2f 31 30 30 |%=.(Blue*255/100|
00000860 2b 2e 35 29 0d 03 e8 18 3d a4 53 68 61 64 65 28 |+.5)....=.Shade(|
00000870 5f 52 25 2c 5f 47 25 2c 5f 42 25 29 0d 03 f2 04 |_R%,_G%,_B%)....|
00000880 0d 03 fc 29 dd 20 a4 53 68 61 64 65 43 4d 59 4b |...). .ShadeCMYK|
00000890 28 43 79 61 6e 2c 4d 61 67 65 6e 74 61 2c 59 65 |(Cyan,Magenta,Ye|
000008a0 6c 6c 6f 77 2c 4b 65 79 29 0d 04 06 2a ea 20 5f |llow,Key)...*. _|
000008b0 52 65 64 25 2c 5f 47 72 65 65 6e 25 2c 5f 42 6c |Red%,_Green%,_Bl|
000008c0 75 65 25 2c 5f 43 25 2c 5f 4d 25 2c 5f 59 25 2c |ue%,_C%,_M%,_Y%,|
000008d0 5f 4b 25 0d 04 10 3b 5f 43 25 3d a8 28 43 79 61 |_K%...;_C%=.(Cya|
000008e0 6e 2a 36 35 35 33 36 2f 31 30 30 2b 2e 35 29 20 |n*65536/100+.5) |
000008f0 20 3a 20 5f 4d 25 3d a8 28 4d 61 67 65 6e 74 61 | : _M%=.(Magenta|
00000900 2a 36 35 35 33 36 2f 31 30 30 2b 2e 35 29 0d 04 |*65536/100+.5)..|
00000910 1a 37 5f 59 25 3d a8 28 59 65 6c 6c 6f 77 2a 36 |.7_Y%=.(Yellow*6|
00000920 35 35 33 36 2f 31 30 30 2b 2e 35 29 3a 20 5f 4b |5536/100+.5): _K|
00000930 25 3d a8 28 4b 65 79 2a 36 35 35 33 36 2f 31 30 |%=.(Key*65536/10|
00000940 30 2b 2e 35 29 0d 04 24 4c c8 99 20 22 43 6f 6c |0+.5)..$L.. "Col|
00000950 6f 75 72 54 72 61 6e 73 5f 43 6f 6e 76 65 72 74 |ourTrans_Convert|
00000960 43 4d 59 4b 54 6f 52 47 42 22 2c 5f 43 25 2c 5f |CMYKToRGB",_C%,_|
00000970 4d 25 2c 5f 59 25 2c 5f 4b 25 20 b8 20 5f 52 65 |M%,_Y%,_K% . _Re|
00000980 64 25 2c 5f 47 72 65 65 6e 25 2c 5f 42 6c 75 65 |d%,_Green%,_Blue|
00000990 25 0d 04 2e 1f e7 20 28 5f 52 65 64 25 3e 3e 38 |%..... (_Red%>>8|
000009a0 29 3d 32 35 36 20 8c 20 5f 52 65 64 25 2d 3d 31 |)=256 . _Red%-=1|
000009b0 0d 04 38 23 e7 20 28 5f 47 72 65 65 6e 25 3e 3e |..8#. (_Green%>>|
000009c0 38 29 3d 32 35 36 20 8c 20 5f 47 72 65 65 6e 25 |8)=256 . _Green%|
000009d0 2d 3d 31 0d 04 42 21 e7 20 28 5f 42 6c 75 65 25 |-=1..B!. (_Blue%|
000009e0 3e 3e 38 29 3d 32 35 36 20 8c 20 5f 42 6c 75 65 |>>8)=256 . _Blue|
000009f0 25 2d 3d 31 0d 04 4c 2a 3d a4 53 68 61 64 65 28 |%-=1..L*=.Shade(|
00000a00 5f 52 65 64 25 3e 3e 38 2c 5f 47 72 65 65 6e 25 |_Red%>>8,_Green%|
00000a10 3e 3e 38 2c 5f 42 6c 75 65 25 3e 3e 38 29 0d 04 |>>8,_Blue%>>8)..|
00000a20 56 04 0d 04 60 25 dd 20 a4 53 68 61 64 65 48 53 |V...`%. .ShadeHS|
00000a30 56 28 48 75 65 2c 53 61 74 75 72 61 74 69 6f 6e |V(Hue,Saturation|
00000a40 2c 56 61 6c 75 65 29 0d 04 6a 26 ea 20 5f 52 65 |,Value)..j&. _Re|
00000a50 64 25 2c 5f 47 72 65 65 6e 25 2c 5f 42 6c 75 65 |d%,_Green%,_Blue|
00000a60 25 2c 5f 48 25 2c 5f 53 25 2c 5f 56 25 0d 04 74 |%,_H%,_S%,_V%..t|
00000a70 0f 5f 48 25 3d 48 75 65 3c 3c 31 36 0d 04 7e 22 |._H%=Hue<<16..~"|
00000a80 5f 53 25 3d a8 28 53 61 74 75 72 61 74 69 6f 6e |_S%=.(Saturation|
00000a90 2a 36 35 35 33 36 2f 31 30 30 2b 2e 35 29 0d 04 |*65536/100+.5)..|
00000aa0 88 1d 5f 56 25 3d a8 28 56 61 6c 75 65 2a 36 35 |.._V%=.(Value*65|
00000ab0 35 33 36 2f 31 30 30 2b 2e 35 29 0d 04 92 47 c8 |536/100+.5)...G.|
00000ac0 99 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 43 |. "ColourTrans_C|
00000ad0 6f 6e 76 65 72 74 48 53 56 54 6f 52 47 42 22 2c |onvertHSVToRGB",|
00000ae0 5f 48 25 2c 5f 53 25 2c 5f 56 25 20 b8 20 5f 52 |_H%,_S%,_V% . _R|
00000af0 65 64 25 2c 5f 47 72 65 65 6e 25 2c 5f 42 6c 75 |ed%,_Green%,_Blu|
00000b00 65 25 0d 04 9c 1f e7 20 28 5f 52 65 64 25 3e 3e |e%..... (_Red%>>|
00000b10 38 29 3d 32 35 36 20 8c 20 5f 52 65 64 25 2d 3d |8)=256 . _Red%-=|
00000b20 31 0d 04 a6 23 e7 20 28 5f 47 72 65 65 6e 25 3e |1...#. (_Green%>|
00000b30 3e 38 29 3d 32 35 36 20 8c 20 5f 47 72 65 65 6e |>8)=256 . _Green|
00000b40 25 2d 3d 31 0d 04 b0 21 e7 20 28 5f 42 6c 75 65 |%-=1...!. (_Blue|
00000b50 25 3e 3e 38 29 3d 32 35 36 20 8c 20 5f 42 6c 75 |%>>8)=256 . _Blu|
00000b60 65 25 2d 3d 31 0d 04 ba 2a 3d a4 53 68 61 64 65 |e%-=1...*=.Shade|
00000b70 28 5f 52 65 64 25 3e 3e 38 2c 5f 47 72 65 65 6e |(_Red%>>8,_Green|
00000b80 25 3e 3e 38 2c 5f 42 6c 75 65 25 3e 3e 38 29 0d |%>>8,_Blue%>>8).|
00000b90 04 c4 04 0d 04 ce 20 dd 20 a4 57 68 69 74 65 3d |...... . .White=|
00000ba0 a4 53 68 61 64 65 28 32 35 35 2c 32 35 35 2c 32 |.Shade(255,255,2|
00000bb0 35 35 29 0d 04 d8 16 dd 20 a4 42 6c 61 63 6b 3d |55)..... .Black=|
00000bc0 25 31 31 31 31 31 31 31 31 0d 04 e2 1c dd 20 a4 |%11111111..... .|
00000bd0 42 6c 75 65 3d a4 53 68 61 64 65 28 30 2c 36 38 |Blue=.Shade(0,68|
00000be0 2c 31 35 33 29 0d 04 ec 1f dd 20 a4 59 65 6c 6c |,153)..... .Yell|
00000bf0 6f 77 3d a4 53 68 61 64 65 28 32 33 38 2c 32 33 |ow=.Shade(238,23|
00000c00 38 2c 30 29 0d 04 f6 21 dd 20 a4 4c 69 67 68 74 |8,0)...!. .Light|
00000c10 47 72 65 65 6e 3d a4 53 68 61 64 65 28 30 2c 32 |Green=.Shade(0,2|
00000c20 30 34 2c 30 29 0d 05 00 1a dd 20 a4 52 65 64 3d |04,0)..... .Red=|
00000c30 a4 53 68 61 64 65 28 32 32 31 2c 30 2c 30 29 0d |.Shade(221,0,0).|
00000c40 05 0a 20 dd 20 a4 43 72 65 61 6d 3d a4 53 68 61 |.. . .Cream=.Sha|
00000c50 64 65 28 32 33 38 2c 32 33 38 2c 31 38 37 29 0d |de(238,238,187).|
00000c60 05 14 1d dd 20 a4 47 72 65 65 6e 3d a4 53 68 61 |.... .Green=.Sha|
00000c70 64 65 28 38 35 2c 31 33 36 2c 30 29 0d 05 1e 1f |de(85,136,0)....|
00000c80 dd 20 a4 4f 72 61 6e 67 65 3d a4 53 68 61 64 65 |. .Orange=.Shade|
00000c90 28 32 35 35 2c 31 38 37 2c 30 29 0d 05 28 22 dd |(255,187,0)..(".|
00000ca0 20 a4 4c 69 67 68 74 42 6c 75 65 3d a4 53 68 61 | .LightBlue=.Sha|
00000cb0 64 65 28 30 2c 31 38 37 2c 32 35 35 29 0d 05 32 |de(0,187,255)..2|
00000cc0 04 0d 05 3c 12 dd 20 a4 47 72 65 79 28 73 63 61 |...<.. .Grey(sca|
00000cd0 6c 65 29 0d 05 46 11 ea 20 5f 69 6e 74 65 6e 73 |le)..F.. _intens|
00000ce0 69 74 79 25 0d 05 50 18 e7 20 73 63 61 6c 65 3e |ity%..P.. scale>|
00000cf0 3d 37 20 8c 20 3d a4 42 6c 61 63 6b 0d 05 5a 25 |=7 . =.Black..Z%|
00000d00 5f 69 6e 74 65 6e 73 69 74 79 25 3d a8 28 28 37 |_intensity%=.((7|
00000d10 2d 73 63 61 6c 65 29 2a 32 35 35 2f 37 2b 2e 35 |-scale)*255/7+.5|
00000d20 29 0d 05 64 30 3d a4 53 68 61 64 65 28 5f 69 6e |)..d0=.Shade(_in|
00000d30 74 65 6e 73 69 74 79 25 2c 5f 69 6e 74 65 6e 73 |tensity%,_intens|
00000d40 69 74 79 25 2c 5f 69 6e 74 65 6e 73 69 74 79 25 |ity%,_intensity%|
00000d50 29 0d 05 6e 04 0d 05 78 1d dd 20 a4 44 65 73 6b |)..n...x.. .Desk|
00000d60 74 6f 70 43 6f 6c 6f 75 72 28 63 6f 6c 6f 75 72 |topColour(colour|
00000d70 25 29 0d 05 82 2e e7 20 94 20 63 6f 6c 6f 75 72 |%)..... . colour|
00000d80 25 3c 32 35 36 20 8c 20 63 6f 6c 6f 75 72 25 3d |%<256 . colour%=|
00000d90 28 94 20 63 6f 6c 6f 75 72 25 29 20 83 20 31 36 |(. colour%) . 16|
00000da0 0d 05 8c 11 20 c8 8e 20 63 6f 6c 6f 75 72 25 20 |.... .. colour% |
00000db0 ca 0d 05 96 27 20 20 c9 20 30 20 3a 20 63 6f 6c |....' . 0 : col|
00000dc0 6f 75 72 25 3d a4 53 68 61 64 65 28 32 35 35 2c |our%=.Shade(255,|
00000dd0 32 35 35 2c 32 35 35 29 0d 05 a0 27 20 20 c9 20 |255,255)...' . |
00000de0 31 20 3a 20 63 6f 6c 6f 75 72 25 3d a4 53 68 61 |1 : colour%=.Sha|
00000df0 64 65 28 32 32 31 2c 32 32 31 2c 32 32 31 29 0d |de(221,221,221).|
00000e00 05 aa 27 20 20 c9 20 32 20 3a 20 63 6f 6c 6f 75 |..' . 2 : colou|
00000e10 72 25 3d a4 53 68 61 64 65 28 31 38 37 2c 31 38 |r%=.Shade(187,18|
00000e20 37 2c 31 38 37 29 0d 05 b4 27 20 20 c9 20 33 20 |7,187)...' . 3 |
00000e30 3a 20 63 6f 6c 6f 75 72 25 3d a4 53 68 61 64 65 |: colour%=.Shade|
00000e40 28 31 35 33 2c 31 35 33 2c 31 35 33 29 0d 05 be |(153,153,153)...|
00000e50 27 20 20 c9 20 34 20 3a 20 63 6f 6c 6f 75 72 25 |' . 4 : colour%|
00000e60 3d a4 53 68 61 64 65 28 31 31 39 2c 31 31 39 2c |=.Shade(119,119,|
00000e70 31 31 39 29 0d 05 c8 24 20 20 c9 20 35 20 3a 20 |119)...$ . 5 : |
00000e80 63 6f 6c 6f 75 72 25 3d a4 53 68 61 64 65 28 38 |colour%=.Shade(8|
00000e90 35 2c 38 35 2c 38 35 29 0d 05 d2 24 20 20 c9 20 |5,85,85)...$ . |
00000ea0 36 20 3a 20 63 6f 6c 6f 75 72 25 3d a4 53 68 61 |6 : colour%=.Sha|
00000eb0 64 65 28 35 31 2c 35 31 2c 35 31 29 0d 05 dc 1d |de(51,51,51)....|
00000ec0 20 20 c9 20 37 20 3a 20 63 6f 6c 6f 75 72 25 3d | . 7 : colour%=|
00000ed0 25 31 31 31 31 31 31 31 31 0d 05 e6 24 20 20 c9 |%11111111...$ .|
00000ee0 20 38 20 3a 20 63 6f 6c 6f 75 72 25 3d a4 53 68 | 8 : colour%=.Sh|
00000ef0 61 64 65 28 30 2c 36 38 2c 31 35 33 29 0d 05 f0 |ade(0,68,153)...|
00000f00 25 20 20 c9 20 39 20 3a 20 63 6f 6c 6f 75 72 25 |% . 9 : colour%|
00000f10 3d a4 53 68 61 64 65 28 32 33 38 2c 32 33 38 2c |=.Shade(238,238,|
00000f20 30 29 0d 05 fa 24 20 20 c9 20 31 30 20 3a 20 63 |0)...$ . 10 : c|
00000f30 6f 6c 6f 75 72 25 3d a4 53 68 61 64 65 28 30 2c |olour%=.Shade(0,|
00000f40 32 30 34 2c 30 29 0d 06 04 24 20 20 c9 20 31 31 |204,0)...$ . 11|
00000f50 20 3a 20 63 6f 6c 6f 75 72 25 3d a4 53 68 61 64 | : colour%=.Shad|
00000f60 65 28 32 32 31 2c 30 2c 30 29 0d 06 0e 28 20 20 |e(221,0,0)...( |
00000f70 c9 20 31 32 20 3a 20 63 6f 6c 6f 75 72 25 3d a4 |. 12 : colour%=.|
00000f80 53 68 61 64 65 28 32 33 38 2c 32 33 38 2c 31 38 |Shade(238,238,18|
00000f90 37 29 0d 06 18 25 20 20 c9 20 31 33 20 3a 20 63 |7)...% . 13 : c|
00000fa0 6f 6c 6f 75 72 25 3d a4 53 68 61 64 65 28 38 35 |olour%=.Shade(85|
00000fb0 2c 31 33 36 2c 30 29 0d 06 22 26 20 20 c9 20 31 |,136,0).."& . 1|
00000fc0 34 20 3a 20 63 6f 6c 6f 75 72 25 3d a4 53 68 61 |4 : colour%=.Sha|
00000fd0 64 65 28 32 35 35 2c 31 38 37 2c 30 29 0d 06 2c |de(255,187,0)..,|
00000fe0 26 20 20 c9 20 31 35 20 3a 20 63 6f 6c 6f 75 72 |& . 15 : colour|
00000ff0 25 3d a4 53 68 61 64 65 28 30 2c 31 38 37 2c 32 |%=.Shade(0,187,2|
00001000 35 35 29 0d 06 36 06 20 cb 0d 06 40 0c 3d 63 6f |55)..6. ...@.=co|
00001010 6c 6f 75 72 25 0d 06 4a 04 0d 06 54 18 f4 20 3d |lour%..J...T.. =|
00001020 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001030 3d 0d 06 5e 17 f4 20 35 2e 35 20 57 69 6e 64 69 |=..^.. 5.5 Windi|
00001040 6e 67 20 52 75 6c 65 73 0d 06 68 18 f4 20 3d 3d |ng Rules..h.. ==|
00001050 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00001060 0d 06 72 04 0d 06 7c 15 dd 20 a4 53 74 79 6c 65 |..r...|.. .Style|
00001070 3d 21 28 93 2b 32 33 36 29 0d 06 86 04 0d 06 90 |=!(.+236).......|
00001080 1b dd 20 a4 57 69 6e 64 69 6e 67 52 75 6c 65 3d |.. .WindingRule=|
00001090 21 28 93 2b 32 33 36 29 0d 06 9a 04 0d 06 a4 21 |!(.+236).......!|
000010a0 dd 20 f2 57 69 6e 64 69 6e 67 52 75 6c 65 28 77 |. .WindingRule(w|
000010b0 69 6e 64 69 6e 67 5f 72 75 6c 65 25 29 0d 06 ae |inding_rule%)...|
000010c0 17 e7 20 77 69 6e 64 69 6e 67 5f 72 75 6c 65 25 |.. winding_rule%|
000010d0 3d 30 20 8c 0d 06 b8 2c 21 28 93 2b 32 33 36 29 |=0 ....,!(.+236)|
000010e0 3d 28 a4 53 74 79 6c 65 20 80 20 ac 25 31 30 30 |=(.Style . .%100|
000010f0 30 30 30 30 29 20 82 20 25 31 30 30 30 30 30 30 |0000) . %1000000|
00001100 0d 06 c2 05 cc 0d 06 cc 2c 21 28 93 2b 32 33 36 |........,!(.+236|
00001110 29 3d 28 a4 53 74 79 6c 65 20 80 20 ac 25 31 30 |)=(.Style . .%10|
00001120 30 30 30 30 30 29 20 82 20 25 30 30 30 30 30 30 |00000) . %000000|
00001130 30 0d 06 d6 05 cd 0d 06 e0 05 e1 0d 06 ea 04 0d |0...............|
00001140 06 f4 2d dd 20 f2 57 69 6e 64 69 6e 67 52 75 6c |..-. .WindingRul|
00001150 65 40 28 44 72 61 77 5f 50 61 74 68 25 2c 77 69 |e@(Draw_Path%,wi|
00001160 6e 64 69 6e 67 5f 72 75 6c 65 25 29 0d 06 fe 1e |nding_rule%)....|
00001170 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | . -------------|
00001180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 07 08 06 20 f4 |----------.... .|
00001190 0d 07 12 1c 20 f4 20 45 76 65 6e 20 4f 64 64 20 |.... . Even Odd |
000011a0 77 69 6e 64 69 6e 67 20 52 75 6c 65 0d 07 1c 06 |winding Rule....|
000011b0 20 f4 0d 07 26 1d 20 f4 20 2d 2d 2d 2d 2d 2d 2d | ...&. . -------|
000011c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
000011d0 07 30 0d 20 ea 20 5f 50 61 74 68 25 0d 07 3a 17 |.0. . _Path%..:.|
000011e0 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f 50 61 | _Path%=!Draw_Pa|
000011f0 74 68 25 0d 07 44 12 20 e7 20 5f 50 61 74 68 25 |th%..D. . _Path%|
00001200 3c 3e 30 20 8c 0d 07 4e 1a 20 20 20 e7 20 77 69 |<>0 ...N. . wi|
00001210 6e 64 69 6e 67 5f 72 75 6c 65 25 3d 30 20 8c 0d |nding_rule%=0 ..|
00001220 07 58 30 20 20 20 20 50 61 74 68 25 21 33 36 3d |.X0 Path%!36=|
00001230 28 a4 53 74 79 6c 65 20 80 20 ac 25 31 30 30 30 |(.Style . .%1000|
00001240 30 30 30 29 20 82 20 25 31 30 30 30 30 30 30 0d |000) . %1000000.|
00001250 07 62 08 20 20 20 cc 0d 07 6c 30 20 20 20 20 50 |.b. ...l0 P|
00001260 61 74 68 25 21 33 36 3d 28 a4 53 74 79 6c 65 20 |ath%!36=(.Style |
00001270 80 20 ac 25 31 30 30 30 30 30 30 29 20 82 20 25 |. .%1000000) . %|
00001280 30 30 30 30 30 30 30 0d 07 76 08 20 20 20 cd 0d |0000000..v. ..|
00001290 07 80 06 20 cd 0d 07 8a 05 e1 0d 07 94 04 0d 07 |... ............|
000012a0 9e 17 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |... ============|
000012b0 3d 3d 3d 3d 3d 0d 07 a8 16 f4 20 35 2e 36 20 44 |=====..... 5.6 D|
000012c0 61 73 68 65 64 20 4c 69 6e 65 73 0d 07 b2 17 f4 |ashed Lines.....|
000012d0 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d | ===============|
000012e0 3d 3d 0d 07 bc 04 0d 07 c6 13 dd 20 a4 44 61 73 |==......... .Das|
000012f0 68 3d 21 28 93 2b 37 36 29 0d 07 d0 04 0d 07 da |h=!(.+76).......|
00001300 0e dd 20 f2 44 61 73 68 4f 66 66 0d 07 e4 0d 21 |.. .DashOff....!|
00001310 28 93 2b 37 36 29 3d 30 0d 07 ee 05 e1 0d 07 f8 |(.+76)=0........|
00001320 04 0d 08 02 15 dd 20 f2 44 61 73 68 28 70 61 74 |...... .Dash(pat|
00001330 74 65 72 6e 25 29 0d 08 0c 14 21 28 93 2b 37 36 |tern%)....!(.+76|
00001340 29 3d 70 61 74 74 65 72 6e 25 0d 08 16 05 e1 0d |)=pattern%......|
00001350 08 20 04 0d 08 2a 21 dd 20 f2 44 61 73 68 40 28 |. ...*!. .Dash@(|
00001360 44 72 61 77 5f 50 61 74 68 25 2c 70 61 74 74 65 |Draw_Path%,patte|
00001370 72 6e 25 29 0d 08 34 24 20 f4 20 2d 2d 2d 2d 2d |rn%)..4$ . -----|
00001380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001390 2d 2d 2d 2d 2d 2d 2d 2d 0d 08 3e 06 20 f4 0d 08 |--------..>. ...|
000013a0 48 13 20 f4 20 44 61 73 68 20 50 61 74 74 65 72 |H. . Dash Patter|
000013b0 6e 0d 08 52 06 20 f4 0d 08 5c 1f 20 f4 20 20 20 |n..R. ...\. . |
000013c0 20 20 20 20 20 20 20 2d 20 2d 20 2d 20 2d 20 2d | - - - - -|
000013d0 20 2d 20 2d 20 2d 0d 08 66 06 20 f4 0d 08 70 13 | - - -..f. ...p.|
000013e0 20 f4 20 20 70 61 74 74 65 72 6e 21 30 3d 6e 0d | . pattern!0=n.|
000013f0 08 7a 1d 20 f4 20 20 70 61 74 74 65 72 6e 21 34 |.z. . pattern!4|
00001400 3d 6c 65 6e 67 74 68 20 69 6e 74 6f 0d 08 84 26 |=length into...&|
00001410 20 f4 20 20 70 61 74 74 65 72 6e 21 38 3d 6c 65 | . pattern!8=le|
00001420 6e 67 74 68 20 6f 66 20 31 73 74 20 73 74 72 6f |ngth of 1st stro|
00001430 6b 65 0d 08 8e 06 20 f4 0d 08 98 0e 20 f4 20 20 |ke.... ..... . |
00001440 20 20 65 74 63 2e 0d 08 a2 06 20 f4 0d 08 ac 19 | etc..... .....|
00001450 20 f4 20 22 6c 65 6e 67 74 68 22 20 69 6e 20 70 | . "length" in p|
00001460 6f 69 6e 74 73 0d 08 b6 06 20 f4 0d 08 c0 24 20 |oints.... ....$ |
00001470 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. --------------|
00001480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d |---------------.|
00001490 08 ca 1b 20 ea 20 5f 50 61 74 68 25 2c 5f 69 25 |... . _Path%,_i%|
000014a0 2c 5f 6e 25 2c 5f 6d 61 78 25 0d 08 d4 17 20 5f |,_n%,_max%.... _|
000014b0 50 61 74 68 25 3d 21 44 72 61 77 5f 50 61 74 68 |Path%=!Draw_Path|
000014c0 25 0d 08 de 12 20 e7 20 5f 50 61 74 68 25 3c 3e |%.... . _Path%<>|
000014d0 30 20 8c 0d 08 e8 14 20 20 5f 6e 25 3d 70 61 74 |0 ..... _n%=pat|
000014e0 74 65 72 6e 25 21 34 0d 08 f2 19 20 20 5f 50 61 |tern%!4.... _Pa|
000014f0 74 68 25 21 34 2b 3d 34 2a 28 5f 6e 25 2b 32 29 |th%!4+=4*(_n%+2)|
00001500 0d 08 fc 30 20 20 5f 50 61 74 68 25 21 33 36 3d |...0 _Path%!36=|
00001510 28 28 5f 50 61 74 68 25 21 33 36 29 20 80 20 ac |((_Path%!36) . .|
00001520 28 31 3c 3c 37 29 29 20 82 20 28 31 3c 3c 37 29 |(1<<7)) . (1<<7)|
00001530 0d 09 06 12 20 20 5f 6d 61 78 25 3d 21 28 93 2b |.... _max%=!(.+|
00001540 34 29 0d 09 10 22 20 20 f2 4d 6f 76 65 4d 65 6d |4)..." .MoveMem|
00001550 6f 72 79 28 5f 50 61 74 68 25 2b 34 30 2c 5f 6e |ory(_Path%+40,_n|
00001560 25 2b 32 29 0d 09 1a 16 20 20 5f 69 25 3d 44 72 |%+2).... _i%=Dr|
00001570 61 77 5f 50 61 74 68 25 2d 34 0d 09 24 32 20 20 |aw_Path%-4..$2 |
00001580 c8 95 20 5f 69 25 3e 3d 5f 6d 61 78 25 20 3a 20 |.. _i%>=_max% : |
00001590 21 5f 69 25 2b 3d 34 2a 28 5f 6e 25 2b 32 29 20 |!_i%+=4*(_n%+2) |
000015a0 3a 20 5f 69 25 2d 3d 34 20 3a 20 ce 0d 09 2e 15 |: _i%-=4 : .....|
000015b0 20 20 e3 20 5f 69 25 3d 30 20 b8 20 5f 6e 25 2b | . _i%=0 . _n%+|
000015c0 31 0d 09 38 2f 20 20 20 5f 50 61 74 68 25 21 28 |1..8/ _Path%!(|
000015d0 34 30 2b 34 2a 5f 69 25 29 3d 28 70 61 74 74 65 |40+4*_i%)=(patte|
000015e0 72 6e 25 21 28 34 2a 5f 69 25 29 29 2a 36 34 30 |rn%!(4*_i%))*640|
000015f0 0d 09 42 08 20 20 20 ed 0d 09 4c 14 20 20 20 5f |..B. ...L. _|
00001600 50 61 74 68 25 21 34 34 3d 5f 6e 25 0d 09 56 06 |Path%!44=_n%..V.|
00001610 20 cd 0d 09 60 06 20 e1 0d 09 6a 04 0d 09 74 25 | ...`. ...j...t%|
00001620 dd 20 a4 44 61 73 68 50 61 74 74 65 72 6e 28 4e |. .DashPattern(N|
00001630 75 6d 62 65 72 4f 66 45 6c 65 6d 65 6e 74 73 25 |umberOfElements%|
00001640 29 0d 09 7e 0f ea 20 5f 70 61 74 74 65 72 6e 25 |)..~.. _pattern%|
00001650 0d 09 88 50 e7 20 4e 75 6d 62 65 72 4f 66 45 6c |...P. NumberOfEl|
00001660 65 6d 65 6e 74 73 25 3c 3d 30 20 8c 20 85 20 30 |ements%<=0 . . 0|
00001670 2c 20 22 4e 75 6d 62 65 72 20 6f 66 20 65 6c 65 |, "Number of ele|
00001680 6d 65 6e 74 73 20 69 6e 20 64 61 73 68 20 70 61 |ments in dash pa|
00001690 74 74 65 72 6e 20 6e 65 67 61 74 69 76 65 21 22 |ttern negative!"|
000016a0 0d 09 92 25 de 20 5f 70 61 74 74 65 72 6e 25 20 |...%. _pattern% |
000016b0 38 2b 34 2a 4e 75 6d 62 65 72 4f 66 45 6c 65 6d |8+4*NumberOfElem|
000016c0 65 6e 74 73 25 0d 09 9c 27 e3 20 5f 69 25 3d 30 |ents%...'. _i%=0|
000016d0 20 b8 20 34 2b 34 2a 4e 75 6d 62 65 72 4f 66 45 | . 4+4*NumberOfE|
000016e0 6c 65 6d 65 6e 74 73 25 20 88 20 34 0d 09 a6 14 |lements% . 4....|
000016f0 20 5f 70 61 74 74 65 72 6e 25 21 5f 69 25 3d 30 | _pattern%!_i%=0|
00001700 0d 09 b0 06 20 ed 0d 09 ba 22 20 5f 70 61 74 74 |.... ...." _patt|
00001710 65 72 6e 25 21 34 3d 4e 75 6d 62 65 72 4f 66 45 |ern%!4=NumberOfE|
00001720 6c 65 6d 65 6e 74 73 25 0d 09 c4 0e 3d 5f 70 61 |lements%....=_pa|
00001730 74 74 65 72 6e 25 0d 09 ce 04 0d 09 d8 29 dd 20 |ttern%.......). |
00001740 f2 44 61 73 68 4c 65 6e 67 74 68 28 70 61 74 74 |.DashLength(patt|
00001750 65 72 6e 25 2c 69 74 65 6d 25 2c 6c 65 6e 67 74 |ern%,item%,lengt|
00001760 68 25 29 0d 09 e2 49 e7 20 69 74 65 6d 25 3c 30 |h%)...I. item%<0|
00001770 20 84 20 69 74 65 6d 25 3e 28 70 61 74 74 65 72 | . item%>(patter|
00001780 6e 25 21 34 29 20 8c 20 85 20 30 2c 20 22 4e 6f |n%!4) . . 0, "No|
00001790 20 73 75 63 68 20 69 74 65 6d 20 69 6e 20 44 61 | such item in Da|
000017a0 73 68 20 70 61 74 74 65 72 6e 21 22 0d 09 ec 40 |sh pattern!"...@|
000017b0 e7 20 69 74 65 6d 25 3d 30 20 8c 20 21 70 61 74 |. item%=0 . !pat|
000017c0 74 65 72 6e 25 3d 6c 65 6e 67 74 68 25 20 8b 20 |tern%=length% . |
000017d0 70 61 74 74 65 72 6e 25 21 28 34 2b 34 2a 69 74 |pattern%!(4+4*it|
000017e0 65 6d 25 29 3d 6c 65 6e 67 74 68 25 0d 09 f6 05 |em%)=length%....|
000017f0 e1 0d 0a 00 04 0d 0a 0a 18 dd 20 a4 45 71 75 69 |.......... .Equi|
00001800 44 61 73 68 28 6c 65 6e 67 74 68 25 29 0d 0a 14 |Dash(length%)...|
00001810 24 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |$ . ------------|
00001820 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001830 2d 0d 0a 1e 06 20 f4 0d 0a 28 1f 20 f4 20 45 71 |-.... ...(. . Eq|
00001840 75 69 64 69 73 74 61 6e 74 20 44 61 73 68 20 50 |uidistant Dash P|
00001850 61 74 74 65 72 6e 0d 0a 32 06 20 f4 0d 0a 3c 1b |attern..2. ...<.|
00001860 20 f4 20 20 2d 20 2d 20 2d 20 2d 20 2d 20 2d 20 | . - - - - - - |
00001870 2d 20 2d 20 2d 20 2d 0d 0a 46 06 20 f4 0d 0a 50 |- - - -..F. ...P|
00001880 1c 20 f4 20 41 72 67 75 6d 65 6e 74 73 20 69 6e |. . Arguments in|
00001890 20 4f 53 20 75 6e 69 74 73 0d 0a 5a 06 20 f4 0d | OS units..Z. ..|
000018a0 0a 64 24 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.d$ . ----------|
000018b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000018c0 2d 2d 2d 0d 0a 6e 1e ea 20 5f 70 61 74 74 65 72 |---..n.. _patter|
000018d0 6e 20 3a 20 de 20 5f 70 61 74 74 65 72 6e 20 31 |n : . _pattern 1|
000018e0 32 0d 0a 78 33 21 5f 70 61 74 74 65 72 6e 3d 30 |2..x3!_pattern=0|
000018f0 20 3a 20 5f 70 61 74 74 65 72 6e 21 34 3d 31 20 | : _pattern!4=1 |
00001900 3a 20 5f 70 61 74 74 65 72 6e 21 38 3d 6c 65 6e |: _pattern!8=len|
00001910 67 74 68 25 0d 0a 82 0d 3d 5f 70 61 74 74 65 72 |gth%....=_patter|
00001920 6e 0d 0a 8c 04 0d 0a 96 17 dd 20 a4 44 6f 74 44 |n......... .DotD|
00001930 61 73 68 28 6c 65 6e 67 74 68 25 29 0d 0a a0 24 |ash(length%)...$|
00001940 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | . -------------|
00001950 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001960 0d 0a aa 06 20 f4 0d 0a b4 23 20 f4 20 4e 6f 6e |.... ....# . Non|
00001970 2d 65 71 75 69 64 69 73 74 61 6e 74 20 44 61 73 |-equidistant Das|
00001980 68 20 50 61 74 74 65 72 6e 0d 0a be 06 20 f4 0d |h Pattern.... ..|
00001990 0a c8 20 20 f4 20 20 2d 2d 20 2d 20 2d 2d 20 2d |.. . -- - -- -|
000019a0 20 2d 2d 20 2d 20 2d 2d 20 2d 20 2d 2d 20 2d 0d | -- - -- - -- -.|
000019b0 0a d2 06 20 f4 0d 0a dc 1c 20 f4 20 41 72 67 75 |... ..... . Argu|
000019c0 6d 65 6e 74 73 20 69 6e 20 4f 53 20 75 6e 69 74 |ments in OS unit|
000019d0 73 0d 0a e6 06 20 f4 0d 0a f0 24 20 f4 20 2d 2d |s.... ....$ . --|
000019e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000019f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a fa 20 20 |-----------... |
00001a00 ea 20 5f 70 61 74 74 65 72 6e 20 3a 20 de 20 5f |. _pattern : . _|
00001a10 70 61 74 74 65 72 6e 20 36 2a 34 0d 0b 04 1f 20 |pattern 6*4.... |
00001a20 21 5f 70 61 74 74 65 72 6e 3d 30 20 3a 20 5f 70 |!_pattern=0 : _p|
00001a30 61 74 74 65 72 6e 21 34 3d 34 0d 0b 0e 2f 20 5f |attern!4=4.../ _|
00001a40 70 61 74 74 65 72 6e 21 38 3d 32 2a 6c 65 6e 67 |pattern!8=2*leng|
00001a50 74 68 25 20 3a 20 5f 70 61 74 74 65 72 6e 21 31 |th% : _pattern!1|
00001a60 32 3d 6c 65 6e 67 74 68 25 0d 0b 18 2f 20 5f 70 |2=length%.../ _p|
00001a70 61 74 74 65 72 6e 21 31 36 3d 6c 65 6e 67 74 68 |attern!16=length|
00001a80 25 20 20 3a 20 5f 70 61 74 74 65 72 6e 21 32 30 |% : _pattern!20|
00001a90 3d 6c 65 6e 67 74 68 25 0d 0b 22 0e 20 3d 5f 70 |=length%..". =_p|
00001aa0 61 74 74 65 72 6e 0d 0b 2c 04 0d 0b 36 2f dd 20 |attern..,...6/. |
00001ab0 a4 4e 6f 6e 45 71 75 69 44 61 73 68 28 73 74 72 |.NonEquiDash(str|
00001ac0 6f 6b 65 5f 6c 65 6e 67 74 68 25 2c 6d 6f 76 65 |oke_length%,move|
00001ad0 5f 6c 65 6e 67 74 68 25 29 0d 0b 40 24 20 f4 20 |_length%)..@$ . |
00001ae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001af0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0b 4a |-------------..J|
00001b00 06 20 f4 0d 0b 54 23 20 f4 20 4e 6f 6e 2d 65 71 |. ...T# . Non-eq|
00001b10 75 69 64 69 73 74 61 6e 74 20 44 61 73 68 20 50 |uidistant Dash P|
00001b20 61 74 74 65 72 6e 0d 0b 5e 06 20 f4 0d 0b 68 22 |attern..^. ...h"|
00001b30 20 f4 20 20 2d 2d 20 2d 2d 20 2d 2d 20 2d 2d 20 | . -- -- -- -- |
00001b40 2d 2d 20 2d 2d 20 2d 2d 20 2d 2d 20 2d 2d 0d 0b |-- -- -- -- --..|
00001b50 72 06 20 f4 0d 0b 7c 1a 20 f4 20 41 72 67 75 6d |r. ...|. . Argum|
00001b60 65 6e 74 73 20 69 6e 20 69 6e 63 68 65 73 0d 0b |ents in inches..|
00001b70 86 06 20 f4 0d 0b 90 24 20 f4 20 2d 2d 2d 2d 2d |.. ....$ . -----|
00001b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001b90 2d 2d 2d 2d 2d 2d 2d 2d 0d 0b 9a 20 20 ea 20 5f |--------... . _|
00001ba0 70 61 74 74 65 72 6e 20 3a 20 de 20 5f 70 61 74 |pattern : . _pat|
00001bb0 74 65 72 6e 20 34 2a 34 0d 0b a4 1f 20 21 5f 70 |tern 4*4.... !_p|
00001bc0 61 74 74 65 72 6e 3d 30 20 3a 20 5f 70 61 74 74 |attern=0 : _patt|
00001bd0 65 72 6e 21 34 3d 32 0d 0b ae 39 20 5f 70 61 74 |ern!4=2...9 _pat|
00001be0 74 65 72 6e 21 38 3d 73 74 72 6f 6b 65 5f 6c 65 |tern!8=stroke_le|
00001bf0 6e 67 74 68 25 20 3a 20 5f 70 61 74 74 65 72 6e |ngth% : _pattern|
00001c00 21 31 32 3d 6d 6f 76 65 5f 6c 65 6e 67 74 68 25 |!12=move_length%|
00001c10 0d 0b b8 0e 20 3d 5f 70 61 74 74 65 72 6e 0d 0b |.... =_pattern..|
00001c20 c2 04 0d 0b cc 04 0d 0b d6 10 f4 20 3d 3d 3d 3d |........... ====|
00001c30 3d 3d 3d 3d 3d 3d 0d 0b e0 0f f4 20 35 2e 37 20 |======..... 5.7 |
00001c40 4a 6f 69 6e 73 0d 0b ea 10 f4 20 3d 3d 3d 3d 3d |Joins..... =====|
00001c50 3d 3d 3d 3d 3d 0d 0b f4 04 0d 0b fe 14 dd 20 f2 |=====......... .|
00001c60 4a 6f 69 6e 73 28 69 6e 64 65 78 25 29 0d 0c 08 |Joins(index%)...|
00001c70 0f c8 8e 20 69 6e 64 65 78 25 20 ca 0d 0c 12 15 |... index% .....|
00001c80 c9 20 30 20 3a 20 f2 52 6f 75 6e 64 4a 6f 69 6e |. 0 : .RoundJoin|
00001c90 73 0d 0c 1c 15 c9 20 31 20 3a 20 f2 42 65 76 65 |s..... 1 : .Beve|
00001ca0 6c 4a 6f 69 6e 73 0d 0c 26 05 7f 0d 0c 30 10 20 |lJoins..&....0. |
00001cb0 f2 4d 69 74 72 65 4a 6f 69 6e 73 0d 0c 3a 05 cb |.MitreJoins..:..|
00001cc0 0d 0c 44 05 e1 0d 0c 4e 04 0d 0c 58 20 dd 20 f2 |..D....N...X . .|
00001cd0 4a 6f 69 6e 73 40 28 44 72 61 77 5f 50 61 74 68 |Joins@(Draw_Path|
00001ce0 25 2c 69 6e 64 65 78 25 29 0d 0c 62 0f c8 8e 20 |%,index%)..b... |
00001cf0 69 6e 64 65 78 25 20 ca 0d 0c 6c 22 c9 20 30 20 |index% ...l". 0 |
00001d00 3a 20 f2 52 6f 75 6e 64 4a 6f 69 6e 73 40 28 44 |: .RoundJoins@(D|
00001d10 72 61 77 5f 50 61 74 68 25 29 0d 0c 76 22 c9 20 |raw_Path%)..v". |
00001d20 31 20 3a 20 f2 42 65 76 65 6c 4a 6f 69 6e 73 40 |1 : .BevelJoins@|
00001d30 28 44 72 61 77 5f 50 61 74 68 25 29 0d 0c 80 05 |(Draw_Path%)....|
00001d40 7f 0d 0c 8a 1d 20 f2 4d 69 74 72 65 4a 6f 69 6e |..... .MitreJoin|
00001d50 73 40 28 44 72 61 77 5f 50 61 74 68 25 29 0d 0c |s@(Draw_Path%)..|
00001d60 94 05 cb 0d 0c 9e 05 e1 0d 0c a8 04 0d 0c b2 11 |................|
00001d70 dd 20 f2 52 6f 75 6e 64 4a 6f 69 6e 73 0d 0c bc |. .RoundJoins...|
00001d80 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. . ------------|
00001d90 0d 0c c6 06 20 f4 0d 0c d0 12 20 f4 20 52 6f 75 |.... ..... . Rou|
00001da0 6e 64 20 4a 6f 69 6e 73 0d 0c da 06 20 f4 0d 0c |nd Joins.... ...|
00001db0 e4 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.. . -----------|
00001dc0 2d 0d 0c ee 24 20 21 28 93 2b 32 33 36 29 3d 28 |-...$ !(.+236)=(|
00001dd0 a4 53 74 79 6c 65 20 80 20 20 ac 25 31 31 29 20 |.Style . .%11) |
00001de0 82 20 25 30 31 0d 0c f8 06 20 e1 0d 0d 02 04 0d |. %01.... ......|
00001df0 0d 0c 1e dd 20 f2 52 6f 75 6e 64 4a 6f 69 6e 73 |.... .RoundJoins|
00001e00 40 28 44 72 61 77 5f 50 61 74 68 25 29 0d 0d 16 |@(Draw_Path%)...|
00001e10 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. . ------------|
00001e20 0d 0d 20 06 20 f4 0d 0d 2a 12 20 f4 20 52 6f 75 |.. . ...*. . Rou|
00001e30 6e 64 20 4a 6f 69 6e 73 0d 0d 34 06 20 f4 0d 0d |nd Joins..4. ...|
00001e40 3e 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |>. . -----------|
00001e50 2d 0d 0d 48 0d 20 ea 20 5f 50 61 74 68 25 0d 0d |-..H. . _Path%..|
00001e60 52 17 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f |R. _Path%=!Draw_|
00001e70 50 61 74 68 25 0d 0d 5c 37 20 e7 20 5f 50 61 74 |Path%..\7 . _Pat|
00001e80 68 25 3c 3e 30 20 8c 20 5f 50 61 74 68 25 21 33 |h%<>0 . _Path%!3|
00001e90 36 3d 28 28 5f 50 61 74 68 25 21 33 36 29 20 80 |6=((_Path%!36) .|
00001ea0 20 ac 25 31 31 29 20 82 20 25 30 31 0d 0d 66 06 | .%11) . %01..f.|
00001eb0 20 e1 0d 0d 70 04 0d 0d 7a 11 dd 20 f2 42 65 76 | ...p...z.. .Bev|
00001ec0 65 6c 4a 6f 69 6e 73 0d 0d 84 20 20 f4 20 2d 2d |elJoins... . --|
00001ed0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001ee0 2d 2d 2d 2d 2d 2d 2d 0d 0d 8e 06 20 f4 0d 0d 98 |-------.... ....|
00001ef0 12 20 f4 20 42 65 76 65 6c 20 4a 6f 69 6e 73 0d |. . Bevel Joins.|
00001f00 0d a2 06 20 f4 0d 0d ac 20 20 f4 20 4e 2e 42 2e |... .... . N.B.|
00001f10 20 54 68 69 73 20 69 73 20 74 68 65 20 64 65 66 | This is the def|
00001f20 61 75 6c 74 2e 0d 0d b6 06 20 f4 0d 0d c0 20 20 |ault..... .... |
00001f30 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. --------------|
00001f40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0d ca 23 20 |-----------...# |
00001f50 21 28 93 2b 32 33 36 29 3d 28 a4 53 74 79 6c 65 |!(.+236)=(.Style|
00001f60 20 80 20 ac 25 31 31 29 20 82 20 25 31 30 0d 0d | . .%11) . %10..|
00001f70 d4 06 20 e1 0d 0d de 04 0d 0d e8 1e dd 20 f2 42 |.. .......... .B|
00001f80 65 76 65 6c 4a 6f 69 6e 73 40 28 44 72 61 77 5f |evelJoins@(Draw_|
00001f90 50 61 74 68 25 29 0d 0d f2 20 20 f4 20 2d 2d 2d |Path%)... . ---|
00001fa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00001fb0 2d 2d 2d 2d 2d 2d 0d 0d fc 06 20 f4 0d 0e 06 12 |------.... .....|
00001fc0 20 f4 20 42 65 76 65 6c 20 4a 6f 69 6e 73 0d 0e | . Bevel Joins..|
00001fd0 10 06 20 f4 0d 0e 1a 20 20 f4 20 4e 2e 42 2e 20 |.. .... . N.B. |
00001fe0 54 68 69 73 20 69 73 20 74 68 65 20 64 65 66 61 |This is the defa|
00001ff0 75 6c 74 2e 0d 0e 24 06 20 f4 0d 0e 2e 20 20 f4 |ult...$. .... .|
00002000 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------------|
00002010 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0e 38 22 20 ea |----------..8" .|
00002020 20 5f 50 61 74 68 25 20 3a 20 5f 50 61 74 68 25 | _Path% : _Path%|
00002030 3d 21 44 72 61 77 5f 50 61 74 68 25 0d 0e 42 37 |=!Draw_Path%..B7|
00002040 20 e7 20 5f 50 61 74 68 25 3c 3e 30 20 8c 20 5f | . _Path%<>0 . _|
00002050 50 61 74 68 25 21 33 36 3d 28 28 5f 50 61 74 68 |Path%!36=((_Path|
00002060 25 21 33 36 29 20 80 20 ac 25 31 31 29 20 82 20 |%!36) . .%11) . |
00002070 25 31 30 0d 0e 4c 06 20 e1 0d 0e 56 04 0d 0e 60 |%10..L. ...V...`|
00002080 11 dd 20 f2 4d 69 74 72 65 4a 6f 69 6e 73 0d 0e |.. .MitreJoins..|
00002090 6a 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |j. . -----------|
000020a0 2d 0d 0e 74 06 20 f4 0d 0e 7e 12 20 f4 20 4d 69 |-..t. ...~. . Mi|
000020b0 74 72 65 20 4a 6f 69 6e 73 0d 0e 88 06 20 f4 0d |tre Joins.... ..|
000020c0 0e 92 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |... . ----------|
000020d0 2d 2d 0d 0e 9c 23 20 21 28 93 2b 32 33 36 29 3d |--...# !(.+236)=|
000020e0 28 a4 53 74 79 6c 65 20 80 20 ac 25 31 31 29 20 |(.Style . .%11) |
000020f0 82 20 25 30 30 0d 0e a6 06 20 e1 0d 0e b0 04 0d |. %00.... ......|
00002100 0e ba 1e dd 20 f2 4d 69 74 72 65 4a 6f 69 6e 73 |.... .MitreJoins|
00002110 40 28 44 72 61 77 5f 50 61 74 68 25 29 0d 0e c4 |@(Draw_Path%)...|
00002120 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. . ------------|
00002130 0d 0e ce 06 20 f4 0d 0e d8 12 20 f4 20 4d 69 74 |.... ..... . Mit|
00002140 72 65 20 4a 6f 69 6e 73 0d 0e e2 06 20 f4 0d 0e |re Joins.... ...|
00002150 ec 13 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.. . -----------|
00002160 2d 0d 0e f6 22 20 ea 20 5f 50 61 74 68 25 20 3a |-..." . _Path% :|
00002170 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f 50 61 | _Path%=!Draw_Pa|
00002180 74 68 25 0d 0f 00 37 20 e7 20 5f 50 61 74 68 25 |th%...7 . _Path%|
00002190 3c 3e 30 20 8c 20 5f 50 61 74 68 25 21 33 36 3d |<>0 . _Path%!36=|
000021a0 28 28 5f 50 61 74 68 25 21 33 36 29 20 80 20 ac |((_Path%!36) . .|
000021b0 25 31 31 29 20 82 20 25 30 30 0d 0f 0a 06 20 e1 |%11) . %00.... .|
000021c0 0d 0f 14 04 0d 0f 1e 14 f4 20 3d 3d 3d 3d 3d 3d |......... ======|
000021d0 3d 3d 3d 3d 3d 3d 3d 3d 0d 0f 28 13 f4 20 35 2e |========..(.. 5.|
000021e0 38 20 4c 69 6e 65 20 43 61 70 73 0d 0f 32 14 f4 |8 Line Caps..2..|
000021f0 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d | ==============.|
00002200 0f 3c 04 0d 0f 46 17 dd 20 f2 42 75 74 74 43 61 |.<...F.. .ButtCa|
00002210 70 73 28 69 6e 64 65 78 25 29 0d 0f 50 1c 20 f4 |ps(index%)..P. .|
00002220 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------------|
00002230 2d 2d 2d 2d 2d 2d 0d 0f 5a 06 20 f4 0d 0f 64 26 |------..Z. ...d&|
00002240 20 f4 20 42 75 74 74 20 43 61 70 73 20 69 6e 64 | . Butt Caps ind|
00002250 65 78 3d 20 31 20 66 6f 72 77 61 72 64 20 6f 6e |ex= 1 forward on|
00002260 6c 79 0d 0f 6e 23 20 f4 20 20 20 20 20 20 20 20 |ly..n# . |
00002270 20 20 20 20 20 20 20 20 3d 2d 31 20 62 61 63 6b | =-1 back|
00002280 20 6f 6e 6c 79 0d 0f 78 1e 20 f4 20 20 20 20 20 | only..x. . |
00002290 20 20 20 20 20 20 20 20 20 20 20 3d 20 30 20 62 | = 0 b|
000022a0 6f 74 68 0d 0f 82 1c 20 f4 20 4e 2e 42 2e 20 54 |oth.... . N.B. T|
000022b0 68 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 0d |his the default.|
000022c0 0f 8c 06 20 f4 0d 0f 96 1c 20 f4 20 2d 2d 2d 2d |... ..... . ----|
000022d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000022e0 2d 0d 0f a0 33 20 e7 20 69 6e 64 65 78 25 3e 3d |-...3 . index%>=|
000022f0 30 20 21 28 93 2b 32 33 36 29 3d 28 a4 53 74 79 |0 !(.+236)=(.Sty|
00002300 6c 65 20 80 20 ac 25 31 31 30 30 29 20 82 20 25 |le . .%1100) . %|
00002310 30 30 30 30 0d 0f aa 37 20 e7 20 69 6e 64 65 78 |0000...7 . index|
00002320 25 3c 3d 30 20 21 28 93 2b 32 33 36 29 3d 28 a4 |%<=0 !(.+236)=(.|
00002330 53 74 79 6c 65 20 80 20 ac 25 31 31 30 30 30 30 |Style . .%110000|
00002340 29 20 82 20 25 30 30 30 30 30 30 0d 0f b4 06 20 |) . %000000.... |
00002350 e1 0d 0f be 04 0d 0f c8 23 dd 20 f2 42 75 74 74 |........#. .Butt|
00002360 43 61 70 73 40 28 44 72 61 77 5f 50 61 74 68 25 |Caps@(Draw_Path%|
00002370 2c 69 6e 64 65 78 25 29 0d 0f d2 1c 20 f4 20 2d |,index%).... . -|
00002380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00002390 2d 2d 2d 2d 0d 0f dc 06 20 f4 0d 0f e6 14 20 f4 |----.... ..... .|
000023a0 20 42 75 74 74 20 45 6e 64 20 43 61 70 73 0d 0f | Butt End Caps..|
000023b0 f0 06 20 f4 0d 0f fa 1c 20 f4 20 4e 2e 42 2e 20 |.. ..... . N.B. |
000023c0 54 68 69 73 20 74 68 65 20 64 65 66 61 75 6c 74 |This the default|
000023d0 0d 10 04 06 20 f4 0d 10 0e 1c 20 f4 20 2d 2d 2d |.... ..... . ---|
000023e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000023f0 2d 2d 0d 10 18 22 20 ea 20 5f 50 61 74 68 25 20 |--..." . _Path% |
00002400 3a 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f 50 |: _Path%=!Draw_P|
00002410 61 74 68 25 0d 10 22 12 20 e7 20 5f 50 61 74 68 |ath%..". . _Path|
00002420 25 3c 3e 30 20 8c 0d 10 2c 3a 20 20 e7 20 69 6e |%<>0 ...,: . in|
00002430 64 65 78 25 3e 3d 30 20 5f 50 61 74 68 25 21 33 |dex%>=0 _Path%!3|
00002440 36 3d 28 28 5f 50 61 74 68 25 21 33 36 29 20 80 |6=((_Path%!36) .|
00002450 20 ac 25 31 31 30 30 29 20 82 20 25 30 30 30 30 | .%1100) . %0000|
00002460 0d 10 36 3e 20 20 e7 20 69 6e 64 65 78 25 3c 3d |..6> . index%<=|
00002470 30 20 5f 50 61 74 68 25 21 33 36 3d 28 28 5f 50 |0 _Path%!36=((_P|
00002480 61 74 68 25 21 33 36 29 20 80 20 ac 25 31 31 30 |ath%!36) . .%110|
00002490 30 30 30 29 20 82 20 25 30 30 30 30 30 30 0d 10 |000) . %000000..|
000024a0 40 06 20 cd 0d 10 4a 06 20 e1 0d 10 54 04 0d 10 |@. ...J. ...T...|
000024b0 5e 18 dd 20 f2 52 6f 75 6e 64 43 61 70 73 28 69 |^.. .RoundCaps(i|
000024c0 6e 64 65 78 25 29 0d 10 68 18 20 f4 20 2d 2d 2d |ndex%)..h. . ---|
000024d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 10 |--------------..|
000024e0 72 06 20 f4 0d 10 7c 15 20 f4 20 52 6f 75 6e 64 |r. ...|. . Round|
000024f0 20 45 6e 64 20 43 61 70 73 0d 10 86 06 20 f4 0d | End Caps.... ..|
00002500 10 90 18 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |... . ----------|
00002510 2d 2d 2d 2d 2d 2d 2d 0d 10 9a 34 20 20 e7 20 69 |-------...4 . i|
00002520 6e 64 65 78 25 3e 3d 30 20 21 28 93 2b 32 33 36 |ndex%>=0 !(.+236|
00002530 29 3d 28 a4 53 74 79 6c 65 20 80 20 ac 25 31 31 |)=(.Style . .%11|
00002540 30 30 29 20 82 20 25 30 31 30 30 0d 10 a4 38 20 |00) . %0100...8 |
00002550 20 e7 20 69 6e 64 65 78 25 3c 3d 30 20 21 28 93 | . index%<=0 !(.|
00002560 2b 32 33 36 29 3d 28 a4 53 74 79 6c 65 20 80 20 |+236)=(.Style . |
00002570 ac 25 31 31 30 30 30 30 29 20 82 20 25 30 31 30 |.%110000) . %010|
00002580 30 30 30 0d 10 ae 06 20 e1 0d 10 b8 04 0d 10 c2 |000.... ........|
00002590 24 dd 20 f2 52 6f 75 6e 64 43 61 70 73 40 28 44 |$. .RoundCaps@(D|
000025a0 72 61 77 5f 50 61 74 68 25 2c 69 6e 64 65 78 25 |raw_Path%,index%|
000025b0 29 0d 10 cc 18 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d |).... . --------|
000025c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 10 d6 06 20 f4 0d |---------.... ..|
000025d0 10 e0 15 20 f4 20 52 6f 75 6e 64 20 45 6e 64 20 |... . Round End |
000025e0 43 61 70 73 0d 10 ea 06 20 f4 0d 10 f4 18 20 f4 |Caps.... ..... .|
000025f0 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ---------------|
00002600 2d 2d 0d 10 fe 22 20 ea 20 5f 50 61 74 68 25 20 |--..." . _Path% |
00002610 3a 20 5f 50 61 74 68 25 3d 21 44 72 61 77 5f 50 |: _Path%=!Draw_P|
00002620 61 74 68 25 0d 11 08 13 20 20 e7 20 5f 50 61 74 |ath%.... . _Pat|
00002630 68 25 3c 3e 30 20 8c 0d 11 12 3a 20 20 e7 20 69 |h%<>0 ....: . i|
00002640 6e 64 65 78 25 3e 3d 30 20 5f 50 61 74 68 25 21 |ndex%>=0 _Path%!|
00002650 33 36 3d 28 28 5f 50 61 74 68 25 21 33 36 29 20 |36=((_Path%!36) |
00002660 80 20 ac 25 31 31 30 30 29 20 82 20 25 30 31 30 |. .%1100) . %010|
00002670 30 0d 11 1c 3e 20 20 e7 20 69 6e 64 65 78 25 3c |0...> . index%<|
00002680 3d 30 20 5f 50 61 74 68 25 21 33 36 3d 28 28 5f |=0 _Path%!36=((_|
00002690 50 61 74 68 25 21 33 36 29 20 80 20 ac 25 31 31 |Path%!36) . .%11|
000026a0 30 30 30 30 29 20 82 20 25 30 31 30 30 30 30 0d |0000) . %010000.|
000026b0 11 26 06 20 cd 0d 11 30 06 20 e1 0d 11 3a 04 0d |.&. ...0. ...:..|
000026c0 11 44 19 dd 20 f2 53 71 75 61 72 65 43 61 70 73 |.D.. .SquareCaps|
000026d0 28 69 6e 64 65 78 25 29 0d 11 4e 18 20 f4 20 2d |(index%)..N. . -|
000026e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000026f0 0d 11 58 06 20 f4 0d 11 62 16 20 f4 20 53 71 75 |..X. ...b. . Squ|
00002700 61 72 65 20 45 6e 64 20 43 61 70 73 0d 11 6c 06 |are End Caps..l.|
00002710 20 f4 0d 11 76 18 20 f4 20 2d 2d 2d 2d 2d 2d 2d | ...v. . -------|
00002720 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 11 80 33 20 e7 |----------...3 .|
00002730 20 69 6e 64 65 78 25 3e 3d 30 20 21 28 93 2b 32 | index%>=0 !(.+2|
00002740 33 36 29 3d 28 a4 53 74 79 6c 65 20 80 20 ac 25 |36)=(.Style . .%|
00002750 31 31 30 30 29 20 82 20 25 31 30 30 30 0d 11 8a |1100) . %1000...|
00002760 37 20 e7 20 69 6e 64 65 78 25 3c 3d 30 20 21 28 |7 . index%<=0 !(|
00002770 93 2b 32 33 36 29 3d 28 a4 53 74 79 6c 65 20 80 |.+236)=(.Style .|
00002780 20 ac 25 31 31 30 30 30 30 29 20 82 20 25 31 30 | .%110000) . %10|
00002790 30 30 30 30 0d 11 94 06 20 e1 0d 11 9e 04 0d 11 |0000.... .......|
000027a0 a8 25 dd 20 f2 53 71 75 61 72 65 43 61 70 73 40 |.%. .SquareCaps@|
000027b0 28 44 72 61 77 5f 50 61 74 68 25 2c 69 6e 64 65 |(Draw_Path%,inde|
000027c0 78 25 29 0d 11 b2 18 20 f4 20 2d 2d 2d 2d 2d 2d |x%).... . ------|
000027d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 11 bc 06 20 |-----------.... |
000027e0 f4 0d 11 c6 16 20 f4 20 53 71 75 61 72 65 20 45 |..... . Square E|
000027f0 6e 64 20 43 61 70 73 0d 11 d0 06 20 f4 0d 11 da |nd Caps.... ....|
00002800 18 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |. . ------------|
00002810 2d 2d 2d 2d 2d 0d 11 e4 22 20 ea 20 5f 50 61 74 |-----..." . _Pat|
00002820 68 25 20 3a 20 5f 50 61 74 68 25 3d 21 44 72 61 |h% : _Path%=!Dra|
00002830 77 5f 50 61 74 68 25 0d 11 ee 22 20 ea 20 5f 50 |w_Path%..." . _P|
00002840 61 74 68 25 20 3a 20 5f 50 61 74 68 25 3d 21 44 |ath% : _Path%=!D|
00002850 72 61 77 5f 50 61 74 68 25 0d 11 f8 13 20 20 e7 |raw_Path%.... .|
00002860 20 5f 50 61 74 68 25 3c 3e 30 20 8c 0d 12 02 3a | _Path%<>0 ....:|
00002870 20 20 e7 20 69 6e 64 65 78 25 3e 3d 30 20 5f 50 | . index%>=0 _P|
00002880 61 74 68 25 21 33 36 3d 28 28 5f 50 61 74 68 25 |ath%!36=((_Path%|
00002890 21 33 36 29 20 80 20 ac 25 31 31 30 30 29 20 82 |!36) . .%1100) .|
000028a0 20 25 31 30 30 30 0d 12 0c 3e 20 20 e7 20 69 6e | %1000...> . in|
000028b0 64 65 78 25 3c 3d 30 20 5f 50 61 74 68 25 21 33 |dex%<=0 _Path%!3|
000028c0 36 3d 28 28 5f 50 61 74 68 25 21 33 36 29 20 80 |6=((_Path%!36) .|
000028d0 20 ac 25 31 31 30 30 30 30 29 20 82 20 25 31 30 | .%110000) . %10|
000028e0 30 30 30 30 0d 12 16 06 20 cd 0d 12 20 06 20 e1 |0000.... ... . .|
000028f0 0d 12 2a 04 0d 12 34 28 dd 20 f2 54 72 69 61 6e |..*...4(. .Trian|
00002900 67 6c 65 43 61 70 73 28 69 6e 64 65 78 25 2c 77 |gleCaps(index%,w|
00002910 69 64 74 68 2c 68 65 69 67 68 74 29 0d 12 3e 11 |idth,height)..>.|
00002920 e7 20 69 6e 64 65 78 25 3e 3d 30 20 8c 0d 12 48 |. index%>=0 ...H|
00002930 27 20 21 28 93 2b 32 33 36 29 3d 28 a4 53 74 79 |' !(.+236)=(.Sty|
00002940 6c 65 20 80 20 ac 25 31 31 30 30 29 20 82 20 25 |le . .%1100) . %|
00002950 31 31 30 30 0d 12 52 37 20 21 28 93 2b 32 33 36 |1100..R7 !(.+236|
00002960 29 3d 28 a4 53 74 79 6c 65 20 80 20 ac 28 26 46 |)=(.Style . .(&F|
00002970 46 3c 3c 31 36 29 29 20 82 20 28 a8 28 77 69 64 |F<<16)) . (.(wid|
00002980 74 68 2a 31 36 29 29 3c 3c 31 36 0d 12 5c 38 20 |th*16))<<16..\8 |
00002990 21 28 93 2b 32 33 36 29 3d 28 a4 53 74 79 6c 65 |!(.+236)=(.Style|
000029a0 20 80 20 ac 28 26 46 46 3c 3c 32 34 29 29 20 82 | . .(&FF<<24)) .|
000029b0 20 28 a8 28 68 65 69 67 68 74 2a 31 36 29 29 3c | (.(height*16))<|
000029c0 3c 32 34 0d 12 66 06 20 cd 0d 12 70 11 e7 20 69 |<24..f. ...p.. i|
000029d0 6e 64 65 78 25 3c 3d 30 20 8c 0d 12 7a 2b 20 21 |ndex%<=0 ...z+ !|
000029e0 28 93 2b 32 33 36 29 3d 28 a4 53 74 79 6c 65 20 |(.+236)=(.Style |
000029f0 80 20 ac 25 31 31 30 30 30 30 29 20 82 20 25 31 |. .%110000) . %1|
00002a00 31 30 30 30 30 0d 12 84 37 20 21 28 93 2b 32 33 |10000...7 !(.+23|
00002a10 36 29 3d 28 a4 53 74 79 6c 65 20 80 20 ac 28 26 |6)=(.Style . .(&|
00002a20 46 46 3c 3c 31 36 29 29 20 82 20 28 a8 28 77 69 |FF<<16)) . (.(wi|
00002a30 64 74 68 2a 31 36 29 29 3c 3c 31 36 0d 12 8e 38 |dth*16))<<16...8|
00002a40 20 21 28 93 2b 32 33 36 29 3d 28 a4 53 74 79 6c | !(.+236)=(.Styl|
00002a50 65 20 80 20 ac 28 26 46 46 3c 3c 32 34 29 29 20 |e . .(&FF<<24)) |
00002a60 82 20 28 a8 28 68 65 69 67 68 74 2a 31 36 29 29 |. (.(height*16))|
00002a70 3c 3c 32 34 0d 12 98 05 cd 0d 12 a2 06 20 e1 0d |<<24......... ..|
00002a80 12 ac 04 0d 12 b6 34 dd 20 f2 54 72 69 61 6e 67 |......4. .Triang|
00002a90 6c 65 43 61 70 73 40 28 44 72 61 77 5f 50 61 74 |leCaps@(Draw_Pat|
00002aa0 68 25 2c 69 6e 64 65 78 25 2c 77 69 64 74 68 2c |h%,index%,width,|
00002ab0 68 65 69 67 68 74 29 0d 12 c0 2d 20 f4 20 2d 2d |height)...- . --|
00002ac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00002ae0 2d 2d 2d 2d 0d 12 ca 06 20 f4 0d 12 d4 1d 20 f4 |----.... ..... .|
00002af0 20 44 72 61 77 73 20 74 72 69 61 6e 67 75 6c 61 | Draws triangula|
00002b00 72 20 63 61 70 73 2e 0d 12 de 06 20 f4 0d 12 e8 |r caps..... ....|
00002b10 2c 20 f4 20 4e 2e 42 2e 20 20 22 77 69 64 74 68 |, . N.B. "width|
00002b20 22 20 61 6e 64 20 22 70 6f 69 6e 74 62 61 63 6b |" and "pointback|
00002b30 77 61 72 64 22 20 61 72 65 0d 12 f2 2d 20 f4 20 |ward" are...- . |
00002b40 20 20 20 20 20 20 6d 65 61 73 75 72 65 64 20 69 | measured i|
00002b50 6e 20 74 65 72 6d 73 20 6f 66 20 6c 69 6e 65 20 |n terms of line |
00002b60 77 69 64 74 68 2e 0d 12 fc 06 20 f4 0d 13 06 06 |width..... .....|
00002b70 20 f4 0d 13 10 19 20 f4 20 20 20 20 20 20 20 20 | ..... . |
00002b80 20 20 20 20 20 20 20 20 20 2f 7c 0d 13 1a 1c 20 | /|.... |
00002b90 f4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00002ba0 20 3c 20 7c 3d 3d 3d 0d 13 24 19 20 f4 20 20 20 | < |===..$. . |
00002bb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 7c | \||
00002bc0 0d 13 2e 06 20 f4 0d 13 38 06 20 f4 0d 13 42 06 |.... ...8. ...B.|
00002bd0 20 f4 0d 13 4c 2c 20 f4 20 45 2e 67 2e 20 20 77 | ...L, . E.g. w|
00002be0 69 64 74 68 3d 33 20 6d 65 61 6e 73 20 74 68 61 |idth=3 means tha|
00002bf0 74 20 74 68 65 20 63 61 70 20 77 69 6c 6c 0d 13 |t the cap will..|
00002c00 56 2c 20 f4 20 20 20 20 20 20 20 62 65 20 33 20 |V, . be 3 |
00002c10 6c 69 6e 65 20 77 69 64 74 68 73 20 6f 6e 20 65 |line widths on e|
00002c20 69 74 68 65 72 20 73 69 64 65 0d 13 60 06 20 f4 |ither side..`. .|
00002c30 0d 13 6a 2e 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d |..j. . ---------|
00002c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
00002c50 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 13 |--------------..|
00002c60 74 22 20 ea 20 5f 50 61 74 68 25 20 3a 20 5f 50 |t" . _Path% : _P|
00002c70 61 74 68 25 3d 21 44 72 61 77 5f 50 61 74 68 25 |ath%=!Draw_Path%|
00002c80 0d 13 7e 12 20 e7 20 5f 50 61 74 68 25 3c 3e 30 |..~. . _Path%<>0|
00002c90 20 8c 0d 13 88 13 20 20 e7 20 69 6e 64 65 78 25 | ..... . index%|
00002ca0 3c 3d 30 20 8c 0d 13 92 32 20 20 5f 50 61 74 68 |<=0 ....2 _Path|
00002cb0 25 21 33 36 3d 28 28 5f 50 61 74 68 25 21 33 36 |%!36=((_Path%!36|
00002cc0 29 20 80 20 ac 25 31 31 30 30 30 30 29 20 82 20 |) . .%110000) . |
00002cd0 25 31 31 30 30 30 30 0d 13 9c 3e 20 20 5f 50 61 |%110000...> _Pa|
00002ce0 74 68 25 21 33 36 3d 28 28 5f 50 61 74 68 25 21 |th%!36=((_Path%!|
00002cf0 33 36 29 20 80 20 ac 28 26 46 46 3c 3c 31 36 29 |36) . .(&FF<<16)|
00002d00 29 20 82 20 28 a8 28 77 69 64 74 68 2a 31 36 29 |) . (.(width*16)|
00002d10 29 3c 3c 31 36 0d 13 a6 3f 20 20 5f 50 61 74 68 |)<<16...? _Path|
00002d20 25 21 33 36 3d 28 28 5f 50 61 74 68 25 21 33 36 |%!36=((_Path%!36|
00002d30 29 20 80 20 ac 28 26 46 46 3c 3c 32 34 29 29 20 |) . .(&FF<<24)) |
00002d40 82 20 28 a8 28 68 65 69 67 68 74 2a 31 36 29 29 |. (.(height*16))|
00002d50 3c 3c 32 34 0d 13 b0 07 20 20 cd 0d 13 ba 13 20 |<<24.... ..... |
00002d60 20 e7 20 69 6e 64 65 78 25 3e 3d 30 20 8c 0d 13 | . index%>=0 ...|
00002d70 c4 2e 20 20 5f 50 61 74 68 25 21 33 36 3d 28 28 |.. _Path%!36=((|
00002d80 5f 50 61 74 68 25 21 33 36 29 20 80 20 ac 25 31 |_Path%!36) . .%1|
00002d90 31 30 30 29 20 82 20 25 31 31 30 30 0d 13 ce 3e |100) . %1100...>|
00002da0 20 20 5f 50 61 74 68 25 21 33 36 3d 28 28 5f 50 | _Path%!36=((_P|
00002db0 61 74 68 25 21 33 36 29 20 80 20 ac 28 26 46 46 |ath%!36) . .(&FF|
00002dc0 3c 3c 31 36 29 29 20 82 20 28 a8 28 77 69 64 74 |<<16)) . (.(widt|
00002dd0 68 2a 31 36 29 29 3c 3c 31 36 0d 13 d8 3f 20 20 |h*16))<<16...? |
00002de0 5f 50 61 74 68 25 21 33 36 3d 28 28 5f 50 61 74 |_Path%!36=((_Pat|
00002df0 68 25 21 33 36 29 20 80 20 ac 28 26 46 46 3c 3c |h%!36) . .(&FF<<|
00002e00 32 34 29 29 20 82 20 28 a8 28 68 65 69 67 68 74 |24)) . (.(height|
00002e10 2a 31 36 29 29 3c 3c 32 34 0d 13 e2 07 20 20 cd |*16))<<24.... .|
00002e20 0d 13 ec 07 20 20 cd 0d 13 f6 06 20 e1 0d 14 00 |.... ..... ....|
00002e30 04 0d 14 0a 04 0d 14 14 18 f4 20 3d 3d 3d 3d 3d |.......... =====|
00002e40 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 14 1e |=============...|
00002e50 17 f4 20 33 2e 36 20 44 72 61 77 69 6e 67 20 50 |.. 3.6 Drawing P|
00002e60 61 74 68 73 0d 14 28 18 f4 20 3d 3d 3d 3d 3d 3d |aths..(.. ======|
00002e70 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 14 32 04 |============..2.|
00002e80 0d 14 3c 16 dd 20 f2 44 72 61 77 50 61 74 68 28 |..<.. .DrawPath(|
00002e90 70 61 74 68 25 29 0d 14 46 38 20 e7 20 21 28 21 |path%)..F8 . !(!|
00002ea0 70 61 74 68 25 29 3d 32 20 8c 20 f2 44 72 61 77 |path%)=2 . .Draw|
00002eb0 5f 52 65 6e 64 65 72 50 61 74 68 28 21 70 61 74 |_RenderPath(!pat|
00002ec0 68 25 2c a4 44 72 61 77 54 72 61 6e 73 29 0d 14 |h%,.DrawTrans)..|
00002ed0 50 06 20 e1 0d 14 5a 04 0d 14 64 27 dd 20 f2 44 |P. ...Z...d'. .D|
00002ee0 72 61 77 5f 52 65 6e 64 65 72 50 61 74 68 28 70 |raw_RenderPath(p|
00002ef0 61 74 68 25 2c 74 72 61 6e 73 66 6f 72 6d 29 0d |ath%,transform).|
00002f00 14 6e 10 e7 20 70 61 74 68 25 3c 3e 30 20 8c 0d |.n.. path%<>0 ..|
00002f10 14 78 5e ea 20 5f 50 61 74 68 25 2c 5f 44 61 73 |.x^. _Path%,_Das|
00002f20 68 25 2c 5f 54 68 69 63 6b 6e 65 73 73 25 2c 5f |h%,_Thickness%,_|
00002f30 53 74 79 6c 65 25 2c 5f 46 6c 61 74 6e 65 73 73 |Style%,_Flatness|
00002f40 25 2c 5f 46 69 6c 6c 5f 53 74 79 6c 65 25 2c 5f |%,_Fill_Style%,_|
00002f50 6c 65 6e 67 74 68 25 2c 5f 78 25 2c 5f 79 25 2c |length%,_x%,_y%,|
00002f60 5f 58 25 2c 5f 59 25 2c 5f 63 6f 6c 25 0d 14 82 |_X%,_Y%,_col%...|
00002f70 15 c8 99 20 22 48 6f 75 72 67 6c 61 73 73 5f 4f |... "Hourglass_O|
00002f80 6e 22 0d 14 8c 10 5f 46 6c 61 74 6e 65 73 73 25 |n"...._Flatness%|
00002f90 3d 30 0d 14 96 2a f4 20 53 74 6f 72 65 20 74 68 |=0...*. Store th|
00002fa0 65 20 70 61 74 68 20 6f 62 6a 65 63 74 27 73 20 |e path object's |
00002fb0 62 6f 75 6e 64 69 6e 67 20 62 6f 78 0d 14 a0 2a |bounding box...*|
00002fc0 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |. ==============|
00002fd0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
00002fe0 3d 3d 3d 3d 3d 3d 0d 14 aa 40 20 20 20 20 5f 78 |======...@ _x|
00002ff0 25 3d 70 61 74 68 25 21 38 20 3a 20 5f 79 25 3d |%=path%!8 : _y%=|
00003000 70 61 74 68 25 21 31 32 20 3a 20 5f 58 25 3d 70 |path%!12 : _X%=p|
00003010 61 74 68 25 21 31 36 20 3a 20 5f 59 25 3d 70 61 |ath%!16 : _Y%=pa|
00003020 74 68 25 21 32 30 0d 14 b4 1a f4 20 54 68 65 20 |th%!20..... The |
00003030 73 74 79 6c 65 20 6f 66 20 64 72 61 77 69 6e 67 |style of drawing|
00003040 0d 14 be 1a f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |..... ==========|
00003050 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 14 c8 1c 20 20 |==========.... |
00003060 20 20 5f 54 68 69 63 6b 6e 65 73 73 25 3d 70 61 | _Thickness%=pa|
00003070 74 68 25 21 33 32 0d 14 d2 1c 20 20 20 20 20 20 |th%!32.... |
00003080 20 20 5f 53 74 79 6c 65 25 3d 70 61 74 68 25 21 | _Style%=path%!|
00003090 33 36 0d 14 dc 1c 20 20 20 20 20 20 20 20 20 5f |36.... _|
000030a0 50 61 74 68 25 3d 70 61 74 68 25 2b 34 30 0d 14 |Path%=path%+40..|
000030b0 e6 23 20 20 20 20 f4 20 44 61 73 68 20 50 61 74 |.# . Dash Pat|
000030c0 74 65 72 6e 20 28 49 66 20 70 72 65 73 65 6e 74 |tern (If present|
000030d0 29 0d 14 f0 23 20 20 20 20 f4 20 3d 3d 3d 3d 3d |)...# . =====|
000030e0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
000030f0 3d 3d 3d 3d 0d 14 fa 22 20 20 20 20 e7 20 28 5f |====..." . (_|
00003100 53 74 79 6c 65 25 20 80 20 28 31 3c 3c 37 29 29 |Style% . (1<<7))|
00003110 20 3d 20 30 20 8c 0d 15 04 14 20 20 20 20 20 20 | = 0 ..... |
00003120 20 20 5f 44 61 73 68 25 3d 30 0d 15 0e 09 20 20 | _Dash%=0.... |
00003130 20 20 cc 0d 15 18 19 20 20 20 20 20 20 20 20 5f | ..... _|
00003140 44 61 73 68 25 3d 5f 50 61 74 68 25 0d 15 22 22 |Dash%=_Path%..""|
00003150 20 20 20 20 20 20 20 20 5f 50 61 74 68 25 2b 3d | _Path%+=|
00003160 34 2a 28 5f 44 61 73 68 25 21 34 29 2b 38 0d 15 |4*(_Dash%!4)+8..|
00003170 2c 09 20 20 20 20 cd 0d 15 36 16 20 20 20 20 f4 |,. ...6. .|
00003180 20 43 61 70 20 61 6e 64 20 4a 6f 69 6e 0d 15 40 | Cap and Join..@|
00003190 16 20 20 20 20 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d |. . ---------|
000031a0 2d 2d 2d 0d 15 4a 36 20 20 20 20 70 61 74 68 25 |---..J6 path%|
000031b0 3f 38 20 3d 20 5f 53 74 79 6c 65 25 20 80 20 25 |?8 = _Style% . %|
000031c0 31 31 20 20 20 20 20 20 20 20 20 3a 20 f4 20 4a |11 : . J|
000031d0 6f 69 6e 20 73 74 79 6c 65 0d 15 54 34 20 20 20 |oin style..T4 |
000031e0 20 70 61 74 68 25 3f 39 20 3d 28 5f 53 74 79 6c | path%?9 =(_Styl|
000031f0 65 25 20 80 20 25 31 31 30 30 29 3e 3e 32 20 20 |e% . %1100)>>2 |
00003200 20 3a 20 f4 20 45 6e 64 20 63 61 70 73 0d 15 5e | : . End caps..^|
00003210 36 20 20 20 20 70 61 74 68 25 3f 31 30 3d 28 5f |6 path%?10=(_|
00003220 53 74 79 6c 65 25 20 80 20 25 31 31 30 30 30 30 |Style% . %110000|
00003230 29 3e 3e 34 20 3a 20 f4 20 53 74 61 72 74 20 63 |)>>4 : . Start c|
00003240 61 70 73 0d 15 68 12 20 20 20 20 70 61 74 68 25 |aps..h. path%|
00003250 3f 31 31 3d 30 0d 15 72 1b 20 20 20 20 f4 20 4d |?11=0..r. . M|
00003260 69 74 72 65 20 6a 6f 69 6e 20 6c 69 6d 69 74 73 |itre join limits|
00003270 0d 15 7c 1b 20 20 20 20 f4 20 2d 2d 2d 2d 2d 2d |..|. . ------|
00003280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 15 86 41 20 |-----------...A |
00003290 20 20 20 70 61 74 68 25 21 31 32 3d 31 30 3c 3c | path%!12=10<<|
000032a0 31 36 20 20 20 20 20 20 20 20 20 20 20 3a 20 f4 |16 : .|
000032b0 20 42 65 76 65 6c 6c 69 6e 67 20 77 68 65 6e 20 | Bevelling when |
000032c0 3c 20 31 31 20 64 65 67 72 65 65 73 0d 15 90 19 |< 11 degrees....|
000032d0 20 20 20 20 f4 20 54 72 69 61 6e 67 75 6c 61 72 | . Triangular|
000032e0 20 63 61 70 73 0d 15 9a 19 20 20 20 20 f4 20 2d | caps.... . -|
000032f0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 15 |--------------..|
00003300 a4 13 20 20 20 20 f4 20 43 61 70 20 77 69 64 74 |.. . Cap widt|
00003310 68 0d 15 ae 13 20 20 20 20 f4 20 2a 2a 2a 2a 2a |h.... . *****|
00003320 2a 2a 2a 2a 0d 15 b8 41 20 20 20 20 5f 6c 65 6e |****...A _len|
00003330 67 74 68 25 3d 70 61 74 68 25 3f 33 38 20 20 20 |gth%=path%?38 |
00003340 20 20 20 20 20 20 20 20 3a 20 f4 20 23 20 6f 66 | : . # of|
00003350 20 31 36 27 74 68 73 20 6f 66 20 6c 69 6e 65 20 | 16'ths of line |
00003360 77 69 64 74 68 0d 15 c2 2e 20 20 20 20 70 61 74 |width.... pat|
00003370 68 25 3f 31 36 3d 28 5f 6c 65 6e 67 74 68 25 83 |h%?16=(_length%.|
00003380 31 36 29 3c 3c 34 20 3a 20 f4 20 45 6e 64 20 63 |16)<<4 : . End c|
00003390 61 70 73 0d 15 cc 1c 20 20 20 20 70 61 74 68 25 |aps.... path%|
000033a0 3f 31 37 3d 5f 6c 65 6e 67 74 68 25 81 31 36 0d |?17=_length%.16.|
000033b0 15 d6 30 20 20 20 20 70 61 74 68 25 3f 32 30 3d |..0 path%?20=|
000033c0 28 5f 6c 65 6e 67 74 68 25 83 31 36 29 3c 3c 34 |(_length%.16)<<4|
000033d0 20 3a 20 f4 20 53 74 61 72 74 20 63 61 70 73 0d | : . Start caps.|
000033e0 15 e0 1c 20 20 20 20 70 61 74 68 25 3f 32 31 3d |... path%?21=|
000033f0 5f 6c 65 6e 67 74 68 25 81 31 36 0d 15 ea 14 20 |_length%.16.... |
00003400 20 20 20 f4 20 43 61 70 20 6c 65 6e 67 74 68 0d | . Cap length.|
00003410 15 f4 14 20 20 20 20 f4 20 2a 2a 2a 2a 2a 2a 2a |... . *******|
00003420 2a 2a 2a 0d 15 fe 41 20 20 20 20 5f 6c 65 6e 67 |***...A _leng|
00003430 74 68 25 3d 70 61 74 68 25 3f 33 39 20 20 20 20 |th%=path%?39 |
00003440 20 20 20 20 20 20 20 3a 20 f4 20 23 20 6f 66 20 | : . # of |
00003450 31 36 27 74 68 73 20 6f 66 20 6c 69 6e 65 20 77 |16'ths of line w|
00003460 69 64 74 68 0d 16 08 2e 20 20 20 20 70 61 74 68 |idth.... path|
00003470 25 3f 31 38 3d 28 5f 6c 65 6e 67 74 68 25 83 31 |%?18=(_length%.1|
00003480 36 29 3c 3c 34 20 3a 20 f4 20 45 6e 64 20 63 61 |6)<<4 : . End ca|
00003490 70 73 0d 16 12 1c 20 20 20 20 70 61 74 68 25 3f |ps.... path%?|
000034a0 31 39 3d 5f 6c 65 6e 67 74 68 25 81 31 36 0d 16 |19=_length%.16..|
000034b0 1c 30 20 20 20 20 70 61 74 68 25 3f 32 32 3d 28 |.0 path%?22=(|
000034c0 5f 6c 65 6e 67 74 68 25 83 31 36 29 3c 3c 34 20 |_length%.16)<<4 |
000034d0 3a 20 f4 20 53 74 61 72 74 20 63 61 70 73 0d 16 |: . Start caps..|
000034e0 26 1c 20 20 20 20 70 61 74 68 25 3f 32 33 3d 5f |&. path%?23=_|
000034f0 6c 65 6e 67 74 68 25 81 31 36 0d 16 30 23 f4 20 |length%.16..0#. |
00003500 46 69 6c 6c 20 74 68 65 20 6f 62 6a 65 63 74 20 |Fill the object |
00003510 28 69 66 20 72 65 71 75 69 72 65 64 29 0d 16 3a |(if required)..:|
00003520 22 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |". =============|
00003530 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d |===============.|
00003540 16 44 05 f4 0d 16 4e 2b f4 20 4e 2e 42 2e 20 46 |.D....N+. N.B. F|
00003550 69 6c 6c 20 63 6f 6c 6f 75 72 20 69 73 20 76 61 |ill colour is va|
00003560 6c 75 65 20 6f 66 20 70 61 74 68 25 21 32 34 0d |lue of path%!24.|
00003570 16 58 2a f4 20 20 20 20 20 20 44 6f 20 4e 4f 54 |.X*. Do NOT|
00003580 20 66 69 6c 6c 20 69 66 20 74 68 69 73 20 76 61 | fill if this va|
00003590 6c 75 65 20 69 73 20 2d 31 0d 16 62 3b f4 20 20 |lue is -1..b;. |
000035a0 20 20 20 20 45 43 46 20 70 61 74 74 65 72 6e 73 | ECF patterns|
000035b0 20 61 72 65 20 75 73 65 64 20 74 6f 20 67 69 76 | are used to giv|
000035c0 65 20 62 65 73 74 20 61 70 70 72 6f 78 69 6d 61 |e best approxima|
000035d0 74 69 6f 6e 0d 16 6c 14 f4 20 20 20 20 20 20 74 |tion..l.. t|
000035e0 6f 20 63 6f 6c 6f 75 72 0d 16 76 04 0d 16 80 44 |o colour..v....D|
000035f0 20 20 20 20 e7 20 28 5f 53 74 79 6c 65 25 20 80 | . (_Style% .|
00003600 20 28 31 3c 3c 36 29 29 3d 30 20 8c 20 5f 46 69 | (1<<6))=0 . _Fi|
00003610 6c 6c 5f 53 74 79 6c 65 25 3d 26 33 30 20 8b 20 |ll_Style%=&30 . |
00003620 5f 46 69 6c 6c 5f 53 74 79 6c 65 25 3d 26 33 32 |_Fill_Style%=&32|
00003630 0d 16 8a 15 20 20 20 20 c8 8e 20 70 61 74 68 25 |.... .. path%|
00003640 21 32 34 20 ca 0d 16 94 0d 20 20 20 20 20 c9 20 |!24 ..... . |
00003650 2d 31 0d 16 9e 0a 20 20 20 20 20 7f 0d 16 a8 19 |-1.... .....|
00003660 20 20 20 20 20 20 20 5f 63 6f 6c 25 3d 70 61 74 | _col%=pat|
00003670 68 25 21 32 34 0d 16 b2 45 20 20 20 20 20 20 20 |h%!24...E |
00003680 e7 20 21 28 93 2b 32 30 29 3d 30 20 80 20 5f 63 |. !(.+20)=0 . _c|
00003690 6f 6c 25 3d 30 20 8c 20 5f 63 6f 6c 25 3d 28 32 |ol%=0 . _col%=(2|
000036a0 35 35 3c 3c 38 29 2b 28 32 35 35 3c 3c 31 36 29 |55<<8)+(255<<16)|
000036b0 2b 28 32 35 35 3c 3c 32 34 29 0d 16 bc 30 20 20 |+(255<<24)...0 |
000036c0 20 20 20 20 20 c8 99 20 22 43 6f 6c 6f 75 72 54 | .. "ColourT|
000036d0 72 61 6e 73 5f 53 65 74 47 43 4f 4c 22 2c 5f 63 |rans_SetGCOL",_c|
000036e0 6f 6c 25 2c 2c 2c 31 3c 3c 38 0d 16 c6 42 20 20 |ol%,,,1<<8...B |
000036f0 20 20 20 20 20 c8 99 20 22 44 72 61 77 5f 46 69 | .. "Draw_Fi|
00003700 6c 6c 22 2c 5f 50 61 74 68 25 2c 5f 46 69 6c 6c |ll",_Path%,_Fill|
00003710 5f 53 74 79 6c 65 25 2c 74 72 61 6e 73 66 6f 72 |_Style%,transfor|
00003720 6d 2c 5f 46 6c 61 74 6e 65 73 73 25 0d 16 d0 09 |m,_Flatness%....|
00003730 20 20 20 20 cb 0d 16 da 17 f4 20 44 72 61 77 20 | ...... Draw |
00003740 74 68 65 20 62 6f 75 6e 64 61 72 79 0d 16 e4 17 |the boundary....|
00003750 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |. ==============|
00003760 3d 3d 3d 0d 16 ee 05 f4 0d 16 f8 2f f4 20 53 65 |===......../. Se|
00003770 74 20 74 68 65 20 6f 75 74 6c 69 6e 65 20 63 6f |t the outline co|
00003780 6c 6f 75 72 20 61 6e 64 20 64 72 61 77 20 74 68 |lour and draw th|
00003790 65 20 70 61 74 68 2e 0d 17 02 32 f4 20 4e 2e 42 |e path....2. N.B|
000037a0 2e 20 31 29 20 4f 75 74 6c 69 6e 65 20 63 6f 6c |. 1) Outline col|
000037b0 6f 75 72 20 69 73 20 73 74 6f 72 65 64 20 61 74 |our is stored at|
000037c0 20 70 61 74 68 25 21 32 38 0d 17 0c 25 f4 20 20 | path%!28...%. |
000037d0 20 20 20 20 32 29 20 43 61 70 20 61 6e 64 20 6a | 2) Cap and j|
000037e0 6f 69 6e 20 61 74 20 70 61 74 68 25 2b 38 0d 17 |oin at path%+8..|
000037f0 16 16 20 20 20 20 5f 63 6f 6c 25 3d 70 61 74 68 |.. _col%=path|
00003800 25 21 32 38 0d 17 20 42 20 20 20 20 e7 20 21 28 |%!28.. B . !(|
00003810 93 2b 32 30 29 3d 30 20 80 20 5f 63 6f 6c 25 3d |.+20)=0 . _col%=|
00003820 30 20 8c 20 5f 63 6f 6c 25 3d 28 32 35 35 3c 3c |0 . _col%=(255<<|
00003830 38 29 2b 28 32 35 35 3c 3c 31 36 29 2b 28 32 35 |8)+(255<<16)+(25|
00003840 35 3c 3c 32 34 29 0d 17 2a 26 20 20 20 20 c8 99 |5<<24)..*& ..|
00003850 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 53 65 | "ColourTrans_Se|
00003860 74 47 43 4f 4c 22 2c 5f 63 6f 6c 25 0d 17 34 50 |tGCOL",_col%..4P|
00003870 20 20 20 20 c8 99 20 22 44 72 61 77 5f 53 74 72 | .. "Draw_Str|
00003880 6f 6b 65 22 2c 5f 50 61 74 68 25 2c 2c 74 72 61 |oke",_Path%,,tra|
00003890 6e 73 66 6f 72 6d 2c 5f 46 6c 61 74 6e 65 73 73 |nsform,_Flatness|
000038a0 25 2c 5f 54 68 69 63 6b 6e 65 73 73 25 2c 70 61 |%,_Thickness%,pa|
000038b0 74 68 25 2b 38 2c 5f 44 61 73 68 25 0d 17 3e 2c |th%+8,_Dash%..>,|
000038c0 f4 20 52 65 73 74 6f 72 65 20 74 68 65 20 70 61 |. Restore the pa|
000038d0 74 68 20 6f 62 6a 65 63 74 27 73 20 62 6f 75 6e |th object's boun|
000038e0 64 69 6e 67 20 62 6f 78 0d 17 48 2c f4 20 3d 3d |ding box..H,. ==|
000038f0 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================|
*
00003910 3d 3d 3d 3d 0d 17 52 40 20 20 20 20 70 61 74 68 |====..R@ path|
00003920 25 21 38 3d 5f 78 25 20 3a 20 70 61 74 68 25 21 |%!8=_x% : path%!|
00003930 31 32 3d 5f 79 25 20 3a 20 70 61 74 68 25 21 31 |12=_y% : path%!1|
00003940 36 3d 5f 58 25 20 3a 20 70 61 74 68 25 21 32 30 |6=_X% : path%!20|
00003950 3d 5f 59 25 0d 17 5c 1a 20 20 20 20 c8 99 20 22 |=_Y%..\. .. "|
00003960 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 0d 17 |Hourglass_Off"..|
00003970 66 09 20 20 20 20 cd 0d 17 70 05 e1 0d ff |f. ...p....|
0000397e 
.