packages/vtk/bbs/old/exampleGaussianSmooth_02.bbs

   1 print "=== GaussianSmooth_02 box example ==="
   2 description "GaussianSmooth Save box.  Screenshot : <img src=ExampleGaussianSmooth_02.JPG></img>"
   3 author "eduardo.davila at creatis.insa-lyon.fr"
   4 category "example"
   5
   6 include wx
   7 include itk
   8 include vtk
   9 include wxvtk
  10 include itkvtk
  11
  12 new FileSelector fileselectoropen
  13   set fileselectoropen.OpenSave "Open"
  14
  15 new ImageReader imagereader
  16   connect fileselectoropen.Out imagereader.In
  17
  18 new Viewer2D viewerleft
  19   connect imagereader.Out viewerleft.In
  20
  21 new Slider slidersmooth
  22   set slidersmooth.In 1
  23   set slidersmooth.Max 10
  24   set slidersmooth.Title "Gaussian smooth "
  25
  26 new ImageGaussianSmooth smooth
  27   connect imagereader.Out smooth.In
  28   connect slidersmooth.Out smooth.StdDevX
  29   connect slidersmooth.Out smooth.StdDevY
  30   connect slidersmooth.Out smooth.StdDevZ
  31   connect slidersmooth.BoxChange smooth.BoxExecute
  32
  33 new Viewer2D viewerright
  34   connect smooth.Out viewerright.In
  35   connect slidersmooth.BoxChange viewerright.BoxExecute
  36
  37 new LayoutLine layoutlineviwer
  38    set layoutlineviwer.Orientation H
  39    connect viewerleft.Widget layoutlineviwer.Widget1
  40    connect viewerright.Widget layoutlineviwer.Widget2
  41
  42 new FileSelector fileselectorsave
  43   set fileselectorsave.OpenSave "Save"
  44
  45 new ImageWriter imagewrite
  46     connect smooth.Out imagewrite.In
  47     connect fileselectorsave.Out imagewrite.Filename
  48
  49 new CommandButton btnSave
  50    set btnSave.Label "Save smooth"
  51    connect btnSave.BoxChange fileselectorsave.BoxExecute
  52    connect btnSave.BoxChange imagewrite.BoxExecute
  53
  54 new LayoutLine layoutline
  55    connect slidersmooth.Widget layoutline.Widget1
  56    connect btnSave.Widget layoutline.Widget2
  57
  58 new LayoutSplit main
  59    connect layoutlineviwer.Widget main.Widget1
  60    connect layoutline.Widget main.Widget2
  61
  62
  63 exec main