Прочитав свежую статью про обои в разных окружениях, начиная с Microsoft Windows 11 и методах их смены, я заинтересовался — нет ли приложения, которое может выставлять не готовые обои из папки или подкачивать из ресурса, а создавать их периодически, используя любой доступный AI сервис.
Гугление ничего не дало. С ходу я не нашел ни одного сервиса, который бы создавал обои от любого AI сервиса на лету. В сущности, это очень простая операция — почему бы не набросать свой скрипт в свободный день?
Я уже писал плагин для Visual Code для проверки правописания и переводов русский-английский, так что OpenAI ключ у меня есть. Будем пробовать DALL-E 3, к которому этот ключ подходит. На Reddit упоминали, что DALL-E умеет создавать бесшовные плиточные изображения, что будет здорово для генерации обоев. Это впоследствии не подтвердилось, как я ни старался. Так что окончательный вариант работает с полным форматом изображения.
Самым простым вариантом мне показалось написать PowerShell скрипт и посадить его на расписание (task scheduler), чтобы он запускался сам каждый день и менял обои.
Отправной точкой является документ, описывающий современный API DALL-E 3.
Вот, собственно, и весь код получения изображения от DALL-E на PowerShell:
$body = @{
"model" = "dall-e-3"
"prompt" = "$prompt --ar 16:9"
"size" = "1792x1024"
"style" = "vivid"
} | ConvertTo-Json
$response = Invoke-RestMethod -Uri "https://api.openai.com/v1/images/generations" `
-Method Post `
-Headers @{ "Authorization" = "Bearer $apiKey"; "Content-Type" = "application/json" } `
-Body $body
$imageUrl = $response.data[0].urlВ переменную $prompt мы положим наш промпт. О разрешении хотелось бы сказать особо. Максимальное разрешение, поддерживаемое на данный момент DALL-E, есть 1792x1024. Но с ним возникают проблемы — через раз создается квадратное изображение, с полями по бокам. Проблема известная, описана тут. Помогает совет дополнить промпт указанием "--ar 16:9" в конце.
Хорошей идеей является не перезаписывать предыдущее полученное изображение, а создавать новое, со случайным именем. Во-первых, через некоторое время у нас появятся «любимчики», а во-вторых можно будет на разные мониторы назначать разные обои из уже имеющихся.
$chars = "abcdefghijklmnopqrstuvwxyz0123456789"
$randomString = -Join ((1..8) | ForEach-Object { $chars[(Get-Random -Maximum $chars.Length)] })
$outputFile = "$outputDir\dalle_generated_$randomString.jpg"Ну, и осталось полученное изображение установить на десктоп:
$code = @"
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern int SystemParametersInfo(int uAction, int uParam, string lpvParam, int fuWinIni);
"@
$type = Add-Type -MemberDefinition $code -Name "Wallpaper" -Namespace "Win32" -PassThru
$SPI_SETDESKWALLPAPER = 0x0014
$SPIF_UPDATEINIFILE = 0x01
$SPIF_SENDCHANGE = 0x02
$type::SystemParametersInfo($SPI_SETDESKWALLPAPER, 0, $outputFile, $SPIF_UPDATEINIFILE -bor $SPIF_SENDCHANGE)Я выбрал простой метод API SystemParametersInfo, но он не позволяет произвольно выставить, на какой монитор из имеющихся поставить обои — он ставит на все одновременно. Более сложный метод, который позволяет работать с произвольными мониторами и менять способы отображения обоев, описан у Pete Hinchley. У него создается полная обертка для COM на .NET. Для моих целей простого метода достаточно, не хочу слишком усложнять код.
Мой промпт — вкусовщина. Люблю обои в буквальном смысле, с текстурой бумаги и низким контрастом, чтобы не отвлекало и не мешало разглядеть иконки. "A full-sized wallpaper with flowers and birds and leaves. Muted dark colors, with the texture of rough paper."
Вот так выглядит основной экран:
Скрипт заработал, генерируя каждый раз новое изображение (это занимает до десяти секунд). Осталось только запускать его каждый день автоматически.
Запускаем скрипт в task scheduler (внимание на командную строку):
Вот ссылка на гитхаб с исходником скрипта. Нужен только один файл, .ps1
Что в планах: работать со всеми мониторами независимо, используя обертку Windows API от Pete Hinchley (ссылка выше) и назначать на разные мониторы разные изображения автоматически. Еще надо в свободный день развернуть Stable Diffusion и поиграться с ним из PowerShell. Но я с самого начала не рассчитывал на Stable Diffusion — он требует серьезного GPU и много памяти. Предвижу много возни с настройкой, да и не на каждом десктопе или лаптопе найдется подходящая конфигурация. Но было бы интересно попробовать.
Добавлено 2024/10/15
Чтобы избежать нежелательных полей в отдельных случаях, я проверяю десять контрольных точек по бокам изображения. Если их зеленая компонента почти одинакова (зеленая самая чувствительная визуально) — изображение отбраковывается и запрашивается снова.
Код проверки очень простой, без сторонних утилит и модулей. Порог чувствительности 24 определен экспериментально, на нескольких отбракованных изображениях.
$image = [System.Drawing.Image]::FromFile($fullName)
$points = @(
[System.Drawing.Point]::new(3, 3),
[System.Drawing.Point]::new(3, 257),
[System.Drawing.Point]::new(3, 512),
[System.Drawing.Point]::new(3, 766),
[System.Drawing.Point]::new(3, 1020),
[System.Drawing.Point]::new(1788, 5),
[System.Drawing.Point]::new(1788, 257),
[System.Drawing.Point]::new(1788, 512),
[System.Drawing.Point]::new(1788, 766),
[System.Drawing.Point]::new(1788, 1020)
)
$greenValues = $points | ForEach-Object { $image.GetPixel($_.X, $_.Y).G }
$maxDifference = 0
for ($i = 0; $i -lt $greenValues.Length - 1; $i++) {
for ($j = $i + 1; $j -lt $greenValues.Length; $j++) {
$difference = [Math]::Abs($greenValues[$i] - $greenValues[$j])
if ($difference -gt $maxDifference) {
$maxDifference = $difference
}
}
}
return $maxDifference -ge 24Меня просили создать побольше примеров природы, чтобы оценить качество генерации. Я начал с леса, постепенно усложняя промпт и пытаясь добиться фотореалистичности. Признаюсь — это затягивает!
Кто захочет оценить возможности DALL‑E 3 — полсотни лесных пейзажей в разрешении 1792×1024 в репозитарии, в папке «nature». Использованный промпт (с незначительными вариациями) — в самом скрипте.
Удачи в изучении PowerShell и творчестве!