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 "40"
  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
  91 new LayoutSplit Box26
  92   set Box26.Orientation "H"
  93   set Box26.WinTitle "3 Points plane definition"
  94
  95 new ViewerNV Box27
  96
  97 new ShowNPoints Box30
  98
  99 new LayoutSplit Box31
 100
 101 new Viewer2D Box32
 102
 103 new SaveMHD-Button Box35
 104
 105 new ImagePlanes Box36
 106   set Box36.Interpolation "0"
 107
 108 new LoadHola Box37
 109
 110 new LayoutTab Box38
 111
 112 new LayoutLine Box39
 113   set Box39.Orientation "H"
 114   set Box39.WinTitle "Select 3 points"
 115
 116 new RadioButton Box40
 117   set Box40.In "1"
 118   set Box40.In0 "Nearest"
 119   set Box40.In1 "Linear"
 120   set Box40.In2 "Cubic"
 121   set Box40.WinTitle "Interpolation"
 122
 123 new MultipleInputs Box42
 124
 125 new RadioButton Box43
 126   set Box43.In "1"
 127   set Box43.In0 "Nearest"
 128   set Box43.In1 "Linear"
 129   set Box43.In2 "Cubic"
 130   set Box43.WinTitle "Interpolation"
 131
 132
 133 connect upright.Widget main.Widget1
 134 connect upleft.Widget main.Widget2
 135 connect downleft.Widget main.Widget3
 136 connect planes.PlaneX viewer.Obs1
 137 connect planes.PlaneY viewer.Obs2
 138 connect planes.PlaneZ viewer.Obs3
 139 connect viewer.Widget main.Widget4
 140 connect planes.ImageX viewerUL.In
 141 connect viewerUL.Widget upleft.Widget1
 142 connect planes.BoxChange viewerUL.BoxExecute
 143 connect planes.ImageY viewerUR.In
 144 connect viewerUR.Widget upright.Widget1
 145 connect planes.BoxChange viewerUR.BoxExecute
 146 connect planes.ImageZ viewerDL.In
 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
 198 exec Box25