Rotate View

Animate

Reset

One Layer

One Layer

Face

Moving Face

Moving Face

oblique = 2.5132741228718345 rad (slider from 100° to 170°, step °)
depth = 3 (slider from 1 to 5, step 1)
width = 5 (slider from 2 to 5, step 1)
A = Intersect(xAxis, yAxis)
height = 5 (slider from 2 to 5, step 1)
B: A + (width, 0)
C: B + (0, height)
D: A + (0, height)
poly1, a_1, b_1, c, d = Polygon(A, B, C, D)
n_1 = If(depth ≟ 1, 0, If[depth ≟ 2, 1, If[depth ≟ 3, 2, If[depth ≟ 4, 3, If[depth ≟ 5, 4]]]])
J: A + (0, depth)
E = Midpoint(A, J)
e = OrthogonalLine(E, d)
f = Circle(E, A)
F: (x(A) + ((0.7 * depth) * cos(oblique)), y(A) + ((0.7 * depth) * sin(oblique)))
G = Point(A, Vector[A, F] / depth)
k = 0 (slider from 0 to 4, step 1)
b = 3 (slider from 2 to 5, step 1)
u = Vector(A, F)
D' = Translate(D, u)
C' = Translate(C, u)
B' = Translate(B, u)
poly2, f_1, b', c', d' = Polygon(F, B', C', D')
g = Segment(A, F)
h = Segment(B, B')
i = Segment(C, C')
j = Segment(D, D')
list1 = Sequence(Segment[A + (0, i), B + (0, i)], i, 0, height, 1)
list2 = Sequence(Segment[A + (i, 0), D + (i, 0)], i, 0, width, 1)
H = Point(list2)
v = Vector(H, G)
list1' = Translate(list1, v)
list2' = Translate(list2, v)
list3 = Sequence(Sequence[Segment[A + (0, i) + (j, 0), G + (0, i) + (j, 0)], i, 0, b, 1], j, 0, width, 1)
w: (Vector[G, F] / n_1 * k)
list1'_1 = Translate(list1, w)
list1'' = Translate(list1', w)
list2'_1 = Translate(list2, w)
list2'' = Translate(list2', w)
list3' = Translate(list3, w)
side = Sequence(Segment[A + (0, i), G + (0, i)], i, 0, height, 1)
I = Point(D, Vector[D, D'] / depth)
top = Sequence(Segment[D + (i, 0), I + (i, 0)], i, 0, width, 1)
side' = Translate(side, w)
top' = Translate(top, w)
leftsegment = Segment(G, I)
topsegment = Segment(I, I + (width, 0))
G' = Translate(G, w)
I' = Translate(I, w)
leftsegment' = Segment(G', I')
topsegment' = Translate(topsegment, w)
o = true
poly3, a, b_2, c_1, d_1 = Polygon(A, B, C, D)
l = false
A' = Translate(A, w)
B'_1 = Translate(B, w)
K = Translate(B'_1, w)
C'_1 = Translate(C, w)
D'_1 = Translate(D, w)
poly4, a', b'_1, c'_1, d'_1 = Polygon(A', B'_1, C'_1, D'_1)
m = true
n = Segment(C, D)
p = Segment(A, D)
q = Segment(D'_1, D)