← Back to branch summary

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

« back to all changes in this revision

Viewing changes to examples/perl/x06.pl

  • 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/perl/x06.pl
1
1
#! /usr/bin/env perl
2
2
#
3
 
# Demo x06 for PLplot PDL bindings
 
3
# Demo x06 for the PLplot PDL binding
4
4
#
5
5
# Font demo
6
6
#
20
20
#
21
21
# You should have received a copy of the GNU Library General Public License
22
22
# along with PLplot; if not, write to the Free Software
23
 
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 
23
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
24
24
 
 
25
# SYNC: x06c.c 1.16
25
26
 
26
27
use PDL;
27
28
use PDL::Graphics::PLplot;
44
45
 
45
46
# Draw the grid using plbox
46
47
 
47
 
plbox (0.1, 0, 0.1, 0, "bcgt", "bcgt");
 
48
plbox (0.1, 0, 0.1, 0, "bcg", "bcg");
48
49
 
49
50
# Write the digits below the frame
50
51
 
62
63
 
63
64
  # Write the digits to the left of the frame
64
65
 
65
 
  plmtex (1.0, (1.0 - (2 * $i + 1) / 26.0), 1.0, "lv", $i);
 
66
  plmtex (1.0, (1.0 - (2 * $i + 1) / 26.0), 1.0, "lv", 10 * $i);
66
67
 
67
68
  for ($j = 0; $j <= 9; $j++) {
68
69
    my $x = 0.1 * $j + 0.05;