Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

basic: pumpkin2

This commit is contained in:
Vince Weaver 2022-10-25 00:43:35 -04:00
parent 00659143de
commit 19c5448839
5 changed files with 90 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basic/appleiibot/Makefile
View File

@ -28,7 +28,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \
LARGE_XOR.BAS PAR_XOR.BAS PAR_HGR.BAS SIER_XOR.BAS PATTERN_LOGO.BAS \
GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS
GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS \
PUMPKIN2.BAS
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
# cp empty.dsk appleiibot.dsk
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -151,8 +152,9 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A GEARS.BAS
$(DOS33) -y appleiibot.dsk SAVE A DSR_LORES.BAS
$(DOS33) -y appleiibot.dsk SAVE A A2_LORES.BAS
$(DOS33) -y appleiibot.dsk SAVE A MAGIC_BOX.BAS
$(DOS33) -y appleiibot.dsk SAVE A MAGIC_CUBE.BAS
$(DOS33) -y appleiibot.dsk SAVE A MOON.BAS
$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN2.BAS
####
@ -852,8 +854,14 @@ MOON.BAS: moon.bas
####
MAGIC_BOX.BAS: magic_box.bas
$(TOKENIZE) < magic_box.bas > MAGIC_BOX.BAS
PUMPKIN2.BAS: pumpkin2.bas
$(TOKENIZE) < pumpkin2.bas > PUMPKIN2.BAS
####
MAGIC_CUBE.BAS: magic_cube.bas
$(TOKENIZE) < magic_cube.bas > MAGIC_CUBE.BAS

30
basic/appleiibot/magic_cube.bas
View File

@ -1,15 +1,21 @@
5 HGR:HGR2
6 C=0
40 FOR W=3 TO 64 STEP 0.5
50 A=4/W+T/4
60 K=145/W
70 X=64+COS(A)*K
80 Y=64+SIN(A)*K
100 HCOLOR=C
110 HPLOT X-W,Y-W TO X+W,Y-W TO X+W,Y+W TO X-W,Y+W TO X-W,Y-W
115 C=C+1:IF C>7 THEN C=0
120 NEXT
130 T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 6
0HGR:HGR2
1C=0:FORW=3TO60STEP4:A=4/W+T/4:K=145/W:X=64+COS(A)*K:Y=64+SIN(A)*K
2HCOLOR=C:HPLOTX-W,Y-WTOX+W,Y-WTOX+W,Y+WTOX-W,Y+WTOX-W,Y-W
3C=C+1:IF C>7 THEN C=0
4NEXT:T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 1
'5 HGR:HGR2
'6 C=0
'40 FOR W=3 TO 64 STEP 0.5
'50 A=4/W+T/4
'60 K=145/W
'70 X=64+COS(A)*K
'80 Y=64+SIN(A)*K
'100 HCOLOR=C
'110 HPLOT X-W,Y-W TO X+W,Y-W TO X+W,Y+W TO X-W,Y+W TO X-W,Y-W
'115 C=C+1:IF C>7 THEN C=0
'120 NEXT
'130 T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 6
'5 GR
'40 FOR W=3 TO 68 STEP 0.1

12
basic/appleiibot/make_points.c
View File

@ -1,14 +1,20 @@
#include <stdio.h>
#include <stdlib.h>
//#define LINE_VALUE 279
//#define STOP_VALUE 0
//#define MODE_VALUE 3
#if 1
#define LINE_VALUE 279
#define STOP_VALUE 0
#define MODE_VALUE 3
#else
#define LINE_VALUE 3
#define STOP_VALUE 6
#define MODE_VALUE 9
#endif
static int debug=1;

46
basic/appleiibot/pumpkin.points Normal file
View File

@ -0,0 +1,46 @@
279 9 90 39 21 # 0 left
81 9 # 1
129 30 # 2
141 30 # 3
171 21 # 4
210 30 # 5
231 51 # 6
240 108 # 7
231 150 # 8
201 180 # 9
153 189 # 10
99 189 # 11
51 171 # 12
18 126 # 13
9 90 # 14
279 69 90 90 60 # 15 left eye
111 90 # 16
69 90 # 17
279 150 90 171 60 # 18 right eye
189 90 # 19
150 90 # 20
279 129 90 141 120 # 21 nose
120 120 # 22
129 90 # 23
279 60 120 99 141 # 24 mouth
99 150 # 25
120 150 # 26
120 141 # 27
141 141 # 28
141 150 # 29
159 150 # 30
159 141 # 31
180 129 # 32
201 111 # 33
180 150 # 34
150 171 # 35
111 171 # 36
80 150 # 37
60 120 # 38
3
279 108 21 120 9 # 39 Stem
144 3
150 15
141 21
141 30
0

5
basic/appleiibot/pumpkin2.bas Normal file
View File

@ -0,0 +1,5 @@
0REM~$?.(<$L+P+Z(g+n2qEnSd]T`B`2Z'K$?~8??5F?8?~S?Z5`?S?~L?PIIIL?~5IBPBSISIPPPPSVSVP]LdF]SSZFZ;S5I"~E(I$Q"S&P(P+!
1HGR2:HCOLOR=5:DEFFNP(X)=3*PEEK(2054+I+X)-99
2IFFNP(0)=3THENHCOLOR=1:I=I+1
3IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
4HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2