| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123 |
- \ bitmap.4th
- decimal
- also c33
- : get-file ( b u -- )
- cr r/o open-file ?dup
- if cr ." open error = " dec. drop exit
- then
- >r \ save fileid
- begin
- here 30 r@ read-file ?dup \ u2 ior ior?
- if cr ." read error = " dec. drop
- r> close-file drop exit
- else
- 32 allot
- then
- 0=
- until
- r> close-file drop
- ;
- : get ( -- \ <string><space> )
- lcd-cls s" loading..." lcd-type
- bl parse get-file ;
- variable top
- variable last-x
- variable last-y
- : home-page ( -- )
- top @ LCDC_MADD p!
- ;
- : scroll
- begin
- ctp-pos? if
- ctp-pos dup 0<
- if
- 2drop
- 0 last-x !
- 0 last-y !
- else
- \ x y
- last-y @ ?dup if
- swap dup last-y ! -
- 32 * LCDC_MADD p@ +
- dup top @ <
- if
- drop
- else
- \ begin
- \ LCDC_PS p@ $80 and
- \ until
- LCDC_MADD p!
- \ 30000 delay-us
- then
- else
- last-y !
- then
- last-x @ if
- >r \ x
- last-x @ r@ - dup abs 150 >
- if
- 0<
- if
- else
- home-page
- then
- r> last-x !
- else
- drop r> drop
- then
- else
- last-x !
- then
- then
- then
- button? if
- button
- case
- button-left of
- home-page
- endof
- button-centre of
- endof
- button-right of
- exit
- endof
- endcase
- then
- key? if
- key-flush
- then
- \ cannot suspend or LCD image will blank
- \ as image is in SDRAM
- \ wait-for-event
- again
- ;
- \ load image
- align here top !
- get sans.img
- .( scroll - using function keys L=down C=home R=up )
- LCDC_MADD p@
- top @ LCDC_MADD p!
- scroll
- LCDC_MADD p!
- lcd-cls
|
