]> Creatis software - bbtk.git/blobdiff - packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs
#3107 BBTK Bug New Normal - branch vtk7itk4 compilation with vtk7
[bbtk.git] / packages / gdcmvtk / bbs / appli / exampleGetInfoGdcmReader.bbs
index 95636e925c4fc8dba169b9f0f08f47988fb4dcdb..3b3a4958bb2f2c4234818c99e0865c0eb38763cc 100644 (file)
@@ -1,31 +1,79 @@
+# ----------------------------------
+# - BBTKGEditor v 1.4 BBS BlackBox Script
+# - /tmpEED/creaTools2/creatools_source/bbtk/packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs
+# ----------------------------------
+
+# BBTK GEditor Script
+# ----------------------
+
+include std
+include itkvtk
+include wx
+include gdcmvtk
+include std
+include creaMaracasVisu
+
+author "Author ??"
+description "Description ??"
 category "example"
 
+new wx:FileSelector openFileDialog
+
+new gdcmvtk:GetInfoGdcmReader readerginf
+
+new std:Configuration Box02
+
+new std:ConcatStrings Box03
+  set Box03.In2 "/gdcmvtk/dicom01/466"
+
+new wx:OutputText Box04
+  set Box04.Title "IOP"
+
+new wx:LayoutLine Box05
+
+new wx:OutputText Box06
+  set Box06.Title "IPP"
+
+new wx:OutputText Box07
+  set Box07.Title "InterSlice"
+
+new wx:OutputText Box08
+  set Box08.Title "PixelSpacing"
+
+new creaMaracasVisu:ViewerNV Box09
+  set Box09.nTypeView "0"
+
+new wx:LayoutSplit Box11
+  set Box11.Orientation "H"
+
+
+connect Box02.DataPath Box03.In1
+
+connect Box03.Out readerginf.In
+
+connect readerginf.IOP Box04.In
+
+connect Box04.Widget Box05.Widget1
+
+connect readerginf.IPP Box06.In
+
+connect Box06.Widget Box05.Widget2
 
-load gdcmvtk
-load std
-load wx
+connect readerginf.InterSlice Box07.In
 
+connect Box07.Widget Box05.Widget3
 
-//message all 9
+connect readerginf.PixelSpacing Box08.In
 
-new FileSelector openFileDialog
-new GetInfoGdcmReader readerginf
-   connect openFileDialog.Out readerginf.In
-exec  readerginf  
-   
-// No adaptor
-//print $readerginf.Out$
+connect Box08.Widget Box05.Widget4
 
-print IOP
-print $readerginf.IOP$
+connect readerginf.Out Box09.In
 
-print IPP
-print $readerginf.IPP$
+connect Box05.Widget Box11.Widget1
 
-print PixelSpacing
-print $readerginf.PixelSpacing$
+connect Box09.Widget Box11.Widget2
 
-print InterSlice
-print $readerginf.InterSlice$
 
 
+# Complex input ports
+exec Box11