use const

[ardour.git] / scripts / addscopes.lua

diff --git a/scripts/addscopes.lua b/scripts/addscopes.lua
index d0785dce3bba30cc5865cfa411604fc9f21e23b1..5ff40a7da81b2aeffb0070622cceb42d55fccb5d 100644 (file)
--- a/scripts/addscopes.lua
+++ b/scripts/addscopes.lua
@@ -34,7 +34,7 @@ function factory (params)
                                        -- get Nth Ardour::Processor
                                        proc = t:nth_plugin (i)
                                        -- check if it's a scope
-                                       if (not proc:isnil() and proc:display_name () == "Inline Scope") then
+                                       if (not proc:isnil() and proc:display_name () == "a-Inline Scope") then
                                                insert = false;
                                        end
                                        i = i + 1
@@ -43,7 +43,7 @@ function factory (params)
 
                        -- create a new processor and insert it
                        if insert then
-                               local a = ARDOUR.LuaAPI.new_luaproc(Session, "Inline Scope");
+                               local a = ARDOUR.LuaAPI.new_luaproc(Session, "a-Inline Scope");
                                if (not a:isnil()) then
                                        t:add_processor_by_index(a, pos, nil, true)
                                        ARDOUR.LuaAPI.set_processor_param (a, 0, 5) -- timescale 5sec
@@ -55,3 +55,20 @@ function factory (params)
                end
        end
 end
+
+
+function icon (params) return function (ctx, width, height)
+       local wh = math.min (width, height) * .5
+       local x0 = math.ceil (wh * .4)
+       local x1 = math.floor (wh * 1.6)
+       ctx:rectangle (wh * .4, wh * .4, wh * 1.2, wh * 1.2)
+       ctx:set_source_rgba (.7, .7, .7, 1)
+       ctx:fill ()
+       ctx:set_line_width (1)
+       ctx:set_source_rgba (.0, .0, .0, 1)
+       ctx:move_to (x0, wh)
+       for x = x0, x1 do
+               ctx:line_to (x, wh - math.sin (2 * math.pi * (x-x0) / (x1-x0)) * wh * .5)
+       end
+       ctx:stroke ()
+end end