plplot 0.0.0

data/examples/x30.rb

@@ -0,0 +1,141 @@
+#!/usr/bin/env ruby
+$-w = true if $0 == __FILE__
+
+require 'rubygems'
+require 'plplot'
+include PLplot
+
+# Alpha color values demonstration.
+#
+# Copyright (C) 2008 Hazen Babcock
+#
+#
+# This file is part of PLplot.
+#
+# PLplot is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Library 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
+#
+# This example will only really be interesting when used with devices that
+# support or alpha (or transparency) values, such as the cairo device family.
+
+red = [ 0, 255, 0, 0 ]
+green = [ 0, 0, 255, 0 ]
+blue = [ 0, 0, 0, 255 ]
+alpha = [ 1.0, 1.0, 1.0, 1.0 ]
+
+px = [ 0.1, 0.5, 0.5, 0.1 ]
+py = [ 0.1, 0.1, 0.5, 0.5 ]
+
+pos = [ 0.0, 1.0 ]
+rcoord = [ 1.0, 1.0 ]
+gcoord = [ 0.0, 0.0 ]
+bcoord = [ 0.0, 0.0 ]
+acoord = [ 0.0, 1.0 ]
+rev = [ 0, 0 ]
+
+PLOptionParser.parse!
+
+plinit
+plscmap0n(4)
+plscmap0a(red, green, blue, alpha)
+
+# Page 1:
+#
+# This is a series of red, green and blue rectangles overlaid
+# on each other with gradually increasing transparency.
+
+# Set up the window
+pladv(0)
+plvpor(0.0, 1.0, 0.0, 1.0)
+plwind(0.0, 1.0, 0.0, 1.0)
+plcol0(0)
+plbox("", 1.0, 0, "", 1.0, 0)
+
+# Draw the boxes
+9.times do |i|
+  icol = i % 3 + 1
+
+  # Get a color, change its transparency and
+  # set it as the current color.
+  r, g, b, a = plgcol0a(icol)
+  plscol0a(icol, r, g, b, 1 - i / 9.0)
+  plcol0(icol)
+
+  # Draw the rectangle
+  plfill(px, py)
+
+  # Shift the rectangles coordinates
+  4.times do |j|
+    px[j] += 0.5 / 9.0
+    py[j] += 0.5 / 9.0
+  end
+end
+
+# Page 2:
+#
+# This is a bunch of boxes colored red, green or blue with a single
+# large (red) box of linearly varying transparency overlaid. The
+# overlaid box is completely transparent at the bottom and completely
+# opaque at the top.
+
+# Set up the window
+pladv(0)
+plvpor(0.1, 0.9, 0.1, 0.9)
+plwind(0.0, 1.0, 0.0, 1.0)
+
+# Draw the boxes. There are 25 of them drawn on a 5 x 5 grid.
+5.times do |i|
+  # Set box X position
+  px[0] = 0.05 + 0.2 * i
+  px[1] = px[0] + 0.1
+  px[2] = px[1]
+  px[3] = px[0]
+
+  # We don't want the boxes to be transparent, so since we changed
+  # the colors transparencies in the first example we have to change
+  # the transparencies back to completely opaque.
+  icol = i % 3 + 1
+  r, g, b, a = plgcol0a(icol)
+  plscol0a(icol, r, g, b, 1)
+  plcol0(icol)
+  5.times do |j|
+    # Set box y position and draw the box.
+    py[0] = 0.05 + 0.2 * j
+    py[1] = py[0]
+    py[2] = py[0] + 0.1
+    py[3] = py[2]
+    plfill(px, py)
+  end
+end
+
+# Create the color map with 128 colors and use plscmap1la to initialize
+# the color values with a linearly varying red transparency (or alpha)
+plscmap1n(128)
+plscmap1la(1, pos, rcoord, gcoord, bcoord, acoord, rev)
+
+# Use that cmap1 to create a transparent red gradient for the whole
+# window.
+px[0] = 0
+px[1] = 1
+px[2] = 1
+px[3] = 0
+
+py[0] = 0
+py[1] = 0
+py[2] = 1
+py[3] = 1
+
+plgradient(px, py, 90)
+
+plend

data/examples/x31.rb

@@ -0,0 +1,238 @@
+#!/usr/bin/env ruby
+$-w = true if $0 == __FILE__
+
+require 'rubygems'
+require 'plplot'
+include PLplot
+
+# Copyright (C) 2008 Alan W. Irwin
+# Copyright (C) 2008 Andrew Ross
+#
+# set/get tester
+#
+# This file is part of PLplot.
+#
+# PLplot is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Library 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
+
+# Allow conversion of booleans to ints
+class FalseClass; def to_i; 0; end; end
+class TrueClass;  def to_i; 1; end; end
+
+r1 = [   0, 255 ]
+g1 = [ 255,   0 ]
+b1 = [   0,   0 ]
+a1 = [   1,   1 ]
+
+status = 0
+
+# Parse and process command line arguments
+
+PLOptionParser.parse!
+
+# Test setting / getting familying parameters before plinit
+# Save values set by plparseopts to be restored later.
+# This shows how to use "parallel assignment" to assign
+# each return value to a separate variable.
+fam0, num0, bmax0 = plgfam
+fam1  = false
+num1  = 10
+bmax1 = 1000
+plsfam(fam1, num1, bmax1)
+
+# Retrieve the same values?
+fam2, num2, bmax2 = plgfam
+printf("family parameters: fam, num, bmax = %d %d %d\n", fam2, num2, bmax2)
+if fam2 != fam1 || num2 != num1 || bmax2 != bmax1
+  STDERR.puts("plgfam test failed\n")
+  status = 1
+end
+# Restore values set initially by plparseopts
+plsfam(fam0, num0, bmax0)
+
+# Test setting / getting page parameters before plinit
+# Save values set by plparseopts to be restored later.
+# This shows how to save all return values in an Array
+# for use with the "splat" operator when restoring.
+page0 = plgpage
+xp1    = 200
+yp1    = 200
+xleng1 = 400
+yleng1 = 200
+xoff1  = 10
+yoff1  = 20
+plspage(xp1, yp1, xleng1, yleng1, xoff1, yoff1)
+
+# Retrieve the same values?
+xp2, yp2, xleng2, yleng2, xoff2, yoff2 = plgpage
+printf("page parameters: xp, yp, xleng, yleng, xoff, yoff = %f %f %d %d %d %d\n", xp2, yp2, xleng2, yleng2, xoff2, yoff2)
+if (xp2 != xp1 || yp2 != yp1 || xleng2 != xleng1 || yleng2 != yleng1 ||
+    xoff2 != xoff1 || yoff2 != yoff1)
+  STDERR.puts("plgpage test failed\n")
+  status = 1
+end
+# Restore values set initially by plparseopts.
+plspage(*page0)
+
+# Test setting / getting compression parameter across plinit.
+compression1 = 95
+plscompression(compression1)
+
+# Initialize plplot
+plinit
+
+# Test if device initialization screwed around with the preset
+# compression parameter.
+compression2 = plgcompression
+printf("Output various PLplot parameters\n")
+printf("compression parameter = %d\n", compression2)
+if (compression2 != compression1)
+  STDERR.puts("plgcompression test failed\n")
+  status = 1
+end
+
+# Exercise plscolor, plscol0, plscmap1, and plscmap1a to make sure
+# they work without any obvious error messages.
+plscolor(1)
+plscol0(1, 255, 0, 0)
+plscmap1(r1, g1, b1)
+plscmap1a(r1, g1, b1, a1)
+
+level2 = plglevel
+printf("level parameter = %d\n", level2)
+if (level2 != 1)
+  STDERR.puts("plglevel test failed.\n")
+  status = 1
+end
+
+pladv(0)
+plvpor(0.01, 0.99, 0.02, 0.49)
+xmin, xmax, ymin, ymax = plgvpd
+printf("plvpor: xmin, xmax, ymin, ymax = %f %f %f %f\n", xmin, xmax, ymin, ymax)
+if (xmin != 0.01 || xmax != 0.99 || ymin != 0.02 || ymax != 0.49)
+  STDERR.puts("plgvpd test failed\n")
+  status = 1
+end
+xmid = 0.5 * (xmin + xmax)
+ymid = 0.5 * (ymin + ymax)
+
+plwind(0.2, 0.3, 0.4, 0.5)
+xmin, xmax, ymin, ymax = plgvpw
+printf("plwind: xmin, xmax, ymin, ymax = %f %f %f %f\n", xmin, xmax, ymin, ymax)
+if (xmin != 0.2 || xmax != 0.3 || ymin != 0.4 || ymax != 0.5)
+  STDERR.puts("plgvpw test failed\n")
+  status = 1
+end
+
+# Get world coordinates for middle of viewport
+wx, wy, win = plcalc_world(xmid, ymid)
+printf("world parameters: wx, wy, win = %f %f %d\n", wx, wy, win)
+if (wx - 0.5 * (xmin + xmax)).abs > 1.0E-5 || (wy - 0.5 * (ymin + ymax)).abs > 1.0E-5
+  STDERR.puts("plcalc_world test failed\n")
+  status = 1
+end
+
+# Retrieve and print the name of the output file (if any).
+# This goes to stderr not stdout since it will vary between tests and
+# we want stdout to be identical for compare test.
+fnam = plgfnam
+if fnam.empty?
+  printf("No output file name is set\n")
+else
+  printf("Output file name read\n")
+end
+STDERR.printf("Output file name is %s\n", fnam)
+
+# Set and get the number of digits used to display axis labels
+# Note digits is currently ignored in pls[xyz]ax and
+# therefore it does not make sense to test the returned
+# value
+plsxax(3, 0)
+digmax, digits = plgxax
+printf("x axis parameters: digmax, digits = %d %d\n", digmax, digits)
+if digmax != 3
+  STDERR.puts("plgxax test failed\n")
+  status = 1
+end
+
+plsyax(4, 0)
+digmax, digits = plgyax
+printf("y axis parameters: digmax, digits = %d %d\n", digmax, digits)
+if (digmax != 4)
+  STDERR.puts("plgyax test failed\n")
+  status = 1
+end
+
+plszax(5, 0)
+digmax, digits = plgzax
+printf("z axis parameters: digmax, digits = %d %d\n", digmax, digits)
+if (digmax != 5)
+  STDERR.puts("plgzax test failed\n")
+  status = 1
+end
+
+plsdidev(0.05, PL::NOTSET, 0.1, 0.2)
+mar, aspect, jx, jy = plgdidev
+printf("device-space window parameters: mar, aspect, jx, jy = %f %f %f %f\n", mar, aspect, jx, jy)
+if (mar != 0.05 || jx != 0.1 || jy != 0.2)
+  STDERR.puts("plgdidev test failed\n")
+  status = 1
+end
+
+plsdiori(1.0)
+ori = plgdiori
+printf("ori parameter = %f\n", ori)
+if (ori != 1.0)
+  STDERR.puts("plgdiori test failed\n")
+  status = 1
+end
+
+plsdiplt(0.1, 0.2, 0.9, 0.8)
+xmin, ymin, xmax, ymax = plgdiplt
+printf("plot-space window parameters: xmin, ymin, xmax, ymax = %f %f %f %f\n", xmin, ymin, xmax, ymax)
+if (xmin != 0.1 || xmax != 0.9 || ymin != 0.2 || ymax != 0.8)
+  STDERR.puts("plgdiplt test failed\n")
+  status = 1
+end
+
+plsdiplz(0.1, 0.1, 0.9, 0.9)
+zxmin, zymin, zxmax, zymax = plgdiplt
+printf("zoomed plot-space window parameters: xmin, ymin, xmax, ymax = %f %f %f %f\n", zxmin, zymin, zxmax, zymax)
+if ((zxmin - (xmin + (xmax - xmin) * 0.1)).abs > 1.0E-5 ||
+    (zxmax - (xmin + (xmax - xmin) * 0.9)).abs > 1.0E-5 ||
+    (zymin - (ymin + (ymax - ymin) * 0.1)).abs > 1.0E-5 ||
+    (zymax - (ymin + (ymax - ymin) * 0.9)).abs > 1.0E-5)
+  STDERR.puts("plsdiplz test failed\n")
+  status = 1
+end
+
+plscolbg(10, 20, 30)
+r, g, b, = plgcolbg
+printf("background colour parameters: r, g, b = %d %d %d\n", r, g, b)
+if (r != 10 || g != 20 || b != 30)
+  STDERR.puts("plgcolbg test failed\n")
+  status = 1
+end
+
+plscolbga(20, 30, 40, 0.5)
+r, g, b, a = plgcolbga
+printf("background/transparency colour parameters: r, g, b, a = %d %d %d %f\n", r, g, b, a)
+if (r != 20 || g != 30 || b != 40 || a != 0.5)
+  STDERR.puts("plgcolbga test failed\n")
+  status = 1
+end
+
+plend
+
+exit status

data/examples/x32.rb

@@ -0,0 +1,159 @@
+#!/usr/bin/env ruby
+$-w = true if $0 == __FILE__
+
+require 'rubygems'
+require 'plplot'
+include PLplot
+
+# Box plot demo.
+#
+# Copyright (C) 2008 by FLLL <http://www.flll.jku.at>
+# Author: Robert Pollak <robert.pollak@jku.at>
+# Copyright (C) 2009 Andrew Ross
+#
+# This file is part of PLplot.
+#
+#  PLplot is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Library 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
+
+def plfbox(x, y25, y50, y75, lw, uw )
+
+  spacing = 0.4; # in x axis units
+
+  xmin = x + spacing / 2.0;
+  xmax = x + 1.0 - spacing / 2.0;
+
+  # box
+
+  px = [xmin, xmin, xmax, xmax, xmin]
+  py = [ y25,  y75,  y75,  y25,  y25]
+
+  plpsty( 0 );
+  plfill( px, py );
+  plcol0( 1 );
+  pllsty( 1 );
+  plline( px, py );
+
+
+  # median
+
+  mx = [xmin, xmax]
+  my = [ y50,  y50];
+
+  pllsty( 1 );
+  plline( mx, my );
+
+  # lower whisker
+
+  xmid   = ( xmin + xmax ) / 2.0;
+  xwidth = xmax - xmin;
+  wx = [xmid, xmid]
+  wy = [  lw,  y25]
+
+  pllsty( 2 ); # short dashes and gaps
+  plline( wx, wy );
+
+  barx = [xmid - xwidth / 4.0, xmid + xwidth / 4.0]
+  bary = [lw, lw]
+
+  pllsty( 1 );
+  plline( barx, bary );
+
+  # upper whisker
+
+  xmid   = ( xmin + xmax ) / 2.0;
+  xwidth = xmax - xmin;
+  wy = [y75, uw]
+
+  pllsty( 2 ) # short dashes and gaps
+  plline( wx, wy );
+
+  bary = [uw, uw]
+
+  pllsty( 1 );
+  plline( barx, bary );
+end
+
+#--------------------------------------------------------------------------
+# Does a box plot.
+#--------------------------------------------------------------------------
+
+# quartiles
+y25= [
+  0.984, 0.980, 0.976, 0.975, 0.973,
+  0.967, 0.974, 0.954, 0.987, 0.991
+]
+y50 = [
+  0.994, 0.999, 1.035, 0.995, 1.002,
+  0.997, 1.034, 0.984, 1.007, 1.017
+]
+y75 = [
+  1.054, 1.040, 1.066, 1.025, 1.043,
+  1.017, 1.054, 1.004, 1.047, 1.031
+]
+
+# lower and upper whisker
+lw = [
+  0.964, 0.950, 0.926, 0.955, 0.963,
+  0.937, 0.944, 0.924, 0.967, 0.941
+]
+
+uw = [
+  1.071, 1.062, 1.093, 1.045, 1.072,
+  1.067, 1.085, 1.024, 1.057, 1.071
+]
+
+# outliers
+outx = [3.50, 6.50]
+outy = [0.89, 1.09]
+
+#pos = [0.0, 0.25, 0.5, 0.75, 1.0]
+#red = [0.0, 0.25, 0.5, 1.0, 1.0]
+#green = [1.0, 0.5, 0.5, 0.5, 1.0]
+#blue = [1.0, 1.0, 0.5, 0.25, 0.0]
+
+# Parse and process command line arguments
+
+PLOptionParser.parse!
+
+# Initialize plplot
+
+plinit
+
+pladv( 0 );
+plvsta();
+
+x0 = 1.0;
+plwind( x0, x0 + 10, 0.85, 1.15 );
+plcol0( 1 );
+plbox( "bc", 1.0, 0, "bcgnst", 0, 0 );
+pllab( "Group", "Value", "#frPLplot Example 32" );
+
+# plscmap1l(1,pos,red,green,blue);
+
+10.times do |i|
+  plcol1( i / 9.0 );
+  plfbox( ( x0 + i ), y25[i], y50[i], y75[i], lw[i], uw[i] );
+
+  string = sprintf( "%d", x0.to_i + i );
+  plmtex( "b", 1.0, ( ( i + 1 ) * 0.1 - 0.05 ), 0.5, string );
+end
+
+# some outliers plotted with intermediate-sized circles, see PLplot
+# example 06 for other possibilities.
+plpoin( outx, outy, 22 );
+
+# Don't forget to call plend() to finish off!
+
+plend