replace Book chapter 1 with whole book. regen with:

(cd ../pdl-book/; perl make_html_book.pl); perl -pi -e '$_="" if /rev=/; s#PDL/Book/#content/book/#g' content/book/index.html; for x in ../pdl-book/PDL/Book/*; do if [ -d $x ]; then cp -r $x content/book/; fi; done

Author: mohawk2

content/FirstSteps.html

@@ -0,0 +1,32 @@
+# conversion for PDF document
+# has to be 8 bit PNG and reasonably bigger size
+for i in *.pdf; do convert -rotate 90 -resize 800x $i -depth 8 ${i%%.pdf}.8.png; done
+#
+#
+#
+# commands used to convert images from LyX book format to png for pod2html
+
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_env2.pdf PGPLOTFigs/ex_env2.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_points.pdf PGPLOTFigs/ex_points.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_points2.pdf PGPLOTFigs/ex_points2.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_errb.pdf PGPLOTFigs/ex_errb.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_errb2.pdf PGPLOTFigs/ex_errb2.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_line1.pdf PGPLOTFigs/ex_line1.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_bin.pdf PGPLOTFigs/ex_bin.png
+convert -rotate 90 -resize 300x PGPLOTFigs/linepoly_ex.pdf PGPLOTFigs/linepoly_ex.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_imag1.pdf PGPLOTFigs/ex_imag1.png
+convert -rotate 90 -resize 500x PGPLOTFigs/ex_imag2.pdf PGPLOTFigs/ex_imag2.png
+convert -rotate 90 -resize 500x PGPLOTFigs/eg_wedge.ps PGPLOTFigs/eg_wedge.png
+convert -rotate 90 -resize 500x PGPLOTFigs/eg_cont1.ps PGPLOTFigs/ex_cont1.png
+convert -rotate 90 -resize 500x PGPLOTFigs/ex_cont1.pdf PGPLOTFigs/ex_cont1.png
+convert -rotate 90 -resize 500x PGPLOTFigs/ex_cont2.pdf PGPLOTFigs/ex_cont2.png
+convert -rotate 90 -resize 500x PGPLOTFigs/ex_vec1.pdf PGPLOTFigs/ex_vec1.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_circle1.pdf PGPLOTFigs/ex_circle1.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_ellipse1.pdf PGPLOTFigs/ex_ellipse1.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_rect1.pdf PGPLOTFigs/ex_rect1.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_text1.pdf PGPLOTFigs/ex_text1.png
+convert -rotate 90 -resize 500x PGPLOTFigs/ex_legend1.pdf PGPLOTFigs/ex_legend1.png
+convert -rotate 90 -resize 500x PGPLOTFigs/ex_col1.pdf PGPLOTFigs/ex_col1.png
+convert -resize 600x PGPLOTFigs/ColorTables.png PGPLOTFigs/ColorTables2.png
+convert -rotate 90 -resize 300x PGPLOTFigs/ex_tline1.pdf PGPLOTFigs/ex_tline1.png
+

content/book/Operations/operator-precedence-table.png

@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use PDL;
+use PDL::Graphics::PLplot;
+
+my $pl = PDL::Graphics::PLplot->new( DEV => "xwin");
+my $x  = sequence( 10 );
+my $y  = $x**2;
+$pl->xyplot( $x, $y );
+$pl->close;
+

content/book/PGPLOTFigs/ColorTables2.8.png

@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use PDL;
+use PDL::Graphics::PLplot;
+
+# Generate a time series
+my $time = sequence(100)/10;
+my $sinewave = 5 * sin($time);
+# Create the PLplot object: use xwin for display
+my $pl = PDL::Graphics::PLplot->new( DEV => "xwin");
+
+# Plot the time series
+$pl->xyplot($time, $sinewave
+     , XLAB => 'time [s]'
+     , YLAB => 'position [cm]'
+     , TITLE => 'Mass on Spring'
+     );
+# Close the PLplot object to finalize
+$pl->close;

content/book/PGPLOTFigs/eg_wedge.8.png

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use PDL;
+use PDL::Graphics::PLplot;
+
+# Generate a time series
+my $time = sequence(100)/10;
+my $sinewave = 5 * sin($time);
+
+
+# Create the PLplot object: use wxwidgets for display
+# wxwidgets allows saving to many file types, and
+# has a Locate function under the Plot menu entry
+# providing interactive crosshairs to read individual plot values
+
+my $pl = PDL::Graphics::PLplot->new( DEV => "wxwidgets");
+
+# Plot the time series
+$pl->xyplot($time, $sinewave
+     , XLAB => 'time [s]'
+     , YLAB => 'position [cm]'
+     , TITLE => 'Mass on Spring'
+     );
+# Close the PLplot object to finalize
+$pl->close;

content/book/PGPLOTFigs/ex_bin.8.png

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use PDL::Graphics::PLplot;
+
+# Generate a time series
+my $time = sequence(100)/10;
+my $sinewave = 5 * sin($time);
+
+# Save the image to a postscript file
+
+my $pl = PDL::Graphics::PLplot->new(
+       DEV => 'pscairo'
+     , FILE => 'Symbols.eps'
+ );
+
+ # Plot the time series as points
+ $pl->xyplot($time, $sinewave
+          , PLOTTYPE => 'POINTS'
+          , SYMBOL       => 843
+          , YERRORBAR => grandom($time)/2
+     );
+
+ $pl->close;

content/book/PGPLOTFigs/ex_circle1.8.png

@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+# Generate a time series
+my $time = sequence(100)/10;
+my $sinewave = 5 * sin($time);
+my $cosinewave = 4 * cos($time);
+my $toplot = cat($sinewave, $cosinewave);
+
+# Save the image to a postscript file
+
+my $pl = PLplot->new(
+       DEV => 'pscairo'
+     , FILE => 'Multidimensional.eps'
+ );
+
+
+# Plot the time series
+$pl->xyplot($time, $toplot);
+
+$pl->close;

content/book/PGPLOTFigs/ex_col1.8.png

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+my $pl = PLplot->new(
+    DEV => 'pscairo',
+   FILE => 'Multidimensional2.eps');
+
+# Generate a time series and phase offset
+my $time = sequence(100)/10;
+my $phi = zeroes(4)->xlinvals(0, 3)->transpose;
+
+my $sinewaves = 5*sin($time + $phi);
+# Plot the time series and phi color key
+$pl->xyplot($time, $sinewaves,
+     PLOTTYPE => 'POINTS',
+     COLORMAP => $phi,
+     TITLE => 'sin(x + #gf)');
+
+$pl->colorkey($phi, 'v',
+      TITLE => '#gf',
+      VIEWPORT => [0.93, 0.96, 0.15, 0.85]);
+$pl->close;

content/book/PGPLOTFigs/ex_cont1.8.png

@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+# Generate a time series
+my $time = sequence(100)/10;
+my $sinewave = 5 * sin($time);
+my $cosinewave = 4 * cos($time);
+
+# Save the image to a postscript file
+my $pl = PLplot->new(
+      DEV => 'pscairo',
+      FILE => 'Multiple curves.eps'
+ );
+
+# Plot the sine in black, cosine in red
+$pl->xyplot($time, $sinewave);
+$pl->xyplot($time, $cosinewave , COLOR => 'RED');
+
+$pl->close;

content/book/PGPLOTFigs/ex_cont2.8.png

@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+# Generate a time series
+my $time = sequence(100)/10;
+my $sinewave = 5 * sin($time);
+my $cosinewave = 6 * cos($time);
+
+# Save the image to a postscript file
+my $pl = PLplot->new(
+      DEV => 'pscairo',
+      FILE => 'Multiple curves3.eps'
+ );
+
+# Plot the sine with full bounds
+$pl->xyplot($time, $sinewave,
+      BOX => [$time->minmax, $cosinewave->minmax]);
+
+# Plot the cosine in red
+$pl->xyplot($time, $cosinewave , COLOR => 'RED');
+
+$pl->close;

content/book/PGPLOTFigs/ex_ellipse1.8.png

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+# Save the image to a postscript file
+my $pl = PLplot->new(
+      DEV => 'pscairo',
+      FILE => 'stripplots.eps'
+ );
+
+# Generate a time series
+my $time = sequence(100)/10;
+
+# Make stripplots with the
+#      different time series
+$pl->stripplots($time,
+      [sin($time), cos($time)],
+      XLAB => 'x',
+      YLAB => ['sine', 'cosine'],
+      COLOR => ['BLUE', 'RED'],
+      TITLE => 'Sine and Cosine'
+ );
+
+$pl->close;

content/book/PGPLOTFigs/ex_env1.8.png

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use PDL::Graphics::PLplot;
+
+my ($t, $data) = rcols(*DATA, 0, []);
+
+my $pl = PDL::Graphics::PLplot->new( DEV => "xwin" );
+
+# Make stripplots with the different time series
+# notice data must be transposed
+
+$pl->stripplots($t, $data->transpose);
+
+$pl->close;
+
+__DATA__
+#    t      x1     x2     x3
+     1      4      6     -1
+     2      3      9      3
+     3      2      8      7
+     3     -1      4     10
+     5      1      2      6
+     6      5     -1      5
+

content/book/PGPLOTFigs/ex_env2.8.png

@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+# Generate a time series
+my $time = sequence(100)/10;
+
+# Save the image to a postscript file
+my $pl = PLplot->new(
+       DEV => 'pscairo',
+       FILE => 'subpages.eps',
+       SUBPAGES => [2,2]);
+
+# Plot the time series
+$pl->xyplot($time, sin($time), TITLE => 'Sine');
+
+$pl->xyplot($time, cos($time), TITLE => 'Cosine', 
+            SUBPAGE => 0);
+
+$pl->xyplot($time, tan($time), TITLE => 'Tangent', 
+            SUBPAGE => 4);
+
+$pl->xyplot($time, $time**2, TITLE => 'Squared', 
+            SUBPAGE => 3);
+
+$pl->close;

content/book/PGPLOTFigs/ex_errb.8.png

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict; 
+use warnings;
+use PDL::Graphics::PLplot;
+use PDL;
+use PDL::NiceSlice;
+
+# Generate a noisy time series
+my $time = sequence(1000) /10;
+my $sinewave = 1 * sin($time) + grandom($time) / 3;
+
+# Save the image to a postscript file
+my $pl = PDL::Graphics::PLplot->new( DEV => 'pscairo', FILE => 'inset.eps');
+
+# Plot subset as the main plot
+$pl->xyplot($time(0:65), $sinewave(0:65), TITLE => 'Noisy Pendulum', 
+          YLAB => 'Displacement d [m]', XLAB => 'Time t [s]');
+
+# Plot full data set as inset
+$pl->xyplot($time, $sinewave,
+     TITLE       => undef,
+     VIEWPORT => [0.525, 0.825, 0.525, 0.775],
+     BOX         => [$time->minmax, $sinewave->minmax],
+     CHARSIZE => 0.6
+  );
+$pl->close;

content/book/PGPLOTFigs/ex_errb2.8.png

@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+my $x = zeroes(20)->xlinvals(-3, 3);
+my $y = $x**2;
+
+# Set a custom page size
+my $pl = PLplot->new(
+       DEV => 'pscairo',
+       FILE => 'box example 2.eps',
+       BACKGROUND => 'SKYBLUE',
+       PAGESIZE => [360, 240]
+ );
+
+# Plot a quadratic function:
+$pl->xyplot($x, $y, YLAB => 'y', XLAB => 'x');
+
+$pl->close;

content/book/PGPLOTFigs/ex_errorbars.8.png

@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+my $x = zeroes(20)->xlinvals(-3, 3);
+my $y = $x**2;
+
+my $pl = PLplot->new(
+       DEV => 'pscairo',
+       FILE => 'box example 3.eps',
+       BACKGROUND => 'SKYBLUE'
+ );
+
+# Put the plot in the upper right:
+$pl->xyplot($x, $y,
+       YLAB => 'y', 
+       XLAB => 'x',
+       VIEWPORT => [0.5, 0.9, 0.6, 0.8]
+       );
+
+$pl->close;

content/book/PGPLOTFigs/ex_imag1.8.png

@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use strict; 
+use warnings; 
+use PDL;
+use aliased 'PDL::Graphics::PLplot';
+
+my $x = zeroes(20)->xlinvals(-3, 3);
+my $y = $x**2;
+my $pl = PLplot->new(
+       DEV => 'pscairo',
+       FILE => 'box example 4.eps',
+       BACKGROUND => 'SKYBLUE'
+ );
+
+# Center the plot
+$pl->xyplot($x, $y,
+      YLAB => 'y', XLAB => 'x',
+      VIEWPORT => [0.3, 0.7, 0.3, 0.7]
+      );
+
+$pl->close;