load wx
load std
load vtk
load wxvtk
load creaMaracasVisu
//load PackTransform2D
//load PackReSlicer
load PackRecalage

include vtk/boxes/bbLoadHola 

new LoadHola image 

#Viewer containing image 1
new LayoutLine v1Layout
new ViewerNV viewer1
  connect image.Out viewer1.In
  set viewer1.nTypeView "5 0 1 2"
  connect viewer1.Widget v1Layout.Widget1

#Viewer containing image 2
new LayoutLine v2Layout
new ViewerNV viewer2
  connect image.Out viewer2.In
  set viewer1.nTypeView "5 0 1 2"
  connect viewer2.Widget v2Layout.Widget1

#LayoutSplit were the images will be
new LayoutSplit initialImages
  set initialImages.Proportion "50"
  set initialImages.Orientation H
  connect v1Layout.Widget initialImages.Widget1
  connect v2Layout.Widget initialImages.Widget2

#Layout line that will contain the buttons
new LayoutLine buttonsLayout


#Slider were the x angle will be entered
new Slider angleX
  set angleX.Title "Angle in X"
  set angleX.In 0
  set angleX.Min 0
  set angleX.Max 360
  set angleX.ReactiveOnTrack "1"
  connect angleX.Widget buttonsLayout.Widget1 

#Slider were the Y  angle will be entered
new Slider angleY
  set angleY.Title "Angle in Y"
  set angleY.In 0
  set angleY.Min 0
  set angleY.Max 360
  set angleY.ReactiveOnTrack "1"
  connect angleY.Widget buttonsLayout.Widget2 

#Slider were the Z  angle will be entered
new Slider angleZ
  set angleZ.Title "Angle in Z"
  set angleZ.In 0
  set angleZ.Min 0
  set angleZ.Max 360
  set angleZ.ReactiveOnTrack "1"
  connect angleZ.Widget buttonsLayout.Widget3

#Slider were the xScale will be entered
new Slider sliderX
  set sliderX.Title "% Scale in X"
  set sliderX.In 0
  set sliderX.Min 0
  set sliderX.Max 500
  set sliderX.ReactiveOnTrack "1"
  connect sliderX.Widget buttonsLayout.Widget4

#Slider were the yScale will be entered
new Slider sliderY
  set sliderY.Title "% Scale in Y"
  set sliderY.In 0
  set sliderY.Min 0
  set sliderY.Max 500
  set sliderY.ReactiveOnTrack "1"
  connect sliderY.Widget buttonsLayout.Widget5

#Slider were the zScale will be entered
new Slider sliderZ
  set sliderZ.Title "% Scale in Y"
  set sliderZ.In 0
  set sliderZ.Min 0
  set sliderZ.Max 500
  set sliderZ.ReactiveOnTrack "1"
  connect sliderZ.Widget buttonsLayout.Widget6

new ViewerNV viewer3
  connect image.Out viewer3.In
  set viewer1.nTypeView "5 0 1 2"

#Boton that will set the points and angle
new CommandButton botonfinal
  connect botonfinal.Widget buttonsLayout.Widget7
  connect botonfinal.BoxChange viewer3.BoxExecute

#Layout were the images and the buttones will be displayed
new LayoutSplit main
  set main.WinWidth "1200"
  set main.Proportion "80"
  set main.Orientation H
  connect initialImages.Widget main.Widget1
  connect buttonsLayout.Widget main.Widget2
  #connect finalViewer.Widget main.Widget2
  
exec main