packages/wxvtk/bbs/old/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 wxvtk/bbs/boxes/bbBasicImageApplication
   9 new BasicImageApplication appli
  10 set appli.WinTitle "ExampleBasicImageApplication"
  11
  12 ## THE FILTER
  13 new BinaryThresholdImageFilter filter
  14 connect appli.AlgorithmInput filter.In
  15 connect filter.Out appli.AlgorithmOutput
  16
  17 ## THE WINDOW FOR PARAMETERS TUNING
  18 new LayoutLine parametersWindow
  19 new Slider upperThresholdSlider
  20 set upperThresholdSlider.Title "upper threshold"
  21 set upperThresholdSlider.In 100
  22 new Slider lowerThresholdSlider
  23 set lowerThresholdSlider.Title "lower threshold"
  24 set lowerThresholdSlider.In 0
  25 connect lowerThresholdSlider.Widget parametersWindow.Widget1
  26 connect upperThresholdSlider.Widget parametersWindow.Widget2
  27 connect upperThresholdSlider.Out filter.UpperThreshold
  28 connect lowerThresholdSlider.Out filter.LowerThreshold
  29
  30
  31 connect parametersWindow.Widget appli.ParametersWidget
  32 set appli.ParametersWindowHeight 200
  33 set appli.ParametersWindowWidth 400
  34 #set appli.Refresh Reactive
  35
  36 #message Process 3
  37 ## GO !
  38 #message All 9
  39 #graph
  40
  41 #message Wx 9
  42 exec appli
  43 #graph
  44
  45
  46
  47