1 # ----------------------------------
2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
3 # - /home/davila/CreatisWorks/Transform3Ddicom/Transform3Ddicom/bbtk_Transform3Ddicom_PKG/bbs/boxes/SliceVectorImageDicom3D.bbs
4 # ----------------------------------
11 include Transform3Ddicom
13 include creaMaracasVisu
16 define SliceVectorImageDicom3D Transform3Ddicom
19 description "Description ??"
23 new creaImageIO:GetDicomAttributesFromMaps Box02
24 set Box02.KeyDicom "D0020_0032"
26 new std:GetVectorStringElement Box04
27 set Box04.ErrorValue "1000 1000 1000 "
29 new creaImageIO:GetDicomAttributesFromMaps Box09
30 set Box09.KeyDicom "D0020_0037"
32 new std:GetVectorStringElement Box10
33 set Box10.ErrorValue "1 0 0 0 0 1"
35 new vtk:GetVectorVtkImageDataElement Box12
37 new Transform3Ddicom:ImageActorDicom Box14
38 set Box14.IPP "-143.58 -59.34 -24.34"
39 set Box14.OPP "0.97 -0.19 -0.11 0.21 0.68 0.69"
40 set Box14.PixelSpacing "1 1 1"
43 new vtk:ImageVtkProperties Box15
45 new std:ReplaceString Box16
49 new std:ReplaceString Box17
53 new std:MagicBox Box19
55 new std:MagicBox Box20
57 new std:MagicBox Box21
59 new std:MagicBox Box22
61 new wx:LayoutTab Box23
63 new creaMaracasVisu:ViewerNV Box24
64 set Box24.nTypeView "-1"
66 new toolsbbtk:ImageVtkPropertiesWidget Box25
68 new wx:LayoutLine Box26
69 set Box26.WinTitle "DicomInfo"
71 new wx:OutputText Box28
72 set Box28.Title "Orientation"
74 new wx:OutputText Box29
75 set Box29.Title "Spacing"
77 new std:MagicBox Box30
79 new std:ConcatStrings Box31
80 set Box31.In2 " 1.17188"
82 new vtk:RescaleSlopeIntercept Box35
85 new creaImageIO:GetDicomAttributesFromMaps Box36
86 set Box36.KeyDicom "D0018_1060"
88 new std:GetVectorStringElement Box37
89 set Box37.ErrorValue "1000 1000 1000 "
91 new wx:OutputText Box38
92 set Box38.Title "Trigger Time"
94 new creaImageIO:GetDicomAttributesFromMaps Box39
95 set Box39.KeyDicom "D0020_1041"
97 new std:GetVectorStringElement Box40
98 set Box40.ErrorValue "-9999"
100 new wx:OutputText Box41
101 set Box41.Title "Slice Location"
103 new std:MagicBox Box42
105 new wx:LayoutLine Box43
106 set Box43.WinTitle "Image"
108 new std:MathOperationVector Box45
111 new wx:OutputText Box46
112 set Box46.Title "Position"
114 new std:ConcatStrings Box47
116 new std:MathOperationVector Box49
118 new std:ConcatStrings Box51
120 new wx:OutputText Box52
121 set Box52.Title "Position Correction"
124 connect Box02.Out Box04.In
125 connect Box09.Out Box10.In
126 connect Box12.Out Box15.In
127 connect Box04.Out Box16.In
128 connect Box10.Out Box17.In
129 connect Box17.Out Box14.OPP
130 connect Box19.Out Box12.In
131 connect Box20.Out Box14.Renderer
132 connect Box21.Out Box02.In
133 connect Box21.Out Box09.In
134 connect Box22.Out Box04.I
135 connect Box22.Out Box10.I
136 connect Box22.Out Box12.I
137 connect Box12.Out Box24.In
138 connect Box25.widget Box23.Widget2
139 connect Box12.Out Box25.in
140 connect Box26.Widget Box23.Widget3
141 connect Box30.Out Box14.boxexecute
142 connect Box30.Out Box28.BoxExecute
143 connect Box30.Out Box29.BoxExecute
144 connect Box17.Out Box28.In
145 connect Box15.Spacing Box31.In1
146 connect Box31.Out Box29.In
147 connect Box30.Out Box24.BoxExecute
148 connect Box12.Out Box35.In
149 connect Box35.Out Box14.Image
150 connect Box36.Out Box37.In
151 connect Box21.Out Box36.In
152 connect Box37.Out Box38.In
153 connect Box30.Out Box38.BoxExecute
154 connect Box22.Out Box37.I
155 connect Box39.Out Box40.In
156 connect Box21.Out Box39.In
157 connect Box22.Out Box40.I
158 connect Box40.Out Box41.In
159 connect Box14.widget Box23.Widget4
160 connect Box42.Out Box14.opacity
161 connect Box24.Widget Box43.Widget1
162 connect Box43.Widget Box23.Widget1
163 connect Box45.Out Box14.IPP
164 connect Box16.Out Box46.In
165 connect Box46.Widget Box26.Widget1
166 connect Box30.Out Box46.BoxExecute
167 connect Box47.Out Box45.In1
168 connect Box16.Out Box51.In1
169 connect Box51.Out Box45.In0
170 connect Box47.Out Box52.In
171 connect Box38.Widget Box26.Widget8
172 connect Box29.Widget Box26.Widget6
173 connect Box28.Widget Box26.Widget4
174 connect Box52.Widget Box26.Widget2
175 connect Box30.Out Box52.BoxExecute
177 # Complex input ports
178 input VecImage Box19.In " "
179 input render Box20.In " "
180 input VecDicomMap Box21.In " "
181 input indexZ Box22.In " "
182 input boxExecute Box30.In " "
183 input OpacityPlane Box42.In " "
184 input IPP_Correction Box47.In1 " "
186 # Complex output ports
187 output image Box12.Out " "
188 output _widget Box23.Widget " "
189 output OutTransform Box14.outTransform " "
190 output renderer Box24.Renderer1 " "