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