SHARE
TWEET

Untitled

a guest Jan 22nd, 2018 105 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 10 translate
  2. /mreza {0.5 0.3 0 0 setcmykcolor
  3. /xOs 500 def
  4. /yOs 600 def
  5. gsave
  6. 2 setlinewidth xOs 0 moveto 0 0 lineto 0 yOs lineto stroke
  7. grestore
  8. gsave
  9. 0.3 setlinewidth
  10. 6 { 30 100 moveto xOs 100 lineto stroke 0 100 translate } repeat
  11. grestore
  12. gsave
  13. 0.3 setlinewidth
  14. 5 { 100 20 moveto 100 yOs lineto stroke 100 0 translate } repeat
  15. grestore
  16. gsave
  17. /tekst 3 string def /Helvetica findfont 10 scalefont setfont
  18. 100 100 yOs { /y exch def 5 y 2 sub moveto y tekst cvs show } for
  19. 90 100 xOs { /x exch def x 5 moveto x 10 add tekst cvs show } for
  20. grestore
  21. 0 setgray } bind def
  22.  
  23. mreza
  24.  
  25.  
  26.  
  27.  
  28. 250 250 250 0 360 arc
  29.  
  30. clip
  31. newpath
  32.  
  33.  
  34. 0 10 500 {
  35.     /i exch def
  36.    
  37.     /a i 500 div def
  38.     /b 1 a sub def
  39.  
  40.     0 i moveto
  41.     500 i lineto
  42.     a 0 b setrgbcolor
  43.     1 setlinewidth
  44.     stroke
  45.  
  46.     250 0 moveto         
  47.     i 0                  
  48.     250 500              
  49.     i 500                
  50.     curveto
  51.     a 1 b setrgbcolor
  52.     10 setlinewidth
  53.     stroke
  54.  
  55. }for
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