1
2
3
4
5
6
7
8
9
10
|
(use ezxdisp srfi-18)
(define *ezx* (ezx-init 650 650 "Test Critter"))
(require-library ezxgui)
(define *green* (make-ezx-color 0 1 0))
(define *black* (make-ezx-color 0 0 0))
(define *grey* (make-ezx-color 0.1 0.1 0.1))
(define *blue* (make-ezx-color 0 0 1))
(define *cyan* (make-ezx-color 0 1 1))
(define *green* (make-ezx-color 0 1 0))
|
|
|
1
2
3
4
5
6
7
8
9
10
|
(use ezxdisp srfi-18)
(define *ezx* (ezx-init 650 650 "Batch simulator"))
(require-library ezxgui)
(define *green* (make-ezx-color 0 1 0))
(define *black* (make-ezx-color 0 0 0))
(define *grey* (make-ezx-color 0.1 0.1 0.1))
(define *blue* (make-ezx-color 0 0 1))
(define *cyan* (make-ezx-color 0 1 1))
(define *green* (make-ezx-color 0 1 0))
|
342
343
344
345
346
347
348
349
350
351
352
353
354
|
(y2 (- origin-y h)))
;; (print "x1 " x1 ", origin-y " origin-y ", x2 " x2 ", y2 " y2)
(ezx-fillrect-2d *ezx* x1 y2 x2 origin-y (get-user-color user))
(if (not (null? tal))
(loop (car tal)(cdr tal) x1)))))
(ezx-redraw *ezx*)))))))
;; (let* ((args (argv))
;; (fname (if (> (length args) 1)
;; (cadr args)
;; "default.scm")))
(load "default.scm")
|
|
|
|
|
<
|
|
342
343
344
345
346
347
348
349
350
351
352
353
|
(y2 (- origin-y h)))
;; (print "x1 " x1 ", origin-y " origin-y ", x2 " x2 ", y2 " y2)
(ezx-fillrect-2d *ezx* x1 y2 x2 origin-y (get-user-color user))
(if (not (null? tal))
(loop (car tal)(cdr tal) x1)))))
(ezx-redraw *ezx*)))))))
(let* ((args (argv))
(fname (if (> (length args) 1)
(cadr args)
"default.scm")))
(load (if (file-exists? fname) fname "default.scm")))
|