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

Diff for /gobook.perl between versions 1.4 and 3.1

version 1.4, 2013/11/06 03:20:01 version 3.1, 2014/09/28 04:29:18
Line 1 Line 1
 #! /usr/bin/perl -w  #! /usr/bin/perl -w
   # $Id$
 use XML::Simple;  use XML::Simple;
 use strict;  use strict;
 use PostScript::Simple;  use PostScript::Simple;
Line 12  if ( defined $xml ){ Line 13  if ( defined $xml ){
     $strips = XMLin($xml, KeyAttr => {strip => 'id'});      $strips = XMLin($xml, KeyAttr => {strip => 'id'});
 }  }
   
 # create a new PostScript object  # create a new PostScript object;
 my $p = new PostScript::Simple(papersize => "A5",  
                           colour => 1,  my $p = new PostScript::Simple(papersize => "A5", 
                           eps => 0,                                    colour => 1,
                           units => "mm",);                                       eps => 0,
                                      units => "mm");
   
 # co-ords are horizontal, vertical. from bottom left corner. 148 x 210  # co-ords are horizontal, vertical. from bottom left corner. 148 x 210
   
Line 512  foreach my $stripnum ( sort keys %{$stri Line 514  foreach my $stripnum ( sort keys %{$stri
   $Text::Wrap::columns = 30;    $Text::Wrap::columns = 30;
   if ( $strips->{strip}->{$stripnum}->{comment} =~ /Danger/ ){    if ( $strips->{strip}->{$stripnum}->{comment} =~ /Danger/ ){
    $p->setcolour("red");     $p->setcolour("red");
      # Draw over image ...
      $p->setlinewidth(4);
      $p->arc( 70, 60, 20, 0, 360);
      $p->line(50,40, 90,80);
   }    }
   my @para = split (/\n/,wrap('', '', $strips->{strip}->{$stripnum}->{comment}));    my @para = split (/\n/,wrap('', '', $strips->{strip}->{$stripnum}->{comment}));
   while (my $ln = shift @para){    while (my $ln = shift @para){
Line 601  foreach my $stripname ( sort keys %strip Line 607  foreach my $stripname ( sort keys %strip
 # write the output to a file  # write the output to a file
 $p->output("gobook.ps");  $p->output("gobook.ps");
   
   # use ghostscript to convert to pdf ...
   `gs -q -dNOPAUSE -dSAFER -dBATCH -sDEVICE=pdfwrite -sOutputFile=gobook.pdf gobook.ps`;
   
 exit 0;  exit 0;
   
 sub startpage {  sub startpage {
Removed from v.1.4  
changed lines
  Added in v.3.1

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