source: project/release/5/ezxdisp/trunk/examples/hello.scm

Last change on this file was 38155, checked in by Ivan Raikov, 4 months ago

C5 port of ezxdisp

File size: 348 bytes
Line 
1(import scheme ezxdisp (chicken pretty-print))
2
3(define ezx (ezx-init 100 100 "Hello, ezxdisp"))
4
5(ezx-set-background ezx (make-ezx-color 1 1 1))
6(ezx-fillcircle-2d ezx 50 50 25 (make-ezx-color 1 0 0))
7(ezx-redraw ezx)
8
9(let loop ()
10  (let ((e (receive (ezx-next-event ezx))))
11    (pp e)
12    (unless (= (car e) ezx:CLOSE) (loop))))
13
14(ezx-quit ezx)
Note: See TracBrowser for help on using the repository browser.