Szkicowanie granistosłupa prawidłowego trójkątnego
Author: Jerzy Mil

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)
A = (1, 0)
B = (7, 0)
a = Segment(A, B)
D = (10, 3)
b = Segment(B, D)
c = Segment(D, A)
C = (1, 7)
d = Segment(A, C)
E = (7, 7)
e = Segment(B, E)
F = (10, 10)
f = Segment(D, F)
g = Segment(F, E)
h = Segment(E, C)
i = Segment(C, F)
krok = 9 (slider from 0 to 9, step 1)