display then write

ImageMagick · Nov 24, 2023 · cb381a2 · cb381a2
1 parent 7ee8dca
commit cb381a2
Show file tree

Hide file tree

Showing 11 changed files with 11 additions and 18 deletions.
diff --git a/PerlMagick/demo/annotate_words.pl b/PerlMagick/demo/annotate_words.pl
@@ -66,6 +66,3 @@
 }
 
 $image->Write("show:");
-
-exit;
-
diff --git a/PerlMagick/demo/button.pl b/PerlMagick/demo/button.pl
@@ -11,5 +11,5 @@
 $q->Raise('6x6');
 $q->Annotate(font=>'Generic.ttf',text=>'Push Me',fill=>'black',
   gravity=>'Center',pointsize=>18);
+$q->Write('show:');
 $q->Write('button.gif');
-$q->Write('win:');
diff --git a/PerlMagick/demo/compose-specials.pl b/PerlMagick/demo/compose-specials.pl
@@ -249,4 +249,3 @@
 );
 $montage->Write('show:');
 $montage->Write('compose-specials.jpg');
-
diff --git a/PerlMagick/demo/demo.pl b/PerlMagick/demo/demo.pl
@@ -512,8 +512,7 @@
 $logo->Zoom('40%');
 $montage->Composite(image=>$logo,gravity=>'North');
 
+print "Display...\n";
+$montage->Write('show:');
 print "Write...\n";
-$montage->Set(matte=>'false');
 $montage->Write('demo.jpg');
-print "Display...\n";
-$montage->Write('win:');
diff --git a/PerlMagick/demo/lsys.pl b/PerlMagick/demo/lsys.pl
@@ -76,8 +76,8 @@ sub lsys_execute
   {
     if ($translate{$command}) { &{$translate{$command}}(); }
   }
+  $im->Write('show:');
   $im->Write($filename);
-  $im->Write('win:');
 }
 
 1;
diff --git a/PerlMagick/demo/piddle.pl b/PerlMagick/demo/piddle.pl
@@ -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('show:');
 $image->Write('piddle.gif');
 $image->Write('piddle.mvg');
-$image->Write('win:');
diff --git a/PerlMagick/demo/pixel-fx.pl b/PerlMagick/demo/pixel-fx.pl
@@ -48,6 +48,5 @@
 }
 
 # display the result (or you could save it)
-$dest->Write('win:');
+$dest->Write('show:');
 $dest->Write('pixel-fx.gif');
-
diff --git a/PerlMagick/demo/shadow-text.pl b/PerlMagick/demo/shadow-text.pl
@@ -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('show:');
 $image->Write('shadow.gif');
-$image->Write('win:');
diff --git a/PerlMagick/demo/shapes.pl b/PerlMagick/demo/shapes.pl
@@ -34,7 +34,7 @@
 #
 # Write image.
 #
+print "Display image...\n";
+$image->Write('show:');
 print "Write image...\n";
 $image->Write('shapes.gif');
-print "Display image...\n";
-$image->Write('win:');
diff --git a/PerlMagick/demo/single-pixels.pl b/PerlMagick/demo/single-pixels.pl
@@ -43,6 +43,5 @@
 $im->Scale('1000%');
 
 # Output the changed pixels
-$im->Write('win:');
+$im->Write('show:');
 $im->Write('single-pixels.gif');
-
diff --git a/PerlMagick/demo/steganography.pl b/PerlMagick/demo/steganography.pl
@@ -22,5 +22,5 @@
 $size="$width" . "x" . "$height" . "+91";
 $stegano=Image::Magick->new(size=>$size);
 $stegano->ReadImage('stegano:model.png');
+$stegano->Write('show:');
 $stegano->Write('stegano.gif');
-$stegano->Write('win:');
Original file line number	Diff line number	Diff line change
Expand Up		@@ -249,4 +249,3 @@
		);
		$montage->Write('show:');
		$montage->Write('compose-specials.jpg');