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
|