home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Anwendungen
/
Kurztests
/
PostScript
/
PsIntrp
/
show-fonts
< prev
next >
Wrap
Text File
|
1987-09-06
|
621b
|
35 lines
save
/psize 20 string def
/Fsample {
2 copy
/simplex findfont 12 scalefont setfont
exch show
( ) show
psize cvs show
exch findfont exch scalefont setfont
currentpoint exch pop 145 exch moveto
(abcdef ABCDEF ) show
} def
/newline {
currentpoint exch pop 30 exch 30 sub
moveto
} def
30 350 moveto
(topaz) 8 Fsample newline
(topaz) 9 Fsample newline
(diamond) 12 Fsample newline
(garnet) 9 Fsample newline
(garnet) 16 Fsample newline
(ruby) 8 Fsample newline
(ruby) 12 Fsample newline
(sapphire)19 Fsample newline
(emerald) 20 Fsample newline
restore