daily pastebin goal
88%
SHARE
TWEET

Untitled

a guest Jan 2nd, 2018 85 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. %!PS-Adobe-2.0
  2. %%Creator: Francisco Castro
  3. %%Title: DotKei
  4. %%LanguageLevel: 2
  5. %%DocumentMedia: plain 595 842 0 () ()
  6. %%BoundingBox: 0 0 595 842
  7. %%Pages: 2
  8. %%EndComments
  9.  
  10. %%BeginProlog
  11. /mm {25.4 div 72 mul} def
  12. /drawlines {7 dict begin
  13.   gsave
  14.   % local variables w, h, gs, ds, xo & yo:
  15.   dup /width get /w exch def
  16.   dup /height get /h exch def
  17.   dup /gridsize get /gs exch def
  18.   /dotsize get /ds exch def
  19.   /xo currentpoint /yo exch def def
  20.   % first draw lines
  21.   0 1 h {
  22.     xo exch gs mul yo add moveto
  23.     w gs mul 0 rlineto stroke
  24.   } for
  25.   % then draw the grid
  26.   0 1 h { /y exch def
  27.     1 1 w 1 sub {
  28.       gs mul xo add ds 2 div sub
  29.       y gs mul yo add ds 2 div sub
  30.       ds ds rectfill
  31.     } for
  32.   } for
  33.   grestore
  34. end} def
  35.  
  36. /singlepage {gsave
  37.   0 setgray
  38.   0.1 mm setlinewidth
  39.   210 32 6 mul sub 2 div  mm % center
  40.   10 mm moveto
  41.   <<
  42.     /width 32
  43.     /height 46
  44.     /gridsize 6 mm
  45.     /dotsize 0.3 mm
  46.   >> drawlines
  47. grestore} def
  48.  
  49. /doublepage {gsave
  50.   0 setgray
  51.   0.1 mm setlinewidth
  52.   90 rotate
  53.   297 2 div  24 5.5 mul sub 10 sub mm  -202 mm moveto
  54.   <<
  55.     /width 24
  56.     /height 35
  57.     /gridsize 5.5 mm
  58.     /dotsize 0.3 mm
  59.   >> dup drawlines
  60.   297 2 div  10 add mm  -202 mm moveto drawlines
  61. grestore} def
  62. %%EndProlog
  63.  
  64. %%Page: 1 1
  65. singlepage
  66. showpage
  67.  
  68. %%Page: 2 2
  69. doublepage
  70. showpage
  71.  
  72. %%EOF
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