Lines.sel

#!./Selene
--- The famous "horizontal line test"
Selene.UseDirectFB("--dfb:quiet,no-vt")
DirectFB.init( DirectFB.CooperativeConst('FULLSCREEN') );	-- Set display cooperative mode

srf = SelSurface.create { caps=SelSurface.CapabilityConst('PRIMARY') } -- create a primary surface
w,h = srf:GetSize()	-- Retrieve its size

-- srf:FillRectangle(10, 10, w-20, h-20)	-- Background with a border
srf:Clear(0,0,0,0)

srf:SetColor( 0x80, 0x80, 0x80, 0x80)	-- semi transparent grey
srf:DrawLine( 0, h/2, w, h/2 )

srf:SetColor( 0xff, 0x80, 0x80, 0x80)	-- Orange
srf:DrawLine( w/2, 0, w/2, h )

print "Hit 'enter' key to exit"
io.stdin:read'*l'	-- wait for enter

-- srf:Dump('/tmp', 'screenshot')

srf:destroy()
generated by LDoc 1.4.6 Last updated 2022-09-05 22:24:51