Megatest

Diff
Login

Differences From Artifact [8edb779609]:

To Artifact [5b100bed93]:


1
2
3

4
5
6
7
8
9
10
1
2

3
4
5
6
7
8
9
10


-
+







(use ezxdisp srfi-18)

(define *ezx* (ezx-init 650 650 "Test Critter"))
(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

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")))
(let* ((args  (argv))
       (fname (if (> (length args) 1)
		  (cadr args)
 		  "default.scm")))

(load "default.scm")
  (load (if (file-exists? fname) fname "default.scm")))