SHARE
TWEET

Untitled

a guest Apr 18th, 2018 89 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. /pisma [/Helvetica-Narrow] def
  8.  
  9. /tekst (Benjamin Cacan) def
  10. /debljinaLinije 20 def
  11.  
  12. %%%%%%%%%%%%%%
  13. 0 0 0.2 0 setcmykcolor
  14. 0 0 fw fh rectfill
  15. %%%%%%%%%%%%%%
  16. %%%%%%%%%%%%%%
  17. 0 1 0 0 setcmykcolor
  18. pisma 0 get 50 selectfont
  19. 325 300 moveto
  20. (G r u p a) show
  21. 500 350 moveto
  22. (H) show
  23. %%%%%%%%%%%%%%
  24.  
  25.  
  26. %%%%%%%%%%%%%%
  27. 0 setgray
  28. 8 setlinewidth
  29. pisma 0 get 120 selectfont
  30. 50 150 moveto
  31. tekst false charpath
  32. stroke
  33.  
  34.  
  35.  pisma 0 get 120 selectfont
  36. 50 150 moveto
  37. tekst false charpath
  38.  
  39. clip
  40. newpath
  41. %%%%%%%%%%%%%%
  42.  
  43.  
  44. %%%%%%%%%%%%%%
  45. debljinaLinije setlinewidth
  46.  
  47.  %%%%%%%%%%%%%%/b rand 10 sub def
  48.  
  49. 0 1 50 {
  50.     /i exch def
  51.     /ii i 50 div rand 3 mod mul def
  52.     /i2 1 ii sub rand 4 mod mul def
  53.     /i3 ii i2 sub rand 3 mod mul def
  54.    
  55.     i3 ii i2 0 setcmykcolor
  56.    
  57.    
  58.     /xx i debljinaLinije mul  150 sub def
  59.     xx 0 moveto
  60.     xx 100 add fh lineto
  61.  
  62.     stroke
  63.    
  64. }for
  65.  
  66. %%%%%%%%%%%%%%
  67.  
  68. 0 1 100 {
  69.     /i exch def
  70.     /ii rand 15 mod 10 div def
  71.     /rr rand 15 mod 2 sub def
  72.    
  73.     0 0 0 0 setcmykcolor
  74.     i 10 mul ii 150 mul rr 0 360 arc fill
  75.    
  76.    
  77. }for
  78. %%%%%%%%%%%%%%
  79. %%%%%%%%%%%%%%
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90. % {
  91.     % /probni_redak novi_redak rijeci 0 get concatinate def
  92.    
  93.     % probni_redak stringwidth pop  sirina_stupca lt {
  94.            
  95.             % /novi_redak probni_redak splitter concatinate def
  96.             % /rijeci rijeci 1 rijeci length 1 sub getinterval def          
  97.            
  98.         % } {
  99.             % novi_redak ispis
  100.             % /novi_redak () def
  101.            
  102.             % } ifelse
  103.    
  104.     % rijeci length 0 eq {novi_redak ispis exit} if
  105.    
  106.     % } 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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top