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
|
.PS
threeD_init
setview(-45,20)
bwid = 2.8
bh = 1.5
bdp = 1.8
bth = 0.3
A: project(0,0,0)
AA: A+(project(bth,bth,-bth))
B: project(0,bwid,0)
BB: B+(project(bth,-bth,-bth))
C: project(bdp,bwid,0)
D: project(bdp,0,0)
E: project(0,0,-bh)
F: project(bdp,0,-bh)
G: project(bdp,bwid,-bh)
H: B + (project(0,0,-bh))
line from A to B then to C then to D then to A then to E then to F \
then to G then to H then to E
line from C to G
line from A+(project(bth,bth,0)) to B+(project(bth,-bth,0)) \
then to C+(project(-bth,-bth,0))
L1: line to D+(project(-bth,bth,0))
L2: line to A+(project(bth,bth,0))
L4: line from E+(project(bth,bth,0)) to H+(project(bth,-bth,0))
L3: line to C+(project(-bth,-bth,-bh))
line to F+(project(-bth,bth,0)) then to A+(project(bth,bth,-bh))
L5: line from D+(project(-bth,0,-bth)) to A+(project(bth,0,-bth))
line to E+(project(bth,0,bth))
L6: line to Here+(project(0,bwid-2*bth,0))
L7: line from D+(project(0,bth,-bth)) to C+(project(0,-bth,-bth))
line to G+(project(0,-bth,bth))
L8: line to Here+(project(-bdp+2*bth,0,0))
Tmp: line invis from L8.start+(project(-bth,0,0)) up bh
line from Tmp.start to Intersect_(Tmp,L7)
Tmp: line invis from L8.end up bh
line from L8.end to Intersect_(Tmp,L7)
line from Intersect_(Tmp,L1) to BB+(project(bth,0,0))
Tmp: line invis to Here+(project(bdp,0,0))
line from Tmp.start to Intersect_(Tmp,L1)
Tmp: line invis from H up bh
line from H to Intersect_(Tmp,L7)
line from Intersect_(Tmp,L1) to B+(project(bth,-bth,0))
Tmp: line invis from AA to AA+(project(0,bwid,0))
Tmp2: line invis up bh from L6.end
line from Intersect_(Tmp,L2) to Intersect_(Tmp2,Tmp) \
then to Intersect_(Tmp2,L1)
line from L6.end to Intersect_(Tmp2,L7)
Tmp: line invis down bh from AA
line from Intersect_(Tmp,L6) to Intersect_(Tmp,L5)
Tmp: line invis down bh from D
line from D to Intersect_(Tmp,L6)
line from Intersect_(Tmp,L4) to F+(project(-bth,bth,0))
Tmp: line invis from L5.start to L5.start+(project(0,0,-bh))
move to E+(project(0,2*bth,0))
Tmp2: line invis to Here+(project(bdp,0,0))
line from L5.start to Intersect_(Tmp,L6)
line from Intersect_(Tmp,L4) to Intersect_(Tmp,Tmp2) \
then to Intersect_(Tmp2,L4)
Tmp: line invis from L7.start to L7.start+(project(0,0,-(bh-bth)))
line from L7.start to Intersect_(Tmp,L6)
move to G+(project(-2*bth,0,0))
Tmp2: line invis to Here+(project(0,-bwid,0))
line from Intersect_(Tmp2,L3) to Intersect_(Tmp,Tmp2)
line from Intersect_(Tmp,L4) to Intersect_(Tmp2,Tmp)
.PE
|
