gobook.perl - diff

Return to gobook.perl CVS log

Up to [Omarama Landouts]

version 1.4, 2013/11/06 03:20:01	version 3.0, 2013/12/31 03:47:23
Line 512 foreach my $stripnum ( sort keys %{$stri	Line 512 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 605 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 {