Graniastosłup prawidłowy czworokątny
Author: Monika Czepukojć

lista1 = Sequence(Segment[(-1 * 0.3, i), (10.3, i)], i, 0, 10)
lista2 = Sequence(Segment[(i, -1 * 0.3), (i, 10.3)], i, 0, 10)
krok = 12 (slider from 0 to 12, step 1)
A = (1, 0)
B = (5, 0)
a = Segment(A, B)
C = (3, 2)
b = Segment(A, C)
D = (7, 2)
c = Segment(B, D)
d = Segment(C, D)
E = (1, 7)
e = Segment(A, E)
F = (3, 9)
f = Segment(C, F)
G = (5, 7)
g = Segment(B, G)
H = (7, 9)
h = Segment(D, H)
i = Segment(E, G)
j = Segment(G, H)
k = Segment(H, F)
l = Segment(F, E)