bbtk_creaVtk_PKG/bbs/boxes/PlaneVectorVisu_Interface.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - creaVtk/bbtk_creaVtk_PKG/bbs/boxes/PlaneVectorVisu_Interface.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include wx
   9 include std
  10
  11 define PlaneVectorViso_Interface creaVtk
  12
  13 author "Author ??"
  14 description "Description ??"
  15
  16 category "<VOID>"
  17
  18 new wx:Slider Box00
  19   set Box00.In "30"
  20   set Box00.Label "true"
  21   set Box00.Max "100"
  22   set Box00.Min "1"
  23   set Box00.ReactiveOnTrack "True"
  24   set Box00.Title "Plane Resolution"
  25
  26 new wx:CheckBox Box01
  27   set Box01.In "false"
  28   set Box01.ReactiveOnKeystroke "true"
  29   set Box01.Title "Plane control"
  30
  31 new wx:LayoutLine Box03
  32   set Box03.WinTitle "Plane flield"
  33
  34 new wx:LayoutTab Box04
  35
  36 new wx:CheckBox Box05
  37   set Box05.ReactiveOnKeystroke "true"
  38   set Box05.Title "Active Vectors"
  39
  40 new wx:Slider Box06
  41   set Box06.In "100"
  42   set Box06.Label "true"
  43   set Box06.Max "100"
  44   set Box06.Min "0"
  45   set Box06.ReactiveOnTrack "True"
  46   set Box06.Title "Opacity"
  47
  48 new std:Div Box07
  49   set Box07.In2 "100.0"
  50
  51 new wx:Slider Box08
  52   set Box08.ChangeResolution "true"
  53   set Box08.In "100"
  54   set Box08.Label "true"
  55   set Box08.Max "500000"
  56   set Box08.Min "1"
  57   set Box08.ReactiveOnTrack "True"
  58   set Box08.Title "Scale Factor"
  59
  60 new std:Div Box09
  61   set Box09.In2 "100.0"
  62
  63 new wx:LayoutLine Box10
  64   set Box10.Orientation "H"
  65
  66 new wx:LayoutLine Box11
  67   set Box11.Orientation "H"
  68
  69 new wx:ComboBox Box12
  70   set Box12.In "A B C"
  71   set Box12.Title "Form"
  72
  73 new wx:LayoutLine Box13
  74   set Box13.Orientation "H"
  75
  76 new std:SharedMemory Box15
  77
  78
  79 connect Box03.Widget Box04.Widget1
  80 connect Box06.Out Box07.In1
  81 connect Box08.Out Box09.In1
  82 connect Box01.Widget Box10.Widget1
  83 connect Box05.Widget Box10.Widget2
  84 connect Box00.Widget Box11.Widget1
  85 connect Box06.Widget Box11.Widget2
  86 connect Box10.Widget Box03.Widget1
  87 connect Box11.Widget Box03.Widget2
  88 connect Box08.Widget Box13.Widget1
  89 connect Box12.Widget Box13.Widget2
  90 connect Box13.Widget Box03.Widget3
  91 connect Box00.BoxChange Box15.In
  92 connect Box01.BoxChange Box15.In1
  93 connect Box05.BoxChange Box15.In2
  94 connect Box06.BoxChange Box15.In3
  95 connect Box08.BoxChange Box15.In4
  96 connect Box12.BoxChange Box15.In5
  97 connect Box15.BoxChange Box04.BoxExecute
  98
  99 # Complex input ports
 100 input typeFormsStr Box12.In " "
 101
 102 # Complex output ports
 103 output widget Box04.Widget " "
 104 output ActivePlaneControl Box01.Out " "
 105 output AcitiveVector Box05.Out " "
 106 output Opacity Box07.Out " "
 107 output ScaleFactor Box09.Out " "
 108 output Ratio Box00.Out " "
 109 output typeForm Box12.Out " "
 110 output boxChange Box15.BoxChange " "
 111
 112
 113 endefine