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) ) )