Skip to content

Instantly share code, notes, and snippets.

@fiskurgit
Last active Aug 29, 2015
Embed
What would you like to do?
BBC Basic plot
1 REM Rotation
10 MODE 4: VDU 29,640;512;: XS=4: YS=4
20 A=640: B=A*A: C=512
30 FOR X=0 TO A STEP XS: S=X*X: P=SQR(B-S)
50 FOR I= -P TO P STEP 6*YS
70 R=SQR(S+I*I)/A
80 Q=(R-1)*SIN(24*R)
90 Y=I/3+Q*C
95 IF I= -P THEN M=Y: GOTO 110
l00 IF Y>M M=Y: GOTO 130
105 IF Y>=N: GOTO 140
110 N=Y
130 PLOT69,-X,Y: PLOT69,X,Y
140 NEXT I: NEXT X
150 END
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment