Convert channel_signal() and supports_set_wb() to imperative versions.

[nageru] / nageru / theme.lua

diff --git a/nageru/theme.lua b/nageru/theme.lua
index de8d25222e9492e1118d94897bc7c0fc9743750f..6137cae6c0705fd39fb6c6631f0a9c7b38fb7838 100644 (file)
--- a/nageru/theme.lua
+++ b/nageru/theme.lua
@@ -36,11 +36,6 @@ local NO_TRANSITION = 0
 local ZOOM_TRANSITION = 1  -- Also for slides.
 local FADE_TRANSITION = 2
 
--- Last width/height/frame rate for each channel, if we have it.
--- Note that unlike the values we get from Nageru, the resolution is per
--- frame and not per field, since we deinterlace.
-local last_resolution = {}
-
 function make_sbs_input(scene)
        return {
                input = scene:add_input(),
@@ -115,53 +110,30 @@ local static_scene = Scene.new(16, 9)
 static_scene:add_input(static_image)  -- Note: Locks this input to images only.
 static_scene:finalize()
 
--- API ENTRY POINT
--- Returns the number of outputs in addition to the live (0) and preview (1).
--- Called only once, at the start of the program.
-function num_channels()
-       return 4
-end
+-- Set some global state.
+Nageru.set_num_channels(4)  -- Can only be called at the start of the program.
 
-function is_plain_signal(num)
-       return num == INPUT0_SIGNAL_NUM or num == INPUT1_SIGNAL_NUM
-end
+-- Set some global state. Unless marked otherwise, these can only be set once,
+-- at the start of the program.
+Nageru.set_num_channels(4)
 
--- API ENTRY POINT
--- Returns the name for each additional channel (starting from 2).
--- Called at the start of the program, and then each frame for live
--- channels in case they change resolution.
-function channel_name(channel)
-       local signal_num = channel - 2
-       if is_plain_signal(signal_num) then
-               if last_resolution[signal_num] then
-                       return "Input " .. (signal_num + 1) .. " (" .. last_resolution[signal_num].human_readable_resolution .. ")"
-               else
-                       return "Input " .. (signal_num + 1)
-               end
-       elseif signal_num == SBS_SIGNAL_NUM then
-               return "Side-by-side"
-       elseif signal_num == STATIC_SIGNAL_NUM then
-               return "Static picture"
-       end
-end
+-- Sets, for each channel, which signal it corresponds to (starting from 0).
+-- The information is used for whether right-click on the channel should bring up
+-- an input selector or not. Only call this for channels that actually correspond
+-- directly to a signal (ie., live inputs, not live (0) or preview (1)).
+Nageru.set_channel_signal(2, 0)
+Nageru.set_channel_signal(3, 1)
 
--- API ENTRY POINT
--- Returns, given a channel number, which signal it corresponds to (starting from 0).
--- Should return -1 if the channel does not correspond to a simple signal
--- (one connected to a capture card, or a video input). The information is used for
--- whether right-click on the channel should bring up a context menu or not,
--- typically containing an input selector, resolution menu etc.
---
--- Called once for each channel, at the start of the program.
--- Will never be called for live (0) or preview (1).
-function channel_signal(channel)
-       if channel == 2 then
-               return 0
-       elseif channel == 3 then
-               return 1
-       else
-               return -1
-       end
+-- Set whether a given channel supports setting white balance. (Default is false.)
+Nageru.set_supports_wb(2, true)
+Nageru.set_supports_wb(3, true)
+
+-- These can be set at any time.
+Nageru.set_channel_name(SBS_SIGNAL_NUM + 2, "Side-by-side")
+Nageru.set_channel_name(STATIC_SIGNAL_NUM + 2, "Static picture")
+
+function is_plain_signal(num)
+       return num == INPUT0_SIGNAL_NUM or num == INPUT1_SIGNAL_NUM
 end
 
 -- API ENTRY POINT
@@ -199,13 +171,6 @@ function channel_involved_in(channel, signal_num)
        return false
 end
 
--- API ENTRY POINT
--- Returns if a given channel supports setting white balance (starting from 2).
--- Called only once for each channel, at the start of the program.
-function supports_set_wb(channel)
-       return is_plain_signal(channel - 2)
-end
-
 -- API ENTRY POINT
 -- Gets called with a new gray point when the white balance is changing.
 -- The color is in linear light (not sRGB gamma).
@@ -397,8 +362,7 @@ function get_scene(num, t, width, height, signals)
                        is_connected = signals:get_is_connected(signal_num),
                        has_signal = signals:get_has_signal(signal_num),
                        frame_rate_nom = signals:get_frame_rate_nom(signal_num),
-                       frame_rate_den = signals:get_frame_rate_den(signal_num),
-                       human_readable_resolution = signals:get_human_readable_resolution(signal_num)
+                       frame_rate_den = signals:get_frame_rate_den(signal_num)
                }
 
                if res.interlaced then
@@ -413,8 +377,10 @@ function get_scene(num, t, width, height, signals)
                end
 
                input_resolution[signal_num] = res
+
+               local text_res = signals:get_human_readable_resolution(signal_num)
+               Nageru.set_channel_name(signal_num + 2, "Input " .. (signal_num + 1) .. " (" .. text_res .. ")")
        end
-       last_resolution = input_resolution
 
        if num == 0 then  -- Live.
                finish_transitions(t)