info-beamer-elevate/slideevent.lua at master · spreadspace/info-beamer-elevate · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
-------------------------------------------------------------------------------
--- Class

local SlideEvent = {}
SlideEvent.__index = SlideEvent


-------------------------------------------------------------------------------
--- Helper Functions

-- linewrapping must happen here
function SlideEvent.Arrange(evs, textW, maxH)
    local sumH = 0
    local sumMargin = 0
    local lastMargin = 0
    for i, ev in ipairs(evs) do
        ev.titleparts = ev.title:fwrap(ev.font, ev.fontsize, textW)
        local subh = 0
        if ev.subtitle and #ev.subtitle > 0 then
            ev.subtitleparts = ev.subtitle:fwrap(ev.fontSub, ev.fontsizeSub, textW)
            subh = #ev.subtitleparts * (ev.fontsizeSub + ev.linespacingSub) - ev.linespacingSub
        end
        ev.height = #ev.titleparts * (ev.fontsize + ev.linespacing) - ev.linespacing + subh

        if (sumH + ev.height) >= maxH then
            for k = i, #evs do
                evs[k] = nil
            end
            break
        end
        sumH = sumH + ev.height + ev.ymargin
        sumMargin = sumMargin + ev.ymargin
        lastMargin = ev.ymargin
    end

    return sumH - lastMargin, sumMargin - lastMargin
end


-------------------------------------------------------------------------------
--- Constructor

function SlideEvent.new(proto, cfg) -- proto is an event def from json
    local self = table.shallowcopy(proto)
    setmetatable(self, SlideEvent)

    self.font = assert(cfg.font)
    self.fontsize = assert(cfg.fontsize)
    self.linespacing = assert(cfg.linespacing)
    self.padding = cfg.padding -- allow this to be nil

    self.fontSub = assert(cfg.fontSub)
    self.fontsizeSub = assert(cfg.fontsizeSub)
    self.linespacingSub = assert(cfg.linespacingSub)
    self.paddingSub = cfg.paddingSub -- allow this to be nil

    self.ymargin = assert(cfg.ymargin)
    self.timeco = tools.timeColonOffset(self.font, self.start, self.fontsize)
    return self
end


-------------------------------------------------------------------------------
--- Member Functions

-- timecx means center of time, textx means start of text
function SlideEvent:draw(timecx, textx, y, fgcol, bgcol)
    local timex = timecx - self.timeco
    local lineh = self.fontsize + self.linespacing
    local linehSub = self.fontsizeSub + self.linespacingSub

    -- fix ugly gap between time and title padding
    if bgcol and bgcol.a > 0 and self.padding then
        local bgtex = tools.getColorTex(bgcol)
        local titlew = tools.textWidth(self.font, self.titleparts[1], self.fontsize)
        tools.drawResource(bgtex, timex - self.padding, y - self.padding, textx + titlew + self.padding, y + self.fontsize + self.padding)
    end

    -- time text
    tools.drawText(self.font, timex, y, self.start, self.fontsize, fgcol)

    -- title
    local b = nil
    for idx, part in ipairs(self.titleparts) do
        if idx > 1 then b = self.padding end
        tools.drawText(self.font, textx, y, part, self.fontsize, fgcol, bgcol, b)
        y = y + lineh
    end

    -- subtitle
    if self.subtitleparts then
        for _, part in ipairs(self.subtitleparts) do
            tools.drawText(self.fontSub, textx, y, part, self.fontsizeSub, fgcol, bgcol, self.paddingSub)
            y = y + linehSub
        end
    end
end


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

print("slideevent.lua loaded completely")
return SlideEvent