home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d101
/
psintrp.lha
/
PsIntrp
/
palette
< prev
next >
Wrap
Text File
|
1987-09-05
|
422b
|
30 lines
save
0 setgray
/boxheight 100 def
/boxwidth 50 def
/thecolor 0 def
/dab {
thecolor pencolor
currentpoint
currentpoint boxheight add
currentpoint exch boxwidth add exch
box
exch boxwidth add exch moveto
/thecolor thecolor 1 add def
} def
640 8 boxwidth mul sub 2 idiv
400 2 boxheight mul sub 2 idiv
2 copy
boxheight add moveto
8 {dab} repeat
moveto
8 {dab} repeat
1 pencolor
restore