-
Notifications
You must be signed in to change notification settings - Fork 0
/
octtest.ps
111 lines (91 loc) · 1.92 KB
/
octtest.ps
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
%!PS-3.0
%%BoundingBox: 1 1 594 841
%%DocumentMedia: A4 595 842 0 () ()
%%EndComments
%%BeginFeature: *PageSize A4
<< /PageSize [595 842] >> setpagedevice
%%EndFeature
28.3464567 dup scale
2 setlinejoin
newpath
0.5 0.5 moveto
20.5 0.5 lineto
20.5 29.2 lineto
0.5 29.2 lineto
closepath clip newpath
/height 29.7039 def
/width 20.9903 def
width 0.5 mul height 0.5 mul translate
0.02 setlinewidth
/scale 0.1 def % 0.3 is a good scale
/octagon
{
newpath
0 scale mul 7 scale mul moveto
1 scale mul 7 scale mul lineto
1 scale mul 8 scale mul lineto stroke
newpath
1 scale mul 7 scale mul moveto
4 scale mul 8 scale mul lineto
7 scale mul 7 scale mul lineto
8 scale mul 7 scale mul lineto stroke
newpath
7 scale mul 8 scale mul moveto
7 scale mul 7 scale mul lineto
8 scale mul 4 scale mul lineto
7 scale mul 1 scale mul lineto
8 scale mul 1 scale mul lineto stroke
newpath
7 scale mul 0 scale mul moveto
7 scale mul 1 scale mul lineto
4 scale mul 0 scale mul lineto
1 scale mul 1 scale mul lineto
0 scale mul 1 scale mul lineto stroke
newpath
1 scale mul 0 scale mul moveto
1 scale mul 1 scale mul lineto
0 scale mul 4 scale mul lineto
1 scale mul 7 scale mul lineto stroke
newpath
4 scale mul 6 scale mul moveto
7 scale mul 7 scale mul lineto
6 scale mul 4 scale mul lineto
7 scale mul 1 scale mul lineto
4 scale mul 2 scale mul lineto
1 scale mul 1 scale mul lineto
2 scale mul 4 scale mul lineto
1 scale mul 7 scale mul lineto
4 scale mul 6 scale mul lineto
6 scale mul 4 scale mul lineto
4 scale mul 2 scale mul lineto
2 scale mul 4 scale mul lineto
4 scale mul 6 scale mul lineto stroke
} def
/quant 7 scale div def %forloop size
/mydraw
{
quant -1 mul 1 quant
{
/x exch def
quant -1 mul 1 quant
{
/y exch def
gsave
8 scale x mul mul 8 scale y mul mul translate
octagon
grestore
}
for
}
for
} def
0.0 setgray
0.3 setlinewidth
mydraw
1.0 setgray
0.15 setlinewidth
mydraw
0.0 setgray
0.05 setlinewidth
mydraw
showpage