# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script
# - /tmpEED/creaTools2/creatools_source/creaMaracasVisu/bbtk/bbs/appli/examplePlaneNPoints.bbs
# ----------------------------------

# BBTK GEditor Script
# ----------------------

include std
include itkvtk
include wx
include vtk
include creaMaracasVisu
include wxvtk

author "info-dev@creatis.insa-lyon.fr"
description " 3points -> 1-plane "
category "example"

new wx:FileSelector openFileDialog
  set openFileDialog.Wildcard "(*.mhd)|*.mhd"

new vtk:MetaImageReader reader

new vtk:ImagePlanes planes

new creaMaracasVisu:TransferFunctionView transferfunc

new creaMaracasVisu:ViewerNV viewernv
  set viewernv.nTypeView "6 1 2 0"

new creaMaracasVisu:ShowNPoints showpoints
  set showpoints.Radio "1"

new creaMaracasVisu:ImageActor imgactor

new wxvtk:Viewer2D view2d

new wx:CommandButton execplanes
  set execplanes.Label "Refresh planes"

new wx:LayoutLine layoutline0

new wx:LayoutLine layoutline1

new wx:LayoutSplit mainSplit
  set mainSplit.Orientation "H"
  set mainSplit.Proportion "10"

new vtk:LoadHola Box12

new vtk:vtkImageDataPointerRelay Box13


connect openFileDialog.Out reader.In

connect transferfunc.ColorFunction viewernv.ColorFunction

connect transferfunc.WindowLevel viewernv.WindowLevel

connect transferfunc.ColorLevel viewernv.ColorLevel

connect showpoints.lstPointsX planes.PointsX

connect showpoints.lstPointsY planes.PointsY

connect showpoints.lstPointsZ planes.PointsZ

connect viewernv.BoxChange showpoints.BoxExecute

connect viewernv.Point showpoints.In

connect viewernv.Renderer1 showpoints.Renderer

connect planes.Image3Pts imgactor.In

connect viewernv.Renderer1 imgactor.Renderer

connect planes.Transform3Pts imgactor.Transform

connect execplanes.BoxChange planes.BoxExecute

connect execplanes.BoxChange view2d.BoxExecute

connect execplanes.BoxChange imgactor.BoxExecute

connect showpoints.Widget layoutline0.Widget1

connect execplanes.Widget layoutline0.Widget2

connect transferfunc.Widget layoutline0.Widget3

connect viewernv.Widget layoutline1.Widget1

connect layoutline0.Widget mainSplit.Widget1

connect layoutline1.Widget mainSplit.Widget2

connect planes.Image3Pts view2d.In

connect Box12.Out Box13.In

connect Box13.Out transferfunc.In

connect Box13.Out planes.In

connect Box13.Out showpoints.Image

connect Box13.Out viewernv.In



# Complex input ports
exec mainSplit