home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
GEMini Atari
/
GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso
/
zip
/
gnu
/
gs252b.lzh
/
GS252B
/
SCREEN.PS
< prev
next >
Wrap
Text File
|
1993-07-30
|
726b
|
47 lines
% Test a tilted halftone screen.
/dot1
{ dup mul exch dup mul add 1 exch sub
} bind def
/dot2
{ exch abs exch abs 2 copy le { exch } if
exch 1 sub dup mul exch dup mul add 1 exch sub
} bind def
72 72 scale
0 setlinewidth
/tiles {
0 1 7
{ /y exch def
0 1 7
{ /x exch def
x y moveto
1 0 rlineto 0 1 rlineto -1 0 rlineto closepath
gsave y 8 mul x add 63 div setgray fill grestore
0 setgray stroke
} for
} for
} bind def
gsave
2.3 22 /dot1 load setscreen
currentscreen pop == pop
tiles showpage
grestore
gsave
2.3 45 /dot1 load setscreen
currentscreen pop == pop
tiles showpage
grestore
gsave
2.3 45 /dot2 load setscreen
currentscreen pop == pop
tiles showpage
grestore
quit