Created
September 3, 2018 00:56
-
-
Save masashinakata/0606e7099651d6341967de79c976341b to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/show_grid { | |
/Times-Italic findfont 8 scalefont setfont | |
matrix defaultmatrix setmatrix | |
0.1 setlinewidth | |
-2000 10 2000 { | |
/i exch def | |
-2000 i moveto 4000 0 rlineto | |
-2000 i exch moveto 4000 0 exch rlineto | |
} for stroke | |
1 setlinewidth | |
-2000 100 2000 { | |
/i exch def | |
-2000 i moveto 4000 0 rlineto | |
-2000 i exch moveto 4000 0 exch rlineto | |
} for stroke | |
-2000 100 2000 { | |
/i exch def | |
-2000 100 2000 { | |
/j exch def | |
j i moveto 3 3 rmoveto | |
j ( ) cvs show | |
(,) show | |
i ( ) cvs show | |
} for | |
} for | |
} def | |
show_grid |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment