Fix signal-emission order (first re/set instrument info)

[ardour.git] / scripts / bounce_replace.lua

diff --git a/scripts/bounce_replace.lua b/scripts/bounce_replace.lua
index d383a87a5d83b36a253d9c917fd07eb2eceaae5a..838fd8da6400541af67ea27b1204b7438ed20bd3 100644 (file)
--- a/scripts/bounce_replace.lua
+++ b/scripts/bounce_replace.lua
@@ -1,8 +1,6 @@
 ardour { ["type"] = "EditorAction", name = "Bounce+Replace Regions",
        license     = "MIT",
-       author      = "Robin Gareus",
-       email       = "robin@gareus.org",
-       site        = "http://gareus.org",
+       author      = "Ardour Team",
        description = [[Bounce selected regions with processing and replace region]]
 }
 
@@ -46,7 +44,7 @@ function factory (params) return function ()
                -- remove old region..
                playlist:remove_region (r);
                -- ..and add the newly bounced one
-               playlist:add_region (region, r:position (), 1, false)
+               playlist:add_region (region, r:position (), 1, false, 0, false)
 
                -- create a diff of the performed work, add it to the session's undo stack
                -- and check if it is not empty
@@ -64,3 +62,39 @@ function factory (params) return function ()
        end
 
 end end
+
+function icon (params) return function (ctx, width, height, fg)
+       local wh = math.min (width, height) * .5
+       local ar = wh * .2
+
+       ctx:set_line_width (1)
+       function stroke_outline (c)
+               ctx:set_source_rgba (0, 0, 0, 1)
+               ctx:stroke_preserve ()
+               ctx:set_source_rgba (c, c, c, 1)
+               ctx:fill ()
+       end
+
+       ctx:rectangle (wh - wh * .6, wh - .7 * wh, wh * 1.2, .5 * wh)
+       stroke_outline (.7)
+
+       ctx:rectangle (wh - wh * .6, wh + .1 * wh, wh * 1.2, .5 * wh)
+       stroke_outline (.9)
+
+       -- arrow
+       ctx:set_source_rgba (0, 1, 0, 1)
+       ctx:set_line_width (ar * .7)
+
+       ctx:move_to (wh, wh - .5 * wh)
+       ctx:rel_line_to (0, wh)
+       ctx:stroke ()
+
+       ctx:move_to (wh, wh + .5 * wh)
+       ctx:rel_line_to (-ar, -ar)
+       ctx:rel_line_to (2 * ar, 0)
+       ctx:close_path ()
+       ctx:stroke ()
+
+
+
+end end