code wiki / _hdl_build / nx_geo_raster_gate.nx
`nx_geo_raster_gate.nx` source

1// nx_geo_raster_gate.nx -- GATE for GEO-020 raster render (integer scanline fill) on an 8x8 grid:
2//   rectangle [rows 1..4) x [cols 1..5) -> filled count == 3*4 == 12; (2,2) filled, (0,0) & (5,5) empty
3//   right triangle (0,0),(0,4),(4,0)    -> filled count == 4+3+2+1 == 10 (triangular number);
4//                                          (0,0) & (0,3) filled, (3,3) empty
5// Exact integer pixel counts -> deterministic coverage, no float seam/overlap.
6//
7// Evidence -> knowledge/status/geo_raster.log (GEORASTERGATE authored=organ ... verdict=GREEN).
8// license_tier: ORIGINAL
9import "nx_geo_raster.nx"
10import "nx_syscalls.nx"
11import "nx_gate_verdict.nx"
12
13const GR_LOG: *u8 = "knowledge/status/geo_raster.log"
14
15func gr_w(fd: i64, s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(fd, s, n); return 0 }
16func gr_wn(fd: i64, v: i64) -> i64 { let bb: *u8 = sys_mmap(28); var m: i64=v; if m<0 {m=0-m; sys_write(fd,"-" as *u8,1)}; let t: *u8 = sys_mmap(28); var k: i64=0; if m==0 {t[0]=48;k=1}; while m>0 {t[k]=(48+(m%10)) as u8; m=m/10; k=k+1}; var i: i64=0; while i<k {bb[i]=t[k-1-i]; i=i+1}; sys_write(fd, bb, k); return 0 }
17
18func gr_set(p: *i64, i: i64, y: i64, x: i64) -> i64 { p[i * 2] = y; p[i * 2 + 1] = x; return 0 }
19
20func gr_emit(fd: i64, rc: i64, tc: i64, ok: i64) -> i64 {
21    gr_w(fd, "GEORASTERGATE authored=organ method=integer-scanline-fill rect_count=" as *u8); gr_wn(fd, rc)
22    gr_w(fd, " triangle_count=" as *u8); gr_wn(fd, tc)
23    if ok == 1 { gr_w(fd, " verdict=GREEN\n" as *u8) } else { gr_w(fd, " verdict=RED\n" as *u8) }
24    return 0
25}
26
27func main() -> i64 {
28    let w: i64 = 8
29    let h: i64 = 8
30    let grid: *u8 = sys_mmap(w * h)
31
32    // rectangle [rows 1..4) x [cols 1..5)
33    let rect: *i64 = sys_mmap(8 * 8) as *i64
34    gr_set(rect, 0, 1, 1)
35    gr_set(rect, 1, 1, 5)
36    gr_set(rect, 2, 4, 5)
37    gr_set(rect, 3, 4, 1)
38    let rc: i64 = geo_raster_fill(rect, 4, w, h, grid)
39    let r_in: i64 = geo_raster_get(grid, w, 2, 2)      // inside -> 1
40    let r_out0: i64 = geo_raster_get(grid, w, 0, 0)    // row 0 not active -> 0
41    let r_out5: i64 = geo_raster_get(grid, w, 5, 5)    // outside -> 0
42
43    // right triangle (0,0),(0,4),(4,0)
44    let tri: *i64 = sys_mmap(8 * 6) as *i64
45    gr_set(tri, 0, 0, 0)
46    gr_set(tri, 1, 0, 4)
47    gr_set(tri, 2, 4, 0)
48    let tc: i64 = geo_raster_fill(tri, 3, w, h, grid)
49    let t_in0: i64 = geo_raster_get(grid, w, 0, 0)     // inside -> 1
50    let t_in3: i64 = geo_raster_get(grid, w, 0, 3)     // row0 fills cols 0..3 -> 1
51    let t_out: i64 = geo_raster_get(grid, w, 3, 3)     // outside hypotenuse -> 0
52
53    var ok: i64 = 1
54    if rc != 12 { ok = 0 }
55    if r_in != 1 { ok = 0 }
56    if r_out0 != 0 { ok = 0 }
57    if r_out5 != 0 { ok = 0 }
58    if tc != 10 { ok = 0 }
59    if t_in0 != 1 { ok = 0 }
60    if t_in3 != 1 { ok = 0 }
61    if t_out != 0 { ok = 0 }
62
63    gr_emit(1, rc, tc, ok)
64    let lf: i64 = sys_openat_append(GR_LOG, 420)
65    if lf >= 0 { gr_emit(lf, rc, tc, ok); sys_close(lf) }
66
67    // MIGRATED onto nx_gate_verdict by nx_gate_dry_apply (D001, minimal form): every check
68    // row above is untouched, so the PASS/FAIL vector cannot change; only the hand-rolled
69    // verdict emission is replaced by the ONE shared base class. Proven by nx_gate_migrate verify.
70    let ctr__dry: *i64 = gv_ctr()
71    ctr__dry[0] = ok
72    ctr__dry[1] = 1
73    let rc__dry: i64 = gv_verdict("GEO-RASTER-GATE" as *u8, ctr__dry, "teeth unchanged; verdict emission migrated onto the shared base class" as *u8)
74    sys_exit(rc__dry)
75    return rc__dry
76}
nx_geo_raster_gate.nx source

`nx_geo_raster_gate.nx` source
