| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 |
- \ ctp line drawing
- base @ decimal
- variable down
- : line-draw ( -- )
- lcd-cls
- s" Line Drawing" lcd-type
- lcd-cr lcd-cr
- s" Touch screen to draw line" lcd-type
- 9 lcd-text-rows 1- lcd-at-xy
- s" Clear" lcd-type
- 10 lcd-spaces
- s" Exit" lcd-type
- button-flush
- key-flush
- ctp-flush
- false down !
- lcd-black
- begin
- ctp-pos? if
- ctp-pos dup 0<
- if
- 2drop
- false down !
- else
- down @
- if
- lcd-line-to
- else
- lcd-move-to
- true down !
- then
- then
- then
- button? if
- button
- case
- button-left of
- lcd-cls
- false down !
- endof
- button-centre of
- endof
- button-right of
- exit
- endof
- endcase
- then
- key? if
- key-flush
- then
- wait-for-event
- again
- ;
- base !
|
