← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to examples/tcl/x08.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/tcl/x08.tcl
1
1
#----------------------------------------------------------------------------
2
 
# $Id: x08.tcl,v 1.21 2004/01/17 16:41:39 rlaboiss Exp $
 
2
# $Id: x08.tcl,v 1.23 2005/04/27 06:43:59 rlaboiss Exp $
3
3
#
4
4
# Copyright (C) 2004  Alan W. Irwin
5
5
#
17
17
#
18
18
# You should have received a copy of the GNU Library General Public License
19
19
# along with PLplot; if not, write to the Free Software
20
 
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
20
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21
21
#----------------------------------------------------------------------------
22
22
 
23
23
# Does a series of 3-d plots for a given data set, with different
182
182
               $w cmd plsurf3d x y z [expr $MAG_COLOR]
183
183
            # magnitude colored plot with faceted squares
184
184
            } elseif {$ifshade == 2} {
 
185
               cmap1_init_8 $w 0
185
186
               $w cmd plsurf3d x y z [expr $MAG_COLOR | $FACETED]
186
187
            # magnitude colored plot with contours.
187
188
            } else {
 
189
               cmap1_init_8 $w 0
188
190
               $w cmd plsurf3d x y z $xpts $ypts \
189
191
                 [expr $MAG_COLOR | $SURF_CONT | $BASE_CONT] clev $nlev
190
192
            }