2075 Feature Registration 3D 1P

[creaRigidRegistration.git] / PackRecalage / bbs / boxes / Recalage3D1PointWidget.bbs

diff --git a/PackRecalage/bbs/boxes/Recalage3D1PointWidget.bbs b/PackRecalage/bbs/boxes/Recalage3D1PointWidget.bbs
index bf2059a9a2fbd2185b8ace26181cf986cb665e81..60082c851782ec582a2f52ad9a15ad0bf533e6ca 100644 (file)
--- a/PackRecalage/bbs/boxes/Recalage3D1PointWidget.bbs
+++ b/PackRecalage/bbs/boxes/Recalage3D1PointWidget.bbs
@@ -19,36 +19,42 @@ description "Recalage3D 1-point Widget"
 category "widget"
 
 new Slider sdrAngleX
+  set sdrAngleX.ChangeResolution "true"
   set sdrAngleX.In "0"
   set sdrAngleX.Max "180"
   set sdrAngleX.Min "-180"
   set sdrAngleX.Title "Rotation angle in X Axis"
 
 new Slider sdrAngleY
+  set sdrAngleY.ChangeResolution "true"
   set sdrAngleY.In "0"
   set sdrAngleY.Max "180"
   set sdrAngleY.Min "-180"
   set sdrAngleY.Title "Rotation angle in Y Axis"
 
 new Slider sdrAngleZ
+  set sdrAngleZ.ChangeResolution "true"
   set sdrAngleZ.In "0"
   set sdrAngleZ.Max "180"
   set sdrAngleZ.Min "-180"
   set sdrAngleZ.Title "Rotation angle in Z Axis"
 
 new Slider sdrScaleX
+  set sdrScaleX.ChangeResolution "true"
   set sdrScaleX.In "100"
   set sdrScaleX.Max "300"
   set sdrScaleX.Min "10"
   set sdrScaleX.Title "Scale in X Axis"
 
 new Slider sdrScaleY
+  set sdrScaleY.ChangeResolution "true"
   set sdrScaleY.In "100"
   set sdrScaleY.Max "300"
   set sdrScaleY.Min "10"
   set sdrScaleY.Title "Scale in Y Axis"
 
 new Slider sdrScaleZ
+  set sdrScaleZ.ChangeResolution "true"
   set sdrScaleZ.In "100"
   set sdrScaleZ.Max "300"
   set sdrScaleZ.Min "10"
@@ -70,27 +76,31 @@ new LayoutLine toolsLayout
 
 new vtkImageDataPointerRelay Box22
 
-new vtkImageDataPointerRelay Box23
-
 new LayoutTab Box32
 
 new LayoutLine Box33
   set Box33.WinTitle "Scale"
 
 new Slider TranslateZ
+  set TranslateZ.ChangeResolution "true"
   set TranslateZ.Max "1000"
   set TranslateZ.Min "-1000"
   set TranslateZ.ReactiveOnTrack "true"
+  set TranslateZ.Title "Translate Y Axis"
 
 new Slider TranslateY
+  set TranslateY.ChangeResolution "true"
   set TranslateY.Max "1000"
   set TranslateY.Min "-1000"
   set TranslateY.ReactiveOnTrack "true"
+  set TranslateY.Title "Translate Y Axis"
 
 new Slider TranslateX
+  set TranslateX.ChangeResolution "true"
   set TranslateX.Max "1000"
   set TranslateX.Min "-1000"
   set TranslateX.ReactiveOnTrack "true"
+  set TranslateX.Title "Translate X Axis"
 
 new LayoutLine Box37
   set Box37.WinTitle "Translate"
@@ -113,15 +123,8 @@ new CheckBox Box44
   set Box44.ReactiveOnKeystroke "true"
   set Box44.Title "Reactive"
 
-new ConcatStrings Box45
-
 new ConcatStrings Box46
 
-new VectorRescaleSlope Box47
-  set Box47.A "0.5"
-
-new ImageVtkProperties Box48
-
 new GetVectorDoubleElement Box49
   set Box49.I "0"
   set Box49.In "0"
@@ -134,6 +137,16 @@ new GetVectorDoubleElement Box51
   set Box51.I "2"
   set Box51.In "0"
 
+new Add Box36
+
+new Add Box38
+
+new Add Box39
+
+new MagicBox Box52
+
+new MagicBox Box53
+
 
 connect sdrAngleX.Out transform.AngleX
 connect sdrAngleY.Out transform.AngleY
@@ -169,9 +182,6 @@ connect Box42.Widget Box40.Widget2
 connect reslicer.Out Box41.In
 connect Box37.Widget Box32.Widget2
 connect Box33.Widget Box32.Widget3
-connect TranslateX.Out Box43.In1
-connect TranslateY.Out Box43.In3
-connect TranslateZ.Out Box43.In5
 connect Box43.Out transform.CenterPoint
 connect TranslateX.BoxChange mult2.In4
 connect TranslateY.BoxChange mult2.In5
@@ -186,21 +196,26 @@ connect Box44.Out sdrAngleX.ReactiveOnTrack
 connect Box44.Out sdrAngleY.ReactiveOnTrack
 connect Box44.Out sdrAngleZ.ReactiveOnTrack
 connect Box44.Widget Box40.Widget3
-connect Box47.Out Box46.In1
 connect Box46.Out reslicer.Origin
-connect Box48.Size Box45.In1
-connect Box45.Out Box47.In
-connect Box47.Out Box49.In
-connect Box49.Out TranslateX.In
-connect Box47.Out Box50.In
-connect Box47.Out Box51.In
-connect Box50.Out TranslateY.In
-connect Box51.Out TranslateZ.In
-connect Box22.Out Box48.In
+connect Box49.Out Box36.In1
+connect TranslateX.Out Box36.In2
+connect Box36.Out Box43.In1
+connect TranslateY.Out Box38.In2
+connect TranslateZ.Out Box39.In2
+connect Box38.Out Box43.In3
+connect Box39.Out Box43.In5
+connect Box50.Out Box38.In1
+connect Box51.Out Box39.In1
+connect Box52.Out Box46.In1
+connect Box53.Out Box49.In
+connect Box53.Out Box50.In
+connect Box53.Out Box51.In
 
 # Complex input ports
 input Image1 Box22.In " "
-input Image2 Box23.In " "
+input CenterPoint Box52.In " "
+input OriginPoint Box53.In " "
+input BoxExecute mult3.In3 " "
 
 # Complex output ports
 output Out reslicer.Out " "