test2.lua

local cm = require('codim')
-- local what = require('codim.what')
-- print(what)

local AnimQueue = require('animqueue')

cm.output{
    file = 'out2.mp4',
    sample_rate = 44100,
    width = 600,
    height = 400,
    fps = 24
}

function s(x)
    return x:sub(1, #x-1)
end

function insert(editor, text, start, letters_per_sec)
    local times = {}
    for i=0,#text-1 do
        times[#times+1] = i/letters_per_sec
        -- print(times[#times])
    end
    idx = 1
    return AnimQueue{
        sequential = true,
        times = times,
        onupdate = function(t)
            editor:insert(text:sub(idx, idx))
            idx = idx + 1
        end
    }
end

local r = cm.Renderer()
local text = cm.Text(40, "mono.ttf")

local editor = cm.Editor(text, 0, 300)
-- local model = editor:get_rd():get_model()
-- model:rotz(0.5)
r:add(editor)

local queue = editor:type(s[[
#include <hello.h>
int main() {
    printf("codim is real.\n");
    return 0;
}
]], 1.0, 10)

return {
    video = function(t)
        if end_t then
            if t >= end_t then cm.stop() end
        elseif queue:over() then
            end_t = 1.0 + t
        end

        queue:update(t)

        cm.clear(0.3, 0.4, 0.5, 0.0)
        r:render()
    end,
    audio = function(t)
        return 0, 0
    end
}