Home

Add

Edit

Without Linenumbers

Code in Textfield

dll

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



app

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