FM / demo

/usr/share/doc/ImageMagick-perl/demo

Name	Size	Mode	Actions
annotate.pl	1589	0644	edit dl rm
annotate_words.pl	1967	0644	edit dl rm
button.pl	359	0644	edit dl rm
compose-specials.pl	5473	0644	edit dl rm
composite.pl	1525	0644	edit dl rm
demo.pl	12097	0644	edit dl rm
lsys.pl	2336	0644	edit dl rm
Makefile	360	0644	edit dl rm
model.gif	23433	0644	edit dl rm
piddle.pl	1908	0644	edit dl rm
pink-flower.gif	544	0644	edit dl rm
pixel-fx.pl	1545	0644	edit dl rm
README	124	0644	edit dl rm
red-flower.gif	694	0644	edit dl rm
settings.pl	697	0644	edit dl rm
shadow-text.pl	505	0644	edit dl rm
shapes.pl	1240	0644	edit dl rm
single-pixels.pl	1129	0644	edit dl rm
smile.gif	1349	0644	edit dl rm
steganography.pl	664	0644	edit dl rm
tile.gif	1566	0644	edit dl rm
tree.pl	744	0644	edit dl rm
Turtle.pm	868	0644	edit dl rm
yellow-flower.gif	565	0644	edit dl rm

Edit: /usr/share/doc/ImageMagick-perl/demo/piddle.pl (1908B)

#!/usr/bin/perl
# Piddle example using PerlMagick methods.

use Image::Magick;

#
# Create white canvas.
#
$image=Image::Magick->new(size=>'300x300');
$image->Read('xc:white');
#
# Draw blue grid
#
for ($i=0; $i < 300; $i+=10)
{
  $image->Draw(primitive=>'line',points=>"$i,0 $i,300",stroke=>"#ccf");
  $image->Draw(primitive=>'line',points=>"0,$i 300,$i",stroke=>"#ccf");
}
#
# Draw rounded rectangle.
#
$image->Draw(primitive=>'RoundRectangle',fill=>'blue',stroke=>'maroon',
  strokewidth=>4,points=>'30,30 100,100 10,10');
#
# Draw curve.
#
$image->Draw(primitive=>'bezier',points=>'20,20, 100,50, 50,100, 160,160',
  fill=>'none',stroke=>'black',strokewidth=>4);
#
# Draw line.
#
$image->Draw(primitive=>'line',points=>"10,200 20,190",stroke=>red);
#
# Draw arc within a circle.
#
$image->Draw(primitive=>'circle',stroke=>'none',fill=>'yellow',,
  points=>"170,70 200,70");
$image->Draw(primitive=>'Path',stroke=>'none',fill=>'blue',strokewidth=>4,
  points=>'M170,70 v-30 a30,30 0 0,0 -30,30 z');
$image->Draw(primitive=>'circle',stroke=>'black',fill=>'none',strokewidth=>4,
  points=>"170,70 200,70");
#
# Draw pentagram.
#
$image->Draw(primitive=>'polygon',
  points=>"160,120 130,190 210,145 110,145 190,190 160,120",stroke=>red,
  fill=>LimeGreen,strokewidth=>3);
#
# Draw rectangle.
#
$image->Draw(primitive=>'line',points=>'200,260 200,200',stroke=>yellow,
  strokewidth=>5);
$image->Draw(primitive=>'line',points=>'200,200 260,200',stroke=>yellow,
  strokewidth=>5);
$image->Draw(primitive=>'line',points=>'260,200 260,260',stroke=>red,
  strokewidth=>5);
$image->Draw(primitive=>'line',points=>'200,260 260,260',stroke=>green,
  strokewidth=>5);
#
# Draw text.
#
$image->Annotate(font=>'Generic.ttf',text=>'This is a test!',
  geometry=>'+30+140',fill=>'green',pointsize=>24,rotate=>45.0);
$image->Write('piddle.pam');
$image->Write('piddle.mvg');
$image->Write(magick=>'SHOW',title=>"Piddle");

#!/usr/bin/perl # Piddle example using PerlMagick methods. use Image::Magick; # # Create white canvas. # $image=Image::Magick->new(size=>'300x300'); $image->Read('xc:white'); # # Draw blue grid # for ($i=0; $i < 300; $i+=10) { $image->Draw(primitive=>'line',points=>"$i,0 $i,300",stroke=>"#ccf"); $image->Draw(primitive=>'line',points=>"0,$i 300,$i",stroke=>"#ccf"); } # # Draw rounded rectangle. # $image->Draw(primitive=>'RoundRectangle',fill=>'blue',stroke=>'maroon', strokewidth=>4,points=>'30,30 100,100 10,10'); # # Draw curve. # $image->Draw(primitive=>'bezier',points=>'20,20, 100,50, 50,100, 160,160', fill=>'none',stroke=>'black',strokewidth=>4); # # Draw line. # $image->Draw(primitive=>'line',points=>"10,200 20,190",stroke=>red); # # Draw arc within a circle. # $image->Draw(primitive=>'circle',stroke=>'none',fill=>'yellow',, points=>"170,70 200,70"); $image->Draw(primitive=>'Path',stroke=>'none',fill=>'blue',strokewidth=>4, points=>'M170,70 v-30 a30,30 0 0,0 -30,30 z'); $image->Draw(primitive=>'circle',stroke=>'black',fill=>'none',strokewidth=>4, points=>"170,70 200,70"); # # Draw pentagram. # $image->Draw(primitive=>'polygon', points=>"160,120 130,190 210,145 110,145 190,190 160,120",stroke=>red, fill=>LimeGreen,strokewidth=>3); # # Draw rectangle. # $image->Draw(primitive=>'line',points=>'200,260 200,200',stroke=>yellow, strokewidth=>5); $image->Draw(primitive=>'line',points=>'200,200 260,200',stroke=>yellow, strokewidth=>5); $image->Draw(primitive=>'line',points=>'260,200 260,260',stroke=>red, strokewidth=>5); $image->Draw(primitive=>'line',points=>'200,260 260,260',stroke=>green, strokewidth=>5); # # Draw text. # $image->Annotate(font=>'Generic.ttf',text=>'This is a test!', geometry=>'+30+140',fill=>'green',pointsize=>24,rotate=>45.0); $image->Write('piddle.pam'); $image->Write('piddle.mvg'); $image->Write(magick=>'SHOW',title=>"Piddle");