Skip to content

Instantly share code, notes, and snippets.

@leobm

leobm/melon.bas

Created October 24, 2020 14:39
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 leobm/1cd95c87be7fbef8e08154be999edb0a to your computer and use it in GitHub Desktop.
Save leobm/1cd95c87be7fbef8e08154be999edb0a to your computer and use it in GitHub Desktop.
Download ZIP
Locomotive Basic, Amstrad CPC, Melon slice
Raw
melon.bas
100 MODE 1
110 ORIGIN 320,200
120 GREEN=9:BGREEN=18:BRED=6:BLACK=0
130 INK 1,GREEN:INK 2,BGREEN:INK 3,BRED:INK 4,0
140 DEG
150 SW=60:EW=240:ST=10
160 R=190:FC=1
170 GOSUB 300
180 R=175:FC=2
190 GOSUB 300
200 R=160:FC=3
210 GOSUB 300
220 SW=0:EW=360
230 R=6:FC=4:ST=10
240 FOR D1=70 TO 230 STEP 30
250 OX=100*SIN(D1):OY=100*COS(D1)
260 ORIGIN OX+320,OY+200
270 GOSUB 310
280 NEXT
290 END
300 REM MELON SLICE
310 GRAPHICS PEN FC
320 FOR D=SW TO EW STEP ST
330 X=R*SIN(D):Y=R*COS(D)
340 DRAW X,Y
350 NEXT
360 DRAW 0,0:MOVE 0,-2:FILL FC:MOVE 0,0
370 RETURN
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment