jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed GIFPlot examples.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6646 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2004-11-03 17:14:51 +00:00
commit e38310fe8b
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
SWIG/Examples/GIFPlot/Ocaml/full/runme.ml
View file

@ -27,7 +27,7 @@ let nypoints = 60
let cmap = _new_ColorMap (C_string "cmap")
let frame = _new_FrameBuffer (C_list [ C_int 500 ;
C_int 500 ])
let _ = _FrameBuffer_clear (C_list [ frame ; _BLACK ])
let _ = _FrameBuffer_clear (C_list [ frame ; _BLACK C_void ])
let p2 = _new_Plot3D (C_list [ frame ;
C_float xmin ; C_float ymin ; C_float zmin ;
@ -40,7 +40,7 @@ let _ = _Plot3D_rotd (C_list [ p2 ; C_float 10.0 ])
let drawsolid () =
begin
_Plot3D_clear (C_list [ p2 ; _BLACK ]) ;
_Plot3D_clear (C_list [ p2 ; _BLACK C_void ]) ;
_Plot3D_start p2 ;
let dx = ((xmax -. xmin) /. (float_of_int nxpoints))
and dy = ((ymax -. ymin) /. (float_of_int nypoints))