bbtk_creaVtk_PKG/bbs/boxes/VoiMPR-Interface.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/C8/creatools_source/creaVtk/bbtk_creaVtk_PKG/bbs/boxes/VoiMPR-Interface.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include creaMaracasVisu
   9 include std
  10 include wx
  11 include vtk
  12
  13 define VoiMPR-Interface creaVtk
  14
  15 author "InfoDev"
  16 description "Description ??"
  17
  18 category "<VOID>"
  19
  20 new creaMaracasVisu:SliderMinMax Box03
  21   set Box03.InMax "500"
  22   set Box03.InMin "0"
  23
  24 new creaMaracasVisu:SliderMinMax Box04
  25   set Box04.InMax "500"
  26   set Box04.InMin "0"
  27
  28 new creaMaracasVisu:SliderMinMax Box05
  29   set Box05.InMax "500"
  30   set Box05.InMin "0"
  31
  32 new std:MultipleInputs Box06
  33
  34 new std:ConcatStrings Box07
  35   set Box07.In2 "  "
  36   set Box07.In4 "  "
  37   set Box07.In6 "  "
  38   set Box07.In8 "   "
  39
  40 new std:ConcatStrings Box08
  41   set Box08.In2 "  "
  42   set Box08.In4 "  "
  43   set Box08.In6 "  "
  44
  45 new std:ConcatStrings Box09
  46
  47 new wx:LayoutLine Box11
  48
  49 new vtk:ImageVtkProperties Box30
  50
  51 new vtk:vtkImageDataPointerRelay Box31
  52
  53 new std:GetVectorIntElement Box32
  54   set Box32.I "0"
  55
  56 new std:GetVectorIntElement Box33
  57   set Box33.I "1"
  58
  59 new std:GetVectorIntElement Box34
  60   set Box34.I "2"
  61
  62 new creaMaracasVisu:SetPosition Box35
  63
  64 new std:ConcatStrings Box36
  65   set Box36.In2 "  "
  66   set Box36.In4 "  "
  67
  68 new std:MultipleInputs Box40
  69
  70 new wx:CheckBox Box42
  71   set Box42.In "true"
  72   set Box42.ReactiveOnKeystroke "true"
  73   set Box42.Title "Active"
  74
  75 new wx:LayoutTab Box21
  76
  77 new wx:LayoutLine Box22
  78   set Box22.WinTitle "X"
  79
  80 new wx:LayoutTab Box23
  81
  82 new wx:LayoutLine Box24
  83   set Box24.WinTitle "Y"
  84
  85 new wx:LayoutTab Box25
  86
  87 new wx:LayoutLine Box26
  88   set Box26.WinTitle "Z"
  89
  90
  91 connect Box03.BoxChange Box06.In1
  92 connect Box04.BoxChange Box06.In2
  93 connect Box05.BoxChange Box06.In3
  94 connect Box07.Out Box09.In1
  95 connect Box08.Out Box09.In10
  96 connect Box03.OutStart Box07.In1
  97 connect Box03.OutEnd Box07.In3
  98 connect Box04.OutStart Box07.In5
  99 connect Box04.OutEnd Box07.In7
 100 connect Box05.OutStart Box08.In1
 101 connect Box05.OutEnd Box08.In3
 102 connect Box31.Out Box30.In
 103 connect Box30.Size Box32.In
 104 connect Box30.Size Box33.In
 105 connect Box30.Size Box34.In
 106 connect Box32.Out Box03.InMax
 107 connect Box33.Out Box04.InMax
 108 connect Box34.Out Box05.InMax
 109 connect Box36.Out Box35.Point
 110 connect Box06.BoxChange Box35.BoxExecute
 111 connect Box06.BoxChange Box40.In1
 112 connect Box42.Widget Box11.Widget1
 113 connect Box42.BoxChange Box06.In4
 114 connect Box03.OutActual Box36.In1
 115 connect Box04.OutActual Box36.In3
 116 connect Box05.OutActual Box36.In5
 117 connect Box22.Widget Box21.Widget1
 118 connect Box03.Widget Box22.Widget1
 119 connect Box21.Widget Box11.Widget3
 120 connect Box24.Widget Box23.Widget1
 121 connect Box04.Widget Box24.Widget1
 122 connect Box23.Widget Box11.Widget5
 123 connect Box26.Widget Box25.Widget1
 124 connect Box25.Widget Box11.Widget8
 125 connect Box05.Widget Box26.Widget1
 126
 127 # Complex input ports
 128 input Image Box31.In " "
 129 input Execute Box40.In2 " "
 130 input wxvtkbaseview Box35.wxVtkBaseView " "
 131
 132 # Complex output ports
 133 output widget Box11.Widget " "
 134 output boxchange Box40.BoxChange " "
 135 output active Box42.Out " "
 136 output boxchangeRender Box06.BoxChange " "
 137 output voi Box09.Out " "
 138
 139
 140 endefine