Spiky flower
Script
n = Slider(1, 50, 1, 1, 200, false, true, false, false)
SetValue(n, 50)
N = Sequence(1, n)
S = Zip(Polygon((0, 0, 0), (2cos((k π) / 7), 2sin((k π) / 7), k / 30), (3cos(((k + 1) π) / 7), 3sin(((k + 1) π) / 7), k / 15)), k, N)
Execute( Sequence( "A"+k+" = Element(S, "+k+")", k, 1, Lengh(S) ) )
Execute( Sequence( "SetDynamicColor(A"+k+", "+k+"/Length(S), 1, 1)", k, 1, Length(S) ) )
Execute( Sequence( "SetLineThickness(A"+k+", 1)", k, 1, Length(S) ) )
Execute( Sequence( "SetFilling(A"+k+", 1)", k, 1, Length(S) ) )