14 lines
413 B
Plaintext
14 lines
413 B
Plaintext
## {k,inf} but with ultra-ideal vertices
|
|
intslider(sides,3,3,MAX_EDGE)
|
|
slider(multiplier, 1.1, 1, 2)
|
|
h2.
|
|
|
|
# multiplier > 1 produces the appropriate parameters for ultraideal vertices
|
|
# this produces a Klein regular sides-gon with circumradius multiplier
|
|
let(ia = ideal_angle(sides, multiplier))
|
|
let(ie = ideal_edge(sides, multiplier))
|
|
tile(0, [ia, ie, ia], *sides)
|
|
|
|
conway("(0 0)")
|
|
#repeat(0, sides)
|