Menu
▾
▴
[Plplot-cvs] SF.net SVN: plplot:[12172] trunk/examples
|
From: <ai...@us...> - 2012-02-19 18:18:26
|
Revision: 12172
http://plplot.svn.sourceforge.net/plplot/?rev=12172&view=rev
Author: airwin
Date: 2012-02-19 18:18:19 +0000 (Sun, 19 Feb 2012)
Log Message:
-----------
Add correct properties for recently added files.
Modified Paths:
--------------
trunk/examples/f95/x00f.f90
trunk/examples/tcl/x00
trunk/examples/tcl/x00.tcl
Property Changed:
----------------
trunk/examples/f95/x00f.f90
trunk/examples/tcl/x00
trunk/examples/tcl/x00.tcl
Modified: trunk/examples/f95/x00f.f90
===================================================================
--- trunk/examples/f95/x00f.f90 2012-02-19 11:36:16 UTC (rev 12171)
+++ trunk/examples/f95/x00f.f90 2012-02-19 18:18:19 UTC (rev 12172)
@@ -1,59 +1,59 @@
-! $Id: x00c.c 12001 2011-10-27 05:26:31Z airwin $
-!
-! Simple demo of a 2D line plot.
-!
-! Copyright (C) 2011 Alan W. Irwin
-!
-! This file is part of PLplot.
-!
-! PLplot is free software; you can redistribute it and/or modify
-! it under the terms of the GNU Library General Public License as published
-! by the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! PLplot is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU Library General Public License for more details.
-!
-! You should have received a copy of the GNU Library General Public License
-! along with PLplot; if not, write to the Free Software
-! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-
-program x00f95
- use plf95demolib
-
- integer, parameter :: NSIZE = 101
-
- real(kind=plflt), dimension(NSIZE) :: x, y
-
- real(kind=plflt) :: xmin = 0._plflt, xmax = 1._plflt, ymin = 0._plflt, ymax = 100._plflt
- integer :: i
-
- ! Prepare data to be plotted.
- x = arange(0, NSIZE) / real(NSIZE-1,plflt)
- y = ymax * x**2
-
- ! Or alternatively, using a DO-loop
- !do i = 1,NSIZE
- ! x(i) = real( i - 1, plflt ) / real( NSIZE - 1, plflt )
- ! y(i) = ymax * x(i)**2
- !enddo
-
- ! Parse and process command line arguments
- call plparseopts( PL_PARSE_FULL )
-
- ! Initialize plplot
- call plinit
-
- ! Create a labelled box to hold the plot.
- call plenv( xmin, xmax, ymin, ymax, 0, 0 )
- call pllab( "x", "y=100 x#u2#d", "Simple PLplot demo of a 2D line plot" )
-
- ! Plot the data that was prepared above.
- call plline( x, y )
-
- ! Close PLplot library
- call plend
-
-end program x00f95
+! $Id$
+!
+! Simple demo of a 2D line plot.
+!
+! Copyright (C) 2011 Alan W. Irwin
+!
+! This file is part of PLplot.
+!
+! PLplot is free software; you can redistribute it and/or modify
+! it under the terms of the GNU Library General Public License as published
+! by the Free Software Foundation; either version 2 of the License, or
+! (at your option) any later version.
+!
+! PLplot is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+! GNU Library General Public License for more details.
+!
+! You should have received a copy of the GNU Library General Public License
+! along with PLplot; if not, write to the Free Software
+! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+program x00f95
+ use plf95demolib
+
+ integer, parameter :: NSIZE = 101
+
+ real(kind=plflt), dimension(NSIZE) :: x, y
+
+ real(kind=plflt) :: xmin = 0._plflt, xmax = 1._plflt, ymin = 0._plflt, ymax = 100._plflt
+ integer :: i
+
+ ! Prepare data to be plotted.
+ x = arange(0, NSIZE) / real(NSIZE-1,plflt)
+ y = ymax * x**2
+
+ ! Or alternatively, using a DO-loop
+ !do i = 1,NSIZE
+ ! x(i) = real( i - 1, plflt ) / real( NSIZE - 1, plflt )
+ ! y(i) = ymax * x(i)**2
+ !enddo
+
+ ! Parse and process command line arguments
+ call plparseopts( PL_PARSE_FULL )
+
+ ! Initialize plplot
+ call plinit
+
+ ! Create a labelled box to hold the plot.
+ call plenv( xmin, xmax, ymin, ymax, 0, 0 )
+ call pllab( "x", "y=100 x#u2#d", "Simple PLplot demo of a 2D line plot" )
+
+ ! Plot the data that was prepared above.
+ call plline( x, y )
+
+ ! Close PLplot library
+ call plend
+
+end program x00f95
Property changes on: trunk/examples/f95/x00f.f90
___________________________________________________________________
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Modified: trunk/examples/tcl/x00
===================================================================
--- trunk/examples/tcl/x00 2012-02-19 11:36:16 UTC (rev 12171)
+++ trunk/examples/tcl/x00 2012-02-19 18:18:19 UTC (rev 12172)
@@ -1,22 +1,22 @@
-#!/bin/sh
-#--------------------------------*- Tcl -*------------------------------------#
-# $Id: x01 11045 2010-05-31 19:46:51Z airwin $
-#
-# Maurice LeBrun
-# 12/24/02
-#
-# A front-end to x00.tcl for running directly from the command line, locating
-# pltcl via PATH.
-# Handles all usual plplot command arguments. See "pltcl -h" for info.
-#-----------------------------------------------------------------------------#
-#\
-exec pltcl -f "$0" ${1+"$@"}
-
-source x00.tcl
-
-plgver ver
-puts [format "PLplot library version: %s" $ver ]
-
-plinit
-x00
-plend
+#!/bin/sh
+#--------------------------------*- Tcl -*------------------------------------#
+# $Id$
+#
+# Maurice LeBrun
+# 12/24/02
+#
+# A front-end to x00.tcl for running directly from the command line, locating
+# pltcl via PATH.
+# Handles all usual plplot command arguments. See "pltcl -h" for info.
+#-----------------------------------------------------------------------------#
+#\
+exec pltcl -f "$0" ${1+"$@"}
+
+source x00.tcl
+
+plgver ver
+puts [format "PLplot library version: %s" $ver ]
+
+plinit
+x00
+plend
Property changes on: trunk/examples/tcl/x00
___________________________________________________________________
Added: svn:executable
+ *
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
Modified: trunk/examples/tcl/x00.tcl
===================================================================
--- trunk/examples/tcl/x00.tcl 2012-02-19 11:36:16 UTC (rev 12171)
+++ trunk/examples/tcl/x00.tcl 2012-02-19 18:18:19 UTC (rev 12172)
@@ -1,30 +1,30 @@
-#----------------------------------------------------------------------------
-# $Id: x00.tcl 11572 2011-02-21 07:39:43Z arjenmarkus $
-#----------------------------------------------------------------------------
-
-# Simple demo of 2D line plot.
-
-proc x00 {{w loopback}} {
-
- set xmin 0.0
- set xmax 1.0
- set ymin 0.0
- set ymax 100.0
-
- set nsize 101
- matrix x f $nsize
- matrix y f $nsize
-
- for {set i 0} {$i < $nsize} {incr i} {
- set xi [expr {$i / double($nsize - 1)}]
- x $i = $xi
- y $i = [expr {$ymax * $xi * $xi}]
- }
-
- # Create a labelled box to hold the plot
- $w cmd plenv $xmin $xmax $ymin $ymax 0 0
- $w cmd pllab "x" "y=100 x#u2#d" "Simple PLplot demo of a 2D line plot"
-
- # Plot the data that was prepared above
- $w cmd plline $nsize x y
-}
+#----------------------------------------------------------------------------
+# $Id$
+#----------------------------------------------------------------------------
+
+# Simple demo of 2D line plot.
+
+proc x00 {{w loopback}} {
+
+ set xmin 0.0
+ set xmax 1.0
+ set ymin 0.0
+ set ymax 100.0
+
+ set nsize 101
+ matrix x f $nsize
+ matrix y f $nsize
+
+ for {set i 0} {$i < $nsize} {incr i} {
+ set xi [expr {$i / double($nsize - 1)}]
+ x $i = $xi
+ y $i = [expr {$ymax * $xi * $xi}]
+ }
+
+ # Create a labelled box to hold the plot
+ $w cmd plenv $xmin $xmax $ymin $ymax 0 0
+ $w cmd pllab "x" "y=100 x#u2#d" "Simple PLplot demo of a 2D line plot"
+
+ # Plot the data that was prepared above
+ $w cmd plline $nsize x y
+}
Property changes on: trunk/examples/tcl/x00.tcl
___________________________________________________________________
Added: svn:keywords
+ Author Date Id Revision
Added: svn:eol-style
+ native
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|