SHARE
TWEET

Untitled

a guest Apr 11th, 2018 94 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. /format [297 210] def
  2. /mm {0.352777778 div} def
  3.  
  4. /fw format 0 get mm def
  5. /fh format 1 get mm def
  6.  
  7. 0 0 fw fh rectstroke
  8. .5 setgray
  9. 0 0 moveto fw fh lineto 0 fh lineto closepath fill
  10.  
  11. /pisma [/Helvetica-Narrow] def
  12.  
  13.  
  14. /tekst (Prema slici 1 postaviti PostScript program koji će pomoću naredbe.) def
  15. /pt 20 def
  16. pisma 0 get pt selectfont
  17. 0 setgray
  18. 0 0 moveto
  19.  
  20. /string-w {tekst stringwidth pop} def
  21. /string-l {tekst length} def
  22.  
  23. /ax fw string-w sub string-l 1 sub div def
  24. /ay fh 0 sub string-l 1 sub div def
  25. % Wk-Wt /   brslova-1
  26.  
  27. /nx fw string-l 1 sub div def
  28.  
  29.  
  30. 0 1 9{
  31.     /i exch def
  32.    
  33.     0.5 setgray
  34.     0 0 moveto
  35.     ax ay 10 div i mul tekst ashow
  36.    
  37.     1 setgray
  38.     0 0 moveto
  39.     ax nx 10 div i mul sub  ay tekst ashow
  40.    
  41. }for
  42.  
  43. %%%%%%%%%%%%%%
  44.  
  45. /tekst (Prijelom teksta.) def
  46. /pt 40 def
  47. 1 0 1 0 setcmykcolor
  48. pisma 0 get pt selectfont
  49.  
  50. /kod (e) 0 get def
  51.  
  52. fw 2 mul 3 div   fh 6 div moveto
  53.  
  54. pt neg dup kod tekst widthshow  % dup='pt neg'
  55.  
  56. %%%%%%%%%%%%%%%%%%%%%%
  57.  
  58.  
  59. /tekst (Prijelom teksta.Prijelom teksta.Prijelom teksta.) def
  60. /pt 20 def
  61. pisma 0 get pt selectfont
  62.  
  63. /ax fw string-l 1 sub div def
  64.  
  65. 0 1 9 {
  66.     /i exch def
  67.    
  68.     0 0 moveto
  69.     0 i 9 div  1 i 9 div sub  0 setcmykcolor
  70.     tekst [tekst length {ax rand 30 mod 10 sub} repeat] xyshow
  71. }for
  72.  
  73.  
  74. %%%%%%%%%%%%%%%%%%%%%%%ss
  75. /txt [(Osgfdfg) (TgsdfgsdT) (issdpdu) (PsdaS-u)(PsdaS-u)] def
  76. /pt 2 def
  77. /blok fw 3 div def
  78. /marg blok 9 div def
  79. /t-blok blok 2 marg mul sub def
  80.  
  81. gsave
  82. fw blok sub 2 div    fh blok add 2 div translate
  83.  
  84. 1 0 0 0 setcmykcolor
  85. -15 -15 blok blok neg rectfill
  86.  
  87. 0 1 1 0 setcmykcolor
  88. 0 0 blok blok neg rectfill
  89.  
  90. marg marg neg translate
  91.  
  92. 1 setgray
  93. 0 1 txt length 1 sub {
  94.     /i exch def
  95.    
  96.     /tekst txt i get def
  97.     {
  98.         pisma i pisma length mod get pt selectfont
  99.         /ax t-blok string-w sub string-l 1 sub div def % Wk-Wt /   brslova-1
  100.        
  101.         ax 1 lt {exit} if
  102.         /pt pt 1 add def
  103.        
  104.     }loop
  105.    
  106.     0 pt 1.2 mul neg translate
  107.     0 0 moveto
  108.    
  109.     ax 0 tekst ashow
  110.    
  111.     /pt 2 def
  112.    
  113. }for
  114.  
  115. grestore
  116.  
  117.  
  118. %%%%%%%%%%%%%%
  119.  
  120. /tekst (Prema slici 1 postaviti PostScript program koji će pomoću naredbe.) def
  121. pisma 0 get 30 selectfont
  122. fw 6 div fh 5 mul 6 div moveto
  123. 0 setgray
  124. {10 5 rmoveto -20 rotate (a) show} tekst kshow
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top