X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Fvtk%2Fbbs%2Fappli%2FExampleGaussianSmooth_02.bbs;fp=packages%2Fvtk%2Fbbs%2Fappli%2FExampleGaussianSmooth_02.bbs;h=9d587b09be2f674582bac86ef3213e57a360b9e9;hb=62f21094493592cc2ccf1f105db791fb0ebbe2d0;hp=0000000000000000000000000000000000000000;hpb=c777b23c18131be9bf4d2e4fc9b25daead080a38;p=bbtk.git

diff --git a/packages/vtk/bbs/appli/ExampleGaussianSmooth_02.bbs b/packages/vtk/bbs/appli/ExampleGaussianSmooth_02.bbs
new file mode 100644
index 0000000..9d587b0
--- /dev/null
+++ b/packages/vtk/bbs/appli/ExampleGaussianSmooth_02.bbs
@@ -0,0 +1,63 @@
+print "=== GaussianSmooth_02 box example ==="
+description "GaussianSmooth Save box.  Screenshot : <img src=ExampleGaussianSmooth_02.jpg></img>"
+author "eduardo.davila at creatis.insa-lyon.fr"
+category "example"
+
+include wx
+include itk
+include vtk
+include wxvtk
+include itkvtk
+
+new FileSelector fileselectoropen
+  set fileselectoropen.OpenSave "Open" 
+  
+new ImageReader imagereader
+  connect fileselectoropen.Out imagereader.Filename
+
+new Viewer2D viewerleft
+  connect imagereader.Out viewerleft.In
+  
+new Slider slidersmooth
+  set slidersmooth.In 1
+  set slidersmooth.Max 10
+  set slidersmooth.Title "Gaussian smooth "
+    
+new ImageGaussianSmooth smooth
+  connect imagereader.Out smooth.In
+  connect slidersmooth.Out smooth.StdDevX
+  connect slidersmooth.Out smooth.StdDevY
+  connect slidersmooth.Out smooth.StdDevZ
+  connect slidersmooth.BoxChange smooth.BoxExecute
+  
+new Viewer2D viewerright
+  connect smooth.Out viewerright.In
+  connect slidersmooth.BoxChange viewerright.BoxExecute
+  
+new LayoutLine layoutlineviwer
+   set layoutlineviwer.Orientation H
+   connect viewerleft.Widget layoutlineviwer.Widget1
+   connect viewerright.Widget layoutlineviwer.Widget2
+
+new FileSelector fileselectorsave
+  set fileselectorsave.OpenSave "Save" 
+   
+new ImageWriter imagewrite
+    connect smooth.Out imagewrite.In   
+    connect fileselectorsave.Out imagewrite.Filename   
+       
+new CommandButton btnSave
+   set btnSave.Label "Save smooth"   
+   connect btnSave.BoxChange fileselectorsave.BoxExecute 
+   connect btnSave.BoxChange imagewrite.BoxExecute 
+
+new LayoutLine layoutline
+   connect slidersmooth.Widget layoutline.Widget1
+   connect btnSave.Widget layoutline.Widget2
+   
+new LayoutSplit main   
+   connect layoutlineviwer.Widget main.Widget1
+   connect layoutline.Widget main.Widget2
+   
+   
+exec main   
\ No newline at end of file