Created
October 24, 2020 14:39
-
-
Save leobm/1cd95c87be7fbef8e08154be999edb0a to your computer and use it in GitHub Desktop.
Locomotive Basic, Amstrad CPC, Melon slice
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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