Apple-2-SW/maze
1
0
Fork 0
mirror of https://github.com/gungwald/maze.git synced 2024-06-13 06:29:36 +00:00
Code Issues Projects Releases Wiki Activity

Line with multiple colors

Browse Source
This commit is contained in:
Bill Chatfield 2021-03-06 03:18:28 -05:00
parent c90181ef4a
commit a51a6617c9
2 changed files with 48 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
colors.baz
View File

@ -7,38 +7,36 @@ REM
REM cxxxxxx|/////////////////////////> REM cxxxxxx|/////////////////////////>
REM REM
{ # DHGR 140x192 16-Color Mode
DHGR 140x192 16-Color Mode # 0: Black
0: Black # 1: Magenta
1: Magenta # 2: Dark blue
2: Dark blue # 3: Purple
3: Purple # 4: Dark green
4: Dark green # 5: Grey #1
5: Grey #1 # 6: Medium blue
6: Medium blue # 7: Light blue
7: Light blue # 8: Brown
8: Brown # 9: Orange
9: Orange # 10: Grey #2
10: Grey #2 # 11: Pink
11: Pink # 12: Green
12: Green # 13: Yellow
13: Yellow # 14: Aqua
14: Aqua # 15: White
15: White #
# Color Wheel:
Color Wheel: # 1: Magenta
1: Magenta # 9: Orange
9: Orange # 13: Yellow
13: Yellow # 12: Green
12: Green # 4: Dark green
4: Dark green # 14: Aqua
14: Aqua # 7: Light blue
7: Light blue # 6: Medium blue
6: Medium blue # 2: Dark blue
2: Dark blue # 3: Purple
3: Purple # 11: Pink
11: Pink
}
D$ = chr$(4) D$ = chr$(4)
RET$ = chr$(13) RET$ = chr$(13)
@ -71,12 +69,21 @@ next
mx = sw - 1 {max x} mx = sw - 1 {max x}
my = sh - 1 {max y} my = sh - 1 {max y}
for ci = 1 to mc &hcolor=c(7)
for x = ci*10 to ci*10+10 &hplot 10,100 to 50,100
&hcolor = c(ci) &hcolor=c(8)
&hplot x,0 to x,my &hplot 51,100 to 60,110
next &hcolor=c(9)
next &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 £checkKeypress
if peek(kbd) <= 127 then @checkKeypress if peek(kbd) <= 127 then @checkKeypress

BIN
maze-runnable/disks/maze.dsk
View File

Binary file not shown.