move_y(mode,⁻1) © Move cursor 1 pixel up
draw_all() © Update screen
ElseIf key=344 Then © [DOWN]
move_y(mode,1) © Move cursor 1 pixel down
draw_all() © Update screen
ElseIf key=4436 Then © [2ND] [RIGHT]
move_x(mode,10) © Move cursor 10 pixels right
draw_all() © Update screen
ElseIf key=4433 Then © [2ND] [LEFT]
move_x(mode,⁻10) © Move cursor 10 pixels left
draw_all() © Update screen
ElseIf key=4434 Then © [2ND] [UP]
move_y(mode,⁻10) © Move cursor 10 pixels up
draw_all() © Update screen
ElseIf key=4440 Then © [2ND] [DOWN]
move_y(mode,10) © Move cursor 10 pixels down
draw_all() © Update screen
© Handle feature keys
ElseIf key=ko Then © [O] Toggle origin/target adjustment mode
when(mode=0,1,0)→mode © If mode = 0, toggle to 1 and vice versa
ElseIf key=kh Then © [H] Display 'help' screen
help()
ElseIf key=km Then © [M] Display measurement results
dist()→p © Calculate measurements
if p[3]=undef then © Set angle measurement display string
"undef"→r © ... handle 'undef'
else © ... else format radian and degree results
format(p[3],"F3")&" rad ("&format(p[4],"F1")&"°)"→r
EndIf
Dialog © Display measurements
Title "Measurement"
s text "x: "&format(p[1],"F2")&" in ("&format(25.4*p[1],"F1")&" mm)"
text "y: "&format(p[2],"F2")&" in ("&format(25.4*p[2],"F1")&" mm)"
text "θ: "&r
EndDlog
elseif key=258 then © [STO] Copy measurements to Home screen
"{x_in,y_in,θrad,θ°}"→ q01 © Save label ...
dist()→q02 © ... and measurements
util\copyto_h("q01","q02") © ... then copy them to the Home screen
draw_all() © ... and redraw to clean up after copyto_h()
EndIf
EndLoop
©==================================
© Clean up before exiting program
©==================================
© Delete global variables
delvar main\±ox,main\±oy,main\±tx,main\±ty,main\±x,main\±y,main\±scl
rclGDB gdb © Restore graph database settings
setMode(modedb) © Restore mode settings
DispHome © Display Home screen
EndPrgm
1 - 27
To Next Page
Loading...
Need help?
General
