Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /pisma [/NewCenturySchlbk-Bold, /Helvetica-Narrow-Bold /Palatino-BoldItalic /Bookman-Demi /Arial /Times-Bold] def
- /brpisma pisma length def
- /tekst (abcdefghijklmn) def
- %/pt [6 7 8 9 10 11 12 14 16 18 20 24 28 32 36 48 60 72 96] def
- %50 550 translate
- 0 1 brpisma 1 sub {
- /i exch def
- /pt 100 -10 i mul add def
- /h 550 -100 i mul add def
- /uzorak {
- 50 h moveto
- pisma i get findfont
- pt scalefont
- setfont
- %tekst show
- tekst false charpath
- } def
- uzorak
- %gsave
- /x i brpisma 1 sub div def % 0-1 ...... i=0-5, i/5
- /y 1 x sub def %1-0
- i 1 add setlinewidth
- 0 x y 0 setcmykcolor
- 1 setlinejoin
- stroke
- %grestore
- }for
- 100 100 moveto
- (x=) show
- x 10 string cvs show
- 100 300 moveto
- (y=) show
- y 10 string cvs show
- 100 -10 100 -10 brpisma mul add {
- }for
- showpage
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement