diff --git a/examples/curlywas/technotunnel.cwa b/examples/curlywas/technotunnel.cwa index fc28f69..785b373 100644 --- a/examples/curlywas/technotunnel.cwa +++ b/examples/curlywas/technotunnel.cwa @@ -1,25 +1,29 @@ import "env.memory" memory(4); import "env.sin" fn sin(f32) -> f32; import "env.time" fn time() -> f32; +import "env.setPixel" fn setPixel(i32, i32, i32); export fn upd() { - let i: i32; + let x: i32; + let y: i32; loop screen { let inline t = time() / 2 as f32; - let lazy o = sin(t) * 0.8; - let lazy q = (i % 320) as f32 - 160.1; - let lazy w = (i / 320 - 120) as f32; + let lazy o = sin(t) * 0.75; + let inline q = x as f32 - 160.5; + let inline w = (y - 120) as f32; let lazy r = sqrt(q*q + w*w); let lazy z = q / r; let lazy s = z * o + sqrt(z * z * o * o + 1 as f32 - o * o); - let lazy q2 = (z * s - o) * 10 as f32 + t; - let lazy w2 = w / r * s * 10 as f32 + t; - let lazy s2 = s * 100 as f32 / r; - i?120 = max( + let inline q2 = (z * s - o) * 10 as f32 + t; + let inline w2 = w / r * s * 10 as f32 + t; + let inline s2 = s * 100 as f32 / r; + let inline color = max( 0 as f32, ((q2 as i32 ^ w2 as i32 & ((s2 + time()) * 10 as f32) as i32) & 5) as f32 * (4 as f32 - s2) as f32 ) as i32 - 32; - branch_if (i := i + 1) < 320*240: screen + setPixel(x, y, color); + branch_if x := (x + 1) % 320: screen; + branch_if y := (y + 1) % 320: screen; } } \ No newline at end of file