PackRecalage/bbs/appli/ExampleRecalage3D2Points.bbs

   1 # ---------------------------------------------------------------------
   2 #
   3 # Copyright (c) CREATIS (Centre de Recherche en Acquisition et Traitement de l'Image
   4 #                        pour la Santé)
   5 # Authors : Eduardo Davila, Frederic Cervenansky, Claire Mouton
   6 #
   7 #  This software is governed by the CeCILL-B license under French law and
   8 #  abiding by the rules of distribution of free software. You can  use,
   9 #  modify and/ or redistribute the software under the terms of the CeCILL-B
  10 #  license as circulated by CEA, CNRS and INRIA at the following URL
  11 #  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
  12 #  or in the file LICENSE.txt.
  13 #
  14 #  As a counterpart to the access to the source code and  rights to copy,
  15 #  modify and redistribute granted by the license, users are provided only
  16 #  with a limited warranty  and the software's author,  the holder of the
  17 #  economic rights,  and the successive licensors  have only  limited
  18 #  liability.
  19 #
  20 #  The fact that you are presently reading this means that you have had
  21 #  knowledge of the CeCILL-B license and that you accept its terms.
  22 # ------------------------------------------------------------------------
  23
  24 # ----------------------------------
  25 # - BBTKGEditor v 1.2 BBS BlackBox Script
  26 # - /Users/davila/Creatis/All5/creatools_source/creaRigidRegistration/PackRecalage/bbs/appli/ExampleRecalage3D2Points.bbs
  27 # ----------------------------------
  28
  29 # BBTK GEditor Script
  30 # ----------------------
  31
  32 include std
  33 include itkvtk
  34 include creaMaracasVisu
  35 include PackRecalage
  36 include wx
  37 include creaImageIO
  38 include vtk
  39
  40 author "info-dev@creatis.insa-lyon.fr"
  41 description "Recalage3D 2-point"
  42 category "example"
  43
  44 new ViewerNV viewer
  45   set viewer.nTypeView "5"
  46
  47 new ShowNPoints showNpoints
  48   set showNpoints.Radio "10"
  49
  50 new ViewerNV viewer2
  51   set viewer2.nTypeView "5"
  52
  53 new ShowNPoints showNpoints2
  54   set showNpoints2.Radio "10"
  55
  56 new Transform3D2PointsBox transform
  57
  58 new ReSlicerBox reslice1
  59   set reslice1.Origin "0,0,0"
  60
  61 new ViewerNV viewer3
  62   set viewer3.nTypeView "5 0"
  63
  64 new CommandButton butExec
  65   set butExec.Label "Execute"
  66
  67 new Slider angle
  68   set angle.In "0"
  69   set angle.Max "180"
  70   set angle.Min "-180"
  71
  72 new LayoutSplit tab1
  73   set tab1.Orientation "H"
  74
  75 new LayoutSplit hello
  76   set hello.Orientation "V"
  77
  78 new LayoutSplit hello2
  79
  80 new LayoutSplit tab2
  81   set tab2.Orientation "H"
  82
  83 new LayoutTab main
  84   set main.Orientation "H"
  85
  86 new ImagesChooserDialogBox Box18
  87
  88 new ImagesChooserDialogBox Box19
  89
  90 new vtkImageDataPointerRelay Box20
  91
  92 new vtkImageDataPointerRelay Box21
  93
  94
  95 connect viewer.Renderer1 showNpoints.Renderer
  96 connect viewer.Point showNpoints.In
  97 connect viewer.BoxChange showNpoints.BoxExecute
  98 connect viewer2.Renderer1 showNpoints2.Renderer
  99 connect viewer2.Point showNpoints2.In
 100 connect viewer2.BoxChange showNpoints2.BoxExecute
 101 connect showNpoints.lstPointsX transform.InX1
 102 connect showNpoints2.lstPointsX transform.InX2
 103 connect showNpoints.lstPointsY transform.InY1
 104 connect showNpoints2.lstPointsY transform.InY2
 105 connect showNpoints.lstPointsZ transform.InZ1
 106 connect showNpoints2.lstPointsZ transform.InZ2
 107 connect showNpoints.lstLabels transform.Labels1
 108 connect showNpoints2.lstLabels transform.Labels2
 109 connect transform.Out reslice1.Transform
 110 connect reslice1.Out viewer3.In
 111 connect angle.Out transform.SecondAngle
 112 connect showNpoints.Widget hello.Widget1
 113 connect butExec.Widget hello2.Widget1
 114 connect angle.Widget hello2.Widget2
 115 connect hello2.Widget hello.Widget2
 116 connect hello.Widget tab1.Widget1
 117 connect viewer.Widget tab1.Widget2
 118 connect showNpoints2.Widget tab2.Widget1
 119 connect viewer2.Widget tab2.Widget2
 120 connect butExec.BoxChange transform.BoxExecute
 121 connect butExec.BoxChange reslice1.BoxExecute
 122 connect butExec.BoxChange viewer3.BoxExecute
 123 connect tab1.Widget main.Widget1
 124 connect tab2.Widget main.Widget2
 125 connect Box18.Out Box20.In
 126 connect Box20.Out reslice1.In
 127 connect Box20.Out viewer2.In
 128 connect Box19.Out Box21.In
 129 connect Box21.Out showNpoints.Image
 130 connect Box21.Out viewer.In
 131
 132 exec main