[Plplot-cvs] SF.net SVN: plplot:[8724] trunk/examples/tcl

[<arj...@us...>]

Revision: 8724
          http://plplot.svn.sourceforge.net/plplot/?rev=8724&view=rev
Author:   arjenmarkus
Date:     2008-08-30 07:32:51 +0000 (Sat, 30 Aug 2008)

Log Message:
-----------
Added examples 20 and 21 to the list of examples. Note: the code is not quite
finished yet, but they are getting into shape.

Modified Paths:
--------------
    trunk/examples/tcl/CMakeLists.txt
    trunk/examples/tcl/tcldemos.tcl

Modified: trunk/examples/tcl/CMakeLists.txt
===================================================================
--- trunk/examples/tcl/CMakeLists.txt	2008-08-30 07:30:19 UTC (rev 8723)
+++ trunk/examples/tcl/CMakeLists.txt	2008-08-30 07:32:51 UTC (rev 8724)
@@ -48,6 +48,8 @@
 "17"
 "18"
 "19"
+"20"
+"21"
 "22"
 "23"
 "24"

Modified: trunk/examples/tcl/tcldemos.tcl
===================================================================
--- trunk/examples/tcl/tcldemos.tcl	2008-08-30 07:30:19 UTC (rev 8723)
+++ trunk/examples/tcl/tcldemos.tcl	2008-08-30 07:32:51 UTC (rev 8724)
@@ -20,23 +20,10 @@
 # Tcl scripts compatible.
 #----------------------------------------------------------------------------
 
-for {set i 1} {$i <= 19} {incr i} {
+for {set i 1} {$i <= 30} {incr i} {
     set demo x[format "%02d" $i]
     source $demo.tcl
     # restore defaults
     plcol0 1
     proc $i {} "$demo"
 }
-set i 22
-set demo x[format "%02d" $i]
-source $demo.tcl
-# restore defaults
-plcol0 1
-proc $i {} "$demo"
-for {set i 24} {$i <= 30} {incr i} {
-    set demo x[format "%02d" $i]
-    source $demo.tcl
-    # restore defaults
-    plcol0 1
-    proc $i {} "$demo"
-}


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