packages/wxvtk/bbs/appli/ExampleBasicImageApplication.bbs

   1
   2
   3 description "Demo of the box <a href=#bbBasicImageApplication>BasicImageApplication</a> : creates an interactive image thresholding application"
   4 author "laurent.guigues@creatis.insa-lyon.fr"
   5 category "example"
   6
   7 ## THE APPLICATION BOX
   8 include /home/guigues/coding/Sofa/bbtk/packages/wxvtk/bbs/boxes/bbBasicImageApplication
   9 #include wxvtk/boxes/bbBasicImageApplication
  10 new BasicImageApplication appli
  11 set appli.WinTitle "ExampleBasicImageApplication"
  12
  13 ## THE FILTER
  14 new BinaryThresholdImageFilter filter
  15 connect appli.AlgorithmInput filter.In
  16 connect filter.Out appli.AlgorithmOutput
  17
  18 ## THE WINDOW FOR PARAMETERS TUNING
  19 new LayoutLine parametersWindow
  20 new Slider upperThresholdSlider
  21 set upperThresholdSlider.Title "upper threshold"
  22 set upperThresholdSlider.In 100
  23 new Slider lowerThresholdSlider
  24 set lowerThresholdSlider.Title "lower threshold"
  25 set lowerThresholdSlider.In 0
  26 connect lowerThresholdSlider.Widget parametersWindow.Widget1
  27 connect upperThresholdSlider.Widget parametersWindow.Widget2
  28 connect upperThresholdSlider.Out filter.UpperThreshold
  29 connect lowerThresholdSlider.Out filter.LowerThreshold
  30
  31
  32 connect parametersWindow.Widget appli.ParametersWidget
  33 set appli.ParametersWindowHeight 200
  34 set appli.ParametersWindowWidth 400
  35 #set appli.Refresh Reactive
  36
  37 #message Process 3
  38 ## GO !
  39 #message All 9
  40 #graph
  41
  42 #message Wx 9
  43 exec appli
  44 #graph
  45
  46
  47
  48