the cursor key moves one pixel, and pressing [2ND] with the cursor key moves the cursor a larger
step.
There are a few dedicated function keys, and they are not necessarily obvious, so I include a 'help'
screen, which is shown each time the program starts.
ruler() has two shortcomings which could be remedied. First, it is not obvious whether the origin or the
target cursor will move when the cursor keys are pressed. However, it is obvious which cursor moves
once the key is pressed, and the other cursor can be selected by pressing [O]. Second, the program
would be easier to use if the measurement was continuously shown in the status line. This cannot be
done with TI Basic, but can be done with a C program. I chose not to do that, in order to keep the
program simple.
Source code for ruler()
ruler()
Prgm
© On-screen ruler & protractor
© 15jul02/dburkett@infinet.com
© Calls util\copyto_h()
© Global variables
© main\±ox Origin cursor x-coordinate
© main\±oy Origin cursor y-coordinate
© main\±tx Target cursor x-coordinate
© main\±ty Target cursor y-coordinate
© main\±x Maximum x-coordinate
© main\±y Maximum y-coordinate
© main\±scl Scale factor, inches/pixel
© Local variables
local gdb,key,draw_all,mode,help,move_x,move_y,modedb,p,,q01,q02r,ko,km,kh,khm,dist
© gdb graph database settings
© mode_db Mode settings
© key pressed-key code
© ko [O] key code
© km [M] key code
© kh [H] key code
© khm [HOME] key code
© mode Cursor mode: 1 == move target cursor, 0 == move origin cursor
© p Measurement results
© q01 Results label string for [STO] (copy results to home screen)
© q02 Results string for [STO] (copy results to home screen)
© r Angle measurement string
© dist Function: calculate measurements
© draw_all Program: draw both cursors on Graph screen
© help Program: display 'help' screen
© move_x Program: move target or origin cursor in x-direction
© move_y Program: move target or origin cursor in y-direction
©=========================================
© Local program and function definitions
©=========================================
© draw_all()
© Draw both cursors on LCD screen
1 - 24
To Next Page
Loading...
