Noise Demo 1

local colorchar = {}
local colorchars = "0123456789abcdef"
local charNr = 0
for char in colorchars:gmatch(".") do
    colorchar[2 ^ charNr] = char
    charNr = charNr + 1
end

local function drawWorld(world, atX, atY)
    local size = table.getn(world)
    for y = 1, size do
        local str = ""
        local c1 = ""
        local c2 = ""

        local color1 = colors.black
        local color2 = colors.black

        for x = 1, size do
            local value = world[x][y]
            if (value <= 0.25) then
                color1 = colors.black
                if (value <= 0.25 / 2) then
                    color2 = colors.black
                else
                    color2 = colors.gray
                end
            elseif (value <= 0.50) then
                color1 = colors.gray
                if (value <= 0.50 - 0.25 / 2) then
                    color2 = colors.gray
                else
                    color2 = colors.lightGray
                end
            elseif (value <= 0.75) then
                color1 = colors.lightGray
                if (value <= 0.75 - 0.25 / 2) then
                    color2 = colors.lightGray
                else
                    color2 = colors.white
                end
            else
                color1 = colors.white
                color2 = colors.white
            end

            str = str..string.char(127)
            c1 = c1..colorchar[color2]
            c2 = c2..colorchar[color1]
        end
        term.scroll(1)
        term.setCursorPos(atX or 1, atY or 19)
        term.blit(str, c1, c2)
        if (x ~= size) then
            sleep(0.001)
        end
    end
end

os.loadAPI("/noise")
local seed = math.random(1, 10000)

local chunky = 1
while true do
    chunky = chunky + 1

    local world = noise.createNoise(32, 8, chunky, seed)
    drawWorld(world, 10)

    os.queueEvent("fakeEvent")
    os.pullEvent("fakeEvent")
end