40 lines
851 B
Plaintext
40 lines
851 B
Plaintext
// #import "base.kl"
|
|
#load "Windows.kl"
|
|
|
|
Vec2I :: struct;; x: S32; y: S32
|
|
Vec2 :: struct;; x: F32; y: F32
|
|
|
|
Windows_Bitmap :: struct
|
|
size: Vec2I
|
|
hdc: HDC
|
|
dib: HBITMAP
|
|
|
|
create_bitmap :: (size: Vec2I, bottom_up: Bool)
|
|
bitmap: Windows_Bitmap = {size = size}
|
|
if bottom_up == false
|
|
bitmap.size.y = -bitmap.size.y
|
|
|
|
hdc := GetDC(0)
|
|
bminfo := BITMAPINFO{
|
|
bmiHeader = BITMAPINFOHEADER{
|
|
biSize = size_of(BITMAPINFOHEADER),
|
|
biWidth = size.x->LONG,
|
|
biHeight = size.y->LONG,
|
|
biPlanes = 1,
|
|
biBitCount = 32,
|
|
biCompression = BI_RGB,
|
|
biXPelsPerMeter = 1,
|
|
biYPelsPerMeter = 1,
|
|
}
|
|
}
|
|
|
|
|
|
|
|
main :: (argc: int, argv: **char): int
|
|
pass
|
|
// memory := os.reserve(size = 10000)
|
|
// os.commit(&memory, 1000)
|
|
// os.release(&memory)
|
|
// os.print("Hello world")
|
|
|