PackRecalage/bbs/appli/ViewerMerge3D_MorePoints.bbs

   1 load wx
   2 load std
   3 load vtk
   4 load wxvtk
   5 load creaMaracasVisu
   6 //load PackTransform2D
   7 //load PackReSlicer
   8 load PackRecalage
   9
  10 include vtk/boxes/bbLoadHola
  11
  12 new LoadHola image
  13
  14 #Viewer containing image 1
  15 new LayoutLine v1Layout
  16 new ViewerNV viewer1
  17   connect image.Out viewer1.In
  18   set viewer1.nTypeView "5 0 1 2"
  19   connect viewer1.Widget v1Layout.Widget1
  20
  21 #Viewer containing image 2
  22 new LayoutLine v2Layout
  23 new ViewerNV viewer2
  24   connect image.Out viewer2.In
  25   set viewer1.nTypeView "5 0 1 2"
  26   connect viewer2.Widget v2Layout.Widget1
  27
  28 #LayoutSplit were the images will be
  29 new LayoutSplit initialImages
  30   set initialImages.Proportion "50"
  31   set initialImages.Orientation H
  32   connect v1Layout.Widget initialImages.Widget1
  33   connect v2Layout.Widget initialImages.Widget2
  34
  35 #Layout line that will contain the buttons
  36 new LayoutLine buttonsLayout
  37
  38
  39 #Slider were the x angle will be entered
  40 new Slider angleX
  41   set angleX.Title "Angle in X"
  42   set angleX.In 0
  43   set angleX.Min 0
  44   set angleX.Max 360
  45   set angleX.ReactiveOnTrack "1"
  46   connect angleX.Widget buttonsLayout.Widget1
  47
  48 #Slider were the Y  angle will be entered
  49 new Slider angleY
  50   set angleY.Title "Angle in Y"
  51   set angleY.In 0
  52   set angleY.Min 0
  53   set angleY.Max 360
  54   set angleY.ReactiveOnTrack "1"
  55   connect angleY.Widget buttonsLayout.Widget2
  56
  57 #Slider were the Z  angle will be entered
  58 new Slider angleZ
  59   set angleZ.Title "Angle in Z"
  60   set angleZ.In 0
  61   set angleZ.Min 0
  62   set angleZ.Max 360
  63   set angleZ.ReactiveOnTrack "1"
  64   connect angleZ.Widget buttonsLayout.Widget3
  65
  66 #Slider were the xScale will be entered
  67 new Slider sliderX
  68   set sliderX.Title "% Scale in X"
  69   set sliderX.In 0
  70   set sliderX.Min 0
  71   set sliderX.Max 500
  72   set sliderX.ReactiveOnTrack "1"
  73   connect sliderX.Widget buttonsLayout.Widget4
  74
  75 #Slider were the yScale will be entered
  76 new Slider sliderY
  77   set sliderY.Title "% Scale in Y"
  78   set sliderY.In 0
  79   set sliderY.Min 0
  80   set sliderY.Max 500
  81   set sliderY.ReactiveOnTrack "1"
  82   connect sliderY.Widget buttonsLayout.Widget5
  83
  84 #Slider were the zScale will be entered
  85 new Slider sliderZ
  86   set sliderZ.Title "% Scale in Y"
  87   set sliderZ.In 0
  88   set sliderZ.Min 0
  89   set sliderZ.Max 500
  90   set sliderZ.ReactiveOnTrack "1"
  91   connect sliderZ.Widget buttonsLayout.Widget6
  92
  93 new ViewerNV viewer3
  94   connect image.Out viewer3.In
  95   set viewer1.nTypeView "5 0 1 2"
  96
  97 #Boton that will set the points and angle
  98 new CommandButton botonfinal
  99   connect botonfinal.Widget buttonsLayout.Widget7
 100   connect botonfinal.BoxChange viewer3.BoxExecute
 101
 102 #Layout were the images and the buttones will be displayed
 103 new LayoutSplit main
 104   set main.WinWidth "1200"
 105   set main.Proportion "80"
 106   set main.Orientation H
 107   connect initialImages.Widget main.Widget1
 108   connect buttonsLayout.Widget main.Widget2
 109   #connect finalViewer.Widget main.Widget2
 110
 111 exec main