@@ -6,12 +6,27 @@ module MJS where
66
77import Native.MJS
88
9−data V3 = Fake_V3
10−data M4x4 = Fake_M4x4
9+data V3 = Dummy_V3
10+data M4x4 = Dummy_M4x4
1111
1212v3 : Float -> Float -> Float -> V3
1313v3 = Native.MJS.v3
1414
15+v3add : V3 -> V3 -> V3
16+v3add = Native.MJS.v3add
17+
18+v3length : V3 -> Float
19+v3length = Native.MJS.v3length
20+
21+v3normalize : V3 -> V3
22+v3normalize = Native.MJS.v3normalize
23+
24+v3scale : V3 -> Float -> V3
25+v3scale = Native.MJS.v3scale
26+
27+v3mul4x4 : M4x4 -> V3 -> V3
28+v3mul4x4 = Native.MJS.v3mul4x4
29+
1530m4x4identity : M4x4
1631m4x4identity = Native.MJS.m4x4identity
1732