Graniastosłup prawidłowy sześcioką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 = 18 (slider from 0 to 18, step 1)
A = (3, 0)
B = (7, 0)
a = Segment(A, B)
C = (9, 1)
b = Segment(B, C)
D = (8, 2)
c = Segment(C, D)
E = (4, 2)
d = Segment(D, E)
F = (2, 1)
e = Segment(E, F)
f = Segment(F, A)
G = (2, 8)
g = Segment(F, G)
H = (3, 7)
h = Segment(A, H)
I = (7, 7)
i = Segment(B, I)
J = (9, 8)
j = Segment(C, J)
K = (8, 9)
k = Segment(D, K)
L = (4, 9)
l = Segment(E, L)
m = Segment(G, H)
n = Segment(H, I)
p = Segment(I, J)
q = Segment(J, K)
r = Segment(K, L)
s = Segment(L, G)