home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
077.lha
/
Postscript
/
Examples
/
show-fonts
< prev
Wrap
Text File
|
1986-11-20
|
622b
|
36 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