Scripts/nebula.ps1

$esc = [char]27
$reset = "$esc[0m"
$ansiPattern = "$([char]27)\[[0-9;]*m"

function Write-AlignedLine {
    param([string]$text, [int]$width)

    $visible = ([regex]::Replace($text, $ansiPattern, '')).Length
    if ($visible -lt $width) {
        $text += ' ' * ($width - $visible)
    }

    Write-Host ($text + $reset)
}

function Convert-HsvToRgb {
    param(
        [double]$Hue,
        [double]$Saturation,
        [double]$Value
    )

    $h = ($Hue % 1) * 6
    $sector = [math]::Floor($h)
    $fraction = $h - $sector

    $p = $Value * (1 - $Saturation)
    $q = $Value * (1 - $fraction * $Saturation)
    $t = $Value * (1 - (1 - $fraction) * $Saturation)

    switch ($sector) {
        0 { $r = $Value; $g = $t; $b = $p }
        1 { $r = $q; $g = $Value; $b = $p }
        2 { $r = $p; $g = $Value; $b = $t }
        3 { $r = $p; $g = $q; $b = $Value }
        4 { $r = $t; $g = $p; $b = $Value }
        default { $r = $Value; $g = $p; $b = $q }
    }

    return @([int][math]::Round($r * 255), [int][math]::Round($g * 255), [int][math]::Round($b * 255))
}

$rows = 24
$cols = 60
$targetWidth = 120

Write-Host
for ($y = 0; $y -lt $rows; $y++) {
    $sb = [System.Text.StringBuilder]::new()
    for ($x = 0; $x -lt $cols; $x++) {
        $cloud1 = [math]::Sin($x * 0.02 + $y * 0.03) * [math]::Cos($x * 0.01 - $y * 0.02)
        $cloud2 = [math]::Sin($x * 0.04 - $y * 0.05) * [math]::Cos($x * 0.03 + $y * 0.04)
        $cloud3 = [math]::Sin($x * 0.06 + $y * 0.07) * [math]::Cos($x * 0.05 - $y * 0.06)
        $density = [math]::Abs($cloud1 + $cloud2 + $cloud3) / 3
        $hue = ($density + ($x + $y) * 0.005) % 1
        $sat = 0.6 + 0.4 * $density
        $val = 0.2 + 0.8 * $density
        $rgb = Convert-HsvToRgb -Hue $hue -Saturation ([math]::Min([math]::Max($sat, 0.0), 1.0)) -Value ([math]::Min([math]::Max($val, 0.0), 1.0))
        $stars = @(' ', '.', '*', '✦', '✧')
        $starIndex = [math]::Floor($density * $stars.Length)
        $symbol = $stars[[math]::Min($starIndex, $stars.Length - 1)]
        $null = $sb.Append("$esc[38;2;$($rgb[0]);$($rgb[1]);$($rgb[2])" + "m$symbol")
    }
    Write-AlignedLine ($sb.ToString()) $targetWidth
}

Write-Host $reset