]> gerrit.simantics Code Review - simantics/3d.git/blob - Tuple3d.scl
0126c41bfd9fea4e7a6ab29a7f52885451ea7fdd
[simantics/3d.git] / Tuple3d.scl
1 importJava "javax.vecmath.Tuple3d" where
2   data Tuple3d
3   
4   getX :: Tuple3d -> Double
5   getY :: Tuple3d -> Double
6   getZ :: Tuple3d -> Double
7   setX :: Tuple3d -> Double -> ()
8   setY :: Tuple3d -> Double -> ()
9   setZ :: Tuple3d -> Double -> ()
10   
11   add :: Tuple3d -> Tuple3d -> ()
12   @JavaName add
13   add2 :: Tuple3d -> Tuple3d -> Tuple3d -> ()
14   
15   sub :: Tuple3d -> Tuple3d -> ()
16   @JavaName sub
17   sub2 :: Tuple3d -> Tuple3d -> Tuple3d -> ()
18   
19   negate :: Tuple3d -> ()
20   @JavaName negate
21   negate2 :: Tuple3d -> Tuple3d -> ()
22   
23   scale :: Tuple3d -> Double -> ()
24   @JavaName scale
25   scale2 :: Tuple3d -> Double -> Tuple3d -> ()