% illustrations for mmix.w
|
% illustrations for mmix.w
|
|
|
beginfig(1)
|
beginfig(1)
|
numeric r; r=.5in; % radius of circle
|
numeric r; r=.5in; % radius of circle
|
numeric rr; rr=.9in; % radius of arc
|
numeric rr; rr=.9in; % radius of arc
|
|
|
pickup pencircle scaled .6pt;
|
pickup pencircle scaled .6pt;
|
draw (r,0){up}...(0,r){left}...(-r,0){down}...(0,-r){right}...cycle;
|
draw (r,0){up}...(0,r){left}...(-r,0){down}...(0,-r){right}...cycle;
|
pickup pencircle scaled .3pt;
|
pickup pencircle scaled .3pt;
|
for a=-45, 30, 180:
|
for a=-45, 30, 180:
|
z[a]=(r+10pt,0) rotated (a+10);
|
z[a]=(r+10pt,0) rotated (a+10);
|
draw ((r-4pt,0)--(r+20pt,0)) rotated a;
|
draw ((r-4pt,0)--(r+20pt,0)) rotated a;
|
endfor
|
endfor
|
label.rt(btex $\alpha$ etex,z[-45]-(2pt,6pt));
|
label.rt(btex $\alpha$ etex,z[-45]-(2pt,6pt));
|
label.rt(btex $\beta$ etex,z[30]+(0,2pt));
|
label.rt(btex $\beta$ etex,z[30]+(0,2pt));
|
label.lft(btex $\gamma$ etex,z[180]);
|
label.lft(btex $\gamma$ etex,z[180]);
|
|
|
drawdblarrow ((rr,0) rotated-45){dir 45}...((rr,0) rotated 30){dir 120};
|
drawdblarrow ((rr,0) rotated-45){dir 45}...((rr,0) rotated 30){dir 120};
|
label.rt(btex $L$ etex,(rr+8pt,0) rotated -10);
|
label.rt(btex $L$ etex,(rr+8pt,0) rotated -10);
|
endfig;
|
endfig;
|
|
|
bye.
|
bye.
|
|
|
|
|
