Home » Archimedes archive » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95 » !AWMar95/Goodies/DrawBasic/!DrawBasic/Info/Commands/Attributes

!AWMar95/Goodies/DrawBasic/!DrawBasic/Info/Commands/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/Info/Commands/Attributes
Read OK:
File size: 0E2A bytes
Load address: 0000
Exec address: 0000
File contents
Resources.Attributes : 
=====================
 Line attributes are discussed in Chapter 5 of DrawBasic book. The commands
 have two forms:
 
 � a priori
 
   i.e. command then applies to every path as it is constructed

 � a posteori

   i.e. command applies to an already constructed path
        N.B. These commands end in the '@' character


    A PRIORI                                    A POSTEORI                 PAGE
    ========                                    ==========                 ====


 -----------------------------------------------------------------------------
  � LINE WIDTH
    ---------- 
 �Width(width)                            �Width@(Draw_Path%,width)         41       �LineWidth

 -----------------------------------------------------------------------------  
 � LINE JOINS
   ----------                 
 �BevelJoins                              �BevelJoins@(Draw_Path%)          53
 �MitreJoins                              �MitreJoins@(Draw_Path%)          53
 �RoundJoins                              �RoundJoins@(Draw_Path%)          53
 �Joins(index%)                           �Joins@(Draw_Path%,index%)

 ----------------------------------------------------------------------------- 
 � LINE CAPS
   ----------   
 �ButtCaps(index%)                        �ButtCaps@(Draw_Path%,index%)     54
 �RoundCaps(index%)                       �RoundCaps@(Draw_Path%,index%)    54   �SquareCaps(index%)                      �SquareCaps@(Draw_Path%,index%)   54   �TriangleCaps(index%,width,height)       �TriangleCaps@(Draw_Path%,...)    54
 ----------------------------------------------------------------------------- 
 � LINE DASH PATTERNS
   ------------------   
 �Dash(pattern%)                          �Dash@(Draw_Path%,pattern%)       51   �DashLength(pattern%,item%,length%)                                        52
 �DashOff
  �Dash                        
  �DashPattern(NumberOfElements%)                                           52
  �DotDash(length%)                                                         53
  �EquiDash(length%)                                                        53
  �NonEquiDash(stroke_length%,move_length%                                  53
 ----------------------------------------------------------------------------- 
 � Drawing a path with correct attributes
   --------------------------------------   
 �Draw_RenderPath(path%,transform)        
 �DrawPath(path%)                                                           43
 ----------------------------------------------------------------------------- 
 � COLOUR
   ------              
 �Colour(col%)                            �Colour@(Draw_Path%,colour%)      44
  �LineColour
  
 �Fill(col%)                              �Fill@(Draw_Path%,colour%)        45
  �FillColour
   
 �WindingRule(winding_rule%)              �WindingRule@(Draw_Path%, ...)    46
  �WindingRule
 ----------------------------------------------------------------------------- 
 � COLOUR MIXING   (page 44)
   -------------                         
 �Black                        
 �Blue                  
 �Cream             
 �Green                 
 �Grey(scale)                             
 �LightBlue            
 �LightGreen
 �Orange              
 �Red
 �White                           
 �Yellow
      
 �DesktopColour(colour%)                  
                                             
 �Shade(Red%,Green%,Blue%)=(Red%<<8)+(Gre 
 �ShadeCMYK(Cyan,Magenta,Yellow,Key)      
 �ShadeHSV(Hue,Saturation,Value)          
 �ShadePC(Red,Green,Blue)
               
 �Style                     
              
00000000  52 65 73 6f 75 72 63 65  73 2e 41 74 74 72 69 62  |Resources.Attrib|
00000010  75 74 65 73 20 3a 20 0a  3d 3d 3d 3d 3d 3d 3d 3d  |utes : .========|
00000020  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0a 20 4c  |=============. L|
00000030  69 6e 65 20 61 74 74 72  69 62 75 74 65 73 20 61  |ine attributes a|
00000040  72 65 20 64 69 73 63 75  73 73 65 64 20 69 6e 20  |re discussed in |
00000050  43 68 61 70 74 65 72 20  35 20 6f 66 20 44 72 61  |Chapter 5 of Dra|
00000060  77 42 61 73 69 63 20 62  6f 6f 6b 2e 20 54 68 65  |wBasic book. The|
00000070  20 63 6f 6d 6d 61 6e 64  73 0a 20 68 61 76 65 20  | commands. have |
00000080  74 77 6f 20 66 6f 72 6d  73 3a 0a 20 0a 20 8f 20  |two forms:. . . |
00000090  61 20 70 72 69 6f 72 69  0a 20 0a 20 20 20 69 2e  |a priori. .   i.|
000000a0  65 2e 20 63 6f 6d 6d 61  6e 64 20 74 68 65 6e 20  |e. command then |
000000b0  61 70 70 6c 69 65 73 20  74 6f 20 65 76 65 72 79  |applies to every|
000000c0  20 70 61 74 68 20 61 73  20 69 74 20 69 73 20 63  | path as it is c|
000000d0  6f 6e 73 74 72 75 63 74  65 64 0a 0a 20 8f 20 61  |onstructed.. . a|
000000e0  20 70 6f 73 74 65 6f 72  69 0a 0a 20 20 20 69 2e  | posteori..   i.|
000000f0  65 2e 20 63 6f 6d 6d 61  6e 64 20 61 70 70 6c 69  |e. command appli|
00000100  65 73 20 74 6f 20 61 6e  20 61 6c 72 65 61 64 79  |es to an already|
00000110  20 63 6f 6e 73 74 72 75  63 74 65 64 20 70 61 74  | constructed pat|
00000120  68 0a 20 20 20 20 20 20  20 20 4e 2e 42 2e 20 54  |h.        N.B. T|
00000130  68 65 73 65 20 63 6f 6d  6d 61 6e 64 73 20 65 6e  |hese commands en|
00000140  64 20 69 6e 20 74 68 65  20 27 40 27 20 63 68 61  |d in the '@' cha|
00000150  72 61 63 74 65 72 0a 0a  0a 20 20 20 20 41 20 50  |racter...    A P|
00000160  52 49 4f 52 49 20 20 20  20 20 20 20 20 20 20 20  |RIORI           |
00000170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000180  20 20 20 20 20 20 20 20  20 41 20 50 4f 53 54 45  |         A POSTE|
00000190  4f 52 49 20 20 20 20 20  20 20 20 20 20 20 20 20  |ORI             |
000001a0  20 20 20 20 50 41 47 45  0a 20 20 20 20 3d 3d 3d  |    PAGE.    ===|
000001b0  3d 3d 3d 3d 3d 20 20 20  20 20 20 20 20 20 20 20  |=====           |
000001c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001d0  20 20 20 20 20 20 20 20  20 3d 3d 3d 3d 3d 3d 3d  |         =======|
000001e0  3d 3d 3d 20 20 20 20 20  20 20 20 20 20 20 20 20  |===             |
000001f0  20 20 20 20 3d 3d 3d 3d  0a 0a 0a 20 2d 2d 2d 2d  |    ====... ----|
00000200  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 20 20 8f 20 4c 49  |---------.  . LI|
00000250  4e 45 20 57 49 44 54 48  0a 20 20 20 20 2d 2d 2d  |NE WIDTH.    ---|
00000260  2d 2d 2d 2d 2d 2d 2d 20  0a 20 b7 57 69 64 74 68  |------- . .Width|
00000270  28 77 69 64 74 68 29 20  20 20 20 20 20 20 20 20  |(width)         |
00000280  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000290  20 20 20 b7 57 69 64 74  68 40 28 44 72 61 77 5f  |   .Width@(Draw_|
000002a0  50 61 74 68 25 2c 77 69  64 74 68 29 20 20 20 20  |Path%,width)    |
000002b0  20 20 20 20 20 34 31 20  20 20 20 20 20 20 bb 4c  |     41       .L|
000002c0  69 6e 65 57 69 64 74 68  0a 0a 20 2d 2d 2d 2d 2d  |ineWidth.. -----|
000002d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000310  2d 2d 2d 2d 2d 2d 2d 2d  20 20 0a 20 8f 20 4c 49  |--------  . . LI|
00000320  4e 45 20 4a 4f 49 4e 53  0a 20 20 20 2d 2d 2d 2d  |NE JOINS.   ----|
00000330  2d 2d 2d 2d 2d 2d 20 20  20 20 20 20 20 20 20 20  |------          |
00000340  20 20 20 20 20 20 20 0a  20 b7 42 65 76 65 6c 4a  |       . .BevelJ|
00000350  6f 69 6e 73 20 20 20 20  20 20 20 20 20 20 20 20  |oins            |
00000360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000370  20 20 b7 42 65 76 65 6c  4a 6f 69 6e 73 40 28 44  |  .BevelJoins@(D|
00000380  72 61 77 5f 50 61 74 68  25 29 20 20 20 20 20 20  |raw_Path%)      |
00000390  20 20 20 20 35 33 0a 20  b7 4d 69 74 72 65 4a 6f  |    53. .MitreJo|
000003a0  69 6e 73 20 20 20 20 20  20 20 20 20 20 20 20 20  |ins             |
000003b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003c0  20 b7 4d 69 74 72 65 4a  6f 69 6e 73 40 28 44 72  | .MitreJoins@(Dr|
000003d0  61 77 5f 50 61 74 68 25  29 20 20 20 20 20 20 20  |aw_Path%)       |
000003e0  20 20 20 35 33 0a 20 b7  52 6f 75 6e 64 4a 6f 69  |   53. .RoundJoi|
000003f0  6e 73 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ns              |
00000400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000410  b7 52 6f 75 6e 64 4a 6f  69 6e 73 40 28 44 72 61  |.RoundJoins@(Dra|
00000420  77 5f 50 61 74 68 25 29  20 20 20 20 20 20 20 20  |w_Path%)        |
00000430  20 20 35 33 0a 20 b7 4a  6f 69 6e 73 28 69 6e 64  |  53. .Joins(ind|
00000440  65 78 25 29 20 20 20 20  20 20 20 20 20 20 20 20  |ex%)            |
00000450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 b7  |               .|
00000460  4a 6f 69 6e 73 40 28 44  72 61 77 5f 50 61 74 68  |Joins@(Draw_Path|
00000470  25 2c 69 6e 64 65 78 25  29 0a 0a 20 2d 2d 2d 2d  |%,index%).. ----|
00000480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000004c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 0a 20 8f 20 4c 49  |--------- . . LI|
000004d0  4e 45 20 43 41 50 53 0a  20 20 20 2d 2d 2d 2d 2d  |NE CAPS.   -----|
000004e0  2d 2d 2d 2d 2d 20 20 20  0a 20 b7 42 75 74 74 43  |-----   . .ButtC|
000004f0  61 70 73 28 69 6e 64 65  78 25 29 20 20 20 20 20  |aps(index%)     |
00000500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000510  20 20 20 b7 42 75 74 74  43 61 70 73 40 28 44 72  |   .ButtCaps@(Dr|
00000520  61 77 5f 50 61 74 68 25  2c 69 6e 64 65 78 25 29  |aw_Path%,index%)|
00000530  20 20 20 20 20 35 34 0a  20 b7 52 6f 75 6e 64 43  |     54. .RoundC|
00000540  61 70 73 28 69 6e 64 65  78 25 29 20 20 20 20 20  |aps(index%)     |
00000550  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000560  20 20 b7 52 6f 75 6e 64  43 61 70 73 40 28 44 72  |  .RoundCaps@(Dr|
00000570  61 77 5f 50 61 74 68 25  2c 69 6e 64 65 78 25 29  |aw_Path%,index%)|
00000580  20 20 20 20 35 34 20 20  20 b7 53 71 75 61 72 65  |    54   .Square|
00000590  43 61 70 73 28 69 6e 64  65 78 25 29 20 20 20 20  |Caps(index%)    |
000005a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005b0  20 20 b7 53 71 75 61 72  65 43 61 70 73 40 28 44  |  .SquareCaps@(D|
000005c0  72 61 77 5f 50 61 74 68  25 2c 69 6e 64 65 78 25  |raw_Path%,index%|
000005d0  29 20 20 20 35 34 20 20  20 b7 54 72 69 61 6e 67  |)   54   .Triang|
000005e0  6c 65 43 61 70 73 28 69  6e 64 65 78 25 2c 77 69  |leCaps(index%,wi|
000005f0  64 74 68 2c 68 65 69 67  68 74 29 20 20 20 20 20  |dth,height)     |
00000600  20 20 b7 54 72 69 61 6e  67 6c 65 43 61 70 73 40  |  .TriangleCaps@|
00000610  28 44 72 61 77 5f 50 61  74 68 25 2c 2e 2e 2e 29  |(Draw_Path%,...)|
00000620  20 20 20 20 35 34 0a 20  2d 2d 2d 2d 2d 2d 2d 2d  |    54. --------|
00000630  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000670  2d 2d 2d 2d 2d 20 0a 20  8f 20 4c 49 4e 45 20 44  |----- . . LINE D|
00000680  41 53 48 20 50 41 54 54  45 52 4e 53 0a 20 20 20  |ASH PATTERNS.   |
00000690  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000006a0  2d 2d 20 20 20 0a 20 b7  44 61 73 68 28 70 61 74  |--   . .Dash(pat|
000006b0  74 65 72 6e 25 29 20 20  20 20 20 20 20 20 20 20  |tern%)          |
000006c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000006d0  b7 44 61 73 68 40 28 44  72 61 77 5f 50 61 74 68  |.Dash@(Draw_Path|
000006e0  25 2c 70 61 74 74 65 72  6e 25 29 20 20 20 20 20  |%,pattern%)     |
000006f0  20 20 35 31 20 20 20 b7  44 61 73 68 4c 65 6e 67  |  51   .DashLeng|
00000700  74 68 28 70 61 74 74 65  72 6e 25 2c 69 74 65 6d  |th(pattern%,item|
00000710  25 2c 6c 65 6e 67 74 68  25 29 20 20 20 20 20 20  |%,length%)      |
00000720  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000740  20 20 35 32 0a 20 b7 44  61 73 68 4f 66 66 0a 20  |  52. .DashOff. |
00000750  20 bb 44 61 73 68 20 20  20 20 20 20 20 20 20 20  | .Dash          |
00000760  20 20 20 20 20 20 20 20  20 20 20 20 20 20 0a 20  |              . |
00000770  20 bb 44 61 73 68 50 61  74 74 65 72 6e 28 4e 75  | .DashPattern(Nu|
00000780  6d 62 65 72 4f 66 45 6c  65 6d 65 6e 74 73 25 29  |mberOfElements%)|
00000790  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000007b0  20 20 20 20 20 20 20 20  20 20 20 35 32 0a 20 20  |           52.  |
000007c0  bb 44 6f 74 44 61 73 68  28 6c 65 6e 67 74 68 25  |.DotDash(length%|
000007d0  29 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)               |
000007e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000800  20 20 20 20 20 20 20 20  20 20 35 33 0a 20 20 bb  |          53.  .|
00000810  45 71 75 69 44 61 73 68  28 6c 65 6e 67 74 68 25  |EquiDash(length%|
00000820  29 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)               |
00000830  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000850  20 20 20 20 20 20 20 20  20 35 33 0a 20 20 bb 4e  |         53.  .N|
00000860  6f 6e 45 71 75 69 44 61  73 68 28 73 74 72 6f 6b  |onEquiDash(strok|
00000870  65 5f 6c 65 6e 67 74 68  25 2c 6d 6f 76 65 5f 6c  |e_length%,move_l|
00000880  65 6e 67 74 68 25 20 20  20 20 20 20 20 20 20 20  |ength%          |
00000890  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008a0  20 20 20 20 20 20 20 20  35 33 0a 20 2d 2d 2d 2d  |        53. ----|
000008b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000008f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 0a 20 8f 20 44 72  |--------- . . Dr|
00000900  61 77 69 6e 67 20 61 20  70 61 74 68 20 77 69 74  |awing a path wit|
00000910  68 20 63 6f 72 72 65 63  74 20 61 74 74 72 69 62  |h correct attrib|
00000920  75 74 65 73 0a 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |utes.   --------|
00000930  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000940  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 20 20  |--------------  |
00000950  20 0a 20 b7 44 72 61 77  5f 52 65 6e 64 65 72 50  | . .Draw_RenderP|
00000960  61 74 68 28 70 61 74 68  25 2c 74 72 61 6e 73 66  |ath(path%,transf|
00000970  6f 72 6d 29 20 20 20 20  20 20 20 20 0a 20 b7 44  |orm)        . .D|
00000980  72 61 77 50 61 74 68 28  70 61 74 68 25 29 20 20  |rawPath(path%)  |
00000990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000009c0  20 20 20 20 20 20 20 20  20 34 33 0a 20 2d 2d 2d  |         43. ---|
000009d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 0a 20 8f 20 43  |---------- . . C|
00000a20  4f 4c 4f 55 52 0a 20 20  20 2d 2d 2d 2d 2d 2d 20  |OLOUR.   ------ |
00000a30  20 20 20 20 20 20 20 20  20 20 20 20 20 0a 20 b7  |             . .|
00000a40  43 6f 6c 6f 75 72 28 63  6f 6c 25 29 20 20 20 20  |Colour(col%)    |
00000a50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a60  20 20 20 20 20 20 20 20  b7 43 6f 6c 6f 75 72 40  |        .Colour@|
00000a70  28 44 72 61 77 5f 50 61  74 68 25 2c 63 6f 6c 6f  |(Draw_Path%,colo|
00000a80  75 72 25 29 20 20 20 20  20 20 34 34 0a 20 20 bb  |ur%)      44.  .|
00000a90  4c 69 6e 65 43 6f 6c 6f  75 72 0a 20 20 0a 20 b7  |LineColour.  . .|
00000aa0  46 69 6c 6c 28 63 6f 6c  25 29 20 20 20 20 20 20  |Fill(col%)      |
00000ab0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ac0  20 20 20 20 20 20 20 20  b7 46 69 6c 6c 40 28 44  |        .Fill@(D|
00000ad0  72 61 77 5f 50 61 74 68  25 2c 63 6f 6c 6f 75 72  |raw_Path%,colour|
00000ae0  25 29 20 20 20 20 20 20  20 20 34 35 0a 20 20 bb  |%)        45.  .|
00000af0  46 69 6c 6c 43 6f 6c 6f  75 72 0a 20 20 20 0a 20  |FillColour.   . |
00000b00  b7 57 69 6e 64 69 6e 67  52 75 6c 65 28 77 69 6e  |.WindingRule(win|
00000b10  64 69 6e 67 5f 72 75 6c  65 25 29 20 20 20 20 20  |ding_rule%)     |
00000b20  20 20 20 20 20 20 20 20  20 b7 57 69 6e 64 69 6e  |         .Windin|
00000b30  67 52 75 6c 65 40 28 44  72 61 77 5f 50 61 74 68  |gRule@(Draw_Path|
00000b40  25 2c 20 2e 2e 2e 29 20  20 20 20 34 36 0a 20 20  |%, ...)    46.  |
00000b50  bb 57 69 6e 64 69 6e 67  52 75 6c 65 0a 20 2d 2d  |.WindingRule. --|
00000b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ba0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 20 0a 20 8f 20  |----------- . . |
00000bb0  43 4f 4c 4f 55 52 20 4d  49 58 49 4e 47 20 20 20  |COLOUR MIXING   |
00000bc0  28 70 61 67 65 20 34 34  29 0a 20 20 20 2d 2d 2d  |(page 44).   ---|
00000bd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 20 20 20 20 20  |----------      |
00000be0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000bf0  20 20 20 0a 20 bb 42 6c  61 63 6b 20 20 20 20 20  |   . .Black     |
00000c00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000c10  20 20 20 0a 20 bb 42 6c  75 65 20 20 20 20 20 20  |   . .Blue      |
00000c20  20 20 20 20 20 20 20 20  20 20 20 20 0a 20 bb 43  |            . .C|
00000c30  72 65 61 6d 20 20 20 20  20 20 20 20 20 20 20 20  |ream            |
00000c40  20 0a 20 bb 47 72 65 65  6e 20 20 20 20 20 20 20  | . .Green       |
00000c50  20 20 20 20 20 20 20 20  20 20 0a 20 bb 47 72 65  |          . .Gre|
00000c60  79 28 73 63 61 6c 65 29  20 20 20 20 20 20 20 20  |y(scale)        |
00000c70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000c80  20 20 20 20 20 0a 20 bb  4c 69 67 68 74 42 6c 75  |     . .LightBlu|
00000c90  65 20 20 20 20 20 20 20  20 20 20 20 20 0a 20 bb  |e            . .|
00000ca0  4c 69 67 68 74 47 72 65  65 6e 0a 20 bb 4f 72 61  |LightGreen. .Ora|
00000cb0  6e 67 65 20 20 20 20 20  20 20 20 20 20 20 20 20  |nge             |
00000cc0  20 0a 20 bb 52 65 64 0a  20 bb 57 68 69 74 65 20  | . .Red. .White |
00000cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ce0  20 20 20 20 20 20 20 20  20 20 0a 20 bb 59 65 6c  |          . .Yel|
00000cf0  6c 6f 77 0a 20 20 20 20  20 20 0a 20 bb 44 65 73  |low.      . .Des|
00000d00  6b 74 6f 70 43 6f 6c 6f  75 72 28 63 6f 6c 6f 75  |ktopColour(colou|
00000d10  72 25 29 20 20 20 20 20  20 20 20 20 20 20 20 20  |r%)             |
00000d20  20 20 20 20 20 0a 20 20  20 20 20 20 20 20 20 20  |     .          |
00000d30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000d50  20 20 20 0a 20 bb 53 68  61 64 65 28 52 65 64 25  |   . .Shade(Red%|
00000d60  2c 47 72 65 65 6e 25 2c  42 6c 75 65 25 29 3d 28  |,Green%,Blue%)=(|
00000d70  52 65 64 25 3c 3c 38 29  2b 28 47 72 65 20 0a 20  |Red%<<8)+(Gre . |
00000d80  bb 53 68 61 64 65 43 4d  59 4b 28 43 79 61 6e 2c  |.ShadeCMYK(Cyan,|
00000d90  4d 61 67 65 6e 74 61 2c  59 65 6c 6c 6f 77 2c 4b  |Magenta,Yellow,K|
00000da0  65 79 29 20 20 20 20 20  20 0a 20 bb 53 68 61 64  |ey)      . .Shad|
00000db0  65 48 53 56 28 48 75 65  2c 53 61 74 75 72 61 74  |eHSV(Hue,Saturat|
00000dc0  69 6f 6e 2c 56 61 6c 75  65 29 20 20 20 20 20 20  |ion,Value)      |
00000dd0  20 20 20 20 0a 20 bb 53  68 61 64 65 50 43 28 52  |    . .ShadePC(R|
00000de0  65 64 2c 47 72 65 65 6e  2c 42 6c 75 65 29 0a 20  |ed,Green,Blue). |
00000df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 0a 20  |              . |
00000e00  bb 53 74 79 6c 65 20 20  20 20 20 20 20 20 20 20  |.Style          |
00000e10  20 20 20 20 20 20 20 20  20 20 20 0a 20 20 20 20  |           .    |
00000e20  20 20 20 20 20 20 20 20  20 20                    |          |
00000e2a