]> Creatis software - creaContours.git/blob - bbtk/bbs/boxes/ContourReferenceGrid.bbs
#3387 ContourReferenceGrid
[creaContours.git] / bbtk / bbs / boxes / ContourReferenceGrid.bbs
1 # ----------------------------------
2 # - BBTKGEditor v 1.5 BBS BlackBox Script (Complex Box)
3 # - /Users/davila/Creatis/C23/creatools_source/creaContours/bbtk/bbs/boxes/ContourReferenceGrid.bbs
4 # ----------------------------------
5
6 include std
7 include itkvtk
8 include std
9 include creaMaracasVisu
10 include vtk
11 include creaVtk
12
13 define ContourReferenceGrid creaContours
14
15 author "Author ??"
16 description "Description ??"
17
18 category "<VOID>"
19
20 new std:VectorFilterDouble Box05
21
22 new creaMaracasVisu:ReadCreaContourFile Box26
23   set Box26.FromDirection "0"
24
25 new std:MixingVectors Box31
26
27 new vtk:vtkImageDataPointerRelay Box32
28
29 new vtk:ImageVtkProperties Box33
30
31 new std:GetVectorDoubleElement Box37
32   set Box37.I "2"
33
34 new std:CreateArithmeticSuiteVector Box38
35   set Box38.Delta "0"
36   set Box38.FirstValue "2"
37
38 new std:GetDoubleVectorSize Box39
39
40 new std:MixingVectors Box45
41
42 new std:CreateArithmeticSuiteVector Box46
43   set Box46.Delta "0"
44   set Box46.FirstValue "-1000"
45
46 new std:ConcatStrings Box47
47
48 new vtk:Transform Box49
49
50 new creaMaracasVisu:DrawAxisTree3D Box50
51   set Box50.Colour "1 1 0"
52   set Box50.LineWidth "1"
53   set Box50.iAxis "11"
54
55 new std:MixingVectors Box51
56
57 new std:CreateArithmeticSuiteVector Box59
58   set Box59.Delta "0"
59   set Box59.FirstValue "1000"
60
61 new std:Mul Box62
62   set Box62.In2 "2"
63
64 new std:ConcatStrings Box58
65
66 new std:MagicBox Box61
67
68 new std:ConcatStrings Box63
69
70 new std:MagicBox Box64
71
72 new std:MagicBox Box65
73
74 new creaVtk:Actor Box30
75   set Box30.Active "true"
76   set Box30.Color "0 0 1"
77   set Box30.LineWidth "2"
78   set Box30.Opacity "1"
79
80 new creaVtk:Actor Box35
81   set Box35.Active "true"
82   set Box35.BoxProcessMode "Reactive"
83   set Box35.Color "0 0 1"
84   set Box35.LineWidth "2"
85   set Box35.Opacity "1"
86
87 new std:VectorFilterDouble Box40
88   set Box40.Type "8"
89
90 new std:ConcatStrings Box44
91
92 new std:MultipleInputs Box48
93
94 new creaMaracasVisu:DrawAxisTree3D Box54
95   set Box54.Colour "1 1 0"
96   set Box54.LineWidth "1"
97   set Box54.iAxis "12"
98
99 new std:MathOperationVector Box66
100   set Box66.Type "-17"
101
102 new std:GetVectorDoubleElement Box68
103   set Box68.I "0"
104
105 new std:CreateArithmeticSuiteVector Box71
106   set Box71.Delta "0"
107   set Box71.FirstValue "0"
108
109 new std:CreateArithmeticSuiteVector Box72
110   set Box72.Delta "0"
111   set Box72.FirstValue "0"
112
113 new std:MathOperationVector Box73
114   set Box73.Type "-16"
115
116 new std:GetVectorDoubleElement Box74
117   set Box74.I "0"
118
119 new std:CreateArithmeticSuiteVector Box76
120   set Box76.Delta "0"
121   set Box76.FirstValue "0"
122
123 new std:CreateArithmeticSuiteVector Box77
124   set Box77.Delta "0"
125   set Box77.FirstValue "0"
126
127 new std:GetVectorDoubleElement Box82
128   set Box82.I "1"
129
130 new std:GetVectorDoubleElement Box83
131   set Box83.I "1"
132
133 new std:Mul Box84
134   set Box84.In2 "-1"
135
136 new std:Add Box85
137
138 new std:Mul Box86
139   set Box86.In2 "-1"
140
141 new std:Add Box87
142
143 new std:Mul Box70
144   set Box70.In2 "2"
145
146
147 connect Box26.LstZ Box05.In0
148 connect Box32.Out Box33.In
149 connect Box33.Size Box47.In1
150 connect Box47.Out Box37.In
151 connect Box39.VectorSize Box38.Size
152 connect Box33.Spacing Box49.Scale
153 connect Box49.Out Box50.Transform
154 connect Box38.ArithmeticSuiteVector Box50.lstIndexs
155 connect Box31.Out Box50.lstPointY
156 connect Box59.ArithmeticSuiteVector Box50.lstPointX
157 connect Box39.VectorSize Box62.In1
158 connect Box62.Out Box59.Size
159 connect Box58.Out Box50.Opacity
160 connect Box61.BoxChange Box26.BoxExecute
161 connect Box63.Out Box26.FileNameRoi
162 connect Box64.Out Box50.Renderer
163 connect Box50.OutAxis Box30.In
164 connect Box05.Out0 Box40.In0
165 connect Box30.BoxChange Box48.In4
166 connect Box35.BoxChange Box48.In1
167 connect Box61.BoxChange Box48.BoxExecute
168 connect Box58.Out Box54.Opacity
169 connect Box65.Out Box54.Renderer
170 connect Box49.Out Box54.Transform
171 connect Box38.ArithmeticSuiteVector Box54.lstIndexs
172 connect Box45.Out Box54.lstPointX
173 connect Box31.Out Box54.lstPointY
174 connect Box46.ArithmeticSuiteVector Box54.lstPointZ
175 connect Box54.OutAxis Box35.In
176 connect Box44.Out Box54.iAxis
177 connect Box44.Out Box50.iAxis
178 connect Box40.Out0 Box39.In
179 connect Box40.Out0 Box31.In1
180 connect Box40.Out0 Box31.In2
181 connect Box26.LstX Box66.In0
182 connect Box26.LstY Box66.In1
183 connect Box66.Out Box68.In
184 connect Box51.Out Box50.lstPointZ
185 connect Box39.VectorSize Box71.Size
186 connect Box72.ArithmeticSuiteVector Box45.In2
187 connect Box68.Out Box72.FirstValue
188 connect Box39.VectorSize Box72.Size
189 connect Box26.LstX Box73.In0
190 connect Box26.LstY Box73.In1
191 connect Box73.Out Box74.In
192 connect Box76.ArithmeticSuiteVector Box45.In1
193 connect Box74.Out Box76.FirstValue
194 connect Box39.VectorSize Box76.Size
195 connect Box39.VectorSize Box77.Size
196 connect Box26.LstZ Box73.In2
197 connect Box26.LstZ Box66.In2
198 connect Box71.ArithmeticSuiteVector Box51.In2
199 connect Box77.ArithmeticSuiteVector Box51.In1
200 connect Box73.Out Box83.In
201 connect Box66.Out Box82.In
202 connect Box83.Out Box84.In1
203 connect Box84.Out Box85.In1
204 connect Box37.Out Box85.In2
205 connect Box85.Out Box71.FirstValue
206 connect Box86.Out Box87.In1
207 connect Box37.Out Box87.In2
208 connect Box87.Out Box77.FirstValue
209 connect Box82.Out Box86.In1
210 connect Box70.Out Box46.Size
211 connect Box39.VectorSize Box70.In1
212
213 # Complex input ports
214 input boxExecute Box61.BoxExecute " "
215 input NameFileContour Box63.In1 " "
216 input Image Box32.In " "
217 input RenderXY Box64.In " "
218 input RenderYZ Box65.In " "
219 input opacity Box58.In1 " "
220 input iaxis Box44.In1 " "
221
222 # Complex output ports
223 output boxChange Box48.BoxChange " "
224
225
226 endefine