Szkicowanie prostopadłościanu
Author: Hanna G.
Date: 16 kwietnia 2012

Czerowonym punktem można zmieniać położenie jednego z wierzchołków prostopadłościanu.

Kreślenie prostopadłościanu

Można zmieniać położenie wyróżnionego punktu.

animacja = 15 (slider from 0 to 15, step 0.01)
E = (-4, 14)
F = (-3, 14)
u = Vector(E, F)
G = (-4, 15)
v = Vector(E, G)
A = Intersect(xAxis, yAxis)
długość = 8 (slider from 1 to 10, step 1)
wysokość = 10 (slider from 1 to 10, step 1)
B: A + długość * u
P_{AB} = Point(Segment[A, B], animacja - 1)
a_1 = Segment(A, P_{AB})
B': B + wysokość * v
A': B' - długość * u
P_{B'A'} = Point(Segment[B', A'], animacja - 3)
a_3 = Segment(B', P_{B'A'})
P_{BB'} = Point(Segment[B, B'], animacja - 2)
a_2 = Segment(P_{BB'}, B)
P_{A'A} = Point(Segment[A', A], animacja - 4)
a_4 = Segment(A', P_{A'A})
D = (3, 3)
C: D + długość * u
P_{DC} = Point(Segment[D, C], animacja - 6)
b_1 = Segment(D, P_{DC})
C': C + wysokość * v
P_{CC'} = Point(Segment[C, C'], animacja - 7)
b_2 = Segment(C, P_{CC'})
D': C' - długość * u
P_{C'D'} = Point(Segment[C', D'], animacja - 8)
b_3 = Segment(C', P_{C'D'})
P_{D'D} = Point(Segment[D', D], animacja - 9)
b_4 = Segment(D', P_{D'D})
P_{AD} = Point(Segment[A, D], animacja - 10)
c_1 = Segment(A, P_{AD})
P_{BC} = Point(Segment[B, C], animacja - 11)
c_2 = Segment(B, P_{BC})
P_{B'C'} = Point(Segment[B', C'], animacja - 12)
c_3 = Segment(B', P_{B'C'})
P_{A'D'} = Point(Segment[A', D'], animacja - 13)
c_4 = Segment(A', P_{A'D'})