Simple Cursor (Graph Screen)

Forum Attachments

Simple Cursor (Graph Screen)

Michael2_3B 08 Feb 2015 03:52

I tried to recreate the cursor screen that some Apps have, where the cursor moves faster across the screen the longer a button is held down.
Note - this works without quick keys.

:ClrDraw
:CoordOff
:GridOff
:AxesOff
:0→Xmin:1→ΔX
:0→Ymin:1→ΔY
:47→A:31→B:1→C
:Repeat K=45
:getKey→K
:Line(A,B,A+2,B
:Line(A,B,A,B-2     //cursor
:Line(A,B,A+2,B-2
:While K and K≠45  //while a button other than [CLEAR] is being held down(only works with repeating keys(DEL and the arrow keys))
:getKey→K
:Line(A,B,A+2,B,0
:Line(A,B,A,B-2,0
:Line(A,B,A+2,B-2,0
:A+C(K=26)(A+C≤92)-C(K=24)(A-C≥0)+(K=26)(A+C>92)(A+1≤92)-(K=24)(A-C<0)(A-1≥0→A  //moves cursor by C unless new position of cursor would be off screen, in which it will only move cursor by 1
:B+C(K=25)(B+C≤62)-C(K=34)(B-C≥2)+(K=25)(B+C>62)(B+1≤62)-(K=34)(B-C<2)(B-1≥2→B
:Line(A,B,A+2,B
:Line(A,B,A,B-2
:Line(A,B,A+2,B-2
:C+1→C    //increases the distance that the cursor moves
:End
:1→C    //restores original value of C when a button is no longer being held down
:End
:ClrDraw
:ClrHome
:Output(1,1,"

This code probably isn't completely optimized, so could someone optimize it?

Oh, and one of the things about this program is that you can't move your cursor by just tapping a button. You actually have to hold down the button if you want to move it at all… if anyone wants to fix this you can

Last edited on 08 Feb 2015 21:29 by Michael2_3B Show more

Re: Simple Cursor (Graph Screen)

Michael2_3B 08 Feb 2015 21:32

Of course, if you were actually going to use it, obviously you would put in something like:

:If K=105 and cursor is hovering over an icon or something
:Then
:do something

Re: Simple Cursor (Graph Screen)

Michael2_3B 09 Feb 2015 23:56

Can anyone optimize this some?

Re: Simple Cursor (Graph Screen)

(account deleted) 10 Feb 2015 01:43

Last edited on 01 Apr 2021 12:31 by (account deleted) Show more

Re: Simple Cursor (Graph Screen)

Michael2_3B 10 Feb 2015 02:17

Wow, that's great! Thanks for fixing some of the problems :)

Also, how would you modify the code to detect if the user presses the enter key and the cursor is hovering over an icon or text? If they are, then it would just execute a different program or goto a different part of the code… I think it would probably be something along the lines of:

:If K=105 and A># and A<# and B># and B<#  //if you had multiple icons or clickable text then this might not be the best way
:Then
:(exit out of the loop - obviously you wouldn't use a Goto because that would cause a memory leak)

What would be the best modification to your code so that it does this?
—
Oh, and when you are moving your cursor over an icon or clickable text, what would be the best way to keep those things on the screen? I would probably use a Pic variable that has the menu already on it, and recall the pic every time you move your cursor, but that might make it slower… What do you think?

Last edited on 11 Feb 2015 16:16 by Michael2_3B Show more

Re: Simple Cursor (Graph Screen)

Michael2_3B 11 Feb 2015 16:16

?