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
125
126
127
128
129
130
131
132
133
134
135
136
|
.PS
# ex09.m4
# Illustrating the arguments of the `dimension_' macro.
gen_init
sinclude(F_ex09.dim)
sinclude(examples.dim)
s_init(ex09)
scale = 25
define(`spacer',`
[
iflatex(`ifpsfrag(`textht = 7.5bp__; textoffset = 0.5bp__',
`latexcommand({\sf)') ')
linethick_(1.0)
WC: circle diameter 4.22 at 0,0
EC: circle same at 30.15,0
NC: circle diameter 2.36 at 13.28, 10.92/2
SC: circle same at 13.28,-10.92/2
C: 0.5<WC,EC> # spacer centre
h = 27.26 # spacer height
s = 4.22/2 # small arc radius
r = h/2*0.80 # large arc radius
Cr: C+(0,h/2-r) # upper arc centre
e = s # small arc centre offset from small circle
Cs: EC+(e,0) # right arc centre
# Tangent points Tr and Ts to circles at Cr and Cs
dx = Cr.x-Cs.x; dy = Cr.y-Cs.y; dsq = dx*dx+dy*dy
Tr: (r*(r-s)/dsq)<Cr,Cs> + (vscal_(r*sqrt(dsq-(r-s)^2)/dsq,dy,-dx))
Ts: (s/r)<Cr,Tr>-(dx,dy)
line from Tr to Ts
arc cw to (Ts.x,-Ts.y) with .c at Cs
E: last arc.e
line to (Tr.x,-Tr.y)
arc cw to (C.x-(Here.x-C.x),Here.y) with .c at (Cr.x,-Cr.y)
S: last arc.s
line to (Cs.x-Ts.x-s,Cs.y-Ts.y)
arc cw to (Here.x,-Here.y) with .c at (-e,0)
W: last arc.w
line to (C.x-(Tr.x-C.x),Tr.y)
arc cw to Tr with .c at Cr
N: last arc.n
thinlines_
dimension_(from S+(2,0) to N+(2,0),-(E.x-C.x+4),s_box(27.76), H)
dimension_(from SC.n+(0,2) left SC.x-WC.x, (SC.n.y-S.y+3), s_box(13.28), W)
dimension_(from WC.n+(0,2) right EC.x-WC.x,-(WC.n.y-S.y+7), s_box(30.15), W)
dimension_(from W+(0,-1.5) to E+(0,-1.5), -(C.y-S.y+8), s_box(41.28), W)
dimension_(from SC.e+(2,0) up NC.y-SC.y, (SC.e.x-W.x+8), s_box(10.92), H)
arrow <- from EC left 6 up 16 chop EC.rad chop 0
line left 4 "4.22 (2) PL" above
arrow <- from NC up last line.y-NC.y+7/8 left 8 chop NC.rad chop 0
{"2.36" above}
arrow to SC chop 0 chop SC.rad
iflatex(`ifpsfrag(,`latexcommand(})')')
] ')
define(`sk',`scale*0.7')
define(`bdot',
`dot(`$1',,0.5)
s_box($`$2'$\strut) `$1' `$3' ')
thinlines_
# Upper left diagram
spacer
# Lower left diagram
[ define(`lwid',`29bp__')
A: bdot(at (0,0),A,below)
B: bdot(at (2*sk,0),B,below)
Ctr: 0.5 between A and B
linethick_(1)
dimension_(from A to B,0.5*sk,\sl label,lwid,0.1*sk)
s_box(`\tt dimension\_(from A to B,0.5,\char92 sl label,29bp\_\_,0.1)') \
with .sw at A+(-0.8*sk,-0.7*sk)
thinlines_
arrow from A to B chop 0.05*sk "\sl linespec" below
dimension_(up_ 0.5*sk from A,0.2*sk,"\sl offset\ {}" rjust,,,->)
dimension_(up_ 0.1*sk from B,-0.2*sk)
s_box(\ \sl tic offset) with .nw at 2nd last arrow
dimension_(up_ 0.1*sk from B+(0,0.5*sk),-0.2*sk)
s_box(\ \sl tic offset) with .nw at 2nd last arrow
dimension_(from Ctr+(-lwid/2,0.5*sk) right lwid,0.2*sk,
"\strut\sl blank width" above)
move up 1*sk from A
] with .nw at last [].sw+(0,-0.6*sk)
# Right diagram
[ A: bdot(at (0,0),A, above rjust)
B: bdot(at (2*sk,0),B, above ljust)
C: bdot(at (0,-1.5*sk),C, above rjust)
D: bdot(at (2*sk,-1.5*sk),D, above ljust)
T: C+(-1*sk,-0.5*sk)
T: C+(-0.45*sk,-1.0*sk)
dimension_(from A to B,0.3*sk,$AB$,20bp__)
s_box(`\tt dimension\_(from A to B,0.3,\$AB\$,20bp\_\_)') \
with .sw at T
dimension_(from C to B chop dotrad_,,$X$,16bp__)
s_box(`\tt dimension\_(from C to B,,\$X\$,16bp\_\_)') \
with .sw at T+(0,-13bp__)
dimension_(from C to A,0.3*sk,$CA$,14bp__,,->)
s_box(`\tt dimension\_(from C to A,0.3,\$CA\$,14bp\_\_,,->)') \
with .sw at T+(0,-2*13bp__)
dimension_(from D to B,-0.3*sk,"$DB$" ljust)
s_box(`\tt dimension\_(from D to B,-0.3,\"\$DB\$\" ljust)') \
with .sw at T+(0,-3*13bp__)
dimension_(from C to D chop dotrad_,,s_box($T^{%g}$,15),W)
s_box(
`\tt dimension\_(from C to D,,s\_box(\$T\char94\char123\%g\char125\$,15),W)')\
with .sw at T+(0,-4*13bp__)
arcdimension_(from C to D with .c at \
0.5 between A and B,12bp__,s_box($C$ to $D$),W)
s_box(
`\tt arcdimension\_(from C to D with .c at \smash{\char92}') \
with .sw at T+(0,-5*13bp__)
s_box(`\tt 0.5 between A and B,12bp\_\_,s\_box(\$C\$ to \$D\$),W)') \
with .sw at T+(5,-6*13bp__)
] with .nw at 1st [].ne+(0.8*sk,0)
.PE
|
