Home

Add

Edit

With Linenumbers

Code in Textfield

dll

#INCLUDE Once "fbgfx.bi"
Sub init(img As Any Ptr) Export
Screenres 1, 1, , , FB.GFX_null '<=== if screen is present, then the main-app crash at END command
Line img, (20, 20)-(40, 40), &HFFFF00FF, BF '<=== will no work if SCREEN line dosn't exist
End Sub
     



app

Screenres 640, 480, 32
Dim timg As Any Ptr = Imagecreate(100, 100)
Dim dllh As Any Ptr = Dylibload("libdll.so")
Dim tsub As Sub (img As Any Ptr) = Dylibsymbol(dllh, "INIT")
TSub(timg)
Line timg, (10, 10)-(50, 50), &HFF00FF00, BF
Put (0, 0), timg, Pset
Sleep
Dylibfree(dllh)
End 0