50 lines
1018 B
Julia
50 lines
1018 B
Julia
using AbstractPlotting
|
||
using AbstractPlotting.MakieLayout
|
||
using GLMakie
|
||
|
||
# GUI for spirograph
|
||
# https://en.wikipedia.org/wiki/Spirograph
|
||
|
||
function x(t; R=1, k=1/4, l=1/4)
|
||
R*[(1-k)*cos(t) + l*k*cos((1-k)/k*t), (1-k)*sin(t) - l*k*sin((1-k)/k*t)]
|
||
end
|
||
|
||
# where we lay our scene:
|
||
scene, layout = layoutscene()
|
||
|
||
flyt = GridLayout()
|
||
flyt.halign[] = :left # fails?
|
||
flyt.valign[] = :top
|
||
|
||
layout[1,1] = flyt
|
||
p = layout[1,2] = LAxis(scene)
|
||
rowsize!(layout, 1, Relative(1))
|
||
colsize!(layout, 2, Relative(2/3))
|
||
|
||
flyt[1,1] = LText(scene, "t")
|
||
ts = flyt[1,2] = LSlider(scene, range = 2pi:pi/8:40pi)
|
||
|
||
flyt[2, 1] = LText(scene, "k = r/R")
|
||
k = flyt[2,2] = LSlider(scene, range = 0.01:0.01:1.0, startvalue=1/4)
|
||
|
||
flyt[3,1] = LText(scene, "l=ρ/r")
|
||
l = flyt[3,2] = LSlider(scene, range = 0.01:0.01:1.0, startvalue=1/4)
|
||
|
||
|
||
data = lift(ts.value, k.value, l.value) do ts,k,l
|
||
|
||
ts′ = range(0, ts, length=1000)
|
||
xys = Point2f0.(x.(ts′, R=1, k=k, l=l))
|
||
|
||
end
|
||
|
||
lines!(p, data)
|
||
xlims!(p, (-1, 1))
|
||
ylims!(p, (-1, 1))
|
||
|
||
|
||
|
||
|
||
scene
|
||
|