home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d101
/
psintrp.lha
/
PsIntrp
/
color-chart
< prev
next >
Wrap
Text File
|
1987-09-05
|
2KB
|
91 lines
% Set up colors and show chart
save
1 penmode
erasepage
/xpos 0 def
/ypos 364 def
/boxwidth 10 def
/boxheight 20 def
/nextx { /xpos xpos boxwidth add def } def
/nexty { /xpos 0 def /ypos ypos boxheight sub def } def
/onebox {
xpos ypos xpos boxwidth add ypos boxheight sub box
nextx
} def
/fourbox {
.6 setgray onebox
.3 setgray onebox
.1 setgray onebox
0 setgray onebox
} def
/boxrow {
0 1 15
{ pencolor fourbox }
for
} def
/allbox {
0 1 15
{ penbcolor boxrow nexty }
for
} def
0 pencolor 2 2 2 setrgbcolor % black
1 pencolor 11 11 11 setrgbcolor % white
2 pencolor 3 12 3 setrgbcolor % green
3 pencolor 13 4 2 setrgbcolor % red
4 pencolor 0 0 15 setrgbcolor % blue
5 pencolor 12 12 0 setrgbcolor % yellow
6 pencolor 0 8 2 setrgbcolor % olive
7 pencolor 10 0 9 setrgbcolor % wine
8 pencolor 6 2 0 setrgbcolor % rust
9 pencolor 0 6 6 setrgbcolor % sea
10 pencolor 9 15 1 setrgbcolor % apple
11 pencolor 14 11 0 setrgbcolor % orange
12 pencolor 12 0 4 setrgbcolor % fire
13 pencolor 9 2 15 setrgbcolor % grape
14 pencolor 12 7 7 setrgbcolor % salmon
15 pencolor 0 15 8 setrgbcolor % sky
allbox
2 pencolor 0 penbcolor 1 penmode
/topaz findfont 8 scalefont setfont
/theight 364 boxheight sub 6 add def
/txpos 2 def
/nexttext { txpos theight moveto
/txpos txpos 4 boxwidth mul add def
/theight theight boxheight sub def
} def
nexttext (black) show
nexttext (white) show
nexttext (green) show
nexttext (red) show
nexttext (blue) show
nexttext (yellow) show
nexttext (olive) show
nexttext (wine) show
nexttext (rust) show
nexttext (sea) show
nexttext (apple) show
nexttext (orange) show
nexttext (fire) show
nexttext (grape) show
nexttext (salmon) show
nexttext (sky) show
restore