mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-28 17:55:04 +00:00
basic: pumpkin2
This commit is contained in:
parent
00659143de
commit
19c5448839
@ -28,7 +28,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
|
|||||||
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
|
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
|
||||||
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.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 \
|
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_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
|
||||||
# cp empty.dsk appleiibot.dsk
|
# cp empty.dsk appleiibot.dsk
|
||||||
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
|
# $(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 GEARS.BAS
|
||||||
$(DOS33) -y appleiibot.dsk SAVE A DSR_LORES.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 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 MOON.BAS
|
||||||
|
$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN2.BAS
|
||||||
|
|
||||||
|
|
||||||
####
|
####
|
||||||
@ -852,8 +854,14 @@ MOON.BAS: moon.bas
|
|||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
MAGIC_BOX.BAS: magic_box.bas
|
PUMPKIN2.BAS: pumpkin2.bas
|
||||||
$(TOKENIZE) < magic_box.bas > MAGIC_BOX.BAS
|
$(TOKENIZE) < pumpkin2.bas > PUMPKIN2.BAS
|
||||||
|
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
MAGIC_CUBE.BAS: magic_cube.bas
|
||||||
|
$(TOKENIZE) < magic_cube.bas > MAGIC_CUBE.BAS
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -1,15 +1,21 @@
|
|||||||
5 HGR:HGR2
|
0HGR:HGR2
|
||||||
6 C=0
|
1C=0:FORW=3TO60STEP4:A=4/W+T/4:K=145/W:X=64+COS(A)*K:Y=64+SIN(A)*K
|
||||||
40 FOR W=3 TO 64 STEP 0.5
|
2HCOLOR=C:HPLOTX-W,Y-WTOX+W,Y-WTOX+W,Y+WTOX-W,Y+WTOX-W,Y-W
|
||||||
50 A=4/W+T/4
|
3C=C+1:IF C>7 THEN C=0
|
||||||
60 K=145/W
|
4NEXT:T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 1
|
||||||
70 X=64+COS(A)*K
|
|
||||||
80 Y=64+SIN(A)*K
|
'5 HGR:HGR2
|
||||||
100 HCOLOR=C
|
'6 C=0
|
||||||
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
|
'40 FOR W=3 TO 64 STEP 0.5
|
||||||
115 C=C+1:IF C>7 THEN C=0
|
'50 A=4/W+T/4
|
||||||
120 NEXT
|
'60 K=145/W
|
||||||
130 T=T+1:POKE230,32+32*P:P=NOTP:POKE49236+P,0:GOTO 6
|
'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
|
'5 GR
|
||||||
'40 FOR W=3 TO 68 STEP 0.1
|
'40 FOR W=3 TO 68 STEP 0.1
|
||||||
|
@ -1,14 +1,20 @@
|
|||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
||||||
//#define LINE_VALUE 279
|
#if 1
|
||||||
//#define STOP_VALUE 0
|
|
||||||
//#define MODE_VALUE 3
|
#define LINE_VALUE 279
|
||||||
|
#define STOP_VALUE 0
|
||||||
|
#define MODE_VALUE 3
|
||||||
|
|
||||||
|
#else
|
||||||
|
|
||||||
#define LINE_VALUE 3
|
#define LINE_VALUE 3
|
||||||
#define STOP_VALUE 6
|
#define STOP_VALUE 6
|
||||||
#define MODE_VALUE 9
|
#define MODE_VALUE 9
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
static int debug=1;
|
static int debug=1;
|
||||||
|
|
||||||
|
46
basic/appleiibot/pumpkin.points
Normal file
46
basic/appleiibot/pumpkin.points
Normal 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
5
basic/appleiibot/pumpkin2.bas
Normal 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
|
Loading…
Reference in New Issue
Block a user