From 5ad7411ec4f608df2f1fce00f2176082e9262b08 Mon Sep 17 00:00:00 2001 From: jean-pierre roux Date: Fri, 9 Apr 2010 09:55:01 +0000 Subject: [PATCH] Use chooser in example --- packages/demo/bbs/appli/demoPlane3Pts.bbs | 31 ++------ packages/demo/bbs/appli/examplePlane3Pts.bbs | 81 ++++++++++++++++++++ 2 files changed, 87 insertions(+), 25 deletions(-) create mode 100644 packages/demo/bbs/appli/examplePlane3Pts.bbs diff --git a/packages/demo/bbs/appli/demoPlane3Pts.bbs b/packages/demo/bbs/appli/demoPlane3Pts.bbs index 325be85..086d812 100644 --- a/packages/demo/bbs/appli/demoPlane3Pts.bbs +++ b/packages/demo/bbs/appli/demoPlane3Pts.bbs @@ -1,8 +1,9 @@ -description " ? ? ? " +description " How to choose points in a 3D image " author "davila at creatis.insa-lyon.fr" category "demo" // See also examplePlane3Pts.bbs +// To know how to read more images. include vtk/boxes/bbLoadHola load vtk @@ -11,41 +12,21 @@ load creaMaracasVisu load std load wx -new LoadHola image +new LoadHola reader -/* -new FileSelector openFileDialog - set openFileDialog.Wildcard "(*.mhd)|*.mhd" -new MetaImageReader image - connect openFileDialog.Out image.In -*/ - new ImagePlanes planes -connect image.Out planes.In - -#new Viewer3D viewer - -#connect planes.PlaneX viewer.Obs1 -#connect planes.PlaneY viewer.Obs2 -#connect planes.PlaneZ viewer.Obs3 -#connect planes.Plane3Pts viewer.Obs4 -#set viewer.WinTitle "Show N Points" -#set viewer.WinWidth 350 -#set viewer.WinHeight 400 +connect reader.Out planes.In new ViewerNV viewernv #set viewernv.nTypeView "6 1 2 0" set viewernv.nTypeView "6" - connect image.Out viewernv.In + connect reader.Out viewernv.In new ShowNPoints showpoints - connect image.Out showpoints.Image + connect reader.Out showpoints.Image connect showpoints.lstPointsX planes.PointsX connect showpoints.lstPointsY planes.PointsY connect showpoints.lstPointsZ planes.PointsZ - #set planes.PointsX "10 10 50" - #set planes.PointsY "10 50 20" - #set planes.PointsZ "10 10 30" connect viewernv.BoxChange showpoints.BoxExecute connect viewernv.Point showpoints.In connect viewernv.Renderer1 showpoints.Renderer diff --git a/packages/demo/bbs/appli/examplePlane3Pts.bbs b/packages/demo/bbs/appli/examplePlane3Pts.bbs new file mode 100644 index 0000000..104b5d1 --- /dev/null +++ b/packages/demo/bbs/appli/examplePlane3Pts.bbs @@ -0,0 +1,81 @@ +description " How to choose points in a 3D image " +author "davila at creatis.insa-lyon.fr" +category "example" + +load vtk +load wxvtk +load creaMaracasVisu +load std +load wx +load creaImageIO + +# Use new box (choose the way you want to select images) +# ----------------------------------------------------- +new ImagesReader chooser + +# 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.Out reader.In + +new ImagePlanes planes +connect reader.Out planes.In + +#new Viewer3D viewer + +#connect planes.PlaneX viewer.Obs1 +#connect planes.PlaneY viewer.Obs2 +#connect planes.PlaneZ viewer.Obs3 +#connect planes.Plane3Pts viewer.Obs4 +#set viewer.WinTitle "Show N Points" +#set viewer.WinWidth 350 +#set viewer.WinHeight 400 + +new ViewerNV viewernv + #set viewernv.nTypeView "6 1 2 0" + set viewernv.nTypeView "6" + connect reader.Out viewernv.In + +new ShowNPoints showpoints + connect reader.Out showpoints.Image + connect showpoints.lstPointsX planes.PointsX + connect showpoints.lstPointsY planes.PointsY + connect showpoints.lstPointsZ planes.PointsZ + #set planes.PointsX "10 10 50" + #set planes.PointsY "10 50 20" + #set planes.PointsZ "10 10 30" + connect viewernv.BoxChange showpoints.BoxExecute + connect viewernv.Point showpoints.In + connect viewernv.Renderer1 showpoints.Renderer + set showpoints.Radio 1 + +new ImageActor imgactor + connect planes.Image3Pts imgactor.In + connect viewernv.Renderer1 imgactor.Renderer + connect planes.Transform3Pts imgactor.Transform + +new Viewer2D view2d +new CommandButton execplanes + set execplanes.Label "Refresh planes" + connect execplanes.BoxChange planes.BoxExecute + connect execplanes.BoxChange view2d.BoxExecute + connect execplanes.BoxChange imgactor.BoxExecute + #connect execplanes.BoxChange viewer.BoxExecute + +new LayoutLine layoutline0 +connect showpoints.Widget layoutline0.Widget1 +connect execplanes.Widget layoutline0.Widget2 + +new LayoutLine layoutline1 +connect viewernv.Widget layoutline1.Widget1 + +new LayoutSplit mainSplit +set mainSplit.Orientation H +set mainSplit.Proportion 30 +connect layoutline0.Widget mainSplit.Widget1 +connect layoutline1.Widget mainSplit.Widget2 + +exec mainSplit + +connect planes.Image3Pts view2d.In -- 2.45.1