1 type vec3 {
  2   x: float
  3   y: float
  4   z: float
  5 }
  6 
  7 fn print-vec3 screen: (addr screen), _v: (addr vec3) {
  8   var v/esi: (addr vec3) <- copy _v
  9   print-string screen, "("
 10   var tmp/eax: (addr float) <- get v, x
 11   print-float screen, *tmp
 12   print-string screen, ", "
 13   tmp <- get v, y
 14   print-float screen, *tmp
 15   print-string screen, ", "
 16   tmp <- get v, z
 17   print-float screen, *tmp
 18   print-string screen, ")"
 19 }
 20 
 21 fn vec3-add-to _v1: (addr vec3), _v2: (addr vec3) {
 22   var v1/edi: (addr vec3) <- copy _v1
 23   var v2/esi: (addr vec3) <- copy _v2
 24   # v1.x += v2.x
 25   var arg1/eax: (addr float) <- get v1, x
 26   var arg2/ecx: (addr float) <- get v2, x
 27   var result/xmm0: float <- copy *arg1
 28   result <- add *arg2
 29   copy-to *arg1, result
 30   # v1.y += v2.y
 31   arg1 <- get v1, y
 32   arg2 <- get v2, y
 33   result <- copy *arg1
 34   result <- add *arg2
 35   copy-to *arg1, result
 36   # v1.z += v2.z
 37   arg1 <- get v1, z
 38   arg2 <- get v2, z
 39   result <- copy *arg1
 40   result <- add *arg2
 41   copy-to *arg1, result
 42 }
 43 
 44 fn vec3-subtract-from v1: (addr vec3), v2: (addr vec3) {
 45   var tmp-storage: vec3
 46   var tmp/eax: (addr vec3) <- address tmp-storage
 47   copy-object v2, tmp
 48   vec3-negate tmp
 49   vec3-add-to v1, tmp
 50 }
 51 
 52 fn vec3-negate v: (addr vec3) {
 53   var negative-one/eax: int <- copy -1
 54   var negative-one-f/xmm0: float <- convert negative-one
 55   vec3-scale-up v, negative-one-f
 56 }
 57 
 58 fn vec3-scale-up _v: (addr vec3), f: float {
 59   var v/edi: (addr vec3) <- copy _v
 60   # v.x *= f
 61   var dest/eax: (addr float) <- get v, x
 62   var result/xmm0: float <- copy *dest
 63   result <- multiply f
 64   copy-to *dest, result
 65   # v.y *= f
 66   dest <- get v, y
 67   result <- copy *dest
 68   result <- multiply f
 69   copy-to *dest, result
 70   # v.z *= f
 71   dest <- get v, z
 72   result <- copy *dest
 73   result <- multiply f
 74   copy-to *dest, result
 75 }
 76 
 77 fn vec3-scale-down _v: (addr vec3), f: float {
 78   var v/edi: (addr vec3) <- copy _v
 79   # v.x /= f
 80   var dest/eax: (addr float) <- get v, x
 81   var result/xmm0: float <- copy *dest
 82   result <- divide f
 83   copy-to *dest, result
 84   # v.y /= f
 85   dest <- get v, y
 86   result <- copy *dest
 87   result <- divide f
 88   copy-to *dest, result
 89   # v.z /= f
 90   dest <- get v, z
 91   result <- copy *dest
 92   result <- divide f
 93   copy-to *dest, result
 94 }
 95 
 96 fn vec3-unit in: (addr vec3), out: (addr vec3) {
 97   var len/xmm0: float <- vec3-length in
 98 #?   print-string 0, "len: "
 99 #?   print-float 0, len
100 #?   print-string 0, "\n"
101   copy-object in, out
102   vec3-scale-down out, len
103 }
104 
105 fn vec3-length v: (addr vec3) -> _/xmm0: float {
106   var result/xmm0: float <- vec3-length-squared v
107   result <- square-root result
108   return result
109 }
110 
111 fn vec3-length-squared _v: (addr vec3) -> _/xmm0: float {
112   var v/esi: (addr vec3) <- copy _v
113   # result = v.x * v.x
114   var src/eax: (addr float) <- get v, x
115   var tmp/xmm1: float <- copy *src
116   tmp <- multiply tmp
117   var result/xmm0: float <- copy tmp
118   # result += v.y * v.y
119   src <- get v, y
120   tmp <- copy *src
121   tmp <- multiply tmp
122   result <- add tmp
123   # result += v.z * v.z
124   src <- get v, z
125   tmp <- copy *src
126   tmp <- multiply tmp
127   result <- add tmp
128   return result
129 }
130 
131 fn vec3-dot _v1: (addr vec3), _v2: (addr vec3) -> result/xmm0: float {
132 }
133 
134 fn vec3-cross _v1: (addr vec3), _v2: (addr vec3), out: (addr vec3) {
135 }