summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Wheel.m4
blob: 934c4c46dbde93ceb24d00581f6ff59322d450c3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
.PS
# Wheel.m4
# https://tex.stackexchange.com/questions/605178/drawing-a-directed-wheel-graph-with-tikz
gen_init

  linethick = 1.6
  nnodes = 9
  brad = 2
  srad = circlerad/2
  P: circle rad srad at (1,0.5) fill_(0.75)
  A: Rect_(brad,90+360/nnodes)
  for i=1 to nnodes do {
    B: circle invis shaded "lightgray" at Rect_(brad,90-(i-1)/nnodes*360) \
      sprintf("\Huge %g",i) 
    line from B to P chop circlerad chop srad
    line from B to A chop
    A: B
    }

.PE