packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /tmpEED/creaTools2/creatools_source/bbtk/packages/gdcmvtk/bbs/appli/exampleGetInfoGdcmReader.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wx
  12 include gdcmvtk
  13 include std
  14 include creaMaracasVisu
  15
  16 author "Author ??"
  17 description "Description ??"
  18 category "example"
  19
  20 new wx:FileSelector openFileDialog
  21
  22 new gdcmvtk:GetInfoGdcmReader readerginf
  23
  24 new std:Configuration Box02
  25
  26 new std:ConcatStrings Box03
  27   set Box03.In2 "/gdcmvtk/dicom01/466"
  28
  29 new wx:OutputText Box04
  30   set Box04.Title "IOP"
  31
  32 new wx:LayoutLine Box05
  33
  34 new wx:OutputText Box06
  35   set Box06.Title "IPP"
  36
  37 new wx:OutputText Box07
  38   set Box07.Title "InterSlice"
  39
  40 new wx:OutputText Box08
  41   set Box08.Title "PixelSpacing"
  42
  43 new creaMaracasVisu:ViewerNV Box09
  44   set Box09.nTypeView "0"
  45
  46 new wx:LayoutSplit Box11
  47   set Box11.Orientation "H"
  48
  49
  50 connect Box02.DataPath Box03.In1
  51
  52 connect Box03.Out readerginf.In
  53
  54 connect readerginf.IOP Box04.In
  55
  56 connect Box04.Widget Box05.Widget1
  57
  58 connect readerginf.IPP Box06.In
  59
  60 connect Box06.Widget Box05.Widget2
  61
  62 connect readerginf.InterSlice Box07.In
  63
  64 connect Box07.Widget Box05.Widget3
  65
  66 connect readerginf.PixelSpacing Box08.In
  67
  68 connect Box08.Widget Box05.Widget4
  69
  70 connect readerginf.Out Box09.In
  71
  72 connect Box05.Widget Box11.Widget1
  73
  74 connect Box09.Widget Box11.Widget2
  75
  76
  77
  78 # Complex input ports
  79 exec Box11