X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.g3d%2Fscl%2FG3D%2FScenegraph%2FG3DNode.scl;fp=org.simantics.g3d%2Fscl%2FG3D%2FScenegraph%2FG3DNode.scl;h=6c82813038b3664f2c9d03f3c9980f2d13803348;hb=3c4efe7468928951255c4156318f25300773dacf;hp=658eb9c5f4e7e7d60a3ef91ebbb2cc5ff3f1271b;hpb=da4c428e1588898d23748be25d1176b61abcd403;p=simantics%2F3d.git diff --git a/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl b/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl index 658eb9c5..6c828130 100644 --- a/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl +++ b/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl @@ -9,47 +9,47 @@ importJava "org.simantics.g3d.scenegraph.IG3DNode" where data G3DNode @JavaName getOrientation - getOrientation' :: G3DNode -> Quat4d + getOrientation' :: G3DNode -> Quat4d @JavaName getPosition - getPosition' :: G3DNode -> Vector3d + getPosition' :: G3DNode -> Vector3d @JavaName setOrientation - setOrientation' :: G3DNode -> Quat4d -> () + setOrientation' :: G3DNode -> Quat4d -> () @JavaName setPosition - setPosition' :: G3DNode -> Vector3d -> () + setPosition' :: G3DNode -> Vector3d -> () @JavaName getWorldOrientation - getWorldOrientation' :: G3DNode -> Quat4d + getWorldOrientation' :: G3DNode -> Quat4d @JavaName getWorldPosition - getWorldPosition' :: G3DNode -> Vector3d + getWorldPosition' :: G3DNode -> Vector3d @JavaName setWorldOrientation - setWorldOrientation' :: G3DNode -> Quat4d -> () + setWorldOrientation' :: G3DNode -> Quat4d -> () @JavaName setWorldPosition - setWorldPosition' :: G3DNode -> Vector3d -> () + setWorldPosition' :: G3DNode -> Vector3d -> () class G3DNodeClass a where asG3DNode :: a -> G3DNode asG3DNode = Java.unsafeCoerce - getOrientation :: a -> Quat4d + getOrientation :: a -> Quat4d getOrientation c = getOrientation' (asG3DNode c) - getPosition :: a -> Vector3d + getPosition :: a -> Vector3d getPosition c = getPosition' (asG3DNode c) - setOrientation :: a -> Quat4d -> () + setOrientation :: a -> Quat4d -> () setOrientation c = setOrientation' (asG3DNode c) - setPosition :: a -> Vector3d -> () + setPosition :: a -> Vector3d -> () setPosition c = setPosition' (asG3DNode c) - getWorldOrientation :: a -> Quat4d + getWorldOrientation :: a -> Quat4d getWorldOrientation c = getWorldOrientation' (asG3DNode c) - getWorldPosition :: a -> Vector3d + getWorldPosition :: a -> Vector3d getWorldPosition c = getWorldPosition' (asG3DNode c) - setWorldOrientation :: a -> Quat4d -> () + setWorldOrientation :: a -> Quat4d -> () setWorldOrientation c = setWorldOrientation' (asG3DNode c) - setWorldPosition :: a -> Vector3d -> () + setWorldPosition :: a -> Vector3d -> () setWorldPosition c = setWorldPosition' (asG3DNode c) instance NodeClass G3DNode