packages/wxvtk/bbs/appli/wxvtkTour.bbs

   1 description "A tour of wxvtk boxes"
   2 author "laurent.guigues@creatis.insa-lyon.fr"
   3 category "demo"
   4
   5 # put all include before or will be within echo 2 and generate many messages...
   6 include wxvtk
   7 include vtk
   8 include std
   9
  10 # To avoid getting textual help
  11 message Help 0
  12
  13 #==================================================================
  14 print " "
  15 print "====================================="
  16 print "A simple 2D viewer"
  17 print "====================================="
  18 help Viewer2D
  19 message echo 2
  20
  21 new LoadHola image
  22 new Viewer2D viewer
  23 connect image.Out viewer.In
  24 set viewer.Slice 20
  25 set viewer.WinDialog true
  26 exec viewer
  27
  28 message echo 0
  29 clear
  30 print " "
  31 print "====================================="
  32 print "A simple 2D slicer"
  33 print "====================================="
  34 help SimpleSlicer
  35 message echo 2
  36
  37 new LoadHola image
  38 new SimpleSlicer viewer
  39 connect image.Out viewer.In
  40 set viewer.WinDialog true
  41 exec viewer
  42
  43 message echo 0
  44 clear
  45 print " "
  46 print "====================================="
  47 print "A double 2D slicer"
  48 print "====================================="
  49 help DoubleSlicer
  50 message echo 2
  51
  52 new LoadHola image
  53 new DoubleSlicer viewer
  54 connect image.Out viewer.In1
  55 connect image.Out viewer.In2
  56 set viewer.WinDialog true
  57 exec viewer
  58
  59
  60 message echo 0
  61 clear
  62 print " "
  63 print "====================================="
  64 print " END OF TOUR"
  65 print "====================================="