suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

patch from Alex

Browse Source 
svn: r575
This commit is contained in:
Eli Barzilay 2005-08-09 20:18:37 +00:00
parent fab4b76258
commit 9bfbc7dcb6
3 changed files with 31 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/plot/plplot.ss
View File

@ -37,8 +37,8 @@
(define* pl-setup-page
(get-ffi-obj "c_plspage" libplplot
(_fun (xp : _plint = 0)
(yp : _plint = 0)
(_fun (xp : _plflt = 0.0)
(yp : _plflt = 0.0)
(xleng : _plint)
(yleng : _plint)
(xoff : _plint = 0)

22
collects/plot/view.ss
View File

@ -65,6 +65,7 @@
(fields-with-accessors
(height 300)
(width 400)
(out-file #f) ;; if file is not #f, keep the file
(x-min -5)
(x-max 5)
(y-min -5)
@ -75,8 +76,7 @@
(device 'png)
(fgcolor '( 0 0 0))
(bgcolor '(255 255 255))
(lncolor '(255 0 0 ))
)
(lncolor '(255 0 0 )))
(define bitmap #f)
(define x-size 400)
@ -126,18 +126,20 @@
(define (start-plot)
(cond
[(eq? device 'png)
(set! bitmap (make-temporary-file))
(set! bitmap (if out-file
(build-path out-file)
(make-temporary-file)))
(init-colors)
(pl-setup-page width height)
(pl-set-device "png")
(pl-set-output-file (path->string bitmap))
(pl-init-plot)]
; [(eq? device 'mem)
; (init-colors)
; (set! bitmap (make-u8vector (* x-size y-size 4) 255))
; (pl-setup-memory x-size y-size bitmap)
; (pl-set-device "mem")
; (pl-init-plot)]
; [(eq? device 'mem)
; (init-colors)
; (set! bitmap (make-u8vector (* x-size y-size 4) 255))
; (pl-setup-memory x-size y-size bitmap)
; (pl-set-device "mem")
; (pl-init-plot)]
[else
(error "Incorrect device specified")]))
@ -147,7 +149,7 @@
[(eq? device 'png)
(pl-finish-plot)
(load-file bitmap)
(delete-file bitmap)]
(or out-file (delete-file bitmap))]
; [(eq? device 'mem)
; (pl-finish-plot)
; (set-bitmap (bits->bitmap-dc% bitmap))]