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 reader
  22 new Viewer2D viewer
  23 connect reader.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 reader
  38 new SimpleSlicer viewer
  39 connect reader.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 reader
  53 new DoubleSlicer viewer
  54 connect reader.Out viewer.In1
  55 connect reader.Out viewer.In2
  56 set viewer.WinDialog true
  57 exec viewer
  58
  59 message echo 0
  60 clear
  61 print " "
  62 print "====================================="
  63 print "Slicing an image in 3D"
  64 print "====================================="
  65 help ImagePlanes
  66 message echo 2
  67
  68
  69 new LoadHola reader
  70 new ImagePlanes planes
  71 new Viewer3D viewer
  72 connect reader.Out planes.In
  73 connect planes.PlaneX viewer.Obs1
  74 connect planes.PlaneY viewer.Obs2
  75 connect planes.PlaneZ viewer.Obs3
  76 set viewer.WinDialog true
  77 exec viewer
  78
  79 message echo 0
  80 clear
  81 print " "
  82 print "====================================="
  83 print "Viewing an iso-surface of an image in 3D"
  84 print "====================================="
  85 help SimpleIsoSurfaceViewer
  86 message echo 2
  87
  88 new LoadHola reader
  89 new SimpleIsoSurfaceViewer viewer
  90 connect reader.Out viewer.In
  91 set viewer.WinDialog true
  92 exec viewer
  93
  94 message echo 0
  95 clear
  96 print " "
  97 print "====================================="
  98 print "Viewing both 3 slices and an iso-surface of an image in 3D"
  99 print "====================================="
 100 help IsoSurfaceWidget
 101 message echo 2
 102
 103 new LoadHola reader
 104 new Viewer3D viewer
 105 new ImagePlanes planes
 106 connect reader.Out planes.In
 107 connect planes.PlaneX viewer.Obs1
 108 connect planes.PlaneY viewer.Obs2
 109 connect planes.PlaneZ viewer.Obs3
 110 new IsoSurfaceWidget isosurface
 111 connect reader.Out isosurface.In
 112 connect isosurface.Out viewer.In1
 113 connect isosurface.BoxChange viewer.BoxExecute
 114
 115 new LayoutSplit main
 116 connect viewer.Widget main.Widget1
 117 connect isosurface.Widget main.Widget2
 118 set main.Proportion 70
 119 set main.WinDialog true
 120 exec main
 121
 122 message echo 0
 123 clear
 124 print " "
 125 print "====================================="
 126 print "Volume rendering"
 127 print "====================================="
 128 help VolumeRenderer
 129 message echo 2
 130
 131 new LoadHola reader
 132 new PiecewiseFunction color
 133 new PiecewiseFunction opacity
 134 new VolumeRenderer renderer
 135 new Viewer3D viewer
 136
 137 connect reader.Out renderer.In
 138 connect color.Out renderer.ColorFunction
 139 connect opacity.Out renderer.OpacityFunction
 140 connect renderer.Out viewer.In1
 141
 142 set color.X "0 500 1000"
 143 set color.Y "0 0.01 1"
 144 set opacity.X "0 500 1000"
 145 set opacity.Y "0 0.01 0.1"
 146
 147 set viewer.WinDialog true
 148 exec viewer
 149
 150 message echo 0
 151 message Help 1
 152 clear
 153 print " "
 154 print "====================================="
 155 print " END OF TOUR"
 156 print "====================================="