Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-09 23:29:39 +00:00
Code Issues Projects Releases Wiki Activity

circles: even more circles

Browse Source 
filled, not what I was expecting
This commit is contained in:
Vince Weaver 2021-06-14 12:24:59 -04:00
parent d4c4c96c25
commit c562c3fd5f
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
graphics/hgr/circles/Makefile
View File

@ -7,11 +7,12 @@ EMPTY_DISK = ../../../empty_disk
all: circles.dsk
circles.dsk: HELLO CIRCLES BRES.BAS BRESBOT.BAS
circles.dsk: HELLO CIRCLES BRES.BAS BRESBOT.BAS BRESCOOL.BAS
cp $(EMPTY_DISK)/empty.dsk circles.dsk
$(DOS33) -y circles.dsk SAVE A HELLO
$(DOS33) -y circles.dsk SAVE A BRES.BAS
$(DOS33) -y circles.dsk SAVE A BRESBOT.BAS
$(DOS33) -y circles.dsk SAVE A BRESCOOL.BAS
$(DOS33) -y circles.dsk BSAVE -a 0x0C00 CIRCLES
###
@ -29,6 +30,11 @@ BRES.BAS: bres.bas
BRESBOT.BAS: bresbot.bas
$(TOKENIZE) < bresbot.bas > BRESBOT.BAS
###
BRESCOOL.BAS: brescool.bas
$(TOKENIZE) < brescool.bas > BRESCOOL.BAS
###
@ -41,4 +47,4 @@ circles.o: circles.s
###
clean:
rm -f *~ *.o *.lst CIRCLES BRES.BAS BRESBOT.BAS
rm -f *~ *.o *.lst CIRCLES BRES.BAS BRESBOT.BAS BRESCOOL.BAS

8
graphics/hgr/circles/brescool.bas Normal file
View File

@ -0,0 +1,8 @@
0HGR2
1HCOLOR=1+RND(1)*7:A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
3X=0:D=3-2*Y:GOTO6
4X=X+1:IFD>0THENY=Y-1:D=D+4*(X-Y)+10:GOTO6
5D=D+4*X+6
6HPLOTA+X,B+Y TO A-X,B+Y TO A+X,B-Y TO A-X,B-Y TO A+Y,B+X TO A-Y,B+X TO A+Y,B-X TO A-Y,B-X
8IFY>=XTHEN4
9GOTO1