]> Creatis software - creaMaracasVisu.git/blob - bbtk/bbs/boxes/ViewerByPlane.bbs
0b578439e6eb07500eb81ed7e0846fb8ed868f85
[creaMaracasVisu.git] / bbtk / bbs / boxes / ViewerByPlane.bbs
1 # ----------------------------------
2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
3 # - /tmpEED/creaTools/creatools_source/creaMaracasVisu/bbtk/bbs/boxes/ViewerByPlane.bbs
4 # ----------------------------------
5
6 include std
7 include itkvtk
8 include creaMaracasVisu
9 include vtk
10 include creaVtk
11 include std
12 include wx
13
14 define ViewerByPlane creaMaracasVisu
15
16 author "Author ??"
17 description "Description ??"
18
19 category "<VOID>"
20
21 new creaMaracasVisu:ViewerNV Box01
22   set Box01.ColorLevel "900"
23   set Box01.WindowLevel "2000"
24   set Box01.nTypeView "6 1 2 0"
25
26 new vtk:CreateImage Box02
27   set Box02.InitialValue "500"
28
29 new creaVtk:MHDFileInfo Box03
30
31 new std:ConcatStrings Box04
32
33 new creaVtk:ReadMHDPlane Box05
34   set Box05.DirectionPlane "XY"
35   set Box05.Type "1"
36
37 new std:GetVectorIntElement Box06
38   set Box06.I "2"
39
40 new std:ConcatStrings Box07
41   set Box07.In1 "0 0 "
42
43 new vtk:InversCrop Box08
44   set Box08.Type "1"
45
46 new creaVtk:ReadMHDPlane Box12
47   set Box12.DirectionPlane "ZX"
48   set Box12.Type "1"
49
50 new std:GetVectorIntElement Box13
51   set Box13.I "1"
52
53 new vtk:InversCrop Box14
54   set Box14.Type "1"
55
56 new std:ConcatStrings Box15
57   set Box15.In1 "0 "
58   set Box15.In3 " 0"
59
60 new creaVtk:ReadMHDPlane Box18
61   set Box18.DirectionPlane "YZ"
62   set Box18.Type "1"
63
64 new std:GetVectorIntElement Box19
65   set Box19.I "0"
66
67 new vtk:InversCrop Box20
68   set Box20.Type "1"
69
70 new std:ConcatStrings Box21
71   set Box21.In3 " 0 0"
72
73 new std:MagicBox Box22
74
75 new std:MagicBox Box23
76
77 new wx:ComboBox Box27
78   set Box27.In "0 1 3"
79
80
81 connect Box02.Out Box01.In
82 connect Box03.DimSize Box02.Dimensions
83 connect Box03.ElementSpacing Box02.Spacing
84 connect Box03.ElementType Box02.OutputFormat
85 connect Box04.Out Box03.FileName
86 connect Box04.Out Box05.FileName
87 connect Box01.Point Box06.In
88 connect Box06.Out Box07.In2
89 connect Box07.Out Box08.Origin
90 connect Box02.Out Box08.ImageFix
91 connect Box05.Out Box08.ImageMove
92 connect Box01.BoxChange Box08.BoxExecute
93 connect Box06.Out Box05.Slice
94 connect Box04.Out Box12.FileName
95 connect Box01.Point Box13.In
96 connect Box13.Out Box12.Slice
97 connect Box01.BoxChange Box14.BoxExecute
98 connect Box02.Out Box14.ImageFix
99 connect Box15.Out Box14.Origin
100 connect Box13.Out Box15.In2
101 connect Box12.Out2 Box14.ImageMove
102 connect Box19.Out Box18.Slice
103 connect Box21.Out Box20.Origin
104 connect Box19.Out Box21.In2
105 connect Box04.Out Box18.FileName
106 connect Box01.Point Box19.In
107 connect Box01.BoxChange Box20.BoxExecute
108 connect Box02.Out Box20.ImageFix
109 connect Box18.Out2 Box20.ImageMove
110 connect Box22.Out Box05.Type
111 connect Box22.Out Box12.Type
112 connect Box22.Out Box18.Type
113 connect Box27.OutString Box22.In
114
115 # Complex input ports
116 input FileNale Box04.In1 " "
117 input typeMHDorSeek Box23.In " "
118
119 # Complex output ports
120 output widget Box01.Widget " "
121 output wxvtkbaseview1 Box01.wxVtkBaseView1 " "
122 output render1 Box01.Renderer1 " "
123
124
125 endefine