X-Git-Url: https://git.carlh.net/gitweb/?a=blobdiff_plain;f=scripts%2Fdelete_xrun_markers.lua;h=5512e653b6e9c552695270f4bfba8a28a4197aa9;hb=dfbda9e0f6d5003ba2ba05b21c6045f4ad1109fa;hp=2530ec2a8ead7a503e06c4b216da26702b41a8d7;hpb=758f183b99dadd173cc5b0f8b9e76f6cc3e02159;p=ardour.git

diff --git a/scripts/delete_xrun_markers.lua b/scripts/delete_xrun_markers.lua
index 2530ec2a8e..5512e653b6 100644
--- a/scripts/delete_xrun_markers.lua
+++ b/scripts/delete_xrun_markers.lua
@@ -7,3 +7,34 @@ function factory () return function ()
 		end
 	end
 end end
+
+function icon (params) return function (ctx, width, height, fg)
+	local mh = height - 3.5;
+	local m3 = width / 3;
+	local m6 = width / 6;
+
+	ctx:set_line_width (.5)
+
+	ctx:set_source_rgba (.8, .2, .2, 1.0)
+	ctx:move_to (width / 2 - m6, 2)
+	ctx:rel_line_to (m3, 0)
+	ctx:rel_line_to (0, mh * 0.4)
+	ctx:rel_line_to (-m6, mh * 0.6)
+	ctx:rel_line_to (-m6, -mh * 0.6)
+	ctx:close_path ()
+	ctx:fill_preserve ()
+	ctx:set_source_rgba (.0, .0, .0, 1.0)
+	ctx:stroke ()
+
+	ctx:set_source_rgba (ARDOUR.LuaAPI.color_to_rgba (fg))
+	ctx:set_line_width (1)
+
+	ctx:move_to (width * .2, height * .2)
+	ctx:line_to (width * .8, height * .8)
+	ctx:stroke ()
+
+	ctx:move_to (width * .8, height * .2)
+	ctx:line_to (width * .2, height * .8)
+	ctx:stroke ()
+
+end end