33 lines
897 B
Nim
33 lines
897 B
Nim
# core/rumpk/npl/glyph/glyph.nim
|
|
# Phase 35c: The Glyph - Surface Manager Test Client
|
|
|
|
import ../../libs/membrane/libc
|
|
|
|
proc main() =
|
|
# 1. Create Surface
|
|
let sid = sys_surface_create(640, 480)
|
|
if sid < 0:
|
|
return
|
|
|
|
# 2. Get buffer pointer (directly mapped)
|
|
# In Sv39, this would be a userland address.
|
|
# For now, it's a physical address (identity mapped).
|
|
let fb_ptr = cast[ptr UncheckedArray[uint32]](sys_surface_get_ptr(sid))
|
|
|
|
var frame = 0
|
|
while true:
|
|
# 3. Draw something: Color Cycle
|
|
let color = uint32(0xFF000000'u32) or (uint32(frame and 0xFF) shl 8)
|
|
for i in 0 ..< (640 * 480):
|
|
fb_ptr[i] = color
|
|
|
|
# 4. Flip (Notify compositor)
|
|
sys_surface_flip(sid)
|
|
|
|
frame += 1
|
|
# Yield to let compositor blit
|
|
# libc.yield()? We'll use the syscall directly if needed or just loop
|
|
# The kernel scheduler will preempt us anyway.
|
|
|
|
main()
|