Overview
| Comment: | Added makefile to batchsim |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
37efe35171f9fbef7d9441697f297588 |
| User & Date: | mrwellan on 2015-03-31 08:24:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-04-01
| ||
| 01:20 | Merged in ezsteps refactor branch check-in: db2ccc3980 user: matt tags: v1.60 | |
|
2015-03-31
| ||
| 22:55 | Partial removal of bash script for ezsteps check-in: 437eaccb58 user: matt tags: ezsteps-refactor | |
| 08:24 | Added makefile to batchsim check-in: 37efe35171 user: mrwellan tags: v1.60 | |
|
2015-03-30
| ||
| 22:49 | Improved recovery when communications goes bad in http transport check-in: 2c6622a2b7 user: matt tags: v1.60 | |
Changes
Added batchsim/Makefile version [dd6ba68847].
> > > | 1 2 3 | batchsim : batchsim.scm csc batchsim.scm |
Modified batchsim/batchsim.scm from [8edb779609] to [5b100bed93].
1 2 | (use ezxdisp srfi-18) | | | 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 | (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*))))))) | | | | | < | | 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")))
|