# encoding: ascii
# api: powershell
# title: Mandelbrot Set
# description: Mandelbrot PoC
# version: 0.1
# author: Zefram
# license: CC0
# x-poshcode-id: 5845
# x-archived: 2015-05-08T10:24:25
# x-published: 2015-05-05T14:25:00
#
#
$i=[float]-16;
$j=[float]-16;
$r=[float]-16;
$x=[float]-16;
$y=[float]-16;

#Color Array
$colors="Black","DarkBlue","DarkGreen","DarkCyan","DarkRed","DarkMagenta","DarkYellow","Gray","DarkGray","Blue","Green","Cyan","Red","Magenta","Yellow","White" 

while(($y++) -lt 15) 
{ 
    for($x=0; ($x++) -lt 70; Write-Host " " -BackgroundColor ($colors[$k -band 15]) -NoNewline) 
		{ 
	        #Zero
			$i=[float]0;
			$k=[float]0;
			$r=[float]0; 
	        do
			{
				#Explain to PowerShell what a complex number looks like because computers are basally stupid.
				$j=$r*$r-$i*$i-2+$x/25; $i=2*$r*$i+$y/10; $r=$j
			}
			#Make sure the fractal doesn't draw to infinity
	        while (($j*$j+$i*$i) -lt 4 -band ($k++) -lt 111) 
	    } 
    Write-Host " "
}
