[Plplot-cvs] SF.net SVN: plplot:[11858] trunk/examples/lua/x27.lua

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

Revision: 11858
          http://plplot.svn.sourceforge.net/plplot/?rev=11858&view=rev
Author:   andrewross
Date:     2011-08-05 07:45:34 +0000 (Fri, 05 Aug 2011)

Log Message:
-----------
Update lua version of example 27 to include plarc demo.

Modified Paths:
--------------
    trunk/examples/lua/x27.lua

Modified: trunk/examples/lua/x27.lua
===================================================================
--- trunk/examples/lua/x27.lua	2011-08-04 23:34:19 UTC (rev 11857)
+++ trunk/examples/lua/x27.lua	2011-08-05 07:45:34 UTC (rev 11858)
@@ -94,6 +94,34 @@
 end
 
 
+function arcs()
+    NSEG = 8
+
+    theta = 0.0
+    dtheta = 360.0 / NSEG
+    pl.env( -10.0, 10.0, -10.0, 10.0, 1, 0 )
+
+    -- Plot segments of circle in different colors
+    for i = 0, NSEG-1 do
+        pl.col0( i%2 + 1 )
+        pl.arc(0.0, 0.0, 8.0, 8.0, theta, theta + dtheta, 0.0, 0)
+        theta = theta + dtheta
+    end    
+
+    -- Draw several filled ellipses inside the circle at different
+    -- angles.
+    a = 3.0
+    b = a * math.tan( (dtheta/180.0*math.pi)/2.0 )
+    theta = dtheta/2.0
+    for i = 0, NSEG-1 do
+        pl.col0( 2 - i%2 )
+        pl.arc( a*math.cos(theta/180.0*math.pi), a*math.sin(theta/180.0*math.pi), a, b, 0.0, 360.0, theta, 1)
+        theta = theta + dtheta
+    end
+
+end
+
+
 ----------------------------------------------------------------------------
 -- main
 --
@@ -162,4 +190,6 @@
   spiro(params[i], fill) 
 end
 
+arcs()
+
 pl.plend()


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