And some more action-script icons

This commit is contained in:
Robin Gareus 2017-02-20 03:58:52 +01:00
parent 0aa631b6af
commit 120e75b420
3 changed files with 77 additions and 2 deletions

View file

@ -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