X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=bbtk%2Fbbs%2Fappli%2FexamplePlaneNPoints.bbs;h=28a67f675fbfd40e3020cdbc98baf2326cab7e70;hb=56eb704bce4e7a4206ffa16c84f3000b8b8f93eb;hp=047824aa9e2b63d18f929353878161f23ded8e43;hpb=e4ef2b5df5aac431ff3b806f83b7dd5e55e89d86;p=creaMaracasVisu.git diff --git a/bbtk/bbs/appli/examplePlaneNPoints.bbs b/bbtk/bbs/appli/examplePlaneNPoints.bbs index 047824a..28a67f6 100644 --- a/bbtk/bbs/appli/examplePlaneNPoints.bbs +++ b/bbtk/bbs/appli/examplePlaneNPoints.bbs @@ -1,110 +1,114 @@ -# --------------------------------------------------------------------- -# -# Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image -# pour la Sant�) -# Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton -# Previous Authors : Laurent Guigues, Jean-Pierre Roux -# CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil -# -# This software is governed by the CeCILL-B license under French law and -# abiding by the rules of distribution of free software. You can use, -# modify and/ or redistribute the software under the terms of the CeCILL-B -# license as circulated by CEA, CNRS and INRIA at the following URL -# http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html -# or in the file LICENSE.txt. -# -# As a counterpart to the access to the source code and rights to copy, -# modify and redistribute granted by the license, users are provided only -# with a limited warranty and the software's author, the holder of the -# economic rights, and the successive licensors have only limited -# liability. -# -# The fact that you are presently reading this means that you have had -# knowledge of the CeCILL-B license and that you accept its terms. -# ------------------------------------------------------------------------ */ +# ---------------------------------- +# - BBTKGEditor v 1.4 BBS BlackBox Script +# - /tmpEED/creaTools2/creatools_source/creaMaracasVisu/bbtk/bbs/appli/examplePlaneNPoints.bbs +# ---------------------------------- + +# BBTK GEditor Script +# ---------------------- + +include std +include itkvtk +include wx +include vtk +include creaMaracasVisu +include wxvtk -description " 3points -> 1-plane " author "info-dev@creatis.insa-lyon.fr" +description " 3points -> 1-plane " category "example" -include vtk/boxes/bbLoadHola -load vtk -load wxvtk -load creaMaracasVisu -load std -load wx - -//new LoadHola reader - -new FileSelector openFileDialog - set openFileDialog.Wildcard "(*.mhd)|*.mhd" -new MetaImageReader reader - connect openFileDialog.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 TransferFunctionView transferfunc - connect reader.Out transferfunc.In - -new ViewerNV viewernv - set viewernv.nTypeView "6 1 2 0" - #set viewernv.nTypeView "6" - connect reader.Out viewernv.In - connect transferfunc.ColorFunction viewernv.ColorFunction - connect transferfunc.WindowLevel viewernv.WindowLevel - connect transferfunc.ColorLevel viewernv.ColorLevel - -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 +new wx:FileSelector openFileDialog + set openFileDialog.Wildcard "(*.mhd)|*.mhd" + +new vtk:MetaImageReader reader + +new vtk:ImagePlanes planes + +new creaMaracasVisu:TransferFunctionView transferfunc + +new creaMaracasVisu:ViewerNV viewernv + set viewernv.nTypeView "6 1 2 0" + +new creaMaracasVisu:ShowNPoints showpoints + set showpoints.Radio "1" + +new creaMaracasVisu:ImageActor imgactor + +new wxvtk:Viewer2D view2d + +new wx:CommandButton execplanes + set execplanes.Label "Refresh planes" + +new wx:LayoutLine layoutline0 + +new wx:LayoutLine layoutline1 + +new wx:LayoutSplit mainSplit + set mainSplit.Orientation "H" + set mainSplit.Proportion "10" + +new vtk:LoadHola Box12 + +new vtk:vtkImageDataPointerRelay Box13 + + +connect openFileDialog.Out reader.In + +connect transferfunc.ColorFunction viewernv.ColorFunction + +connect transferfunc.WindowLevel viewernv.WindowLevel + +connect transferfunc.ColorLevel viewernv.ColorLevel + +connect showpoints.lstPointsX planes.PointsX + +connect showpoints.lstPointsY planes.PointsY + +connect showpoints.lstPointsZ planes.PointsZ + +connect viewernv.BoxChange showpoints.BoxExecute + +connect viewernv.Point showpoints.In + +connect viewernv.Renderer1 showpoints.Renderer + +connect planes.Image3Pts imgactor.In + +connect viewernv.Renderer1 imgactor.Renderer + +connect planes.Transform3Pts imgactor.Transform + +connect execplanes.BoxChange planes.BoxExecute + +connect execplanes.BoxChange view2d.BoxExecute + +connect execplanes.BoxChange imgactor.BoxExecute + connect showpoints.Widget layoutline0.Widget1 + connect execplanes.Widget layoutline0.Widget2 + connect transferfunc.Widget layoutline0.Widget3 -new LayoutLine layoutline1 connect viewernv.Widget layoutline1.Widget1 -new LayoutSplit mainSplit -set mainSplit.Orientation H -set mainSplit.Proportion 10 connect layoutline0.Widget mainSplit.Widget1 -connect layoutline1.Widget mainSplit.Widget2 -exec mainSplit +connect layoutline1.Widget mainSplit.Widget2 connect planes.Image3Pts view2d.In + +connect Box12.Out Box13.In + +connect Box13.Out transferfunc.In + +connect Box13.Out planes.In + +connect Box13.Out showpoints.Image + +connect Box13.Out viewernv.In + + + +# Complex input ports +exec mainSplit