ClrDraw
AxesOff
DispGraph
{⁻1,1,0,⁻1,1,0}→L₁
{⁻1,⁻1,1,⁻1,⁻1,1}→L₂
{⁻1,⁻1,⁻1,1,1,1}→L₃
{0,0,0,0,0,0}→L₄
{0,0,0,0,0,0}→L₅
{1,⁻1,1}→L₆
{0,0,0,0,0,0}→ʟL7
{0,0,0,0,0,0}→ʟL8
{0,0,0,0,0,0}→ʟL9
0→A
0→B
Lbl 1
0→K
Repeat K:getKey→K:End
If K=24:Then:A+π/20→A:End
If K=26:Then:A-π/20→A:End
If K=25:Then:B+π/20→B:End
If K=34:Then:B-π/20→B:End
For(D,1,200:End
ClrDraw
AxesOff
cos(A)→C
sin(A)→S
cos(B)→P
sin(B)→Q
For(I,1,6
C*L₁(I)+S*L₃(I)→X
L₂(I)→Y
⁻S*L₁(I)+C*L₃(I)→Z
Y→T
Z→U
P*T-Q*U→Y
Q*T+P*U→Z
X→ʟL7(I
Y→ʟL8(I
Z→ʟL9(I
X/(Z+5)*30+47→L₄(I)
Y/(Z+5)*30+31→L₅(I)
End
Line(L₄(1),L₅(1),L₄(2),L₅(2)
Line(L₄(2),L₅(2),L₄(3),L₅(3)
Line(L₄(3),L₅(3),L₄(1),L₅(1)
Line(L₄(4),L₅(4),L₄(5),L₅(5)
Line(L₄(5),L₅(5),L₄(6),L₅(6)
Line(L₄(6),L₅(6),L₄(4),L₅(4)
Line(L₄(1),L₅(1),L₄(4),L₅(4)
Line(L₄(2),L₅(2),L₄(5),L₅(5)
Line(L₄(3),L₅(3),L₄(6),L₅(6)
L₆(1)→D
L₆(2)→E
L₆(3)→F
√(D²+E²+F²)→Q
D/Q→D
E/Q→E
F/Q→F
D→G
E→H
F→I
ʟL7(2)-ʟL7(1)→X
ʟL8(2)-ʟL8(1)→Y
ʟL9(2)-ʟL9(1)→Z
ʟL7(3)-ʟL7(1)→U
ʟL8(3)-ʟL8(1)→V
ʟL9(3)-ʟL9(1)→W
Y*W-Z*V→N
Z*U-X*W→O
X*V-Y*U→P
√(N²+O²+P²)→Q
If Q=0:Then:.001→Q:End
N/Q→N
O/Q→O
P/Q→P
D*N+E*O+F*P→R
abs(R)→J
If J<.001:Then:.001→R:End
If R
Then
(ʟL7(1)*N+ʟL8(1)*O+(ʟL9(1)+5)*P)/R→T
D*T→U
E*T→V
F*T→W
U/(W+5)*30+47→S
V/(W+5)*30+31→T
2/3→K
⁻R→R
1-R^2→C
√(C)→D
K*D→C
1-C²→M
√(M)→J
K*G→X
K*H→Y
K*I→Z
K*C-J→L
X+N*L→X
Y+O*L→Y
Z+P*L→Z
U+10*X→U
V+10*Y→V
W+10*Z→W
U/(W+5)*30+47→X
V/(W+5)*30+31→Y
End
(L₅(1)+L₅(2)+L₅(3))/3→θ
Line(0,θ,D/(F+5)*30+47,E/(F+5)*30+31)
Line(D/(F+5)*30+47,E/(F+5)*30+31,X,Y)
Goto 1