Make MemBlock From Bitmap My_MemBlock, My_Bitmap

sync on
sync rate void

type ScreenState
   Width as dword
   Height as dword
   Framerate as dword
   Depth as dword
   Bits as dword
endtype

global Screen as ScreenState

backdrop on

repeat
   Screen.Width = screen width()
   Screen.Height = screen height()
   Screen.Framerate = screen fps()
   Screen.Depth = screen depth()
   Screen.Bits = int(screen depth() / 8)

   if scancode() = 0 then isKey = 0

   if spacekey() = 1 and isKey = 0
      Method = Method - 1
      isKey = 1
   endif

   if Method
      center text int(Screen.Width * 0.5), int(Screen.Height * 0.5), str$(Screen.Framerate) + "fps :: Method 1"
      Method1()
   else
      center text int(Screen.Width * 0.5), int(Screen.Height * 0.5), str$(Screen.Framerate) + "fps :: Method 2"
      Method2()
   endif

   sync
until escapekey()
   // remove loaded memory
end   // exit

function Method1()
   lock pixels
      pPixel = get pixels pointer()

      for X = 0 to 63
         for Y = 0 to 63
            Draw(X, Y, pPixel)
         next Y
      next X
   unlock pixels
endfunction

function Method2()
   local pCache as integer
   local SizeOf as integer

   SizeOf = (Screen.Width * Screen.Height) * Screen.Bits
   pCache = make memory(SizeOf)

   lock pixels
      pPixel = get pixels pointer()
      copy memory pCache, pPixel, SizeOf

      for X = 0 to 63
         for Y = 0 to 63
            Draw(X, Y, pCache)
         next Y
      next X

      copy memory pPixel, pCache, SizeOf
   unlock pixels

   delete memory pCache
endfunction

function Draw(X as dword, Y as dword, pPixel as integer)
   local pBuffer as integer
   local Colour as dword

   pBuffer = Screen.Bits * ((Y * Screen.Width) + X)
   pBuffer = pBuffer + pPixel

   // Colour = *pBuffer    // Get Pixel Colour

   // ScreenSpace Operation
   Colour = 0x8c8c8c

   *pBuffer = Colour    // Set Pixel Colour
endfunction