SHARE
TWEET

Untitled

a guest Apr 4th, 2018 102 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.  
  3. /tekst ( aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa
  4. f
  5.  
  6. aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa aasddsa   ]: ) def
  7.  
  8. /pismo /Palatino def  
  9. %()
  10. /pt 13 def
  11. /prored pt 1.3 mul def
  12.  
  13.  
  14. /mm {0.35277 div} def
  15. /format [210 mm 297 mm] def
  16. /margine [100 150] def
  17. /tekst-blok [300 500] def
  18. /br_stupaca 3 def
  19. /kanal prored 2 mul def
  20.  
  21. /poravnanje (L) def  % L,R,CJ
  22.  
  23. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  24.  
  25.  
  26. /splitter ( ) def
  27.  
  28. /split {
  29.     splitter [3 1 roll{search{3 1 roll}{exit}ifelse}loop]
  30.     } bind def
  31.  
  32. /concatinate {
  33.     exch dup length 2 index length add string dup dup
  34.     4 2 roll copy length 4 -1 roll putinterval
  35.     } bind def
  36.    
  37.     %%%%%%%%%%%%%%%%%%%%
  38.    
  39. /rijeci tekst split def
  40. /sirina_stupca tekst-blok 0 get kanal br_stupaca 1 sub mul sub br_stupaca div def      % sir_bloka - kanal*(br_stup -1)/br_stup
  41. /maks_redaka tekst-blok 1 get prored div cvi def  
  42.  
  43. /redak_br 0 def
  44. /stupac_br 0 def
  45. %%%%%%%%%%
  46.  
  47. margine 0 get format 1 get margine 1 get sub translate
  48.  
  49.  
  50.  
  51. pismo pt selectfont
  52.  
  53. /ispis {
  54.    
  55.     redak_br maks_redaka ne
  56.     {
  57.         0 prored neg translate
  58.         /redak_br redak_br 1 add def
  59.         }
  60.     {
  61.         sirina_stupca kanal add maks_redaka 1 sub prored mul translate
  62.         /redak_br 1 def
  63.         /stupac_br stupac_br 1 add def
  64.    
  65.         }ifelse
  66.        
  67.        
  68.      0 0 moveto
  69.      
  70.      stupac_br br_stupaca ne {show} {exit} ifelse
  71.     }def
  72.  
  73. /novi_redak () def
  74.  
  75.  
  76.  
  77. {
  78.     /probni_redak novi_redak rijeci 0 get concatinate def
  79.    
  80.     probni_redak stringwidth pop  sirina_stupca lt {
  81.            
  82.             /novi_redak probni_redak splitter concatinate def
  83.             /rijeci rijeci 1 rijeci length 1 sub getinterval def           
  84.            
  85.         } {
  86.             novi_redak ispis
  87.             /novi_redak () def
  88.            
  89.             } ifelse
  90.    
  91.     rijeci length 0 eq {novi_redak ispis exit} if
  92.    
  93.     } loop
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