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)