no title added by lg188 on Sat Apr 2 13:53:46 2016
(use matchable doodle) (use srfi-13) (use 9p-client) (use utf8) (define *paint* #f) (define red '(1 0 0 0.3)) ;; logging (define (log-dbg str ) (set-font! "Terminus" 12 solid-white) ;; (text x doodle-height 'str align: #:left) (with-output-to-file con "log.txt" (lambda () (printf str))) ) (world-inits (lambda () (clear-screen) (set-font! "Grisaia Custom SP" 18 solid-white) (text doodle-width doodle-height '("Press ESC to leave") align: #:right) (log-dbg "Welcome") )) (world-changes (lambda (events dt exit) (for-each (lambda (e) (match e (('mouse 'pressed x y 1) (set! *paint* #t) (debug-log "test" "test") (text x y '("X") align: #:center )) ;; (draw-surface) (('mouse 'released x y 1) (set! *paint* #f)) (('mouse 'moved x y) (when *paint* (filled-circle x y 3 solid-white))) (('key 'pressed #\esc) (exit #t)) (else (void)))) events))) ;; (define draw-surface () ;; () ;; ) (new-doodle title: "Test" background: solid-black) (run-event-loop)