]> granicus.if.org Git - imagemagick/commitdiff
(no commit message)
authorcristy <urban-warrior@git.imagemagick.org>
Mon, 6 Feb 2012 17:14:54 +0000 (17:14 +0000)
committercristy <urban-warrior@git.imagemagick.org>
Mon, 6 Feb 2012 17:14:54 +0000 (17:14 +0000)
PerlMagick/demo/lsys.pl
PerlMagick/demo/pink-flower.gif [moved from PerlMagick/demo/pink_flower.gif with 100% similarity]
PerlMagick/demo/pixel-fx.pl [moved from PerlMagick/demo/pixel_fx.pl with 98% similarity]
PerlMagick/demo/red-flower.gif [moved from PerlMagick/demo/red_flower.gif with 100% similarity]
PerlMagick/demo/single-pixels.pl
PerlMagick/demo/yellow-flower.gif [moved from PerlMagick/demo/yellow_flower.gif with 100% similarity]

index 7f9d0bdb64bb7ab8a1dfead25f6fe3e17cba1f4c..d574043feac77e457d6abf8c8d341f6ff7152f87 100644 (file)
@@ -49,13 +49,13 @@ sub lsys_init
   
   # Create the flower images
   $pink_flower = new Image::Magick;
-  $pink_flower->Read('pink_flower.gif');
+  $pink_flower->Read('pink-flower.gif');
   
   $red_flower = new Image::Magick;
-  $red_flower->Read('red_flower.gif');
+  $red_flower->Read('red-flower.gif');
   
   $yellow_flower = new Image::Magick;
-  $yellow_flower->Read('yellow_flower.gif');
+  $yellow_flower->Read('yellow-flower.gif');
   
   # Turtle:  the midpoint of the bottom edge of the image, pointing up.
   $turtle=new Turtle($imagesize/2, $imagesize, 0, 1);
similarity index 98%
rename from PerlMagick/demo/pixel_fx.pl
rename to PerlMagick/demo/pixel-fx.pl
index 37e98aae549b1976216b098933297bd4852fa2d1..61cd5ef3f711e3234e241d13d9b37743068df911 100755 (executable)
@@ -49,5 +49,5 @@ for( my $j = 0; $j < $height; $j++ ) {
 
 # display the result (or you could save it)
 $dest->Write('win:');
-$dest->Write('pixel_fx.gif');
+$dest->Write('pixel-fx.gif');
 
index 2fa389245b46db73c2c087e0f0c184f7167361a8..e364c0faec696932fa49de959d21f2275d560a14 100755 (executable)
@@ -44,5 +44,5 @@ $im->Scale('1000%');
 
 # Output the changed pixels
 $im->Write('win:');
-$im->Write('single_pixels.gif');
+$im->Write('single-pixels.gif');