[Plplot-cvs] SF.net SVN: plplot:[12810] trunk/examples/ocaml/x22.ml

[<and...@us...>]

Revision: 12810
          http://sourceforge.net/p/plplot/code/12810
Author:   andrewross
Date:     2013-12-05 00:12:52 +0000 (Thu, 05 Dec 2013)
Log Message:
-----------
Partial update to the ocaml version of example 22. Still needs more work (and some changes to the ocaml bindings).

Modified Paths:
--------------
    trunk/examples/ocaml/x22.ml

Modified: trunk/examples/ocaml/x22.ml
===================================================================
--- trunk/examples/ocaml/x22.ml	2013-12-04 19:04:27 UTC (rev 12809)
+++ trunk/examples/ocaml/x22.ml	2013-12-05 00:12:52 UTC (rev 12810)
@@ -82,7 +82,7 @@
 (*
  * Vector plot of flow through a constricted pipe
  *)
-let constriction () =
+let constriction astyle =
   let nx = 20 in
   let ny = 20 in
   let dx = 1.0 in
@@ -107,7 +107,7 @@
       yg.(i).(j) <- y;
       let b = ymax /. 4.0 *. (3.0 -. cos (pi *. x /. xmax)) in
       if abs_float y < b then (
-        let dbdx = ymax /. 4.0 *. sin (pi *. x /. xmax) *. y /. b in
+        let dbdx = ymax /. 4.0 *. sin (pi *. x /. xmax) *. pi /. xmax *. y /. b in
         u.(i).(j) <- q *. ymax /. b;
         v.(i).(j) <- dbdx *. u.(i).(j);
       )
@@ -119,10 +119,11 @@
   done;
 
   plenv xmin xmax ymin ymax 0 0;
-  pllab "(x)" "(y)" "#frPLplot Example 22 - constriction";
+  let title =Printf.sprintf "%s%d%s" "#frPLplot Example 22 - constriction (arrow style " astyle ")" in
+  pllab "(x)" "(y)" title;
   plcol0 2;
   plset_pltr (pltr2 xg yg);
-  plvect u v (-0.5);
+  plvect u v (-1.0);
   plcol0 1;
   ()
 
@@ -246,14 +247,18 @@
   (* Set arrow style using arrow_x and arrow_y then
      plot using these arrows. *)
   plsvect arrow_x arrow_y fill;
-  constriction ();
+  constriction ( 1 );
 
   (* Set arrow style using arrow2_x and arrow2_y then
      plot using these filled arrows. *)
   let fill = true in
   plsvect arrow2_x arrow2_y fill;
-  constriction ();
+  constriction ( 2 );
 
+  (* Need to be able to pass NULL arguments to plsvect to reset arrow style to default
+     Currently this doesn't work *)
+  (* plsvect [||] [||] fill; *)
+
   potential ();
 
   plend ();

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.