Skip to content

Commit

Permalink
use a portable format as not installations support JPEG/PNG
Browse files Browse the repository at this point in the history
  • Loading branch information
Cristy committed Nov 26, 2023
1 parent 474e915 commit 3c786ca
Show file tree
Hide file tree
Showing 16 changed files with 17 additions and 17 deletions.
4 changes: 2 additions & 2 deletions PerlMagick/demo/Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -13,5 +13,5 @@ all:
perl composite.pl

clean:
/bin/rm -f demo.jpg button.gif model.png shadow.gif tree.gif \
compose-specials.jpg single-pixels.gif pixel-fx.gif
/bin/rm -f demo.pam button.pam model.pam shadow.pam tree.pam \
compose-specials.pam single-pixels.pam pixel-fx.pam
2 changes: 1 addition & 1 deletion PerlMagick/demo/annotate.pl
Original file line number Diff line number Diff line change
Expand Up @@ -37,5 +37,5 @@
push(@$image,$label);
}
$image->Set(delay=>20);
$image->Write("annotate.miff");
$image->Write("annotate.pam");
$image->Animate();
2 changes: 1 addition & 1 deletion PerlMagick/demo/button.pl
Original file line number Diff line number Diff line change
Expand Up @@ -11,5 +11,5 @@
$q->Raise('6x6');
$q->Annotate(font=>'Generic.ttf',text=>'Push Me',fill=>'black',
gravity=>'Center',pointsize=>18);
$q->Write('button.gif');
$q->Write('button.pam');
$q->Write('show:');
2 changes: 1 addition & 1 deletion PerlMagick/demo/compose-specials.pl
Original file line number Diff line number Diff line change
Expand Up @@ -247,5 +247,5 @@
frame=>'6x6+2+2',
shadow=>'True',
);
$montage->Write('compose-specials.jpg');
$montage->Write('compose-specials.pam');
$montage->Write('show:');
2 changes: 1 addition & 1 deletion PerlMagick/demo/composite.pl
Original file line number Diff line number Diff line change
Expand Up @@ -35,5 +35,5 @@
push(@$image,$thumbnail);
}
$image->Set(delay=>20);
$image->Write("composite.miff");
$image->Write("composite.pam");
$image->Animate();
2 changes: 1 addition & 1 deletion PerlMagick/demo/demo.pl
Original file line number Diff line number Diff line change
Expand Up @@ -513,6 +513,6 @@
$montage->Composite(image=>$logo,gravity=>'North');

print "Write...\n";
$montage->Write('demo.jpg');
$montage->Write('demo.pam');
print "Display...\n";
$montage->Write('show:');
Binary file removed PerlMagick/demo/dst.png
Binary file not shown.
2 changes: 1 addition & 1 deletion PerlMagick/demo/piddle.pl
Original file line number Diff line number Diff line change
Expand Up @@ -61,6 +61,6 @@
#
$image->Annotate(font=>'Generic.ttf',text=>'This is a test!',
geometry=>'+30+140',fill=>'green',pointsize=>24,rotate=>45.0);
$image->Write('piddle.gif');
$image->Write('piddle.pam');
$image->Write('piddle.mvg');
$image->Write('show:');
2 changes: 1 addition & 1 deletion PerlMagick/demo/pixel-fx.pl
Original file line number Diff line number Diff line change
Expand Up @@ -48,5 +48,5 @@
}

# display the result (or you could save it)
$dest->Write('pixel-fx.gif');
$dest->Write('pixel-fx.pam');
$dest->Write('show:');
2 changes: 1 addition & 1 deletion PerlMagick/demo/settings.pl
Original file line number Diff line number Diff line change
Expand Up @@ -28,5 +28,5 @@
$e = $im->Trim();
die $e if $e;

$e = $im->Write('settings.png');
$e = $im->Write('settings.pam');
die $e if $e;
2 changes: 1 addition & 1 deletion PerlMagick/demo/shadow-text.pl
Original file line number Diff line number Diff line change
Expand Up @@ -11,5 +11,5 @@
$image->Blur('0x1');
$image->Annotate(font=>'Generic.ttf',fill=>'red',stroke=>'blue',pointsize=>60,
text=>'Works like magick!',geometry=>'+4+86');
$image->Write('shadow.gif');
$image->Write('shadow.pam');
$image->Write('show:');
2 changes: 1 addition & 1 deletion PerlMagick/demo/shapes.pl
Original file line number Diff line number Diff line change
Expand Up @@ -35,6 +35,6 @@
# Write image.
#
print "Write image...\n";
$image->Write('shapes.gif');
$image->Write('shapes.pam');
print "Display image...\n";
$image->Write('show:');
2 changes: 1 addition & 1 deletion PerlMagick/demo/single-pixels.pl
Original file line number Diff line number Diff line change
Expand Up @@ -43,5 +43,5 @@
$im->Scale('1000%');

# Output the changed pixels
$im->Write('single-pixels.gif');
$im->Write('single-pixels.pam');
$im->Write('show:');
Binary file removed PerlMagick/demo/src.png
Binary file not shown.
6 changes: 3 additions & 3 deletions PerlMagick/demo/steganography.pl
Original file line number Diff line number Diff line change
Expand Up @@ -14,13 +14,13 @@
$image=Image::Magick->new;
$image->ReadImage('model.gif');
$image->SteganoImage(image=>$watermark,offset=>91);
$image->Write('model.png');
$image->Write('model.pam');
$image->Write('show:');
#
# Extract image from image.
#
$size="$width" . "x" . "$height" . "+91";
$stegano=Image::Magick->new(size=>$size);
$stegano->ReadImage('stegano:model.png');
$stegano->Write('stegano.gif');
$stegano->ReadImage('stegano:model.pam');
$stegano->Write('stegano.pam');
$stegano->Write('show:');
2 changes: 1 addition & 1 deletion PerlMagick/demo/tree.pl
Original file line number Diff line number Diff line change
Expand Up @@ -32,4 +32,4 @@

$changes = \%stemchanges;
lsys_init(400);
lsys_execute('A', 10, "tree.gif", %rule);
lsys_execute('A', 10, "tree.pam", %rule);

0 comments on commit 3c786ca

Please sign in to comment.