source: project/release/4/kitaaba/trunk/test.scm @ 25842

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.