[Plplot-cvs] SF.net SVN: plplot:[10289] trunk

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

Revision: 10289
          http://plplot.svn.sourceforge.net/plplot/?rev=10289&view=rev
Author:   andrewross
Date:     2009-08-18 21:50:23 +0000 (Tue, 18 Aug 2009)

Log Message:
-----------
Update tcl bindings to include plarc, plbtime, plctime and plconfigtime.

Update example 3 consistent with C version.

Modified Paths:
--------------
    trunk/bindings/tcl/plapi.tpl
    trunk/examples/tcl/x03.tcl

Modified: trunk/bindings/tcl/plapi.tpl
===================================================================
--- trunk/bindings/tcl/plapi.tpl	2009-08-18 18:48:18 UTC (rev 10288)
+++ trunk/bindings/tcl/plapi.tpl	2009-08-18 21:50:23 UTC (rev 10289)
@@ -36,6 +36,17 @@
 pltclcmd pladv void
 page	PLINT Def: 0
 
+# Plot an arc
+
+pltclcmd plarc void
+x	PLFLT
+y	PLFLT
+a	PLFLT
+b	PLFLT
+angle1	PLFLT
+angle2	PLFLT
+fill	PLINT
+
 # This functions similarly to plbox() except that the origin of the axes
 # is placed at the user-specified point (x0, y0).
 
@@ -87,6 +98,17 @@
 ztick	PLFLT
 nsubz	PLINT
 
+# Calculate broken-down time from continuous time for current stream.
+
+pltclcmd plbtime void
+year PLINT&
+month PLINT&
+day PLINT&
+hour PLINT&
+min PLINT&
+sec PLFLT&
+ctime PLFLT
+
 # Calculate world coordinates and subpage from relative device coordinates.
 
 pltclcmd plcalc_world void
@@ -110,12 +132,39 @@
 pltclcmd plcol1 void
 col1	PLFLT
 
+# Configure transformation between continuous and broken-down time (and
+# vice versa) for current stream. 
+
+pltclcmd plconfigtime void
+scale	PLFLT
+offset1	PLFLT
+offset2	PLFLT
+ccontrol	PLINT
+ifbtime_offset	PLINT
+year	PLINT
+month	PLINT
+day	PLINT
+hour	PLINT
+min	PLINT
+sec	PLFLT
+
 # Copies state parameters from the reference stream to the current stream.
 
 pltclcmd plcpstrm void
 iplsr   PLINT
 flags	PLINT
 
+# Calculate continuous time from broken-down time for current stream.
+
+pltclcmd plctime void
+year PLINT
+month PLINT
+day PLINT
+hour PLINT
+min PLINT
+sec PLFLT
+ctime PLFLT&
+
 # Converts input values from relative device coordinates to relative plot
 # coordinates.
 

Modified: trunk/examples/tcl/x03.tcl
===================================================================
--- trunk/examples/tcl/x03.tcl	2009-08-18 18:48:18 UTC (rev 10288)
+++ trunk/examples/tcl/x03.tcl	2009-08-18 21:50:23 UTC (rev 10289)
@@ -21,13 +21,7 @@
     matrix yj f $nj1
 
     for {set i 1} {$i <= $ni} {incr i} {
-	for {set j 0} {$j < $nj1} {incr j} {
-	    set r     [expr $i * $dr]
-	    set theta [expr $j * $dtheta]
-	    xj $j = [expr $r * cos($theta)]
-	    yj $j = [expr $r * sin($theta)]
-	}
-	$w cmd plline $nj1 xj yj
+        $w cmd plarc 0.0 0.0 [expr 0.1 * $i]] [expr 0.1 * $i] 0.0 360.0 0
     }
 
 # Draw radial spokes for polar grid and write labels for angle


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