From a51a6617c9019b1bdcf13a458915ad37f5621d80 Mon Sep 17 00:00:00 2001
From: Bill Chatfield <bill_chatfield@yahoo.com>
Date: Sat, 6 Mar 2021 03:18:28 -0500
Subject: [PATCH] Line with multiple colors

---
 colors.baz                   |  89 +++++++++++++++++++----------------
 maze-runnable/disks/maze.dsk | Bin 143360 -> 143360 bytes
 2 files changed, 48 insertions(+), 41 deletions(-)

diff --git a/colors.baz b/colors.baz
index d17e49a..fe63568 100644
--- a/colors.baz
+++ b/colors.baz
@@ -7,47 +7,45 @@ REM
 REM cxxxxxx|/////////////////////////>
 REM
 
-{
-	DHGR 140x192 16-Color Mode
-	0: Black
-	1: Magenta
-	2: Dark blue
-	3: Purple
-	4: Dark green
-	5: Grey #1
-	6: Medium blue
-	7: Light blue
-	8: Brown
-	9: Orange
-	10: Grey #2
-	11: Pink
-	12: Green
-	13: Yellow
-	14: Aqua
-	15: White
-
-	Color Wheel:
-	1:  Magenta
-	9:  Orange
-	13: Yellow
-	12: Green
-	4:  Dark green
-	14: Aqua
-	7:  Light blue
-	6:  Medium blue
-	2:  Dark blue
-	3:  Purple
-	11: Pink
-}
+#	DHGR 140x192 16-Color Mode
+#	0: Black
+#	1: Magenta
+#	2: Dark blue
+#	3: Purple
+#	4: Dark green
+#	5: Grey #1
+#	6: Medium blue
+#	7: Light blue
+#	8: Brown
+#	9: Orange
+#	10: Grey #2
+#	11: Pink
+#	12: Green
+#	13: Yellow
+#	14: Aqua
+#	15: White
+#
+#	Color Wheel:
+#	1:  Magenta
+#	9:  Orange
+#	13: Yellow
+#	12: Green
+#	4:  Dark green
+#	14: Aqua
+#	7:  Light blue
+#	6:  Medium blue
+#	2:  Dark blue
+#	3:  Purple
+#	11: Pink
 
 D$   = chr$(4)
 RET$ = chr$(13)
 ESC$ = chr$(27)
 SW   = 140
-SH   = 192    : REM Screen width and height
-KBD  = -16384 : REM Byte that is neg if key pressed
+SH   = 192                       : REM Screen width and height
+KBD  = -16384                    : REM Byte that is neg if key pressed
 RL   = 78
-RH   = 79     : REM RNDL and RNDH
+RH   = 79                        : REM RNDL and RNDH
 SEED = peek(RL) + peek(RH) * 256 : REM Get seed
 NA   = rnd(SEED)                 : REM Seed random num generator
 
@@ -71,12 +69,21 @@ next
 mx = sw - 1 {max x}
 my = sh - 1 {max y}
 
-for ci = 1 to mc
-  for x = ci*10 to ci*10+10
-    &hcolor = c(ci)
-    &hplot x,0 to x,my
-  next
-next
+&hcolor=c(7)
+&hplot 10,100 to 50,100
+&hcolor=c(8)
+&hplot 51,100 to 60,110
+&hcolor=c(9)
+&hplot 61,110 to 70,125
+&hcolor=c(10)
+&hplot 71,125 to 80,150
+
+#for ci = 1 to mc
+#  for x = ci*10 to ci*10+10
+#    &hcolor = c(ci)
+#    &hplot x,0 to x,my
+#  next
+#next
 
 £checkKeypress
 if peek(kbd) <= 127 then @checkKeypress
diff --git a/maze-runnable/disks/maze.dsk b/maze-runnable/disks/maze.dsk
index 193f08c6016740dc69dc8c74fcc3a94281f07532..d632075b5f357970a61b2b65ac4bb2883d28a245 100644
GIT binary patch
delta 233
zcmZp8z|ru4W5X;?mQ*b@@y+u%d(zB#85lp9GOS@>@o@DCVBiPxL>ZhI*aCw5UHpS3
zB*6SN4E%n<dd@!n&fa>#k-;IZz8faT7l_s~aDz2FF);ZA?-B&F#TYrlJYB;>Tq8nu
zfn-C0hB5iO>=FR8*D$bqxJDScxH@}+Yzk!%V`TI9^YQd^RRU=*1uEw7b@X-xX%7Ku
zDFwQWJvhWMC?qt10p!$DpcWPv5BDGiZU!#K4^u(Ly9Kyz{$Ie$JDHK`OH=)_dd7_a
D2&_G6

delta 235
zcmZp8z|ru4W5X;?mMATC(arNXd(up~85loIWpH9(atmPK2eL(hY_@<Pe;5B?1_>~K
z4FkVlu%5Gzzq7YqaAa_Zt1s{5!~)TJHjq|RkXD~yE?zKu4FijZt51N1Aebk{$Pwo0
z8Xn>r5fThi8wyhE?-C#YX0Ksj_i&9ca&dLe0@)kNAjZh%@8{#`=V}7dUJ6vq;p^z_
z3ep|{(o)I*)Dj%x7!(p3pu@|+0}>HqWO4Cu4+`4+zkrvQ(Pc6t)90r8W%Z030XR21
A^#A|>