Magic flower
Script
f(x,y,z,w) = w + (((abs(cos(z * y))) + (0.25 - (abs(cos(z * y+pi/2)))))*2)/(2+(abs(cos(z * x + pi/2)) * 8))
a1: Curve((f(6,3,θ,1); θ), θ, 0, 2*pi)
a2: Curve((f(6,3,θ,2); θ), θ, 0, 2*pi)
a3: Curve((f(12,6,θ,3); θ), θ, 0, 2*pi)
a4: Curve((f(12,6,θ,4); θ), θ, 0, 2*pi)
Execute(Zip("SetDynamicColor(a"+k+", 0.8, 0.15, "+k+"/4, 1-0.6*"+k+"/4)", k, 1..4))
Execute(Zip("ShowLabel(a"+k+", false)", k, 1..4))
Execute(Zip("SetLayer(a"+k+", 5-"+k+")", k, 1..4))
SetBackgroundColor("BLACK")
ShowAxes(false)
ShowGrid(false)
CenterView((0,0))
Inspired from this question:
https://www.reddit.com/r/geogebra/comments/1bu85ro/how_to_create_this_from_the_equations/