|
Last change
on this file since 25842 was
25842,
checked in by felix winkelmann, 9 years ago
|
|
added kitaaba (work in progress, far from finished)
|
|
File size:
634 bytes
|
| Line | |
|---|
| 1 | ;;;; test.scm |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | (use ktab) |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | (open-screen 640 480) ;XXX |
|---|
| 8 | (open-font "fonts/apl385.ttf" 20) ;XXX |
|---|
| 9 | |
|---|
| 10 | (insert #"Hello.\nThis is a test.\n\n") ;XXX |
|---|
| 11 | |
|---|
| 12 | (match (command-line-arguments) |
|---|
| 13 | ((from to) |
|---|
| 14 | (let ((to (string->number to))) |
|---|
| 15 | (do ((i (string->number from) (add1 i))) |
|---|
| 16 | ((>= i to)) |
|---|
| 17 | (insert-string (sprintf "#x~x -> " i)) |
|---|
| 18 | (insert (u16vector i 10))))) |
|---|
| 19 | (_ #f)) |
|---|
| 20 | |
|---|
| 21 | (define (process-line) |
|---|
| 22 | ;;... |
|---|
| 23 | #f |
|---|
| 24 | ) |
|---|
| 25 | |
|---|
| 26 | (do () (#f) |
|---|
| 27 | (redraw) |
|---|
| 28 | (when (get-next-event) |
|---|
| 29 | (case (event-code-type (event-type)) |
|---|
| 30 | ((QUIT) (exit)) |
|---|
| 31 | ((KEYDOWN) (decode-key-event)) |
|---|
| 32 | ((VIDEORESIZE) |
|---|
| 33 | (resize-screen (event-w) (event-h)))))) |
|---|
Note: See
TracBrowser
for help on using the repository browser.
