PackRecalage/bbs/appli/ExampleReSlice3D.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.2 BBS BlackBox Script
   3 # - /Users/davila/Creatis/All5/creatools_source/creaRigidRegistration/PackRecalage/bbs/appli/ExampleReSlice3D.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include creaMaracasVisu
  12 include wx
  13 include PackRecalage
  14 include std
  15 include vtk
  16 include creaImageIO
  17 include toolsbbtk
  18
  19 author "info-dev@creatis.insa-lyon.fr"
  20 description "Recalage3D 1-point"
  21 category "example"
  22
  23 new ViewerNV viewer2
  24   set viewer2.nTypeView "5"
  25
  26 new Slider sdrAngleX
  27   set sdrAngleX.In "0"
  28   set sdrAngleX.Max "180"
  29   set sdrAngleX.Min "-180"
  30   set sdrAngleX.ReactiveOnTrack "true"
  31   set sdrAngleX.Title "Rotation angle in X Axis"
  32
  33 new Slider sdrAngleY
  34   set sdrAngleY.In "0"
  35   set sdrAngleY.Max "180"
  36   set sdrAngleY.Min "-180"
  37   set sdrAngleY.ReactiveOnTrack "true"
  38   set sdrAngleY.Title "Rotation angle in Y Axis"
  39
  40 new Slider sdrAngleZ
  41   set sdrAngleZ.In "0"
  42   set sdrAngleZ.Max "180"
  43   set sdrAngleZ.Min "-180"
  44   set sdrAngleZ.ReactiveOnTrack "true"
  45   set sdrAngleZ.Title "Rotation angle in Z Axis"
  46
  47 new Slider sdrScaleX
  48   set sdrScaleX.In "100"
  49   set sdrScaleX.Max "300"
  50   set sdrScaleX.Min "10"
  51   set sdrScaleX.ReactiveOnTrack "true"
  52   set sdrScaleX.Title "Scale in X Axis"
  53
  54 new Slider sdrScaleY
  55   set sdrScaleY.In "100"
  56   set sdrScaleY.Max "300"
  57   set sdrScaleY.Min "10"
  58   set sdrScaleY.ReactiveOnTrack "true"
  59   set sdrScaleY.Title "Scale in Y Axis"
  60
  61 new Slider sdrScaleZ
  62   set sdrScaleZ.In "100"
  63   set sdrScaleZ.Max "300"
  64   set sdrScaleZ.Min "10"
  65   set sdrScaleZ.ReactiveOnTrack "true"
  66   set sdrScaleZ.Title "Scale in Z Axis"
  67
  68 new Transform3D1PointBox transform
  69
  70 new ReSlicerBox reslicer
  71   set reslicer.Interpolate true
  72
  73 new MultipleInputs mult
  74
  75 new MultipleInputs mult2
  76
  77 new MultipleInputs mult3
  78
  79 new ViewerNV viewerResult
  80   set viewerResult.nTypeView "5"
  81
  82 new LayoutLine toolsLayout
  83   set toolsLayout.Orientation "v"
  84   set toolsLayout.WinTitle "Rotation"
  85
  86 new LayoutSplit resultLayout
  87   set resultLayout.Orientation "v"
  88   set resultLayout.Proportion "70"
  89
  90 new LayoutSplit main
  91   set main.Orientation "h"
  92   set main.Proportion "50"
  93
  94 new vtkImageDataPointerRelay Box22
  95
  96 new ImagesChooserDialogBox Box24
  97
  98 new ImageVtkProperties Box26
  99
 100 new VectorRescaleSlope Box27
 101   set Box27.A 0.5
 102   set Box27.B 0
 103   set Box27.Type 0
 104
 105 new ConcatStrings Box28
 106
 107 new ConcatStrings Box29
 108
 109 new LayoutTab Box30
 110
 111 new SaveMHD-Button Box31
 112
 113 new LayoutLine Box32
 114   set Box32.WinTitle "Scale"
 115
 116 new LayoutLine Box33
 117   set Box33.WinTitle "Save"
 118
 119 new LayoutCenter Box34
 120
 121
 122 connect viewer2.Point transform.CenterPoint
 123 connect sdrAngleX.Out transform.AngleX
 124 connect sdrAngleY.Out transform.AngleY
 125 connect sdrAngleZ.Out transform.AngleZ
 126 connect sdrScaleX.Out transform.ScaleX
 127 connect sdrScaleY.Out transform.ScaleY
 128 connect sdrScaleZ.Out transform.ScaleZ
 129 connect transform.Out reslicer.Transform
 130 connect viewer2.BoxChange mult.In2
 131 connect sdrAngleX.BoxChange mult.In3
 132 connect sdrAngleY.BoxChange mult.In4
 133 connect sdrAngleZ.BoxChange mult.In5
 134 connect sdrScaleX.BoxChange mult2.In1
 135 connect sdrScaleY.BoxChange mult2.In2
 136 connect sdrScaleZ.BoxChange mult2.In3
 137 connect mult.BoxChange mult3.In1
 138 connect mult2.BoxChange mult3.In2
 139 connect mult3.BoxChange transform.BoxExecute
 140 connect mult3.BoxChange reslicer.BoxExecute
 141 connect reslicer.Out viewerResult.In
 142 connect mult3.BoxChange viewerResult.BoxExecute
 143 connect sdrAngleX.Widget toolsLayout.Widget1
 144 connect sdrAngleY.Widget toolsLayout.Widget2
 145 connect sdrAngleZ.Widget toolsLayout.Widget3
 146 connect Box22.Out viewer2.In
 147 connect Box22.Out reslicer.In
 148 connect Box24.Out Box22.In
 149 connect Box22.Out Box26.In
 150 connect Box26.Size Box28.In1
 151 connect Box28.Out Box27.In
 152 connect Box27.Out Box29.In1
 153 connect Box29.Out reslicer.Origin
 154 connect viewer2.Widget main.Widget1
 155 connect sdrScaleX.Widget Box32.Widget1
 156 connect sdrScaleY.Widget Box32.Widget2
 157 connect sdrScaleZ.Widget Box32.Widget3
 158 connect Box32.Widget Box30.Widget2
 159 connect Box33.Widget Box30.Widget3
 160 connect toolsLayout.Widget Box30.Widget1
 161 connect Box30.Widget resultLayout.Widget2
 162 connect reslicer.Out Box31.In
 163 connect Box31.Widget Box34.Widget2
 164 connect Box34.Widget Box33.Widget1
 165 connect viewerResult.Widget main.Widget2
 166 connect main.Widget resultLayout.Widget1
 167
 168 exec resultLayout