diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/circuit-macros/examples/Coxeter.m4')
-rw-r--r-- | Master/texmf-dist/doc/latex/circuit-macros/examples/Coxeter.m4 | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/circuit-macros/examples/Coxeter.m4 b/Master/texmf-dist/doc/latex/circuit-macros/examples/Coxeter.m4 new file mode 100644 index 00000000000..4d186f9dbe6 --- /dev/null +++ b/Master/texmf-dist/doc/latex/circuit-macros/examples/Coxeter.m4 @@ -0,0 +1,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 |