PackRecalage/bbs/appli/ViewerMerge2DInteractive.bbs

   1 load wx
   2 load std
   3 load vtk
   4 load wxvtk
   5 load creaMaracasVisu
   6
   7 load PackRecalage
   8
   9 include vtk/boxes/bbLoadHola
  10 new LoadHola image
  11
  12 #Viewer containing image 1
  13
  14 new LayoutLine v1Layout
  15 new ViewerNV viewer1
  16 connect image.Out viewer1.In
  17 set viewer1.nTypeView "0"
  18 connect viewer1.Widget v1Layout.Widget1
  19
  20
  21 #Viewer containing image 2
  22
  23 new LayoutLine v2Layout
  24 new ViewerNV viewer2
  25 connect image.Out viewer2.In
  26 set viewer2.nTypeView "0"
  27 connect viewer2.Widget v2Layout.Widget1
  28
  29 #LayoutSplit were the images will be
  30
  31 new LayoutSplit initialImages
  32 set initialImages.Proportion "50"
  33 set initialImages.Orientation H
  34 connect v1Layout.Widget initialImages.Widget1
  35 connect v2Layout.Widget initialImages.Widget2
  36
  37 #Layout line that will contain the buttons
  38
  39 new LayoutLine buttonsLayout
  40   set buttonsLayout.Orientation V
  41
  42 #Slider were the angle will be entered
  43
  44 new Slider slider
  45   set slider.Title "Angle"
  46   set slider.In 0
  47   set slider.Min 0
  48   set slider.Max 360
  49   set slider.ReactiveOnTrack "1"
  50   connect slider.Widget buttonsLayout.Widget1
  51
  52
  53
  54 #Slider were the xScale will be entered
  55
  56 new Slider sliderX
  57   set sliderX.Title "% Scale in X"
  58   set sliderX.In 100
  59   set sliderX.Min 10
  60   set sliderX.Max 500
  61   set sliderX.ReactiveOnTrack "1"
  62   connect sliderX.Widget buttonsLayout.Widget2
  63
  64
  65
  66 #Slider were the yScale will be entered
  67
  68 new Slider sliderY
  69   set sliderY.Title "% Scale in Y"
  70   set sliderY.In 100
  71   set sliderY.Min 10
  72   set sliderY.Max 500
  73   set sliderY.ReactiveOnTrack "1"
  74   connect sliderY.Widget buttonsLayout.Widget3
  75
  76
  77 #Box were the transformation will be made
  78
  79 new Transform2DBox transform
  80   connect viewer2.Point transform.CenterPoint
  81   connect slider.Out transform.Angle
  82   connect sliderX.Out transform.ScaleX
  83   connect sliderY.Out transform.ScaleY
  84
  85
  86
  87 new ReSlicerBox reslice1
  88   connect viewer1.Point reslice1.Origin
  89   connect transform.Out reslice1.Transform
  90   connect image.Out reslice1.In
  91
  92 new SliceImage slice1
  93    connect reslice1.Out slice1.In
  94    set slice1.Z "1"
  95
  96
  97 #new ViewerNV viewer3
  98   #connect reslice1.Out viewer3.In
  99   #set viewer3.nTypeView "6"
 100   #set viewer3.WinWidth "600"
 101
 102 new Viewer2D viewer3
 103   connect reslice1.Out viewer3.In
 104   set viewer3.Slice "1"
 105
 106 #Multiple inputs for managing the interaction
 107
 108 new MultipleInputs mult
 109   connect slider.BoxChange mult.In1
 110   connect sliderX.BoxChange mult.In2
 111   connect sliderY.BoxChange mult.In3
 112   connect viewer1.BoxChange mult.In4
 113   connect viewer2.BoxChange mult.In5
 114   connect mult.BoxChange viewer3.BoxExecute
 115
 116 #new CommandButton botonfinal
 117   #set botonfinal.Label "Set Information"
 118   #connect botonfinal.Widget buttonsLayout.Widget4
 119   #connect botonfinal.BoxChange viewer3.BoxExecute
 120
 121 #Layout were the images and the buttones will be displayed
 122
 123 new LayoutSplit window1
 124   set window1.WinWidth "600"
 125   set window1.Proportion "80"
 126   set window1.Orientation V
 127   connect initialImages.Widget window1.Widget1
 128   connect buttonsLayout.Widget window1.Widget2
 129
 130 new LayoutSplit main
 131   set main.WinWidth "1200"
 132   set main.Proportion "100"
 133   set main.Orientation H
 134   connect window1.Widget main.Widget1
 135   connect viewer3.Widget main.Widget2
 136
 137 exec main