gobook.perl - diff

Return to gobook.perl CVS log

Up to [Omarama Landouts]

version 3.1, 2014/09/28 04:29:18	version 3.0, 2013/12/31 03:47:23
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 13 if ( defined $xml ){	Line 12 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",
my $p = new PostScript::Simple(papersize => "A5",	colour => 1,
colour => 1,	eps => 0,
eps => 0,	units => "mm",);
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