positionToDoubleArray (Position a b c d e f) = toDoubleArray [a,b,c,d,e,f]
+positionToVector :: Position -> Vector Double
+positionToVector (Position a b c d e f) = runProc
+ (do r = createMVector 6
+ setMVector r 0 a
+ setMVector r 1 b
+ setMVector r 2 c
+ setMVector r 3 d
+ setMVector r 4 e
+ setMVector r 5 f
+ freezeMVector r)
+
// --- Diagram element data types -----------------------------------
data Property res = Property res Dynamic
importJava "org.simantics.modeling.svg.CreateSVGElement" where
createSVGElement :: Resource -> String -> ByteArray -> Double -> Double -> <WriteGraph> ()
+ createSVGElementR :: Resource -> String -> ByteArray -> Double -> Double -> <WriteGraph> Resource
importSVGElement :: Resource -> File -> Double -> Double -> <WriteGraph> ()
+ importSVGElementR :: Resource -> File -> Double -> Double -> <WriteGraph> Resource
importJava "org.simantics.diagram.synchronization.graph.RemoveElement" where
removeElement :: Resource -> Resource -> <WriteGraph> ()