# ----------------------------------
# - BBTKGEditor v 1.5 BBS BlackBox Script (Complex Box)
# - /Users/davila/Creatis/C23/creatools_source/creaImageIO/bbtk_Transform3Ddicom_PKG/bbs/boxes/SliceVectorImageDicom3D.bbs
# ----------------------------------

include std
include itkvtk
include creaImageIO
include std
include vtk
include Transform3Ddicom
include wx
include creaMaracasVisu
include toolsbbtk

define SliceVectorImageDicom3D Transform3Ddicom

author "Author ??"
description "Description ??"

category "<VOID>"

new creaImageIO:GetDicomAttributesFromMaps Box02
  set Box02.KeyDicom "D0020_0032"

new std:GetVectorStringElement Box04
  set Box04.ErrorValue "1000 1000 1000 "

new creaImageIO:GetDicomAttributesFromMaps Box09
  set Box09.KeyDicom "D0020_0037"

new std:GetVectorStringElement Box10
  set Box10.ErrorValue "1 0 0 0 0 1"

new vtk:GetVectorVtkImageDataElement Box12

new Transform3Ddicom:ImageActorDicom Box14
  set Box14.IPP "-143.58 -59.34 -24.34"
  set Box14.OPP "0.97 -0.19 -0.11 0.21 0.68 0.69"
  set Box14.PixelSpacing "1 1 1"
  set Box14.Z "0"

new vtk:ImageVtkProperties Box15

new std:ReplaceString Box16
  set Box16.Replace " "
  set Box16.Search "\"

new std:ReplaceString Box17
  set Box17.Replace " "
  set Box17.Search "\"

new std:MagicBox Box19

new std:MagicBox Box20

new std:MagicBox Box21

new std:MagicBox Box22

new wx:LayoutTab Box23

new creaMaracasVisu:ViewerNV Box24
  set Box24.nTypeView "-1"

new toolsbbtk:ImageVtkPropertiesWidget Box25

new wx:LayoutLine Box26
  set Box26.WinTitle "DicomInfo"

new wx:OutputText Box28
  set Box28.Title "Orientation"

new wx:OutputText Box29
  set Box29.Title "Spacing"

new std:MagicBox Box30

new std:ConcatStrings Box31
  set Box31.In2 " 1.17188"

new vtk:RescaleSlopeIntercept Box35
  set Box35.A "1"

new creaImageIO:GetDicomAttributesFromMaps Box36
  set Box36.KeyDicom "D0018_1060"

new std:GetVectorStringElement Box37
  set Box37.ErrorValue "1000 1000 1000 "

new wx:OutputText Box38
  set Box38.Title "Trigger Time"

new creaImageIO:GetDicomAttributesFromMaps Box39
  set Box39.KeyDicom "D0020_1041"

new std:GetVectorStringElement Box40
  set Box40.ErrorValue "-9999"

new wx:OutputText Box41
  set Box41.Title "Slice Location"

new std:MagicBox Box42

new wx:LayoutLine Box43
  set Box43.WinTitle "Image"

new std:MathOperationVector Box45
  set Box45.Type "1"

new wx:OutputText Box46
  set Box46.Title "Position"

new std:ConcatStrings Box47

new std:ConcatStrings Box51

new wx:OutputText Box52
  set Box52.Title "Position Correction"


connect Box02.Out Box04.In
connect Box09.Out Box10.In
connect Box12.Out Box15.In
connect Box04.Out Box16.In
connect Box10.Out Box17.In
connect Box17.Out Box14.OPP
connect Box19.Out Box12.In
connect Box20.Out Box14.Renderer
connect Box21.Out Box02.In
connect Box21.Out Box09.In
connect Box22.Out Box04.I
connect Box22.Out Box10.I
connect Box22.Out Box12.I
connect Box12.Out Box24.In
connect Box25.widget Box23.Widget2
connect Box12.Out Box25.in
connect Box26.Widget Box23.Widget3
connect Box30.Out Box14.boxexecute
connect Box30.Out Box28.BoxExecute
connect Box30.Out Box29.BoxExecute
connect Box17.Out Box28.In
connect Box15.Spacing Box31.In1
connect Box31.Out Box29.In
connect Box30.Out Box24.BoxExecute
connect Box12.Out Box35.In
connect Box35.Out Box14.Image
connect Box36.Out Box37.In
connect Box21.Out Box36.In
connect Box37.Out Box38.In
connect Box30.Out Box38.BoxExecute
connect Box22.Out Box37.I
connect Box39.Out Box40.In
connect Box21.Out Box39.In
connect Box22.Out Box40.I
connect Box40.Out Box41.In
connect Box14.widget Box23.Widget4
connect Box42.Out Box14.opacity
connect Box24.Widget Box43.Widget1
connect Box43.Widget Box23.Widget1
connect Box45.Out Box14.IPP
connect Box16.Out Box46.In
connect Box46.Widget Box26.Widget1
connect Box30.Out Box46.BoxExecute
connect Box47.Out Box45.In1
connect Box16.Out Box51.In1
connect Box51.Out Box45.In0
connect Box47.Out Box52.In
connect Box38.Widget Box26.Widget8
connect Box29.Widget Box26.Widget6
connect Box28.Widget Box26.Widget4
connect Box52.Widget Box26.Widget2
connect Box30.Out Box52.BoxExecute

# Complex input ports
input VecImage Box19.In " "
input render Box20.In " "
input VecDicomMap Box21.In " "
input indexZ Box22.In " "
input boxExecute Box30.In " "
input OpacityPlane Box42.In " "
input IPP_Correction Box47.In1 " "

# Complex output ports
output image Box12.Out " "
output _widget Box23.Widget " "
output OutTransform Box14.outTransform " "
output renderer Box24.Renderer1 " "
output boxChange_ImageActor Box14.boxChangeImageActor " "


endefine