]> Creatis software - bbtk.git/blob - packages/kw/bbs/appli/kwTour.bbs
22e8a6d5f95221f74a45a5d88fbf24cd0a9cf8d4
[bbtk.git] / packages / kw / bbs / appli / kwTour.bbs
1 description "A tour of all kw widgets"
2 author "laurent.guigues at creatis.insa-lyon.fr"
3 category "demo"
4
5 include kw
6 load std
7 include vtk
8 load wx
9
10 message Help 0
11
12 print "=================================="
13 print "A Slider whose output is plugged into an OutputText"
14 print "=================================="
15 message echo 2
16
17 new kwSlider in
18 new kwOutputText out
19 connect in.Out out.In
20 connect in.BoxChange out.BoxExecute
21 new kwLayoutSplit window
22 connect in.Widget window.Widget1
23 connect out.Widget window.Widget2
24 exec window
25
26 message echo 0
27 clear
28 print "=================================="
29 print "The kwSlicer widget"
30 print "=================================="
31 help kwSlicer
32 message echo 2
33
34 new LoadHola r
35 new kwSlicer s
36 connect r.Out s.In
37 exec s
38
39 message echo 0
40 clear
41 /*
42 print "=================================="
43 print "Using both kw and wx"
44 print "=================================="
45 message echo 2
46
47 new OutputText t
48 exec t
49
50 new kwSlider s
51 connect s.Out t.In
52 connect s.BoxChange t.BoxExecute
53
54 exec s
55
56 message echo 0
57 clear
58 */
59 print "=================================="
60 print "Volume renderer with controls"
61 print "=================================="
62 help kwVolumeRendererWidget
63 message echo 2
64
65 new LoadHola image
66 new kwVolumeRendererWidget renderer
67 new kwViewer3D viewer
68
69 connect image.Out renderer.In
70 connect renderer.Out viewer.In1
71 connect renderer.BoxChange viewer.BoxExecute
72
73 new kwLayoutSplit main
74 connect viewer.Widget main.Widget2
75 connect renderer.Widget main.Widget1
76
77 exec main
78
79 message echo 0
80 message Help 1
81 clear
82 print " "
83 print "====================================="
84 print " END OF TOUR"
85 print "====================================="
86