#Include "fbgfx.bi"
Using FB

Screen 17,32

Dim As Any Ptr img = ImageCreate(200,200)
Dim As UByte Ptr p
ImageInfo img,,,,,p

Line img,-(99,99),&hff,BF
Line img,(100,100)-(200,200),&hff00,BF
Line img,(100,0)-(200,99),&hffFF,BF
Line img,(0,100)-(99,200),&hff0000,BF

Put(0,0),img
Sleep(1000)

Do
   
  For x As Integer = 0 To 200*4-1 Step 4
   For y As Integer = 0 To 200-1
    If x>=200 And x<=600 And y>=50 And y<=150 Then
     p[x+800*y+3] += 4  
    ElseIf x>=300 And x<=500 And y>=10 And y<=35 Then
     p[x+800*y+2] += 4
     p[x+800*y+3] += 4
    Else
     p[x+800*y+3] = 255  
    EndIf
   Next
  Next  
  ScreenLock
  Cls
  Put(0,0),img,Alpha
  ScreenUnlock
  Sleep(50)
Loop Until MultiKey(SC_ESCAPE)