MineOS/Wallpapers/Stars.wlp/Main.lua

local screen = require("Screen")
local filesystem = require("Filesystem")
local GUI = require("GUI")
local system = require("System")
local color = require("Color")

--------------------------------------------------------------------------------

local workspace, wallpaper = select(1, ...), select(2, ...)

local configPath = filesystem.path(system.getCurrentScript()) .. "Config.cfg"

local config = {
	backgroundColor = 0x0F0F0F,

	starAmount = 100,
	starColor = 0xF0F0F0,
	starBrightness = 1.5,
	starOffset = 0.01
}

if filesystem.exists(configPath) then
	for key, value in pairs(filesystem.readTable(configPath)) do
		config[key] = value
	end
end

local function saveConfig()
	filesystem.writeTable(configPath, config)
end

--------------------------------------------------------------------------------

-- Faster access without tables indexing
local computerUptime, tableRemove, mathSin, mathCos, mathRandom, screenUpdate = computer.uptime, table.remove, math.sin, math.cos, math.random
-- Braille symbols that belongs to stars at specific positions
local braille1, braille2, braille3, braille4, braille5, braille6, braille7, braille8, braille9, braille10 = "⠁", "⠈", "⠂", "⠐", "⠄", "⠠", "⡀", "⢀", "⠛", "⣤"

local stars = {}
local deadline = 0
local colors

local function resetColors()
	-- This case uses default OC palette, which is based & redpilled
	if config.starColor == 0xF0F0F0 and config.backgroundColor == 0x0F0F0F then
		colors = {
			0x0F0F0F,
			0x1E1E1E,
			0x2D2D2D,
			0x3C3C3C,
			0x4B4B4B,
			0x5A5A5A,
			0x696969,
			0x787878,
			0x878787,
			0x969696,
			0xA5A5A5,
			0xB4B4B4,
			0xC3C3C3,
			0xD2D2D2,
			0xE1E1E1,
			0xF0F0F0
		}
	-- Otherwise palette will be auto-generated
	else
		colors = {}

		local colorCount = 16
		for i = 1, colorCount do
			colors[i] = color.transition(config.backgroundColor, config.starColor, (i - 1) / (colorCount - 1))
		end
	end
end

resetColors()

wallpaper.draw = function(wallpaper)
	local hitsDeadline = computerUptime() >= deadline

	-- Drawing background
	screen.drawRectangle(wallpaper.x, wallpaper.y, wallpaper.width, wallpaper.height, config.backgroundColor, 0, " ")

	-- Spawning missing stars
	local rotationAngle, targetX, targetY

	while #stars < config.starAmount do
		rotationAngle = mathRandom(6265) / 1000
		targetX = mathCos(rotationAngle) * wallpaper.width * 0.75  + wallpaper.width  / 2
		targetY = mathSin(rotationAngle) * wallpaper.width * 0.375 + wallpaper.height / 2

		table.insert(stars, {
			targetX = targetX,
			targetY = targetY,
			startX = (targetX - wallpaper.width  / 2) * config.starOffset + wallpaper.width  / 2,
			startY = (targetY - wallpaper.height / 2) * config.starOffset + wallpaper.height / 2,
			speed = mathRandom(25, 75) / 1000 + 1,

			-- Defines the star lifetime in range (0.0; 1.0]
			-- Shouldn't be zero, because it will be mutiplied to
			-- simulate "speed up" effect on sides of screen
			age = 0.01
		})
	end

	-- Drawing stars
	local star, x, y, xmod, ymod, color

	local i = 1
	while i <= #stars do
		star = stars[i]

		x = star.startX + (star.targetX - star.startX) * star.age
		y = star.startY + (star.targetY - star.startY) * star.age

		if x > wallpaper.width + 1 or x < 1 or y > wallpaper.height + 1 or y < 1 then
			tableRemove(stars, i)
		else
			xmod = x * 2; 
			xmod = (xmod - xmod % 1) % 2
			
			ymod = y * 4; ymod = (ymod - ymod % 1) % 4

			color = star.age * #colors * config.starBrightness
			color = colors[color - color % 1 + 1] or colors[#colors]

			-- Small stars
			if star.age < 0.3 then
				if xmod == 0 then
					if     ymod == 0 then char = braille1
					elseif ymod == 1 then char = braille3
					elseif ymod == 2 then char = braille5
					else                  char = braille7
					end
				else
					if     ymod == 0 then char = braille2
					elseif ymod == 1 then char = braille4
					elseif ymod == 2 then char = braille6
					else                  char = braille8
					end
				end
			-- Big stars
			else
				if ymod < 2 then
					char = braille9
				else
					char = braille10
				end
			end

			screen.set(x - x % 1, y - y % 1, config.backgroundColor, color, char)
			i = i + 1

			if hitsDeadline then
				star.age = star.age * star.speed
			end
		end
	end

	if hitsDeadline then
		deadline = computerUptime() + 0.05
	end
end

wallpaper.configure = function(layout)
	layout:addChild(GUI.colorSelector(1, 1, 36, 3, config.backgroundColor, "Background color")).onColorSelected = function(_, object)
		config.backgroundColor = object.color
		resetColors()
		saveConfig()
	end

	layout:addChild(GUI.colorSelector(1, 1, 36, 3, config.starColor, "Star color")).onColorSelected = function(_, object)
		config.starColor = object.color
		resetColors()
		saveConfig()
	end

	local starAmountSlider = layout:addChild(
		GUI.slider(
			1, 1, 
			36,
			0x66DB80, 
			0xE1E1E1, 
			0xFFFFFF, 
			0xA5A5A5, 
			10, 500, 
			config.starAmount, 
			false, 
			"Star amount: "
		)
	)
	
	starAmountSlider.roundValues = true
	starAmountSlider.onValueChanged = function()
		config.starAmount = math.floor(starAmountSlider.value)
		saveConfig()
	end

	local starBrightnessSlider = layout:addChild(
		GUI.slider(
			1, 1, 
			36,
			0x66DB80, 
			0xE1E1E1, 
			0xFFFFFF, 
			0xA5A5A5, 
			50, 300, 
			config.starBrightness * 100, 
			false, 
			"Star brightness: ",
			"%"
		)
	)
	
	starBrightnessSlider.roundValues = true
	starBrightnessSlider.onValueChanged = function()
		config.starBrightness = starBrightnessSlider.value / 100
		saveConfig()
	end

	local offsetSlider = layout:addChild(GUI.slider(
		1, 1, 
		36,
		0x66DB80, 
		0xE1E1E1, 
		0xFFFFFF, 
		0xA5A5A5, 
		0, 100, 
		config.starOffset * 100,
		false, 
		"Offset: ",
		"%"
	))

	offsetSlider.roundValues = true
	offsetSlider.onValueChanged = function()
		config.starOffset = offsetSlider.value / 100
		saveConfig()
	end
end