--- gobook.perl 2014/09/28 04:29:18 3.1 +++ gobook.perl 2017/02/01 05:39:20 3.3 @@ -1,5 +1,5 @@ #! /usr/bin/perl -w -# $Id: gobook.perl,v 3.1 2014/09/28 04:29:18 philip Exp $ +# $Id: gobook.perl,v 3.3 2017/02/01 05:39:20 philip Exp $ use XML::Simple; use strict; use PostScript::Simple; @@ -55,7 +55,7 @@ $p->setcolour(60,28,0); $p->text(35,175, "Land-Out Guide"); $p->setfont("Helvetica", 17); $p->setcolour("white"); -$p->text(12,52, "3rd Edition 2013"); +$p->text(12,52, "5th Edition 2017"); $p->newpage; # Contents @@ -98,11 +98,9 @@ $p->text($t1,$v, "Text by Phil Plane and $v -= $ls; $p->text($t1,$v, "Copyright GlideOmarama.com 2013."); $v -= $ls; -$p->text($t1,$v, "First Edition published November 2007. "); +$p->text($t1,$v, "First Edition published November 2007."); $v -= $ls; -$p->text($t1,$v, "Second Edition published November 2008. "); -$v -= $ls; -$p->text($t1,$v, "Third Edition published November 2013. "); +$p->text($t1,$v, "Fifth Edition published February 2017."); $p->text(70,5, "(" . $pn++ . ")"); my $welcome = q{Produced for Omarama based glider pilots to assist safe emergency landings and satisfactory retrieves, this Guide and the associated South Island Gliding Maps (SIGMap) have been nearly 4 years in the making. Special thanks to Phil Plane, Chris Streat, Chris Rudge, Malcolm Walls and posthumously to Richard Halstead who started it all. @@ -489,7 +487,7 @@ foreach my $stripnum ( sort keys %{$stri else { $p->setcolour(255,54,0); # Glide Omarama Orange $p->setfont("Helvetica", 32); - $p->text({rotate => 45}, $t2 ,20, 'Details in next edition' ); + $p->text({rotate => 45}, $t2 ,20, 'No picture yet' ); $p->setcolour("black"); } my $v = 185;