summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/Coxeter.m4
blob: 4d186f9dbe6e9ac5526ca57e617aa3cf2dfe12c2 (plain)
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