SHARE
TWEET

Untitled

a guest Mar 28th, 2018 89 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.  
  3. /pisma [/NewCenturySchlbk-Bold, /Helvetica-Narrow-Bold /Palatino-BoldItalic /Bookman-Demi /Arial /Times-Bold] def
  4.  
  5. /brpisma pisma length def
  6.  
  7. /tekst (abcdefghijklmn) def
  8.  
  9. %/pt [6 7 8 9 10 11 12 14 16 18 20 24 28 32 36 48 60 72 96] def
  10.  
  11. %50 550 translate
  12.  
  13. 0 1 brpisma 1 sub {
  14.  
  15.     /i exch def
  16.     /pt 100 -10 i mul add def
  17.     /h 550 -100 i mul add def
  18.    
  19.     /uzorak {
  20.         50 h  moveto
  21.         pisma i  get findfont
  22.             pt scalefont
  23.             setfont
  24.        
  25.         %tekst  show
  26.         tekst false charpath
  27.     } def
  28.    
  29.    
  30.    
  31.     uzorak
  32.     %gsave
  33.         /x i brpisma 1 sub div def  % 0-1 ......  i=0-5,  i/5
  34.         /y 1 x sub def %1-0
  35.    
  36.         i 1 add setlinewidth
  37.         0 x y 0 setcmykcolor
  38.         1 setlinejoin
  39.         stroke
  40.     %grestore
  41.    
  42.    
  43.  
  44. }for
  45.  
  46. 100 100 moveto
  47.     (x=) show
  48.     x 10 string cvs show
  49. 100 300 moveto
  50.     (y=) show
  51.     y 10 string cvs show
  52.  
  53.    
  54.    
  55. 100 -10 100 -10 brpisma mul add {
  56.  
  57.  
  58.  
  59. }for
  60.  
  61.  
  62.  
  63.  
  64. showpage
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top