CD Actual 8/CDACTUAL8.iso/share/os2/graficos/gle/dvifill.gle

Text File | 1994-01-12 | 996 b | 72 lines

size 16 12 box
set hei .8 just center font texcmr
amove 10.5 10
begin box add .3
begin text
 Fill Colors and Patterns
 for GLE
end text
end box

set just left font pldr
set hei .25
amove .3 .4
text wall.gle
amove 2 4
sub sh f$
 set just left
 box 2.3 1 fill f$
 box 2 .5 fill white
 RMOVE .2 .1
 write f$
 rmove -.2 1.4
end sub
sub ssh f$ ff$
 set just left
 box 2.3 1 fill f$
 box 2 .5 fill white
 RMOVE .2 .1
 write ff$
 rmove -.2 1.4
end sub

amove .5 1
@sh "Red"
@sh "Green"
@sh "Blue"
@sh "Magenta"
@sh "Yellow"
@ssh "RED_GRID" "RED\_GRID"
@SsH "BLUE_GRID" "BLUE\_GRID"

amove 3 1
@sh "Yellow"
@sh "Cyan"
@sh "White"
@sh "Grey90"
@sh "cvtrgb(.2,0,0)"
@sh "cvtrgb(0,.8,0)"
@sh "cvtrgb(0,0,.8)"

amove 6.5 1
@sh "Shade1"
@sh "Shade2"
@sh "Shade3"
@sh "Shade4"
@sh "Shade5"

amove 10 1
@sh "Grid1"
@sh "Grid2"
@sh "Grid3"
@sh "Grid4"
@sh "Grid5"

amove 13 1
@sh "Grey1"
@sh "Grey5"
@sh "Grey10"
@sh "Grey20"
@sh "Grey90"