While I was bored, I wrote this simple animation:
TI-83:
ZStandard
"8cos(X→Y₁
"4+3sin(X→Y₂
FnOff
.5π→θ
Ans→N
Repeat getKey
ClrDraw
θ+N→E
Ans+N→F
Ans+N→G
Y₁(θ→A:Y₂(θ→B:Y₁(E→C:Y₂(E→D
Y₁(F→H:Y₂(F→I:Y₁(G→J:Y₂(G→K
Line(A,B,A,-B
Line(C,D,C,-D
Line(H,I,H,-I
Line(J,K,J,-K
Line(A,B,C,D
Line(A,-B,C,-D
Line(C,D,H,I
Line(C,-D,H,-I
Line(H,I,J,K
Line(H,-I,J,-K
Line(J,K,A,B
Line(J,-K,A,-B
θ+.05π→θ
End
TI-89 (use approx):
anim04()
Prgm
Local f,g,θ,ε,φ,γ,a,b,c,d,h,i,j,k,n
8*cos(x)→f(x)
4+3*sin(x)→g(x)
π/2→θ
π/2→n
ZoomStd
setGraph("4","1")
While 0=getKey()
ClrDraw
θ+n→ε
θ+π→φ
φ+n→γ
f(θ)→a
g(θ)→b
f(ε)→c
g(ε)→d
f(φ)→h
g(φ)→i
f(γ)→j
g(γ)→k
Line a,b,a,-b
Line c,d,c,-d
Line h,i,h,-i
Line j,k,j,-k
Line a,b,c,d
Line a,-b,c,-d
Line c,d,h,i
Line c,-d,h,-i
Line h,i,j,k
Line h,-i,j,-k
Line j,k,a,b
Line j,-k,a,-b
θ+π/20→θ
EndWhile
EndPrgm
Also TI-89:
// Rot3D: rotating a cube around
#include <tigcclib.h>
// Main Function
double f(double x)
{
return 80+60*cos(x);
}
double g(double x)
{
return 25-10*sin(x);
}
double gc(double x)
{
return 75+10*sin(x);
}
void _main(void)
{
// Place your code here.
double theta=0;
int a,b,c,d,h,i,j,k;
double epsilon,phi,gamma;
int bc,dc,ic,kc;
while (!kbhit())
{
epsilon=theta+0.5*PI;
phi=theta+PI;
gamma=theta+1.5*PI;
a=f(theta),b=g(theta),bc=gc(theta);
c=f(epsilon),d=g(epsilon),dc=gc(epsilon);
h=f(phi),i=g(phi),ic=gc(phi);
j=f(gamma),k=g(gamma),kc=gc(gamma);
ClrScr();
DrawLine(a,b,a,bc,1);
DrawLine(c,d,c,dc,1);
DrawLine(h,i,h,ic,1);
DrawLine(j,k,j,kc,1);
DrawLine(a,b,c,d,1);
DrawLine(c,d,h,i,1);
DrawLine(h,i,j,k,1);
DrawLine(j,k,a,b,1);
DrawLine(a,bc,c,dc,1);
DrawLine(c,dc,h,ic,1);
DrawLine(h,ic,j,kc,1);
DrawLine(j,kc,a,bc,1);
theta+=PI*0.01;
}
}
Sunrise 3 Progress: 30%
Size: around 20 KB, not including the save lists and in-game RAM.