SiD

#!/usr/bin/perl

# Mandelbrot Set
# Language: Perl
# Author: SiD

use Math::Complex;
use Tk;

$mx = -2; $my = -2;
$nx = 2; $ny = 2;

$mw = MainWindow -> new(-background => "Black");
$mw -> title("Mandelbrot Set Fractal ~ Author: SiD");
$mw -> minsize(215, 195);
$mw -> Label(
        -background   => "Black",
        -foreground   => "#00bfff",
        -text         => "Output image (name.ppm):"
    ) -> pack(-anchor => "n");
$mw -> Entry(
        -background   => "Black",
        -foreground   => "White",
        -textvariable => \$out
    ) -> pack(-anchor => "n");
$mw -> Label(
        -background   => "Black",
        -foreground   => "#00bfff",
        -text         => "Height:"
    ) -> pack(-anchor => "n");
$mw -> Entry(
        -background   => "Black",
        -foreground   => "White",
        -textvariable => \$alt
    ) -> pack(-anchor =>"n");
$mw -> Label(
        -background   => "Black",
        -foreground   => "#00bfff",
        -text         => "Width:"
    ) -> pack(-anchor => "n");
$mw -> Entry(
        -background   => "Black",
        -foreground   => "White",
        -textvariable => \$lar
    ) -> pack(-anchor =>"n");
$mw -> Label(
        -background   => "Black",
        -foreground   => "#00bfff",
        -text         => "Precision (ex -> 150):"
    ) -> pack(-anchor => "n");
$mw -> Entry(
        -background   => "Black",
        -foreground   => "White",
        -textvariable => \$precision
    ) -> pack(-anchor => "n");
$mw -> Label(
        -background   => "Black",
        -foreground   => "#00bfff",
        -text         => "Number of set (2-12):"
    ) -> pack(-anchor => "n");
$mw -> Entry(
        -background   => "Black",
        -foreground   => "White",
        -textvariable => \$sets
    ) -> pack(-anchor => "n");

$mw -> Label(
        -background   => "Black",
        -foreground   => "White",
        -text         => "\nMandelbrot Set Fractal ~ Options\n"
    ) -> pack(-anchor => "n");
$vert = $mw -> Checkbutton(
        -text             => "Vertical Fractal?",
        -onvalue          => "Yes",
        -offvalue         => "No",
        -activebackground => "Black",
        -activeforeground => "Orange",
        -background       => "Black",
        -foreground       => "Orange",
        -variable         => \$how
    ) -> pack(-anchor     => "sw");
$mw -> Radiobutton(
        -text             => "Red Background",
        -value            => "Red",
        -activebackground => "Black",
        -activeforeground => "Orange",
        -background       => "Black",
        -foreground       => "Orange",
        -variable         => \$background
    ) -> pack(-anchor => "sw");
$mw -> Radiobutton(
        -text             => "Black Background",
        -value            => "Black",
        -activebackground => "Black",
        -activeforeground => "Orange",
        -background       => "Black",
        -foreground       => "Orange",
        -variable         => \$background
    ) -> pack(-anchor => "sw");

$mw -> Button(
        -text             => "Generate Mandelbrot Set!",
        -font             => "Arial 8",
        -activebackground => "Black",
        -activeforeground => "Green",
        -background       => "Black",
        -foreground       => "Green",
        -command          =>

sub {

    if($out !~ /.ppm/) {
        $out = "mandelbrot.ppm";
    }
    if(!$background) {
        $background = "Black";
    }
    if(!$sets) {
        $sets = 2;
    }
    if($sets < 2 or $sets > 12) {
        $sets = 2;
    }

    open(IMG, ">", $out) or $mw -> destroy;
    print IMG "P3\n# Mandelbrot Set Fractal (Generator) ~ By SiD\n$alt $lar\n255\n";

    for($y=0; $y<$lar; $y++) {
        for($x=0; $x<$alt; $x++) {
            if($how) {
                $a = $mx+($y*($ny-$my)/$alt);
                $b = $my+($x*($nx-$mx)/$lar);
            }
            else {
                $a = $mx+($x*($ny-$my)/$alt);
                $b = $my+($y*($nx-$mx)/$lar);
            }

            $comp = Math::Complex -> make($a, $b);
            $comp1 = $comp;

            for($p=0; $p<$precision; $p++) {
                $comp1 = $comp1**$sets+$comp;
                if(abs($comp1) > 2) {
                    last;
                }
            }
            _color($p);
        }
        if($^O =~ /MSWin32/) {
            system("cls");
            print $y+1 ." -> $lar";
        }
        else {
            system("clear");
            print $y+1 ." -> $lar";
        }
    }

    sub _color() {
        my $element = shift;

        if(abs($comp1) <= 2) {
            print IMG "0 0 0\n";
        }
        else {
            if($background eq "Black") {
                $c1 = int((100+$p/4)/3);
            }
            else {
                $c1 = int(100+$p/4);
            }
            $c2 = int($p/2)*8;
            $c3 = int(4*$p)*6;
            if ($c1 > 116) {
                $c1 = 116;
            }
            if ($c2 > 205) {
                $c2 = 205;
            }
            if ($c3 > 255) {
                $c3 = 255;
            }
            print IMG "$c1 $c2 $c3\n";
        }
    }

    sleep(1);
    $mw -> messageBox(
            -message => "Done. \"$out\" created successfully!",
            -type    => "Ok"
        );
    $mw -> destroy();

}) -> pack(-side => "bottom");

MainLoop;