-
Notifications
You must be signed in to change notification settings - Fork 46
/
Copy pathshep61_f3.pic
74 lines (58 loc) · 1.73 KB
/
shep61_f3.pic
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
.ps 10
.PS 2.2 3.3
# shep61_f3.pic, 13 Nov 16
define square_ring {
C: circle $1 thickness 0.2
move to last circle.s
line down 0.3 outline "blue"
move to last circle.se
line down 0.1 right 0.2 outline "blue"
circle $2 thickness 0.2
move to last circle.s
line down 0.3 outline "blue"
move to last circle.e
line right 0.3 outline "blue"
circle $3 thickness 0.2
move to last circle.s
line down 0.3 outline "blue"
move to last circle.nw
line up 0.1 left 0.2 outline "blue"
circle $4 thickness 0.2
move to last circle.s
line down 0.3 outline "blue"
move to last circle.w
line left 0.3 outline "blue"
move to C.s
move down 0.3
circle $5 thickness 0.2
move to last circle.se
line down 0.1 right 0.2 outline "blue"
circle $6 thickness 0.2
move to last circle.e
line right 0.3 outline "blue"
circle $7 thickness 0.2
move to last circle.nw
line up 0.1 left 0.2 outline "blue"
circle $8 thickness 0.2
move to last circle.w
line left 0.3 outline "blue"
move up 0.1
move right 0.1
$9
}
circlerad=0.02
fillval=1.0
linewid=0.2
move to -0.9, 1.4
square_ring(colored "red", colored "red", , , colored "red", colored "red", , , "I")
move to -0.9, 0.7
square_ring(colored "red", colored "red", , , , , colored "red", colored "red", "II")
move to -0.9, 0.0
square_ring(colored "red", colored "red", colored "red", , colored "red", , , , "III")
move to 0, 1.4
square_ring(colored "red", colored "red", , colored "red", colored "red", , , , "IV")
move to 0, 0.7
square_ring(colored "red", colored "red", , , colored "red", , colored "red", , "V")
move to 0, 0.0
square_ring(colored "red", , colored "red", , , colored "red", , colored "red", "VI")
.PE