X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=packages%2Fdemo%2Fbbs%2Fappli%2FSaveAsMhd.bbs;h=ccd0ae652450579bdcb4b73f77d358a085ce26b4;hb=2441c154e1940e42455187049718d0a15d7fb81f;hp=332ada5b48b6aee29e832097cd93c8c42ae7e672;hpb=d06bbad0f02d16ad30f006b451fbec67f780111f;p=bbtk.git
diff --git a/packages/demo/bbs/appli/SaveAsMhd.bbs b/packages/demo/bbs/appli/SaveAsMhd.bbs
index 332ada5..ccd0ae6 100644
--- a/packages/demo/bbs/appli/SaveAsMhd.bbs
+++ b/packages/demo/bbs/appli/SaveAsMhd.bbs
@@ -1,6 +1,7 @@
-//description "Example of the box Viewer2D."
-author "jpr@creatis.univ-lyon1.fr"
-category "tool, writer"
+
+description "Reads and image file / stack of image files, writes it as a MHD file"
+author "jpr@creatis.insa-lyon.fr"
+category "tool, read/write"
load vtk
include wxvtk
@@ -9,17 +10,67 @@ load itk
include vtk
include wx
load itkvtk
-load creaImageIO
+new LayoutLine main
+
+# Use new box (choose the way you want to select images)
+# -----------------------------------------------------
+load creaImageIO
+//new ImagesChooserDialogBox chooser
+new ImagesChooserDialogBox reader
+
+# Concatenate all the supposed-to-be consistent 2D images into a single vtkImageData
+# WARNING : File names alphabetical order is suposed to be meaningful ...
+
+//new ConcatImages reader
+// connect chooser.OutImages reader.In
+
+
+new CommandButton cb1
+ set cb1.Label "1) Select File"
+ set cb1.WinDialog true
+ connect cb1.Widget main.Widget1
+
+connect cb1.BoxChange reader.BoxExecute
+
+new SimpleSlicer slc
+ set slc.Orientation 2
+ set slc.SliderReactiveOnTrack 1
+ connect reader.Out slc.In
+ // It doesn't work ?!?, needs to "exec slc" // JPR
+ connect reader.BoxChange slc.BoxExecute
+
+exec slc
-new Gimmick reader
+new CommandButton cb
+ connect cb.Widget main.Widget2
+ set cb.Label "2) Write (no '.mhd' extention needed!"
+ set cb.WinDialog true
+
+new CommandButton next
+ connect next.Widget main.Widget3
+ set next.Label "Next !"
+ set next.WinDialog true
+ // It doesn't work : <>
+ set next.In "delete main"
-new FileSelector fs
- set fs.OpenSave "Save"
+# Choose where you want to write
+# ------------------------------
+new FileSelector fileDialog
+ set fileDialog.OpenSave Save
+ set fileDialog.Wildcard "*.mhd"
+new MakeFileName mfn
+ connect fileDialog.Out mfn.File
+ set mfn.Extent ".mhd"
+
+# Write!
+# ------
+
new MetaImageWriter writer
- connect reader.Out writer.In
- connect fs.Out writer.Filename
+ connect reader.Out writer.In
+ connect mfn.Out writer.Filename
+ connect cb.BoxChange writer.BoxExecute
+
+exec main
-exec reader
-exec writer