local component = require("component")
local text = require("text")
local noise = require("noise")

local hologram = component.hologram

hologram.clear()

local seed = math.random(0xFFFFFFFF)
for x = 1, 16 * 3 do
  for z = 1, 16 * 3 do
    hologram.fill(x, z, 15 + noise.fbm(x/(16*3) + seed, 1, z/(16*3) + seed) * 28)
  end
end

local value = [[
XXXXXX XXXXX
X    X X
X    X X
X    X X
XXXXXX XXXXX
]]

local bm = {}
for token in value:gmatch("([^\r\n]*)") do
  if token ~= "" then
    table.insert(bm, token)
  end
end

local h,w = #bm,#bm[1]
local sx, sy = (16*3-w)/2, 2*16-h-1
local z = 16*3/2

for i=1, w do
  local x = sx + i
  local value = component.hologram.get(x, z)
  for j=1, h do
    local y = sy + j-1
    if bm[j]:sub(i, i) ~= " " then
      value = bit32.bor(value, bit32.lshift(1, y))
    end
  end
  component.hologram.set(x, z, value)
end