From c562c3fd5f0d2d2fd985e6f168bd05caf98e2921 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Mon, 14 Jun 2021 12:24:59 -0400
Subject: [PATCH] circles: even more circles

filled, not what I was expecting
---
 graphics/hgr/circles/Makefile     | 10 ++++++++--
 graphics/hgr/circles/brescool.bas |  8 ++++++++
 2 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100644 graphics/hgr/circles/brescool.bas

diff --git a/graphics/hgr/circles/Makefile b/graphics/hgr/circles/Makefile
index 7d467693..2bb39dd0 100644
--- a/graphics/hgr/circles/Makefile
+++ b/graphics/hgr/circles/Makefile
@@ -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
diff --git a/graphics/hgr/circles/brescool.bas b/graphics/hgr/circles/brescool.bas
new file mode 100644
index 00000000..de591167
--- /dev/null
+++ b/graphics/hgr/circles/brescool.bas
@@ -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