summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/Coxeter.m4
diff options
context:
space:
mode:
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.m438
1 files changed, 0 insertions, 38 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
deleted file mode 100644
index 4d186f9dbe6..00000000000
--- a/Master/texmf-dist/doc/latex/circuit-macros/examples/Coxeter.m4
+++ /dev/null
@@ -1,38 +0,0 @@
-.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