PowerShell/Scripts/write-fractal.ps1

60 lines
1.9 KiB
PowerShell
Raw Normal View History

2022-11-04 14:29:29 +01:00
<#
.SYNOPSIS
Writes a fractal
.DESCRIPTION
This PowerShell script writes an animated Mandelbrot fractal.
.EXAMPLE
PS> ./write-fractal
.LINK
https://github.com/fleschutz/PowerShell
.NOTES
Author: Markus Fleschutz | License: CC0
#>
function CalculateFractal([float]$left, [float]$top, [float]$xside, [float]$yside, [float]$zoom) {
[int]$maxx = $rui.MaxWindowSize.Width
[int]$maxy = $rui.MaxWindowSize.Height
[float]$xscale = $xside / $maxx
[float]$yscale = $yside / $maxy
for ([int]$y = 0; $y -lt $maxy; $y++) {
for ([int]$x = 0; $x -lt $maxx; $x++) {
[float]$cx = $x * $xscale + $left
[float]$cy = $y * $yscale + $top
[float]$zx = 0
[float]$zy = 0
for ([int]$count = 0; ($zx * $zx + $zy * $zy -lt 4) -and ($count -lt $MAXCOUNT); $count++) {
[float]$tempx = $zx * $zx - $zy * $zy + $cx
$zy = $zoom * $zx * $zy + $cy
$zx = $tempx
}
$global:buf[$y * $maxx + $x] = $([char](65 + $count))
2022-11-04 14:29:29 +01:00
}
}
}
$MAXCOUNT = 30
$ui = (Get-Host).ui
$rui = $ui.rawui
[float]$left = -1.75
[float]$top = -0.25
[float]$xside = 0.25
[float]$yside = 0.45
$buffer0 = ""
1..($rui.MaxWindowSize.Width * $rui.MaxWindowSize.Height) | ForEach-Object { $buffer0 += " " }
$global:buf = $buffer0.ToCharArray()
2022-11-04 14:29:29 +01:00
while ($true) {
for ([float]$zoom = 4.0; $zoom -gt 1.1; $zoom -= 0.02) {
CalculateFractal $left $top $xside $yside $zoom
[console]::SetCursorPosition(0,0)
[string]$Screen = New-Object system.string($global:buf, 0, $global:buf.Length)
Write-Host -foreground green $Screen -noNewline
2022-11-04 14:29:29 +01:00
}
for ([float]$zoom = 1.1; $zoom -lt 4.0; $zoom += 0.02) {
CalculateFractal $left $top $xside $yside $zoom
[console]::SetCursorPosition(0,0)
[string]$Screen = New-Object system.string($global:buf, 0, $global:buf.Length)
Write-Host -foreground green $Screen -noNewline
2022-11-04 14:29:29 +01:00
}
}
exit 0 # success