From 120e75b420a4c756c71ce42bd0eea2565cde06ce Mon Sep 17 00:00:00 2001 From: Robin Gareus Date: Mon, 20 Feb 2017 03:58:52 +0100 Subject: And some more action-script icons --- scripts/addscopes.lua | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'scripts/addscopes.lua') diff --git a/scripts/addscopes.lua b/scripts/addscopes.lua index deb3a5c814..5ff40a7da8 100644 --- a/scripts/addscopes.lua +++ b/scripts/addscopes.lua @@ -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 -- cgit v1.2.3