bbtk_creaVtk_PKG/bbs/appli/exampleCutter.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /home/davila/Creatis/C11/creatools_source/creaVtk/bbtk_creaVtk_PKG/bbs/appli/exampleCutter.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include creaVtk
  12 include vtk
  13 include creaMaracasVisu
  14 include wx
  15
  16 author "Author ??"
  17 description "Description ??"
  18 category "<VOID>"
  19
  20 new creaVtk:Cutter Box00
  21
  22 new vtk:SphereSource Box01
  23   set Box01.CenterX "0"
  24   set Box01.CenterY "0"
  25   set Box01.CenterZ "0"
  26   set Box01.PhiResolution "15"
  27   set Box01.Radius "40"
  28   set Box01.ThetaResolution "15"
  29
  30 new creaMaracasVisu:ViewerNV Box02
  31   set Box02.nTypeView "7"
  32
  33 new vtk:PolyDataToActor Box04
  34   set Box04.Colour "1 0 0"
  35   set Box04.LineWidth "2"
  36   set Box04.Opacity "1"
  37   set Box04.Representation "1"
  38
  39 new wx:LayoutSplit Box05
  40   set Box05.Orientation "H"
  41
  42 new vtk:PolyDataToActor Box09
  43   set Box09.Opacity "0.2"
  44   set Box09.Representation "2"
  45
  46 new vtk:UpdateRender Box13
  47   set Box13.Active "true"
  48
  49 new wx:CommandButton Box15
  50   set Box15.Label "Refresh"
  51
  52 new creaVtk:Plane Box10
  53   set Box10.Normal "0 0 1"
  54   set Box10.Origin "0 0 30"
  55
  56 new vtk:LoadHola Box11
  57
  58
  59 connect Box00.Out Box04.In
  60
  61 connect Box02.Renderer1 Box04.Renderer
  62
  63 connect Box02.Widget Box05.Widget2
  64
  65 connect Box02.Renderer1 Box09.Renderer
  66
  67 connect Box02.Renderer1 Box13.Renderer
  68
  69 connect Box15.BoxChange Box04.BoxExecute
  70
  71 connect Box04.BoxChange Box09.BoxExecute
  72
  73 connect Box09.BoxChange Box13.BoxExecute
  74
  75 connect Box01.Out Box00.In
  76
  77 connect Box01.Out Box09.In
  78
  79 connect Box15.Widget Box05.Widget1
  80
  81 connect Box10.Out Box00.ImplicitFunction
  82
  83 connect Box11.Out Box02.In
  84
  85
  86
  87 # Complex input ports
  88 exec Box05