import "Plant3d/Scenegraph/PipelineComponent"
import "Plant3d/Scenegraph/Equipment"
import "Plant3d/Scenegraph/Nozzle"
import "Plant3d/Scenegraph/P3DRootNode"
import "./P3DUtil"

importJava "org.simantics.plant3d.utils.ComponentUtils" where

   @JavaName createComponent
   createComponentWithURI :: P3DRootNode -> String -> <Proc> PipelineComponent
   @JavaName createEquipment
   createEquipmentWithURI :: P3DRootNode -> String -> <Proc> Equipment
   
   createStraight :: P3DRootNode -> <Proc> PipelineComponent
   createTurn :: P3DRootNode -> <Proc> PipelineComponent
   createReducer :: P3DRootNode -> <Proc> PipelineComponent
   createBranchSplit :: P3DRootNode -> <Proc> PipelineComponent
   createEquipment :: P3DRootNode -> Item -> <Proc> Equipment
   createDefaultNozzle :: P3DRootNode -> Equipment -> <Proc> Nozzle
   
   @JavaName addComponent
   addComponent :: P3DRootNode -> PipelineComponent -> InsertInstruction -> <Proc> PipelineComponent
   
importJava "org.simantics.plant3d.utils.ComponentUtils$InsertInstruction" where
   data InsertInstruction
   
   @JavaName "<init>"
   createInsertInstruction :: () -> InsertInstruction
   
   setTypeUri :: InsertInstruction -> String -> <Proc> ()
   setPosition :: InsertInstruction -> PositionType -> <Proc> ()
   setInsertPosition :: InsertInstruction -> PositionType -> <Proc> ()
   setLength :: InsertInstruction -> Maybe Double -> <Proc> ()
   setAngle :: InsertInstruction -> Maybe Double -> <Proc> ()
   setDiameter :: InsertInstruction -> Maybe Double -> <Proc> ()
   setTurnRadius :: InsertInstruction -> Maybe Double -> <Proc> ()
   
createFixedLength :: String -> PositionType -> PositionType -> <Proc> InsertInstruction 
createFixedLength typeUri position insertPosition = do
  instruction = createInsertInstruction ()
  setTypeUri instruction typeUri
  setPosition instruction position
  setInsertPosition instruction insertPosition
  instruction
  
createVariableLength :: String -> PositionType -> PositionType -> Double -> <Proc> InsertInstruction 
createVariableLength typeUri position insertPosition length = do
  instruction = createInsertInstruction ()
  setTypeUri instruction typeUri
  setPosition instruction position
  setInsertPosition instruction insertPosition
  setLength instruction (Just length)
  instruction
  
createFixedTurn :: String -> PositionType -> PositionType -> <Proc> InsertInstruction 
createFixedTurn typeUri position insertPosition = do
  instruction = createInsertInstruction ()
  setTypeUri instruction typeUri
  setPosition instruction position
  setInsertPosition instruction insertPosition
  instruction
  
createVariableTurn :: String -> PositionType -> PositionType -> Double -> <Proc> InsertInstruction 
createVariableTurn typeUri position insertPosition angle = do
  instruction = createInsertInstruction ()
  setTypeUri instruction typeUri
  setPosition instruction position
  setInsertPosition instruction insertPosition
  setAngle instruction (Just angle)
  instruction
   
createSizeChange :: String -> PositionType -> PositionType -> Double -> Double -> <Proc> InsertInstruction 
createSizeChange typeUri position insertPosition diameter radius = do
  instruction = createInsertInstruction ()
  setTypeUri instruction typeUri
  setPosition instruction position
  setInsertPosition instruction insertPosition
  setDiameter instruction (Just diameter)
  setTurnRadius instruction (Just radius)
  instruction