bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl

   1 import "Simantics/DB"
   2 import "Simantics/Diagram"
   3 import "Simantics/Rename"
   4
   5 importJava "org.simantics.g2d.canvas.ICanvasContext" where
   6     data ICanvasContext
   7
   8 importJava "org.simantics.g2d.scenegraph.ICanvasSceneGraphProvider" where
   9     data ICanvasSceneGraphProvider
  10
  11     getCanvasContext :: ICanvasSceneGraphProvider -> ICanvasContext
  12
  13 importJava "org.simantics.modeling.SCLScenegraph" where
  14     sceneGraphTest :: ICanvasContext -> String -> String -> <Proc> String
  15
  16     getAllNodes :: ICanvasContext -> String
  17
  18     getBoundsNodes :: ICanvasContext -> String
  19
  20     getBackgroundNodes :: ICanvasContext -> String
  21
  22     getDataNodes :: ICanvasContext -> String
  23
  24     getNavigationNodes :: ICanvasContext -> String
  25
  26     getParentNodes :: ICanvasContext -> String
  27
  28     getDecorationNodes :: ICanvasContext -> String
  29
  30     getSingleElementNodes :: ICanvasContext -> String
  31
  32     getConnectionNodes :: ICanvasContext -> String
  33
  34     getTextNodes :: ICanvasContext -> String
  35
  36     getItemNodes :: ICanvasContext -> String
  37
  38     @JavaName getNodeText
  39     getText :: ICanvasContext -> String -> String
  40
  41     @JavaName getNodeCount
  42     getCount :: ICanvasContext -> String
  43
  44     @JavaName getNodeTransform
  45     getTransform :: ICanvasContext -> String -> String
  46
  47     getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider
  48
  49     disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> ()
  50
  51     editNodeText :: ICanvasContext -> String -> String -> String -> <Proc> String
  52
  53     copyPaste :: ICanvasContext -> ICanvasContext -> [Resource] -> <Proc> Boolean
  54
  55     renderSVG :: ICanvasContext -> <Proc> String
  56
  57 getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
  58 getSceneGraphProvider diagram = do
  59     diagramName = syncRead(\() -> getSafeName diagram)
  60     diagramRVI = "/" + diagramName
  61     model = syncRead(\() -> fromJust $ possibleIndexRoot diagram)
  62     composite = syncRead(\() -> compositeToDiagram' diagram)
  63     getICanvasSceneGraphProvider model composite diagramRVI
  64
  65 getDiagramContext :: ICanvasSceneGraphProvider -> ICanvasContext
  66 getDiagramContext provider = do
  67     getCanvasContext provider
  68
  69 getNodeTransform :: Diagram -> String -> <Proc> String
  70 getNodeTransform diagram nodeName = do
  71     diagramName = syncRead(\() -> getSafeName diagram)
  72     diagramRVI = "/" + diagramName
  73     model = syncRead(\() -> getPossibleModel diagram)
  74     composite = syncRead(\() -> compositeToDiagram' diagram)
  75     provider = getICanvasSceneGraphProvider model composite diagramRVI
  76     context = getCanvasContext provider
  77     getTransform context nodeName
  78
  79 getNodeText :: Diagram -> String -> <Proc> String
  80 getNodeText diagram nodeName = do
  81     diagramName = syncRead(\() -> getSafeName diagram)
  82     diagramRVI = "/" + diagramName
  83     model = syncRead(\() -> getPossibleModel diagram)
  84     composite = syncRead(\() -> compositeToDiagram' diagram)
  85     provider = getICanvasSceneGraphProvider model composite diagramRVI
  86     context = getCanvasContext provider
  87     getText context nodeName
  88
  89 getNodeCount :: Diagram -> <Proc> String
  90 getNodeCount diagram = do
  91     diagramName = syncRead(\() -> getSafeName diagram)
  92     diagramRVI = "/" + diagramName
  93     model = syncRead(\() -> getPossibleModel diagram)
  94     composite = syncRead(\() -> compositeToDiagram' diagram)
  95     provider = getICanvasSceneGraphProvider model composite diagramRVI
  96     context = getCanvasContext provider
  97     getCount context
  98
  99 importJava "org.simantics.scenegraph.g2d.G2DNodeModification" where
 100     data G2DNodeModification
 101     @JavaName "<init>"
 102     createG2DNodeModification :: [SVGNodeAssignment] -> [TransformationAssignment] -> G2DNodeModification
 103     @JavaName "<init>"
 104     createG2DNodeModification3 :: [SVGNodeAssignment] -> [TargetedSVGNodeAssignment] -> [TransformationAssignment] -> G2DNodeModification
 105
 106 importJava "org.simantics.scenegraph.g2d.nodes.SVGNodeAssignment" where
 107     data SVGNodeAssignment
 108     @JavaName "<init>"
 109     createSVGNodeAssignment :: String -> String -> String -> SVGNodeAssignment
 110
 111 importJava "org.simantics.scenegraph.g2d.nodes.TargetedSVGNodeAssignment" where
 112     data TargetedSVGNodeAssignment
 113     @JavaName "<init>"
 114     createTargetedSVGNodeAssignment :: a -> String -> String -> String -> TargetedSVGNodeAssignment
 115
 116 importJava "org.simantics.scenegraph.g2d.nodes.TransformationAssignment" where
 117     data TransformationAssignment
 118     @JavaName "<init>"
 119     createTransformationAssignment :: a -> AffineTransform -> TransformationAssignment
 120
 121 importJava "java.awt.geom.AffineTransform" where
 122     data AffineTransform
 123     @JavaName "<init>"
 124     createAffineTransform :: Double -> Double -> Double -> Double -> Double -> Double -> AffineTransform
 125
 126 importJava "org.simantics.scenegraph.g2d.AffineTransformFunctions" where
 127     transform :: AffineTransform -> (Double,Double) -> (Double,Double)
 128     inverseTransform :: AffineTransform -> (Double,Double) -> (Double,Double)
 129