Blue

Size

Red

Magenta

Green

Yellow

Reset

Square prism frame

Animation

h_0 = 0 (slider from 0 to 1, step 0.01)
h = 6 (slider from 1 to 6, step 0.01)
O = (0, 0, 0)
H: (x(O), y(O) - (2 * h), z(O) + h)
G: (x(O) + (2 * h), y(O), z(O) + h)
i = Line(G, H)
B: (x(O) + h, y(O) + h, z(O))
C: (x(O) - h, y(O) + h, z(O))
D: (x(O) - h, y(O) - h, z(O))
A: (x(O) + h, y(O) - h, z(O))
w = Vector(C, A)
J = Midpoint(A, B)
n = Line(D, A)
p = Line(C, D)
q = Line(B, C)
r = Line(A, B)
e_0 = 0 (slider from 0 to 1, step 0.01)
f_0 = 0 (slider from 0 to 1, step 0.01)
i_0 = 0 (slider from 0 to 1, step 0.01)
g_0 = 0 (slider from 0 to 1, step 0.01)
I = Midpoint(D, A)
K = Midpoint(D, C)
L = Midpoint(C, B)
u = Vector(I, L)
v = Vector(K, J)
E = Intersect(n, r)
e' = Rotate(Pyramid[Translate[Polygon[A, B, C, D], v], h], (((-e_0) * 90))°, r)
f' = Rotate(Pyramid[Translate[Polygon[A, B, C, D], Vector[(-v)]], h], (((-f_0) * 90))°, p)
g' = Rotate(Pyramid[Translate[Polygon[A, B, C, D], Vector[(-u)]], h], (((-g_0) * 90))°, n)
f = Rotate(Pyramid[Translate[Polygon[A, B, C, D], w], h], ((h_0 * 180))°, i)
i' = Rotate(Pyramid[Translate[Polygon[A, B, C, D], u], h], (((-i_0) * 90))°, q)
j = Rotate(Pyramid[Polygon[A, B, C, D], h], 0°, n)
a = Rotate(Prism[Polygon[A, B, C, D], (2 * h)], 0°, xAxis)
b = false
Animasi = false
Bahasa: {"English", "Bahasa Malaysia"}
nn = SelectedIndex(Bahasa)
Curve(x) = ?