n = Slider(1, 50, 1, 1, 200, false, true, false, false)[br]SetValue(n, 50)[br][br]N = Sequence(1, n)[br][br]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)[br][br]Execute( Sequence( "A"+k+" = Element(S, "+k+")", k, 1, Lengh(S) ) )[br][br]Execute( Sequence( "SetDynamicColor(A"+k+", "+k+"/Length(S), 1, 1)", k, 1, Length(S) ) )[br][br]Execute( Sequence( "SetLineThickness(A"+k+", 1)", k, 1, Length(S) ) )[br][br]Execute( Sequence( "SetFilling(A"+k+", 1)", k, 1, Length(S) ) )