Axe debounce routine?

Forum Attachments

Summary:

I know of one, but it makes my grayscale graphics look weird. Any way around this?

Axe debounce routine?

Josiah W 30 Nov 2013 17:39

I'm working on an Axe version of my game Shutdown, and it uses grayscale graphics. I have the movement code right, but the debounce routine I'm using makes the grayscale graphics look weird. Any way to fix this for 4 level grayscale?

While 1
Pause 5
End!If getKey(0)

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Axe debounce routine?

Xeda Elnara 30 Nov 2013 18:25

What I do in Assembly, Axe, or Grammer, is keep the key press stored somewhere, and keep a counter for making the key repeat. The OS does this, too. So for example:

Lbl MAIN
getKey→A
If =B
If C-1→C     ;decrement counter, check if 0
0→A
Else
10→C        ;reset counter, allow key press
End
Else
50→C
A→B
End

So after that, A is your debounced keypress, B is your current keypress, C is your counter. If you change keys, then the counter is reset to 50, and if you hold down the same key, the counter decrements to 0. If the counter is not 0, then 0 is stored to A, if it is 0, then it is reset to 10 and A is not set to 0.

(The OS uses the values 50 and 10, too, so you might want to change it to something more like 10 and 2).

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Axe debounce routine?

Josiah W 30 Nov 2013 19:54

Where would that be put in my code?

I can't copy my code for your reference right now, but I put direction changing first, then drawing the box for selecting the light. Where would the debounce be stuck?

EDIT: Oh, and what I mean by "debounce" is making sure the keys DON'T repeat, so…

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Last edited on 30 Nov 2013 19:57 by Josiah W Show more

Re: Axe debounce routine?

Xeda Elnara 30 Nov 2013 20:02

You can put the code anywhere you would normally have a getKey. The routine I posted is a little fancy, but if you want to make sure keys don't repeat, you just get rid of the counter.

getKey→A
If A=B
0→A
Else
A→B
End

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Axe debounce routine?

Josiah W 30 Nov 2013 20:08

It works! Just as it would be in BASIC! I'll be sure to credit you for the debounce routine, thank you!

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Axe debounce routine?

Josiah W 30 Nov 2013 21:07

Also, how does text on the LCD work?

With the Text command, not the Disp and Output( commands.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Axe debounce routine?

Xeda Elnara 30 Nov 2013 21:24

I'm not all that familiar with Axe, but I think it is just like in TI-BASIC, except it uses (X,Y) coordinates and there are probably ways that you can manipulate the pen coordinates. You should be able to find it in the Commands.html file included with Axe. It also gives timing and size info, if you get to the point where you start optimising for those things.

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Axe debounce routine?

Josiah W 30 Nov 2013 21:38

OK, I got it. Thanks!

EDIT: Ummm…I did my Text command outside of the main loop, but it got erased immediately afterwards! How would I prevent this?

EDIT 2: Fixed! (No pun intended) I just added Fix 5 to the beginning, and Fix 4 to the end, and it worked.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Last edited on 30 Nov 2013 22:00 by Josiah W Show more

Re: Axe debounce routine?

Xeda Elnara 30 Nov 2013 22:21

Haha, cool! I don't think I have ever used the Fix commands, but I generally know what they do (or at least I know what they do at the assembly level).

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Axe debounce routine?

Josiah W 01 Dec 2013 00:37

Well, I also used Fix 1 and Fix 3, and returned them to normal with Fix 0 and Fix 2, respectively.

Also, I optimized my code from ~2,100 bytes to ~1,800 bytes with RectI( instead of multiple pxlTests and Pics (sprites). Also, instead of Line( for the box, I used RectI( for each line. If only there was a RectI( command to make non-filled rectangles…

I'll post the code tomorrow, with maybe a sidebar while playing.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Axe debounce routine?

Xeda Elnara 01 Dec 2013 00:56

If only there was a RectI( command to make non-filled rectangles…

You could use RectI() once, then use another RectI() inside that.

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Axe debounce routine?

Josiah W 01 Dec 2013 01:00

I didn't think of that! Thanks!

Oh, and is this joke funny?

---

▶Nom( or BºD∟ sub( e^r n/d While,
▶Nom( or BºD∟ sub( e^r,
Goto D→, a+bi sum( or,
99 BºD∟ sub( e^r n/d While.

---

Get it?

EDIT: Your trick saved 150 bytes!

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Last edited on 01 Dec 2013 01:03 by Josiah W Show more

Re: Axe debounce routine?

Xeda Elnara 01 Dec 2013 01:31

Nice! And yes, I got it :) You should post the code some time, I like to optimise, though I know only a little Axe :D

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Axe debounce routine?

Josiah W 01 Dec 2013 02:04

OK, and can you help me come up with a very clever win message or animation? I can't think of anything clever enough, so the game will end abruptly after the winning move. :-|

The Axe source is available for download here, and I use the latest Axe Parser.

Black lights are lights "on", white lights are lights "off" (though that may change soon). Arrow keys to move cursor, ENTER to change light. Your goal is to turn off the lights.

And this is a screenie ClrDraw made over on Omnimaga of a previous version. Gameplay is the same as this, though I added a sidebar.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Axe debounce routine?

Josiah W 01 Dec 2013 03:14

I actually since made a new screenie. It is now my Omnimaga avatar.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Axe debounce routine?

Xeda Elnara 01 Dec 2013 04:28

I optimised it to 1491 bytes for the output file, using Axe 1.1.2, but that was by removing all the multiplications, changing the nested For() loops, and changing the way bounds are tested for (x,y)

:.LIGHTOUT
:ClrDrawrr
:DrawInv 
:DrawInv r
:Fix 5
:Fix 3
:Fix 1
:Text(64,0,"SHUT
:Text(64,8,"DOWN
:Fix 0
:Text(64,16,"DELUXE
:Text(58,32,"LIGHTS:
:[00C0F0FCFEFEFFFF→Pic1
:0→C
:Repeat C
:1→A
:For(6)
:1→B
:For(6)
:Pt-Off(A,B,Pic1)r
:If rand^2
:C++
:Else
:rref(A,B,8,8
:End
:B+9→B
:End
:A+9→A
:End
:End
:1→X→Y
:Repeat C=0 or getKey(15)
:Text(85,32,"   
:Text(85,32,C►Dec
:getKey→A
:If A=B
:0→A
:Else
:A→B
:End
:sub(BOX
:DispGraphrr
:sub(BOX
:Y→D
:X→C
:If B=1
:Y+9→D
:End
:If B=2
:X-9→C
:End
:If B=3
:X+9→C
:End
:If B=4
:Y-9→D
:End
:If D<55
:D→Y
:End
:If C<55
:C→X
:End
:If B=9
:rref(X,Y,8,8
:If X>1
:rref(X-9,Y,8,8
:End
:If X<46
:rref(X+9,Y,8,8
:End
:If Y>1
:rref(X,Y-9,8,8
:End
:If Y<46
:rref(X,Y+9,8,8
:End
:End
:0→C
:2→D
:For(6)
:2→E
:For(6)
:If pxl-Test(D,E
:C++
:End
:E+9→E
:End
:D+9→D
:End
:Text(85,32,"       
:End
:ClrDrawrr
:DispGraph
:Fix 0
:Fix 2
:Fix 4
:ClrHome
:
:Lbl BOX
:rref(X-1,Y-1,10,10
:rref(X-1,Y-1,10,10)r
:rref(X,Y,8,8
:rref(X,Y,8,8)r
:Return

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Axe debounce routine?

Josiah W 01 Dec 2013 05:03

Thank you!

EDIT: Well, the game so far is a hit on Omnimaga (although I unknowingly used someone else's graphics…go figure!), and your optimization helped a lot! Now for changing which light colors are on or off.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Last edited on 01 Dec 2013 17:17 by Josiah W Show more