This repository has been archived by the owner on Feb 7, 2019. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 20
/
Copy pathcc.eps
124 lines (107 loc) · 1.79 KB
/
cc.eps
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
112
113
114
115
116
117
118
119
120
121
122
123
124
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 5 5 400 600
%%LanguageLevel: 2
%This is an attempt to produce an 2D tile
%based on circles and corners
%two circles and two corners
%diagonals and up, down, left, right
/q1{
gsave
1 1 1 0 360 arc stroke
4 4 1 0 360 arc stroke
5 2 moveto
-2 0 rlineto
0 -2 rlineto
2 5 moveto
0 -2 rlineto
-2 0 rlineto
stroke
grestore
}def
/q2{
gsave
1 4 1 0 360 arc stroke
4 1 1 0 360 arc stroke
2 0 moveto
0 2 rlineto
-2 0 rlineto
3 5 moveto
0 -2 rlineto
2 0 rlineto
stroke
grestore
}def
/q3{
gsave
1 1 1 0 360 arc stroke
4 1 1 0 360 arc stroke
0 3 moveto
2 0 rlineto
0 2 rlineto
3 3 moveto
2 0 rlineto
3 3 moveto
0 2 rlineto
stroke
grestore
}def
/q4{
gsave
1 4 1 0 360 arc stroke
4 4 1 0 360 arc stroke
2 0 moveto
0 2 rlineto
-2 0 rlineto
3 0 moveto
0 2 rlineto
2 0 rlineto
stroke
grestore
}def
/q5{
gsave
1 1 1 0 360 arc stroke
1 4 1 0 360 arc stroke
3 0 moveto
0 2 rlineto
2 0 rlineto
5 3 moveto
-2 0 rlineto
0 2 rlineto
stroke
grestore
}def
/q6{
gsave
4 1 1 0 360 arc stroke
4 4 1 0 360 arc stroke
2 0 moveto
0 2 rlineto
-2 0 rlineto
0 3 moveto
2 0 rlineto
0 2 rlineto
stroke
grestore
}def
/sym [ //q6 //q4 //q2 //q1 //q3 //q5 ] def
/range sym length def
/rNum {rand range mod} def
%Initial setup
5 5 scale
0 setlinewidth
2 2 translate
%Start drawing
%horizontal boxes >> 15
%veritcal boxes >> 22
23 {
14 {
% select a random symbol to be drawn
sym rNum get exec
5 0 translate
} repeat
%go up one row
-70 5 translate
} repeat
showpage
%%EOF