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

[<hez...@us...>]

Revision: 11855
          http://plplot.svn.sourceforge.net/plplot/?rev=11855&view=rev
Author:   hezekiahcarty
Date:     2011-08-04 12:27:31 +0000 (Thu, 04 Aug 2011)

Log Message:
-----------
Update OCaml example 27 to add plarc section

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

Modified: trunk/examples/ocaml/x27.ml
===================================================================
--- trunk/examples/ocaml/x27.ml	2011-08-04 11:53:47 UTC (rev 11854)
+++ trunk/examples/ocaml/x27.ml	2011-08-04 12:27:31 UTC (rev 11855)
@@ -101,6 +101,34 @@
     plline xcoord' ycoord';
   )
 
+let deg_to_rad x = x *. pi /. 180.0
+
+let arcs () =
+  let nseg = 8 in
+
+  let theta = ref 0.0 in
+  let dtheta = 360.0 /. float_of_int nseg in
+  plenv ~-.10.0 10.0 ~-.10.0 10.0 1 0;
+
+  (* Plot segments of circle in different colors *)
+  for i = 0 to nseg - 1 do
+    plcol0 (i mod 2 + 1);
+    plarc 0.0 0.0 8.0 8.0 !theta (!theta +. dtheta) 0.0 false;
+    theta := !theta +. dtheta;
+  done;
+
+  (* Draw several filled ellipses inside the circle at different
+     angles. *)
+  let a = 3.0 in
+  let b = a *. tan (deg_to_rad dtheta /. 2.0) in
+  theta := dtheta /. 2.0;
+  for i = 0 to nseg - 1 do
+    plcol0 (2 - i mod 2);
+    plarc (a *. cos (deg_to_rad !theta)) (a *. sin (deg_to_rad !theta)) a b 0.0 360.0 !theta true;
+    theta := !theta +. dtheta;
+  done;
+  ()
+
 (*--------------------------------------------------------------------------*\
  * Generates two kinds of plots:
  *   - construction of a cycloid (animated)
@@ -164,6 +192,9 @@
     spiro params.(i) true;
   done;
 
+  (* Finally, an example to test out plarc capabilities *)
+  arcs ();
+
   (* Don't forget to call plend() to finish off! *)
   plend ();
   ()


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