ardour/livetrax
13
0
Fork 0
Code

..and another action-button icon

Browse Source
This commit is contained in:
Robin Gareus 2017-02-17 21:03:30 +01:00
parent b5b9e1d1e5
commit b4dd020139
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
scripts/preare_record_example.lua
View File

@ -60,3 +60,23 @@ function factory (unused) return function()
Session:maybe_enable_record()
end end
function icon (params) return function (ctx, width, height)
local x = width * .5
local y = height * .5
local r = math.min (x, y) * .55
ctx:arc (x, y, r, 0, 2 * math.pi)
ctx:set_source_rgba (9, .3, .3, 1.)
ctx:fill_preserve ()
ctx:set_source_rgba (0, 0, 0, .8)
ctx:set_line_width (1)
ctx:stroke ()
local txt = Cairo.PangoLayout (ctx, "ArdourMono ".. math.ceil(r * 1.5) .. "px")
txt:set_text ("P")
local tw, th = txt:get_pixel_size ()
ctx:set_source_rgba (0, 0, 0, 1.0)
ctx:move_to (.5 * (width - tw), .5 * (height - th))
txt:show_in_cairo_context (ctx)
end end