bbtk_package_creaMiniTools/bbs/appli/SaveImagePlanes.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.3 BBS BlackBox Script
   3 # - /Users/davila/Creatis/All5/creatools_source/creaMiniTools/bbtk_package_creaMiniTools/bbs/appli/SaveImagePlanes.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wx
  12 include vtk
  13 include wxvtk
  14 include creaImageIO
  15 include toolsbbtk
  16 include creaMaracasVisu
  17 include std
  18
  19 author "jpr@creatis.insa-lyon.fr"
  20 description "3 slicers and a 3D view"
  21 category "demo"
  22
  23 new LayoutX4 main
  24   set main.WinTitle "demoViewing3"
  25
  26 new LayoutLine upright
  27
  28 new LayoutLine upleft
  29
  30 new LayoutLine downleft
  31
  32 new ImagePlanes planes
  33   set planes.Interpolation "0"
  34
  35 new Viewer3D viewer
  36
  37 new Viewer2D viewerUL
  38   set viewerUL.BoxProcessMode "Always"
  39   set viewerUL.Slice "0"
  40
  41 new Viewer2D viewerUR
  42   set viewerUR.BoxProcessMode "Always"
  43   set viewerUR.Slice "0"
  44
  45 new Viewer2D viewerDL
  46   set viewerDL.BoxProcessMode "Always"
  47   set viewerDL.Slice "0"
  48
  49 new ImagesChooserDialogBox Box10
  50
  51 new LayoutTab Box11
  52
  53 new ImageVtkPropertiesWidget Box12
  54
  55 new LayoutLine Box13
  56   set Box13.WinTitle "Save Image 2D"
  57
  58 new SaveMHD-Button Box14
  59
  60 new LayoutSplit Box15
  61   set Box15.Orientation "H"
  62   set Box15.Proportion "35"
  63   set Box15.WinTitle "Interactive Planes"
  64
  65 new SaveMHD-Button Box16
  66
  67 new SaveMHD-Button Box17
  68
  69 new OutputText Box18
  70   set Box18.In "X"
  71
  72 new LayoutLine Box19
  73   set Box19.Orientation "H"
  74
  75 new OutputText Box20
  76   set Box20.In "Y"
  77
  78 new LayoutLine Box21
  79   set Box21.Orientation "H"
  80
  81 new OutputText Box22
  82   set Box22.In "Z"
  83
  84 new LayoutLine Box23
  85   set Box23.Orientation "H"
  86
  87 new vtkImageDataPointerRelay Box24
  88
  89 new LayoutTab Box25
  90   set Box25.WinHeight "800"
  91   set Box25.WinWidth "1000"
  92
  93 new LayoutSplit Box26
  94   set Box26.Orientation "H"
  95   set Box26.Proportion "30"
  96   set Box26.WinTitle "3 Points plane definition"
  97
  98 new ViewerNV Box27
  99
 100 new ShowNPoints Box30
 101
 102 new LayoutSplit Box31
 103
 104 new Viewer2D Box32
 105
 106 new SaveMHD-Button Box35
 107
 108 new ImagePlanes Box36
 109   set Box36.Interpolation "0"
 110
 111 new LoadHola Box37
 112
 113 new LayoutTab Box38
 114
 115 new LayoutLine Box39
 116   set Box39.Orientation "H"
 117   set Box39.WinTitle "Select 3 points"
 118
 119 new RadioButton Box40
 120   set Box40.In "1"
 121   set Box40.In0 "Nearest"
 122   set Box40.In1 "Linear"
 123   set Box40.In2 "Cubic"
 124   set Box40.WinTitle "Interpolation"
 125
 126 new MultipleInputs Box42
 127
 128 new RadioButton Box43
 129   set Box43.In "1"
 130   set Box43.In0 "Nearest"
 131   set Box43.In1 "Linear"
 132   set Box43.In2 "Cubic"
 133   set Box43.WinTitle "Interpolation"
 134
 135
 136 connect upright.Widget main.Widget1
 137 connect upleft.Widget main.Widget2
 138 connect downleft.Widget main.Widget3
 139 connect planes.PlaneX viewer.Obs1
 140 connect planes.PlaneY viewer.Obs2
 141 connect planes.PlaneZ viewer.Obs3
 142 connect viewer.Widget main.Widget4
 143 connect viewerUL.Widget upleft.Widget1
 144 connect planes.BoxChange viewerUL.BoxExecute
 145 connect viewerUR.Widget upright.Widget1
 146 connect planes.BoxChange viewerUR.BoxExecute
 147 connect viewerDL.Widget downleft.Widget1
 148 connect planes.BoxChange viewerDL.BoxExecute
 149 connect Box13.Widget Box11.Widget1
 150 connect Box11.Widget Box15.Widget1
 151 connect main.Widget Box15.Widget2
 152 connect planes.ImageX Box14.In
 153 connect planes.ImageY Box16.In
 154 connect planes.ImageZ Box17.In
 155 connect Box14.Widget Box19.Widget1
 156 connect Box18.Widget Box19.Widget2
 157 connect Box20.Widget Box21.Widget2
 158 connect Box22.Widget Box23.Widget2
 159 connect Box16.Widget Box21.Widget1
 160 connect Box17.Widget Box23.Widget1
 161 connect Box24.Out Box12.in
 162 connect Box24.Out planes.In
 163 connect Box27.Widget Box26.Widget2
 164 connect Box27.Point Box30.In
 165 connect Box27.BoxChange Box30.BoxExecute
 166 connect Box27.Renderer1 Box30.Renderer
 167 connect Box24.Out Box27.In
 168 connect Box24.Out Box30.Image
 169 connect Box32.Widget Box31.Widget2
 170 connect Box30.lstPointsX Box36.PointsX
 171 connect Box30.lstPointsY Box36.PointsY
 172 connect Box30.lstPointsZ Box36.PointsZ
 173 connect Box24.Out Box36.In
 174 connect Box36.Image3Pts Box32.In
 175 connect Box36.Image3Pts Box35.In
 176 connect Box38.Widget Box31.Widget1
 177 connect Box30.Widget Box39.Widget1
 178 connect Box39.Widget Box38.Widget1
 179 connect Box35.Widget Box38.Widget2
 180 connect Box31.Widget Box26.Widget1
 181 connect Box12.widget Box25.Widget3
 182 connect Box40.Widget Box39.Widget2
 183 connect Box40.Out Box36.Interpolation
 184 connect Box40.BoxChange Box42.In1
 185 connect Box30.BoxChange Box42.In2
 186 connect Box42.Out Box36.BoxExecute
 187 connect Box42.Out Box32.BoxExecute
 188 connect Box19.Widget Box13.Widget2
 189 connect Box21.Widget Box13.Widget3
 190 connect Box23.Widget Box13.Widget4
 191 connect Box43.Widget Box13.Widget1
 192 connect Box43.Out planes.Interpolation
 193 connect Box43.BoxChange planes.BoxExecute
 194 connect Box10.Out Box24.In
 195 connect Box15.Widget Box25.Widget1
 196 connect Box26.Widget Box25.Widget2
 197 connect planes.ImageZ viewerDL.In
 198 connect planes.ImageY viewerUR.In
 199 connect planes.ImageX viewerUL.In
 200
 201 exec Box25