Re: Cube program

[obsbedia2@aol.com (Obsbedia2)]

There is a two-liner program, ROTATE.CUBE, from Nibble Magazine that does the
same thing with a wireframe cube.--JaY

10    I=1.5708:T=6:HGR:HGR2: HCOLOR=3: FOR N=1 TO 1000: K=(N/2=INT(N/2)):
POKE230,32 + (32 * K): FOR X=1 TO 4: A(X) =50*SIN(E)+140: B(X)=50*COS(E)+96:
E=E+1: NEXT: FOR X = 1TO 2: HPLOT A(1)+C,B(1)-DTOA(2) + C,B(2)-D TO A(3) + C,
B(3)-D TO A(4)+C,B(4)-D TO A (1)+C,B(1)-D: C=20: D=35

20    NEXT: HPLOT A(2),B(2) TO A(3) +C,B(3)-D: HPLOT A(3), B(3) TO
A(2)+C,B(2)-D: FOR X=1 TO 4: HPLOT A(X),B(X) TO A(X)+C,B(X)-D:
NEXT:POKE49236=K,0:POKE230,32+(32*(K=0)): CALL-3086: E=E+T: C=0: D=0: NEXT:
TEXT: HOME: LIST: END



<< Does anybody have a copy of a demo program for the apple][
It was called "CUBE". (It was a machine language program)
It simply displayed, and rotated a 3d cube on the graphics screen.
I wish to disassemble it.  When I saw it 20 years ago, I was in awe!
Now I can follow assembly, I wish to dispell the 'mystery'. >>