Add icon for MIDI sysex transmit script

1 files changed, 18 insertions, 0 deletions

diff --git a/scripts/_tx_raw_midi_from_file.lua b/scripts/_tx_raw_midi_from_file.lua
index a5e8606b85..81f07f6df1 100644
--- a/scripts/_tx_raw_midi_from_file.lua
+++ b/scripts/_tx_raw_midi_from_file.lua
@@ -108,3 +108,21 @@ function factory () return function ()
 	rv = nil
 	collectgarbage ()
 end end
+
+function icon (params) return function (ctx, width, height, fg)
+	ctx:set_source_rgba (ARDOUR.LuaAPI.color_to_rgba (fg))
+	local txt = Cairo.PangoLayout (ctx, "ArdourMono ".. math.ceil(math.min (width, height) * .5) .. "px")
+	txt:set_text ("S")
+	ctx:move_to (1, 1)
+	txt:show_in_cairo_context (ctx)
+
+	txt:set_text ("Y")
+	local tw, th = txt:get_pixel_size ()
+	ctx:move_to (.5 * (width - tw), .5 * (height - th))
+	txt:show_in_cairo_context (ctx)
+
+	txt:set_text ("X")
+	tw, th = txt:get_pixel_size ()
+	ctx:move_to ((width - tw - 1), (height - th -1))
+	txt:show_in_cairo_context (ctx)
+end end