`nishi_game.nx` source

↩ module page · 305 lines · 12421 B
1// nishi_game.nx -- GAME-GUI R1: the sovereign GAME ENGINE WINDOW on native Windows. Presents ANIMATED
2// frames rendered by the SAME baselined textured rasterizer (nx_textured_tri -> nx_tex_sample bilinear,
3// pure integer) into a real Win32 window via SetDIBitsToDevice -- the game ecosystem's GUI+video rung:
4// sovereign frames, hardware-up, no gcc/SDL/GL/toolkit. Scene: textured scrolling-checker band + a
5// BOUNCING textured triangle + animated HUD bar + live frame counter (two screenshots differ => video).
6// Built by nx_pe_compile_win_game.nx (compile me with nx_compile_x86 -> /tmp/nxgame.s first).
7import "nx_syscalls.nx"
8import "nx_font8x8.nx"
9import "nx_textured_tri_fast.nx"   // E1-R1 fast path (bit-identical to nx_textured_tri, ~2.8x)
10import "nx_scene3d.nx"             // E6-R3: depth-buffered Lambert-lit 3D cube in the live window
11
12func win32(id: i64, args: *i64) -> i64 { return id }
13func win32addr(id: i64) -> i64 { return id }
14
15// user32/gdi32/kernel32 imports by FFI id (IAT slot), provided by the keystone wrapper.
16const W_GetModuleHandleA:   i64 = 6
17const W_RegisterClassExA:   i64 = 7
18const W_CreateWindowExA:    i64 = 8
19const W_ShowWindow:         i64 = 9
20const W_PeekMessageA:       i64 = 10
21const W_TranslateMessage:   i64 = 11
22const W_DispatchMessageA:   i64 = 12
23const W_DefWindowProcA:     i64 = 13
24const W_GetDC:              i64 = 14
25const W_ReleaseDC:          i64 = 15
26const W_IsWindow:           i64 = 16
27const W_LoadCursorA:        i64 = 17
28const W_SetDIBitsToDevice:  i64 = 18
29const W_GetClientRect:      i64 = 24
30
31const GW: i64 = 640
32const GH: i64 = 480
33
34func w16(p: *u8, o: i64, v: i64) -> i64 { p[o]=(v&0xff) as u8; p[o+1]=((v>>8)&0xff) as u8; return 0 }
35func w32(p: *u8, o: i64, v: i64) -> i64 {
  p[o]=(v&0xff) as u8; p[o+1]=((v>>8)&0xff) as u8; p[o+2]=((v>>16)&0xff) as u8; p[o+3]=((v>>24)&0xff) as u8; return 0
37}
38func wp(p: *u8, o: i64, v: i64) -> i64 { w32(p,o,v); w32(p,o+4, v / 4294967296); return 0 }
39func rd32(p: *u8, o: i64) -> i64 { return (p[o]&0xff) | ((p[o+1]&0xff)<<8) | ((p[o+2]&0xff)<<16) | ((p[o+3]&0xff)<<24) }
40
41// RGB (3-byte Image) drawing helpers -- everything renders into the sovereign RGB target,
42// then ONE rgb->bgra bridge feeds the DIB blit (same split the browser uses).
43func fill_rect3(fb: *Image, x0: i64, y0: i64, rw: i64, rh: i64, r: i64, g: i64, b: i64) -> i64 {
  let px: *u8 = fb.pixels
  var y: i64 = y0
  if y < 0 { y = 0 }
  var ye: i64 = y0 + rh
  if ye > fb.height { ye = fb.height }
  while y < ye {
      var x: i64 = x0
      if x < 0 { x = 0 }
      var xe: i64 = x0 + rw
      if xe > fb.width { xe = fb.width }
      while x < xe {
          let o: i64 = y * fb.stride + x * 3
          px[o]=r as u8; px[o+1]=g as u8; px[o+2]=b as u8
          x = x + 1
      }
      y = y + 1
  }
  return 0
62}
63func draw_char3(fb: *Image, ft: *u8, c: i64, x0: i64, y0: i64, sc: i64, r: i64, g: i64, b: i64) -> i64 {
  var cc: i64 = c
  if cc < 0x20 { return 0 }
  if cc > 0x7F { cc = 0x3F }
  let idx: i64 = (cc - 0x20) * 8
  var row: i64 = 0
  while row < 8 {
      let bits: i64 = ft[idx + row] & 0xff
      var col: i64 = 0
      while col < 8 {
          if ((bits >> col) & 1) == 1 { fill_rect3(fb, x0 + col*sc, y0 + row*sc, sc, sc, r, g, b) }
          col = col + 1
      }
      row = row + 1
  }
  return 0
79}
80func draw_text3(fb: *Image, ft: *u8, x0: i64, y0: i64, s: *u8, sc: i64, r: i64, g: i64, b: i64) -> i64 {
  var x: i64 = x0
  var i: i64 = 0
  while s[i] != (0 as u8) {
      let c: i64 = s[i] & 0xff
      draw_char3(fb, ft, c, x, y0, sc, r, g, b)
      x = x + 9 * sc
      i = i + 1
  }
  return x
90}
91// int -> chars drawn (uses caller scratch, no per-frame alloc)
92func draw_num3(fb: *Image, ft: *u8, x0: i64, y0: i64, v: i64, sc: i64, r: i64, g: i64, b: i64, tmp: *u8) -> i64 {
  var n: i64 = v
  if n < 0 { n = 0 }
  var k: i64 = 0
  if n == 0 { tmp[0]=48 as u8; k=1 }
  while n > 0 { tmp[k]=(48+n%10) as u8; n=n/10; k=k+1 }
  var x: i64 = x0
  var j: i64 = k - 1
  while j >= 0 {
      draw_char3(fb, ft, tmp[j] as i64, x, y0, sc, r, g, b)
      x = x + 9 * sc
      j = j - 1
  }
  return x
106}
107
108// the sovereign RGB frame -> Windows BGRA DIB bridge
109func rgb_to_bgra(dst: *u8, src: *u8, n: i64) -> i64 {
  var i: i64 = 0
  while i < n {
      dst[i*4+0] = src[i*3+2]
      dst[i*4+1] = src[i*3+1]
      dst[i*4+2] = src[i*3+0]
      dst[i*4+3] = 0 as u8
      i = i + 1
  }
  return 0
119}
120
121// render one game frame: title chrome + textured band + PLAYER triangle + gold pickups + HUD +
122// win banner. All integer, all through the E1-R2 fast raster path.
123func game_frame(fb: *Image, tex: *Image, ft: *u8, t: i64, bx: i64, by: i64, tmp: *u8, gxa: *i64, gya: *i64, cmask: i64, gold: i64) -> i64 {
  fill_rect3(fb, 0, 0, GW, GH, 12, 14, 24)
  fill_rect3(fb, 0, 0, GW, 34, 24, 28, 44)
  draw_text3(fb, ft, 12, 9, "NISHI GAME -- SOVEREIGN FRAMES" as *u8, 2, 140, 220, 160)
  draw_text3(fb, ft, 12, 42, "frame" as *u8, 1, 150, 150, 160)
  draw_num3(fb, ft, 66, 42, t, 1, 230, 200, 90, tmp)
  draw_text3(fb, ft, 170, 42, "gold" as *u8, 1, 230, 200, 90)
  let gx2: i64 = draw_num3(fb, ft, 215, 42, gold, 1, 250, 220, 100, tmp)
  draw_text3(fb, ft, gx2, 42, "/5" as *u8, 1, 150, 150, 160)
  draw_text3(fb, ft, 12, 424, "arrows / WASD move -- collect the gold -- ESC quits | E1-R2 fast raster, pure integer" as *u8, 1, 110, 115, 130)
  // textured band (the baselined full-fragment path over a wide quad, E1-R2 fast lane)
  txtri_render_fast(fb, tex, 0, 60, 0, 0, GW-1, 60, 1023, 0, 0, 219, 0, 1023)
  txtri_render_fast(fb, tex, GW-1, 60, 1023, 0, GW-1, 219, 1023, 1023, 0, 219, 0, 1023)
  // gold pickups (uncollected)
  var gi: i64 = 0
  while gi < 5 {
      if ((cmask >> gi) & 1) == 0 { fill_rect3(fb, gxa[gi]-11, gya[gi]-11, 22, 22, 240, 200, 70) }
      gi = gi + 1
  }
  // the PLAYER: textured triangle (same raster path)
  txtri_render_fast(fb, tex, bx, by-60, 512, 0, bx+55, by+45, 1023, 1023, bx-55, by+45, 0, 1023)
  if gold >= 5 { draw_text3(fb, ft, 132, 190, "YOU WIN" as *u8, 6, 140, 230, 150) }
  return 0
146}
147
148func main() -> i64 {
  let a: *i64 = sys_mmap(2048) as *i64
  let tmp: *u8 = sys_mmap(64)
151
  a[0] = 0
  let hInst: i64 = win32(W_GetModuleHandleA, a)
  a[0] = 0; a[1] = 32512
  let hCur: i64 = win32(W_LoadCursorA, a)
156
  let cls:   *u8 = "nishigame" as *u8
  let title: *u8 = "Nishi Game -- sovereign engine window (native Windows, hardware-up)" as *u8
159
  let wc: *u8 = sys_mmap(80)
  w32(wc, 0, 80); w32(wc, 4, 0)
  wp (wc, 8, win32addr(W_DefWindowProcA))
  w32(wc, 16, 0); w32(wc, 20, 0)
  wp (wc, 24, hInst); wp (wc, 32, 0); wp (wc, 40, hCur); wp (wc, 48, 0); wp (wc, 56, 0)
  wp (wc, 64, cls as i64); wp (wc, 72, 0)
  a[0] = wc as i64
  win32(W_RegisterClassExA, a)
168
  a[0]=0; a[1]=cls as i64; a[2]=title as i64; a[3]=0x10CF0000
  a[4]=90; a[5]=70; a[6]=GW; a[7]=GH; a[8]=0; a[9]=0; a[10]=hInst; a[11]=0
  let hwnd: i64 = win32(W_CreateWindowExA, a)
  if hwnd == 0 { sys_exit(1); return 1 }
  a[0]=hwnd; a[1]=5
  win32(W_ShowWindow, a)
175
  // establish the window: drain show/paint/activate BEFORE the render loop (anti-teardown lesson)
  let msg: *u8 = sys_mmap(64)
  var pw0: i64 = 0
  while pw0 < 50 {
      a[0]=msg as i64; a[1]=0; a[2]=0; a[3]=0; a[4]=1
      if win32(W_PeekMessageA, a) != 0 { win32(W_TranslateMessage, a); win32(W_DispatchMessageA, a) }
      pw0 = pw0 + 1
  }
184
  // sovereign RGB render target + BGRA display DIB + BITMAPINFO
  let fbi: *Image = nx_image_alloc(GW, GH, 3)
  let fb: *u8 = sys_mmap(GW * GH * 4)
  let bmi: *u8 = sys_mmap(64)
  w32(bmi, 0, 40); w32(bmi, 4, GW); w32(bmi, 8, 0 - GH)
  w16(bmi, 12, 1); w16(bmi, 14, 32); w32(bmi, 16, 0)
  let rectbuf: *u8 = sys_mmap(16)
  let ft: *u8 = font8x8_table()
193
  // checkerboard texture (the bench scene's texture)
  let tex: *Image = nx_image_alloc(64, 64, 1)
  let tp: *u8 = tex.pixels
  var yy: i64 = 0
  while yy < 64 {
      var xx: i64 = 0
      while xx < 64 {
          var val: i64 = 30
          if ((xx / 8) + (yy / 8)) % 2 == 0 { val = 220 }
          tp[yy*64 + xx] = val as u8
          xx = xx + 1
      }
      yy = yy + 1
  }
208
  // E6-R3: a 3D lit cube + its own depth buffer, rendered into the SAME sovereign RGB target
  let cube: *Cube3D = sc_cube_new(95, 460, 660)
  let zb3: *i64 = sys_mmap(GW * GH * 8) as *i64
212
  // gold pickup table (fixed, data-driven) + player state
  let gxa: *i64 = sys_mmap(64) as *i64
  let gya: *i64 = sys_mmap(64) as *i64
  gxa[0]=120; gya[0]=300
  gxa[1]=240; gya[1]=380
  gxa[2]=360; gya[2]=320
  gxa[3]=480; gya[3]=400
  gxa[4]=560; gya[4]=280
  var cmask: i64 = 0
  var gold: i64 = 0
  var running: i64 = 1
  var t: i64 = 0
  var bx: i64 = 100
  var by: i64 = 340
  while running == 1 {
      // pump: WM_CLOSE/ESC = clean quit; WM_KEYDOWN (0x100) = player input; rest dispatched
      var pd: i64 = 1
      while pd == 1 {
          a[0]=msg as i64; a[1]=0; a[2]=0; a[3]=0; a[4]=1
          if win32(W_PeekMessageA, a) != 0 {
              let m: i64 = rd32(msg, 8)
              if m == 0x10 { running = 0 } else {
                  if m == 0x100 {
                      let vk: i64 = rd32(msg, 16)
                      if vk == 0x1B { running = 0 }
                      if vk == 0x25 { bx = bx - 14 }
                      if vk == 0x41 { bx = bx - 14 }
                      if vk == 0x27 { bx = bx + 14 }
                      if vk == 0x44 { bx = bx + 14 }
                      if vk == 0x26 { by = by - 14 }
                      if vk == 0x57 { by = by - 14 }
                      if vk == 0x28 { by = by + 14 }
                      if vk == 0x53 { by = by + 14 }
                  }
                  a[0]=msg as i64; win32(W_TranslateMessage, a)
                  a[0]=msg as i64; win32(W_DispatchMessageA, a)
              }
          } else { pd = 0 }
      }
      // playfield bounds
      if bx < 70 { bx = 70 }
      if bx > 570 { bx = 570 }
      if by < 250 { by = 250 }
      if by > 410 { by = 410 }
      // pickup collision (player center vs gold center)
      var ci: i64 = 0
      while ci < 5 {
          if ((cmask >> ci) & 1) == 0 {
              var ddx: i64 = bx - gxa[ci]
              if ddx < 0 { ddx = 0 - ddx }
              var ddy: i64 = by - gya[ci]
              if ddy < 0 { ddy = 0 - ddy }
              if ddx < 40 { if ddy < 40 { cmask = cmask | (1 << ci); gold = gold + 1 } }
          }
          ci = ci + 1
      }
269
      // E6-R3: a spinning, depth-sorted, Lambert-lit 3D cube in the live sovereign window
      fill_rect3(fbi, 0, 0, GW, GH, 12, 14, 24)
      fill_rect3(fbi, 0, 0, GW, 40, 22, 26, 40)
      depth_clear(zb3, GW * GH, 1000000000)
      sc_cube_draw(cube, fbi, zb3, GW / 2, GH / 2 + 24, t * 3, 0 - 24)
      draw_text3(fbi, ft, 12, 10, "NISHI 3D -- SOVEREIGN LIT CUBE" as *u8, 2, 150, 220, 170)
      draw_text3(fbi, ft, 12, GH - 22, "depth-buffered - Lambert-lit - pure integer - no gcc/GL - frame" as *u8, 1, 120, 130, 150)
      draw_num3(fbi, ft, 470, GH - 22, t, 1, 230, 200, 90, tmp)
      rgb_to_bgra(fb, fbi.pixels, GW * GH)
279
      // blit the client-visible region (clamped to the render size)
      a[0]=hwnd; a[1]=rectbuf as i64; win32(W_GetClientRect, a)
      var cw: i64 = rd32(rectbuf, 8)
      var ch: i64 = rd32(rectbuf, 12)
      if cw > GW { cw = GW }
      if ch > GH { ch = GH }
      if cw > 0 { if ch > 0 {
          // keep the DIB header + scanline count matched to the CLIENT height (the browser's proven
          // contract) so the frame is TOP-anchored -- a taller source with cScanLines=GH shows the
          // BOTTOM rows and cuts the chrome strip
          w32(bmi, 8, 0 - ch)
          a[0]=hwnd
          let hdc: i64 = win32(W_GetDC, a)
          a[0]=hdc; a[1]=0; a[2]=0; a[3]=cw; a[4]=ch; a[5]=0; a[6]=0; a[7]=0; a[8]=ch; a[9]=fb as i64; a[10]=bmi as i64; a[11]=0
          win32(W_SetDIBitsToDevice, a)
          a[0]=hwnd; a[1]=hdc; win32(W_ReleaseDC, a)
      } }
297
      a[0]=hwnd
      if win32(W_IsWindow, a) == 0 { running = 0 }
      sys_sleep_ms(16)
      t = t + 1
  }
  sys_exit(0)
  return 0
305}
nishi_game.nx source

`nishi_game.nx` source
