f = OrthogonalLine((0, 0, 0), xOyPlane)
c = Circle((0, 0, 0), (3, 0, 0), xOyPlane)
A = Intersect(xAxis, yAxis)
B = (3, 0)
C = Rotate(B, 36°, A)
α = Angle(B, A, C)
t1, c_1, a, b = Polygon(A, B, C)
v = 0.6 (slider from 0.1 to 1, step 0.1)
d, D, E, F, stenaABED, stenaBCFE, stenaACFD, stenaDEF, hranaAD, hranaBE, hranaCF, hranaDE, hranaEF, hranaDF = Prism(t1, v)
p = 1 (slider from 1 to 20, step 1)
V = Vector((0, 0, (p * v)))
R = Rotate(d, (p * α))
P = Translate(R, V)
l1 = Sequence(Translate[Rotate[d, (p * α)], Vector[(0, 0, (p * v))]], n, 1, p)