Simplify drawing to screen example

modules/Base.core

@@ -18,6 +18,11 @@ AlignUp :: (size: SizeU, align: SizeU): SizeU
   result := size + GetAlignOffset(size, align)
   return result
 
+ZeroMemory :: (p: *void, size: SizeU)
+  pcast := p->*U8
+  for i := 0->SizeU, i < size, i++
+    pcast[i] = 0
+
 //
 // Unicode
 //

modules/GDI32.core

@@ -36,4 +36,6 @@ WHITENESS :: 0x00FF0062 /* dest = WHITE                    */
 CreateDIBSection   :: #foreign (hdc: HDC, pbmi: *BITMAPINFO, usage: UINT, ppvBits: **VOID, hSection: HANDLE, offset: DWORD): HBITMAP
 CreateCompatibleDC :: #foreign (hdc: HDC): HDC
 SelectObject       :: #foreign (hdc: HDC, h: HGDIOBJ): HGDIOBJ
-BitBlt             :: #foreign (hdc: HDC, x: int, y: int, cx: int, cy: int, hdcSrc: HDC, x1: int, y1: int, ro: DWORD): BOOL
+BitBlt             :: #foreign (hdc: HDC, x: int, y: int, cx: int, cy: int, hdcSrc: HDC, x1: int, y1: int, ro: DWORD): BOOL
+DeleteDC           :: #foreign (hdc: HDC): BOOL
+DeleteObject       :: #foreign (ho : HGDIOBJ): BOOL