Skip to content

Instantly share code, notes, and snippets.

@fiskurgit

fiskurgit/gist:8804703

Last active August 29, 2015 13:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fiskurgit/8804703 to your computer and use it in GitHub Desktop.
Save fiskurgit/8804703 to your computer and use it in GitHub Desktop.
Download ZIP
BBC Basic plot
Raw
gistfile1.bb
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