diff options
Diffstat (limited to 'apps/raytracing/vec.mu')
-rw-r--r-- | apps/raytracing/vec.mu | 122 |
1 files changed, 103 insertions, 19 deletions
diff --git a/apps/raytracing/vec.mu b/apps/raytracing/vec.mu index b5fa1c74..ce745a15 100644 --- a/apps/raytracing/vec.mu +++ b/apps/raytracing/vec.mu @@ -4,25 +4,126 @@ type vec3 { z: float } -fn vec3-negate _v: (addr vec3) { +fn print-vec3 screen: (addr screen), _v: (addr vec3) { + var v/esi: (addr vec3) <- copy _v + print-string screen, "(" + var tmp/eax: (addr float) <- get v, x + print-float screen, *tmp + print-string screen, ", " + tmp <- get v, y + print-float screen, *tmp + print-string screen, ", " + tmp <- get v, z + print-float screen, *tmp + print-string screen, ")" } fn vec3-add-to _v1: (addr vec3), _v2: (addr vec3) { + var v1/edi: (addr vec3) <- copy _v1 + var v2/esi: (addr vec3) <- copy _v2 + # v1.x += v2.x + var arg1/eax: (addr float) <- get v1, x + var arg2/ecx: (addr float) <- get v2, x + var result/xmm0: float <- copy *arg1 + result <- add *arg2 + copy-to *arg1, result + # v1.y += v2.y + arg1 <- get v1, y + arg2 <- get v2, y + result <- copy *arg1 + result <- add *arg2 + copy-to *arg1, result + # v1.z += v2.z + arg1 <- get v1, z + arg2 <- get v2, z + result <- copy *arg1 + result <- add *arg2 + copy-to *arg1, result +} + +fn vec3-subtract-from v1: (addr vec3), v2: (addr vec3) { + var tmp-storage: vec3 + var tmp/eax: (addr vec3) <- address tmp-storage + copy-object v2, tmp + vec3-negate tmp + vec3-add-to v1, tmp } -fn vec3-mul-by _v1: (addr vec3), _v2: (addr vec3) { +fn vec3-negate v: (addr vec3) { + var negative-one/eax: int <- copy -1 + var negative-one-f/xmm0: float <- convert negative-one + vec3-scale-up v, negative-one-f } fn vec3-scale-up _v: (addr vec3), f: float { + var v/edi: (addr vec3) <- copy _v + # v.x *= f + var dest/eax: (addr float) <- get v, x + var result/xmm0: float <- copy *dest + result <- multiply f + copy-to *dest, result + # v.y *= f + dest <- get v, y + result <- copy *dest + result <- multiply f + copy-to *dest, result + # v.z *= f + dest <- get v, z + result <- copy *dest + result <- multiply f + copy-to *dest, result } fn vec3-scale-down _v: (addr vec3), f: float { + var v/edi: (addr vec3) <- copy _v + # v.x /= f + var dest/eax: (addr float) <- get v, x + var result/xmm0: float <- copy *dest + result <- divide f + copy-to *dest, result + # v.y /= f + dest <- get v, y + result <- copy *dest + result <- divide f + copy-to *dest, result + # v.z /= f + dest <- get v, z + result <- copy *dest + result <- divide f + copy-to *dest, result +} + +fn vec3-unit in: (addr vec3), out: (addr vec3) { + var len/xmm0: float <- vec3-length in +#? print-string 0, "len: " +#? print-float 0, len +#? print-string 0, "\n" + copy-object in, out + vec3-scale-down out, len } fn vec3-length v: (addr vec3) -> result/xmm0: float { + result <- vec3-length-squared v + result <- square-root result } fn vec3-length-squared _v: (addr vec3) -> result/xmm0: float { + var v/esi: (addr vec3) <- copy _v + # result = v.x * v.x + var src/eax: (addr float) <- get v, x + var tmp/xmm1: float <- copy *src + tmp <- multiply tmp + result <- copy tmp + # result += v.y * v.y + src <- get v, y + tmp <- copy *src + tmp <- multiply tmp + result <- add tmp + # result += v.z * v.z + src <- get v, z + tmp <- copy *src + tmp <- multiply tmp + result <- add tmp } fn vec3-dot _v1: (addr vec3), _v2: (addr vec3) -> result/xmm0: float { @@ -30,20 +131,3 @@ fn vec3-dot _v1: (addr vec3), _v2: (addr vec3) -> result/xmm0: float { fn vec3-cross _v1: (addr vec3), _v2: (addr vec3), out: (addr vec3) { } - -fn vec3-unit in: (addr vec3), out: (addr vec3) { -} - -fn print-vec3 screen: (addr screen), _v: (addr vec3) { - var v/esi: (addr vec3) <- copy _v - print-string screen, "(" - var tmp/eax: (addr float) <- get v, x - print-float screen, *tmp - print-string screen, ", " - tmp <- get v, y - print-float screen, *tmp - print-string screen, ", " - tmp <- get v, z - print-float screen, *tmp - print-string screen, ")" -} |