packages/kw/bbs/appli/kwTour.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  # Previous Authors : Laurent Guigues, Jean-Pierre Roux
   7  # CreaTools website : www.creatis.insa-lyon.fr/site/fr/creatools_accueil
   8  #
   9  #  This software is governed by the CeCILL-B license under French law and
  10  #  abiding by the rules of distribution of free software. You can  use,
  11  #  modify and/ or redistribute the software under the terms of the CeCILL-B
  12  #  license as circulated by CEA, CNRS and INRIA at the following URL
  13  #  http://www.cecill.info/licences/Licence_CeCILL-B_V1-en.html
  14  #  or in the file LICENSE.txt.
  15  #
  16  #  As a counterpart to the access to the source code and  rights to copy,
  17  #  modify and redistribute granted by the license, users are provided only
  18  #  with a limited warranty  and the software's author,  the holder of the
  19  #  economic rights,  and the successive licensors  have only  limited
  20  #  liability.
  21  #
  22  #  The fact that you are presently reading this means that you have had
  23  #  knowledge of the CeCILL-B license and that you accept its terms.
  24  # ------------------------------------------------------------------------ */
  25
  26
  27 description "A tour of all kw widgets"
  28 author "laurent.guigues at creatis.insa-lyon.fr"
  29 category "demo"
  30
  31 include kw
  32 load std
  33 include vtk
  34 load wx
  35
  36 message Help 0
  37
  38 print "=================================="
  39 print "A Slider whose output is plugged into an OutputText"
  40 print "=================================="
  41 message echo 2
  42
  43 new kwSlider in
  44 new kwOutputText out
  45 connect in.Out out.In
  46 connect in.BoxChange out.BoxExecute
  47 new kwLayoutSplit window
  48 connect in.Widget window.Widget1
  49 connect out.Widget window.Widget2
  50 exec window
  51
  52 message echo 0
  53 clear
  54 print "=================================="
  55 print "The kwSlicer widget"
  56 print "=================================="
  57 help kwSlicer
  58 message echo 2
  59
  60 new LoadHola r
  61 new kwSlicer s
  62 connect r.Out s.In
  63 exec s
  64
  65 message echo 0
  66 clear
  67 /*
  68 print "=================================="
  69 print "Using both kw and wx"
  70 print "=================================="
  71 message echo 2
  72
  73 new OutputText t
  74 exec t
  75
  76 new kwSlider s
  77 connect s.Out t.In
  78 connect s.BoxChange t.BoxExecute
  79
  80 exec s
  81
  82 message echo 0
  83 clear
  84 */
  85 print "=================================="
  86 print "Volume renderer with controls"
  87 print "=================================="
  88 help kwVolumeRendererWidget
  89 message echo 2
  90
  91 new LoadHola reader
  92 new kwVolumeRendererWidget renderer
  93 new kwViewer3D viewer
  94
  95 connect reader.Out renderer.In
  96 connect renderer.Out viewer.In1
  97 connect renderer.BoxChange viewer.BoxExecute
  98
  99 new kwLayoutSplit main
 100 connect viewer.Widget main.Widget2
 101 connect renderer.Widget main.Widget1
 102
 103 exec main
 104
 105 message echo 0
 106 message Help 1
 107 clear
 108 print " "
 109 print "====================================="
 110 print " END OF TOUR"
 111 print "====================================="
 112