[BACK]Return to gobook.perl CVS log [TXT] [DIR] Up to [Omarama Landouts]

Diff for /gobook.perl between versions 3.1 and 3.2

version 3.1, 2014/09/28 04:29:18 version 3.2, 2017/01/22 03:24:07
Line 55  $p->setcolour(60,28,0); Line 55  $p->setcolour(60,28,0);
 $p->text(35,175, "Land-Out Guide");  $p->text(35,175, "Land-Out Guide");
 $p->setfont("Helvetica", 17);  $p->setfont("Helvetica", 17);
 $p->setcolour("white");  $p->setcolour("white");
 $p->text(12,52, "3rd Edition 2013");  $p->text(12,52, "5th Edition 2017");
   
 $p->newpage;  $p->newpage;
 # Contents  # Contents
Line 100  $p->text($t1,$v, "Copyright GlideOmarama Line 100  $p->text($t1,$v, "Copyright GlideOmarama
 $v -= $ls;  $v -= $ls;
 $p->text($t1,$v, "First Edition published November 2007. ");  $p->text($t1,$v, "First Edition published November 2007. ");
 $v -= $ls;  $v -= $ls;
 $p->text($t1,$v, "Second Edition published November 2008. ");  $p->text($t1,$v, "Fifth Edition published October 2017. ");
 $v -= $ls;  
 $p->text($t1,$v, "Third Edition published November 2013. ");  
 $p->text(70,5, "(" . $pn++ . ")");  $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.  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.
Line 489  foreach my $stripnum ( sort keys %{$stri Line 487  foreach my $stripnum ( sort keys %{$stri
  else {   else {
   $p->setcolour(255,54,0); # Glide Omarama Orange    $p->setcolour(255,54,0); # Glide Omarama Orange
   $p->setfont("Helvetica", 32);    $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");    $p->setcolour("black");
  }   }
  my $v = 185;   my $v = 185;
Removed from v.3.1  
changed lines
  Added in v.3.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>