Graphics3D   800,600,32,3
Global timer,fpscount,fpstemp,fps,x,y
Global driverimagew
Global driverimageh
Global driverdepth
inbank= CreateBank(200) ; <- a little  more byts as you need ! For the future  (sound /avi...)
outbank= CreateBank (10)

CallDLL("METHYL","INIT")   ; dialog driver

capwindowx   =  1; 1  use
capwindowy   =  1; 1        this
capwindoww   = 1; 1               to
capwindowh   =1 ; 1                     make a small previewwindow at 1,1 with 1*1 pixels (invisible ;) )
previewrate  = 90   ;               play here to get better fps from driver           


PokeInt inbank,0,  capwindowx
PokeInt inbank,4,  capwindowy
PokeInt inbank,8,  capwindoww
PokeInt inbank,12, capwindowh
PokeInt inbank,16, previewrate
PokeInt inbank ,24,FakeBank+4

CallDLL("METHYL","SETDATA",inbank,outbank)   ;
CallDLL ("METHYL","START")
CallDLL("METHYL","SETFORMAT")      ; call videoformat       
CallDLL ("METHYL","SETSOURCE")    ;call videosource
CallDLL  ("METHYL","SETPREVIEWON")
CallDLL ("METHYL","SETPREVIEWOFF")



img=CreateImage(1,1)  ;<- fakeimage To get the driversettings
buffer1 =CreateBank((ImageWidth (img)*ImageHeight (img)*4))

ok = CallDLL ("METHYL","GETCLIP",inbank,buffer1)

driverimagew = PeekInt ( inbank,0)
driverimageh = PeekInt (inbank,4 )
driverdepth   = PeekInt  (inbank,8) 

FreeImage img
FreeBank buffer1

img=CreateImage(driverimagew,driverimageh)

Global buffer =CreateBank((ImageWidth (img)*ImageHeight (img)*4))
Global showbuffer =CreateBank(driverimagew*driverimageh*4)

ok = CallDLL ("METHYL","GETCLIP",inbank,buffer)

timer=MilliSecs()

ok = CallDLL ("METHYL","CONTFRAME")   ;<- start capturing

While Not KeyHit(1)

m= MilliSecs()



SetBuffer ImageBuffer(img)
 LockBuffer ImageBuffer(img)
  pointer =0

ok = CallDLL ("METHYL","STOPPFRAME")   ; <- stopp preview  !
For y = 0 To  ImageHeight (img)-1 
For x = 0 To  ImageWidth  (img)-1
rgb = PeekInt (buffer,pointer)
WritePixelFast(x,y,rgb)
pointer =pointer + 4
Next
Next
mi = MilliSecs()-m

 UnlockBuffer ImageBuffer(img)
ok = CallDLL ("METHYL","CONTFRAME")   ; continue capturing
 SetBuffer BackBuffer()
MaskImage img,255,255,255  ; <-   use your own color
DrawImage img,1,1
Text 10,10, mi   ; the time for readfrombank to image 
fpscount=fpscount+1
If MilliSecs()<timer+1000
Else
   fps=fpscount-fpstemp
   fpstemp=fpscount
   timer=MilliSecs()
EndIf
Text 80,10,"FPS "+fps

 Flip(0)
Cls

If MouseHit(1) Then CallDLL ("METHYL","SETPREVIEWON")   ;   
If MouseHit(2) Then CallDLL ("METHYL","SETPREVIEWOFF") ; use this to get full blitzperformance without capture


 Wend

ok = CallDLL("METHYL","ENDCAP")  ; <- Stop capture  unload dll

End

WriteByte( pixel_color[1] )
...
writebyte (pixel_color[100] )
sendUDPMsg
writebyte( pixel_color[101] )
...
writebyte( pixel_color[200] )
sendUDPMsg