'Fade using Layer demo
MODE 2
Font 1
FRAMEBUFFER layer 9
For n=1 To 20
Print "something on the Screen"
Next

FRAMEBUFFER write l
CLS RGB(Magenta)
Do
 fade_out
 Pause 200
 fade_in
 Pause 200
Loop


Sub fade_out
 For n=0 To 7
   For x=n To 320 Step 8
     Line x,0,x,240,,0
   Next
   For y=n To 240 Step 8
     Line 0,y,320,y,,0
   Next
   Pause 80
 Next
End Sub

Sub fade_in
 For n=0 To 7
   For x=n To 320 Step 8
     Line x,0,x,240,,RGB(magenta)
   Next
   For y=n To 240 Step 8
     Line 0,y,320,y,,RGB(magenta)
   Next
 Pause 80
 Next
End Sub    

FRAMEBUFFER MERGE [colour] [,mode] [,updaterate]

FRAMEBUFFER SYNC

FRAMEBUFFER CREATE
FRAMEBUFFER LAYER

FRAMEBUFFER create 'create a framebuffer
FRAMEBUFFER layer ' and a layer buffer
FRAMEBUFFER write f 'set graphics output to the framebuffer
Load image "b:/mandelbrot" ' and load a picture
FRAMEBUFFER merge 0,R,100 'now start a continuous update for the screen on CPU2 every 100mSec
FRAMEBUFFER write l' We will leave the framebuffer alone and just write to the layer
i=100
j=100
Do
 Do 'create a random origin for a circle staying on the screen
    x=i+Rnd()*6-3
    y=j+Rnd()*6-3
 Loop While x<50 Or x>MM.HRes-50 Or y<50 Or y>MM.VRes-50
 FRAMEBUFFER sync 'sync to the framebuffer write to avoid artifacts
 Box i-51,j-51,102,102,,0,0 ' clear the previous image
 Circle x,y,50,5,,RGB(red),RGB(blue) 'write a new image
 i=x
 j=y
Loop

BLIT FRAMEBUFFER from, to, xin, yin, xout, yout, width, height [,colour]