hyperbolic_tilings/triangle_group.plt

21 lines
485 B
Gnuplot

#if(!exists("param")) param = log(0.3810364354550512)
if(!exists("param")) param = log(2.764)
print sprintf("param = %f", exp(param))
file = sprintf("< ./triangle_group %f", exp(param))
set zeroaxis
set size square
set xrange [0:20]
set yrange [0:20]
set grid
set parametric
plot file using 2:3 w p pt 7 ps 0.5 lc 1 t ""
pause mouse keypress
if(MOUSE_KEY == 60) param=param-0.02
if(MOUSE_KEY == 62) param=param+0.02
if(MOUSE_KEY == 13) param=log(2.764)
if(MOUSE_KEY != 113) reread