AppleIIbot 280 char Applesoft Demos -- Part 8

Note as of 2023 the Twitterbot is Defunct, so all future demos here are just approximations.

Twister

Traditional demoscene twister effect, but in 280 bytes of Applesoft. This is cheating a bit because it's really slow for the first 4 minutes as it pre-calcs and only then does it get slightly faster.

This is based on some Applesoft BASIC code by Marc Golombeck.

0DIMA(2E3),B(2E3):GR:P=3.14:W=20
1FORJ=0TO1280:E=E+.1:FORY=0TOW:IFE<6THENF=Y/(15+COS(E)*12)-P+SIN(E)*P:A(J)=8*COS(F):B(J)=8*SIN(F)
5Q=A(J):R=B(J):COLOR=0:HLIN9,27ATY:COLOR=1:M=-Q:N=-R:IFQ<RTHENM=Q:N=R
7HLINW+M,W+NATY:COLOR=2:IFR<-QTHENR=-R:Q=-Q
8HLINW-R,W+QATY:J=J+1:NEXTY,J:GOTO1

Back to Part 7

Back to main Apple II bot page