39 lines
1018 B
Lua
39 lines
1018 B
Lua
-- Test if shape crash when called
|
|
-- Also generate some SVG to be used by the documentation
|
|
-- it also "prove" that the code examples are all working
|
|
local cairo = require( "lgi" ).cairo
|
|
local shape = require( "gears.shape" )
|
|
local filepath, svgpath, luacovpath = ...
|
|
|
|
-- If luacov is available, use it. Else, do nothing.
|
|
pcall(function()
|
|
require("luacov.runner")(luacovpath)
|
|
end)
|
|
|
|
local function get_surface(p)
|
|
local img = cairo.SvgSurface.create(p, 288, 76)
|
|
return cairo.Context(img)
|
|
end
|
|
|
|
local function show(cr, skip_fill)
|
|
if not skip_fill then
|
|
cr:set_source_rgba(0.380392156863,0.505882352941,1,0.5)
|
|
cr:fill_preserve()
|
|
end
|
|
|
|
cr:set_source_rgba(0.380392156863,0.505882352941,1,1)
|
|
cr:stroke()
|
|
|
|
cr:translate(96, 0)
|
|
cr:reset_clip()
|
|
cr:rectangle(-3,-3,76,76)
|
|
cr:clip()
|
|
end
|
|
|
|
local cr = get_surface(svgpath..".svg")
|
|
cr:translate(3,3)
|
|
|
|
loadfile(filepath)(shape, cr, show)
|
|
|
|
-- vim: filetype=lua:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80
|