Sorry your browser is not supported!

 rem GetPixel win32 api call
rem substitute for the POINT command
rem by latch
rem 04/20/2008

set window on
sync on
sync rate 60

rem make an image to look at all of the colors in
for n=1 to 10000
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   x=rnd(200)
   y=rnd(200)
   box x,y,x+2,y+2
next n
get image 1,0,0,201,201
sync

ink rgb(255,255,255),0
gosub _load_dlls:

set cursor 300,200
print "PRESS ANY KEY TO RUN TEST"
wait key

rem get test speed for gdi point function
mem=1
a=timer()
for x=0 to 200
   for y=0 to 200
      color=gdi_point(user32,gdi32,hwnd,x,y,mem)
      position mouse x,y
   next y
next x
set cursor 300,0
print "GDI getpixel time ";timer()-a
sync

rem get test speed for regular point function
a=timer()
for x=0 to 200
   for y=0 to 200
      color=point(x,y)
      position mouse x,y
   next y
next x
set cursor 300,20
print "Regular POINT command ";timer()-a
sync


end

rem procedures and functions to for the winapi calls

_load_dlls:
   user32=1
   gdi32=2
   load dll "user32.dll",user32
   load dll "gdi32.dll",gdi32
   hwnd=call dll(user32,"GetActiveWindow")
return

function gdi_point(user32,gdi32,hwnd,xpos,ypos,mem)
   if memblock exist(mem)=0
      make memblock mem,4
   endif

   rem get hwnd to retrieve the DC and the pixel of the window
   hdc=call dll(user32,"GetDC",hwnd)
   cpixel=call dll(gdi32,"GetPixel",hdc,xpos,ypos)
   call dll user32,"ReleaseDC",hwnd,hdc

   rem since the pixel color is returned by getpixel in R G B order,
   rem I swap bytes 0 and 2 for reading back the DWORD (B G R) for dbc
   rem right now this limits the screen depth to 32 bits.
   write memblock dword mem,0,cpixel
   temp=memblock byte(mem,0)
   write memblock byte mem,0,memblock byte(mem,2)
   write memblock byte mem,2,temp
   cpixel=memblock dword(mem,0)

endfunction cpixel

sync on
sync rate 0
set window on
autocam off
randomize timer()

for obj=1 to 100
   make object cube obj,25
   position object obj,rnd(500)-100,rnd(100)-50,rnd(1000)
   color object obj,rgb(rnd(255),rnd(255),rnd(255))
next obj

gosub _load_dlls
mem=1
ink rgb(255,255,255),0
do
   cpixel=gdi_point(user32,gdi32,hwnd,mousex(),mousey(),mem)
   cpoint=point(mousex(),mousey())
   text 0,0,"POINT command result = "+str$(cpoint)
   text 0,20,"GDI_POINT function result = "+str$(cpixel)

loop



end
rem procedures and functions to for the winapi calls

_load_dlls:
   user32=1
   gdi32=2
   load dll "user32.dll",user32
   load dll "gdi32.dll",gdi32
   hwnd=call dll(user32,"GetActiveWindow")
return

function gdi_point(user32,gdi32,hwnd,xpos,ypos,mem)
   if memblock exist(mem)=0
      make memblock mem,4
   endif

   rem get hwnd to retrieve the DC and the pixel of the window
   hdc=call dll(user32,"GetDC",hwnd)
   cpixel=call dll(gdi32,"GetPixel",hdc,xpos,ypos)
   call dll user32,"ReleaseDC",hwnd,hdc

   rem since the pixel color is returned by getpixel in R G B order,
   rem I swap bytes 0 and 2 for reading back the DWORD (B G R) for dbc
   rem right now this limits the screen depth to 32 bits.
   write memblock dword mem,0,cpixel
   temp=memblock byte(mem,0)
   write memblock byte mem,0,memblock byte(mem,2)
   write memblock byte mem,2,temp
   cpixel=memblock dword(mem,0)

endfunction cpixel

This command will lock the current bitmap for faster reading and writing of visual data. Rather than use DOT and POINT to manipulate pixel data, use this command in combination with GET PIXELS POINTER to write directly to the memory storing the visual data.