From c9835427bc3481340f69fb861c786f74facf2405 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Mon, 9 Nov 2020 00:02:33 -0500 Subject: [PATCH] appleiibot: failed star fields --- appleiibot/Makefile | 21 ++++++++++++++- appleiibot/fastar.bas | 10 +++++++ appleiibot/horizon.bas | 4 +-- appleiibot/hyper.bas | 6 +++++ appleiibot/star.bas | 6 +++++ appleiibot/star.c | 44 ++++++++++++++++++++++++++++++ bot_demo/hello.bas | 2 +- bot_demo/load.s | 61 ++++++++++++++++++++++++++++++++++++++++++ 8 files changed, 150 insertions(+), 4 deletions(-) create mode 100644 appleiibot/fastar.bas create mode 100644 appleiibot/hyper.bas create mode 100644 appleiibot/star.bas create mode 100644 appleiibot/star.c create mode 100644 bot_demo/load.s diff --git a/appleiibot/Makefile b/appleiibot/Makefile index 2576e1f2..2374c96b 100644 --- a/appleiibot/Makefile +++ b/appleiibot/Makefile @@ -10,7 +10,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \ CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \ RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \ A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \ - RLEASM.BAS HORIZON.BAS FLYER.BAS + RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS cp empty.dsk appleiibot.dsk $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD $(DOS33) -y appleiibot.dsk SAVE A E2.BAS @@ -43,6 +43,9 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \ $(DOS33) -y appleiibot.dsk SAVE A RLEASM.BAS $(DOS33) -y appleiibot.dsk SAVE A HORIZON.BAS $(DOS33) -y appleiibot.dsk SAVE A FLYER.BAS + $(DOS33) -y appleiibot.dsk SAVE A STAR.BAS + $(DOS33) -y appleiibot.dsk SAVE A HYPER.BAS + $(DOS33) -y appleiibot.dsk SAVE A FASTAR.BAS ### @@ -248,5 +251,21 @@ FLYER.BAS: flyer.bas #### +STAR.BAS: star.bas + $(TOKENIZE) < star.bas > STAR.BAS + +#### + +FASTAR.BAS: fastar.bas + $(TOKENIZE) < fastar.bas > FASTAR.BAS + + +#### + +HYPER.BAS: hyper.bas + $(TOKENIZE) < hyper.bas > HYPER.BAS + +#### + clean: rm -f *~ *.o *.lst convert_to convert_from convert_qkumba make_boxes convert_back LOAD *.BAS diff --git a/appleiibot/fastar.bas b/appleiibot/fastar.bas new file mode 100644 index 00000000..227e51c8 --- /dev/null +++ b/appleiibot/fastar.bas @@ -0,0 +1,10 @@ +0 DIM X(17),Y(17):FOR I=0 TO 16:READ X(I),Y(I):NEXT +1HGR:HGR2:HCOLOR=3 +4FORI=1TO16:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086 +5FORJ=1TO1 +6IFX(I-1)ANDX(I)THENHPLOTX(I-1),Y(I-1)TOX(I),Y(I) +7NEXTJ,I:GOTO4 +100 DATA 97,111,96,111,95,111,94,111,92,112 +105 DATA 90,113,87,114,83,115,79,117,73,119 +110 DATA 66,121,58,124,49,127,37,131 +115 DATA 22,136,5,143,0,0 diff --git a/appleiibot/horizon.bas b/appleiibot/horizon.bas index 839e05b7..92d624e5 100644 --- a/appleiibot/horizon.bas +++ b/appleiibot/horizon.bas @@ -1,5 +1,5 @@ 1HGR2:Z=96:K=279 2FORJ=0TO7:HCOLOR=2:S=Z+12*J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086 3S=S/2:Y=Z+S:HPLOT0,YTOK,Y:IFS>1THEN3 -4HCOLOR=3:HPLOT0,ZTO140,80TOK,0:Y=101:G=2.5:FORI=1TO8:A=16*I:IFY>191THENY=191 -7X=(A*3-268)*(I>5):HPLOTX,YTO4+A,ZTO272-A,ZTOK-X,Y:G=G+G:Y=Y+G:NEXTI,J:GOTO2 +4HPLOT0,ZTO133,80TOK,Z:HCOLOR=3:Y=99:G=2:FORI=1TO8:A=16*I:IFY>191THENY=191 +7X=(A*3-268)*(I>5):HPLOTX,YTOA,ZTO276-A,ZTOK-X,Y:G=G+G:Y=Y+G:NEXTI,J:GOTO2 diff --git a/appleiibot/hyper.bas b/appleiibot/hyper.bas new file mode 100644 index 00000000..b5da7f28 --- /dev/null +++ b/appleiibot/hyper.bas @@ -0,0 +1,6 @@ +1HGR:HGR2:HCOLOR=3 +2POKE230,32+32*P:P=NOTP:POKE49236+P,0 +3FORI=1TO10:A=X(I):B=Y(I):C=Z(I)*.1:X(I)=A+(A-140)*C:Y(I)=B+(B-96)*C:Z(I)=Z(I)+.1 +5IFX(I)<0ORX(I)>279ORY(I)<0ORY(I)>191THENX(I)=70+RND(1)*140:Y(I)=48+RND(1)*96:Z(I)=0:GOTO7 +6HPLOTA,BTOX(I),Y(I) +7NEXTI:GOTO2 diff --git a/appleiibot/star.bas b/appleiibot/star.bas new file mode 100644 index 00000000..336cda5f --- /dev/null +++ b/appleiibot/star.bas @@ -0,0 +1,6 @@ +1HGR:HGR2:HCOLOR=3 +2POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086 +3FORI=1TO10:A=X(I):B=Y(I):C=Z(I)*.1:X(I)=A+(A-140)*C:Y(I)=B+(B-96)*C:Z(I)=Z(I)+.1 +5IFX(I)<0ORX(I)>279ORY(I)<0ORY(I)>191THENX(I)=RND(1)*280:Y(I)=RND(1)*192:Z(I)=0:GOTO7 +6HPLOTA,BTOX(I),Y(I) +7NEXTI:GOTO2 diff --git a/appleiibot/star.c b/appleiibot/star.c new file mode 100644 index 00000000..77d599d1 --- /dev/null +++ b/appleiibot/star.c @@ -0,0 +1,44 @@ +#include +#include + +#define SIZE 10 +#define REPEAT 100 + +int main(int argc, char **argv) { + + int i,j; + double a,b,c; + double x[SIZE],y[SIZE],z[SIZE]; + double speed=0.1; + + double outputx[SIZE][REPEAT]; + double outputy[SIZE][REPEAT]; + + for(j=1;j279) || (y[i]<0) || (y[i]>191)) { + x[i]=rand()%279; + y[i]=rand()%191; + z[i]=0; + } + else { + outputx[i][j]=x[i]; + outputy[i][j]=y[i]; + } + } + } + + for(i=1;i