patch from Alex
svn: r552
This commit is contained in:
parent
7ed2a33211
commit
7dfbfae9c6
|
@ -37,10 +37,10 @@
|
||||||
|
|
||||||
(define* pl-setup-page
|
(define* pl-setup-page
|
||||||
(get-ffi-obj "c_plspage" libplplot
|
(get-ffi-obj "c_plspage" libplplot
|
||||||
(_fun (xp : _plflt = 0.)
|
(_fun (xp : _plint = 0)
|
||||||
(yp : _plflt = 0.)
|
(yp : _plint = 0)
|
||||||
(xleng : _plflt)
|
(xleng : _plint)
|
||||||
(yleng : _plflt)
|
(yleng : _plint)
|
||||||
(xoff : _plint = 0)
|
(xoff : _plint = 0)
|
||||||
(yoff : _plint = 0)
|
(yoff : _plint = 0)
|
||||||
-> _void)))
|
-> _void)))
|
||||||
|
@ -116,7 +116,7 @@
|
||||||
|
|
||||||
(define* pl-fill
|
(define* pl-fill
|
||||||
(get-ffi-obj "c_plfill" libplplot
|
(get-ffi-obj "c_plfill" libplplot
|
||||||
(_fun (n : _int = (length x-values))
|
(_fun (n : _plint = (length x-values))
|
||||||
(x-values : (_list i _plflt))
|
(x-values : (_list i _plflt))
|
||||||
(y-values : (_list i _plflt))
|
(y-values : (_list i _plflt))
|
||||||
-> _void)))
|
-> _void)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user