Apple-2-SW/maze
1
0
Fork 0
mirror of https://github.com/gungwald/maze.git synced 2024-11-12 02:04:45 +00:00
Code Issues Projects Releases Wiki Activity

Fix colors

Browse Source
This commit is contained in:
Bill Chatfield 2021-02-28 14:41:06 -05:00
parent 9edb7144d2
commit e11f91e6f4
1 changed files with 67 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
colors.baz
View File

@ -7,40 +7,80 @@ REM
REM cxxxxxx|/////////////////////////> REM cxxxxxx|/////////////////////////>
REM REM
let d$ = chr$(4) {
let ret$ = chr$(13) DHGR 140x192 16-Color Mode
let esc$ = chr$(27) 0: Black
LET SW = 140 : SH = 192: REM SCREEN WIDTH AND HEIGHT 1: Magenta
LET KBD = -16384: REM Addr of byte that is neg if key pressed 2: Dark blue
LET RL = 78 : RH = 79: REM RNDL AND RNDH 3: Purple
LET SEED = PEEK (RL) + PEEK (RH) * 256: REM GET RND SEED 4: Dark green
LET NA = RND ( - SEED): REM SEED RANDOM NUM GENERATOR 5: Grey #1
print d$;"-dhgr" : rem Load Double Hi-res driver 6: Medium blue
7: Light blue
8: Brown
9: Orange
10: Grey #2
11: Pink
12: Green
13: Yellow
14: Aqua
15: White
dim c(15) Color Wheel:
data 15,10,5,13,8,14,12,4,9,1,11,3,7,6,2 1: Magenta
for i = 1 to 15 9: Orange
13: Yellow
12: Green
4: Dark green
14: Aqua
7: Light blue
6: Medium blue
2: Dark blue
3: Purple
11: Pink
}
{ green, yellow, orange, red }
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
RL = 78 : RH = 79 : REM RNDL and RNDH
SEED = peek(RL) + peek(RH) * 256 : REM Get seed for random num generator
NA = rnd(SEED) : REM Seed random num generator
print D$;"-dhgr" : REM Load Double Hi-Res driver
dim c(16)
data 1,9,13,12,4,14,7,6,2,3,11,-1
mc = 0 {max colors}
£nextColor
read c(i) read c(i)
next if c(i) = -1 then @lastColor
mc = mc + 1
goto @nextColor
£lastColor
&HGR2 : REM FULL SCREEN DOUBLE HIGH RES &HGR2 : REM Full screen double hi-res
&MODE(2) : REM 16-color mode &MODE(2) : REM 16-color mode
{ Clear screen to black } { Clear screen to black }
&BCOLOR=0 &BCOLOR=0
&CLEAR &CLEAR
mx = sw - 1 mx = sw - 1 {max x}
my = sh - 1 my = sh - 1 {max y}
cc = 0 cc = 0
ci = 1 ci = 1
for x = 0 to mx for x = 0 to mx
if cc < 8 then cc=cc+1:goto @setColor if cc < 8 then cc = cc + 1 : goto @setColor
cc = 0 cc = 0
ci = ci + 1 ci = ci + 1
if ci > 15 then @checkKeypress if ci > mc{max color} then @checkKeypress
£setColor £setColor
&hcolor = c(ci) &hcolor = c(ci)
&hplot x,0 to x,my &hplot x,0 to x,my
@ -51,13 +91,13 @@ if peek(kbd) <= 127 then @checkKeypress
get k$ get k$
£exit £exit
&TEXT &text
print "Colors terminated" print "Colors terminated"
print "Run -FP before running it again to clear memory"; print "Run -FP before running it again to clear memory";
END end
{ re = p1 mod p2 } { re = p1 mod p2 }
£modulus £modulus
let re = p1 - int(p1 / p2) * p2 re = p1 - int(p1 / p2) * p2
return return