# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /home/davila/Creatis/creaTools/creatools_source/bbtk/packages/vtk/bbs/boxes/TransformWidget.bbs
# ----------------------------------

include std
include itkvtk
include wx
include vtk
include std

define TransformWidget vtk

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

category "<VOID>"

new LayoutTab Box00

new LayoutLine Box01
  set Box01.WinTitle "Rotation"

new Slider Box03
  set Box03.ChangeResolution "true"
  set Box03.Label "true"
  set Box03.Max "180"
  set Box03.Min "-180"
  set Box03.ReactiveOnTrack "true"
  set Box03.Title "Rotation X"

new Slider Box04
  set Box04.ChangeResolution "true"
  set Box04.Label "true"
  set Box04.Max "180"
  set Box04.Min "-180"
  set Box04.ReactiveOnTrack "true"
  set Box04.Title "Rotation Y"

new Slider Box05
  set Box05.ChangeResolution "true"
  set Box05.Label "true"
  set Box05.Max "180"
  set Box05.Min "-180"
  set Box05.ReactiveOnTrack "true"
  set Box05.Title "Rotation Z"

new LayoutLine Box06
  set Box06.WinTitle "Translate"

new Slider Box07
  set Box07.ChangeResolution "true"
  set Box07.Label "true"
  set Box07.Max "1800"
  set Box07.Min "-1800"
  set Box07.ReactiveOnTrack "true"
  set Box07.Title "Translation X"

new Slider Box08
  set Box08.ChangeResolution "true"
  set Box08.Label "true"
  set Box08.Max "1800"
  set Box08.Min "-1800"
  set Box08.ReactiveOnTrack "true"
  set Box08.Title "Translation Y"

new Slider Box09
  set Box09.ChangeResolution "true"
  set Box09.Label "true"
  set Box09.Max "1800"
  set Box09.Min "-1800"
  set Box09.ReactiveOnTrack "true"
  set Box09.Title "Translation Z"

new LayoutLine Box10
  set Box10.WinTitle "Scale"

new Slider Box11
  set Box11.ChangeResolution "true"
  set Box11.In "100"
  set Box11.Label "true"
  set Box11.Max "500"
  set Box11.Min "0"
  set Box11.ReactiveOnTrack "true"
  set Box11.Title "Scale X"

new Slider Box12
  set Box12.ChangeResolution "true"
  set Box12.In "100"
  set Box12.Label "true"
  set Box12.Max "500"
  set Box12.Min "0"
  set Box12.ReactiveOnTrack "true"
  set Box12.Title "Scale Y"

new Slider Box13
  set Box13.ChangeResolution "true"
  set Box13.In "100"
  set Box13.Label "true"
  set Box13.Max "500"
  set Box13.Min "0"
  set Box13.ReactiveOnTrack "true"
  set Box13.Title "Scale Z"

new Transform Box14

new ConcatStrings Box15
  set Box15.In2 " "
  set Box15.In3 "1 0 0"

new ConcatStrings Box16
  set Box16.In2 " "
  set Box16.In4 " "

new MultipleInputs Box17

new MultipleInputs Box18

new MultipleInputs Box19

new MultipleInputs Box20

new ConcatStrings Box21
  set Box21.In2 " "
  set Box21.In4 " "

new Div Box22
  set Box22.In2 "100"

new Div Box23
  set Box23.In2 "100"

new Div Box24
  set Box24.In2 "100"

new Transform Box28

new ConcatStrings Box29
  set Box29.In2 " "
  set Box29.In3 "0 1 0"

new Transform Box30

new ConcatStrings Box31
  set Box31.In2 " "
  set Box31.In3 "0 0 1"

new Transform Box32


connect Box01.Widget Box00.Widget1
connect Box05.Widget Box01.Widget3
connect Box04.Widget Box01.Widget2
connect Box03.Widget Box01.Widget1
connect Box09.Widget Box06.Widget3
connect Box08.Widget Box06.Widget2
connect Box07.Widget Box06.Widget1
connect Box13.Widget Box10.Widget3
connect Box12.Widget Box10.Widget2
connect Box11.Widget Box10.Widget1
connect Box06.Widget Box00.Widget2
connect Box10.Widget Box00.Widget3
connect Box16.Out Box14.Translate
connect Box07.Out Box16.In1
connect Box08.Out Box16.In3
connect Box09.Out Box16.In5
connect Box03.BoxChange Box17.In1
connect Box04.BoxChange Box17.In2
connect Box05.BoxChange Box17.In3
connect Box07.BoxChange Box18.In1
connect Box08.BoxChange Box18.In2
connect Box09.BoxChange Box18.In3
connect Box11.BoxChange Box19.In1
connect Box12.BoxChange Box19.In2
connect Box13.BoxChange Box19.In3
connect Box17.BoxChange Box20.In1
connect Box18.BoxChange Box20.In2
connect Box19.BoxChange Box20.In3
connect Box20.BoxChange Box14.BoxExecute
connect Box11.Out Box22.In1
connect Box22.Out Box21.In1
connect Box12.Out Box23.In1
connect Box13.Out Box24.In1
connect Box23.Out Box21.In3
connect Box24.Out Box21.In5
connect Box21.Out Box14.Scale
connect Box03.Out Box15.In1
connect Box15.Out Box28.RotateWXYZ
connect Box29.Out Box30.RotateWXYZ
connect Box04.Out Box29.In1
connect Box31.Out Box32.RotateWXYZ
connect Box05.Out Box31.In1
connect Box28.Out Box30.In
connect Box30.Out Box32.In
connect Box32.Out Box14.In

# Complex input ports
input TitleWindow Box00.WinTitle " "

# Complex output ports
output Transform Box14.Out " "
output Window Box00.Widget " "
output BoxChange Box14.BoxChange " "

message    

endefine