N=63 DIM PX(N) DIM PY(N) DIM PZ(N) FOR I=0TO N PX(I)=(RND-0.5)*12 PY(I)=(RND-0.5)*12 PZ(I)=(RND-0.5)*12 SPRITE.A I,I MOD 8 NEXT I F=0.1 DO RANDOMIZE 0 RZ=RZ+RND*F RY=RY+RND*F RX=RX+RND*F CZ=COS(RZ) SZ=SIN(RZ) CX=COS(RX) SX=SIN(RX) CY=COS(RY) SY=SIN(RY) FOR I=0TO N Y=PZ(I)*CX+PY(I)*SX 'ZZ=(PZ(I)*SX-PY(I)*CX) X=PX(I)*SY-(PZ(I)*SX-PY(I)*CX)*CY 'X=PX(I)*SY-ZZ*CY 'Z=PX(I)*CY+ZZ*SY SPRITE I,80+X*10,10*Y+64,1 NEXT I WAIT VBL LOOP ZROT: Y=AY*SZ-AX*CZ X=AY*CZ+AX*SZ XROT: Z=AZ*SX-AY*CX Y=AZ*CX+AY*SX YROT: X=AX*SY-AZ*CY Z=AX*CY+AZ*SY XYROT: ZZ=AZ*SX-AY*CX X=AX*SY-(ZZ)*CY Z=AX*CY+(ZZ)*SY Y=AY*SZ-AX*CZ X=AY*CZ+AX*SZ Z=AZ*SX-(AY*SZ-AX*CZ)*CX Y=AZ*CX+(AY*SZ-AX*CZ)*SX X=AY*CZ+AX*SZ #1:MAIN PALETTES 053F2F0000003400003C0C0000333C00 00302A15000C2A1500032A15000F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 E0A0E000000000000000000000000000