source: project/release/5/ezxdisp/trunk/examples/lines.scm @ 38155

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

C5 port of ezxdisp

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