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
|
.PS
# Coxeter.m4
darrow_init
customlinethick = 1.5
linethick = customlinethick
define(`dotrad_',`(3/2*linethick pt__)')
Orig: (0,0)
for i=0 to 4 do { P[i]: dot(at (i*linewid,0)) }
line from Orig to P[4]
P[-1]: dot(at (Rect_(linewid, 120))); line to Orig
P[-2]: dot(at (Rect_(linewid,-120))); line to Orig
Pa: dot(at P[4]+(linewid,0)); "$a$" at last [].n above
arrow from P[4] to Pa chop linewid/4
Pd: dot(at Pa+(linewid,0)); "$d$" at last [].w rjust
Pe: dot(at Pd+(linewid,0)); "$e$" at last [].n above
Pf: dot(at Pe+(linewid,0)); "$f$" at last [].n above
Pb: dot(at Pd+(Rect_(linewid,120))); "$b$" at last [].w rjust
Pc: dot(at Pd+(Rect_(linewid,-120))); "$c$" at last [].w rjust
line from Pb to Pd then to Pc
line from Pd to Pf
define(`customarc',
`pushdef(`dfillcolor',`0.7,0.7,0.7') linethick_(0.4); dnl
Darc(`$1',linewid, (`$2')*dtor_, (`$3')*dtor_,
thick=linewid/6; wid=linewid*0.3; ht=linewid/6; ends=<->)dnl
linethick_(customlinethick); popdef(`dfillcolor')')
customarc((linewid,-linewid/3), 25,155); "$d$" at (linewid,linewid*2/3)
customarc((2*linewid,-linewid/3), 25,155); "$e$" at (2*linewid,linewid*2/3)
customarc((3*linewid,-linewid/3), 25,155); "$f$" at (3*linewid,linewid*2/3)
customarc(Orig,130,230); "$a$" at (Rect_(linewid,180))
customarc(Orig, 10,110); "$b$" at (Rect_(linewid, 60))
customarc(Orig,-110,-10); "$c$" at (Rect_(linewid,-60))
.PE
|