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 new Viewer2D viewer2d
  97   connect reslice1.Out viewer2d.In
  98   set viewer2d.Slice "1"
  99
 100 new ViewerNV viewer3
 101   connect reslice1.Out viewer3.In
 102   set viewer3.nTypeView "6"
 103   set viewer3.WinWidth "600"
 104
 105
 106
 107 #Multiple inputs for managing the interaction
 108
 109 new MultipleInputs mult
 110   connect slider.BoxChange mult.In1
 111   connect sliderX.BoxChange mult.In2
 112   connect sliderY.BoxChange mult.In3
 113   connect viewer1.BoxChange mult.In4
 114   connect viewer2.BoxChange mult.In5
 115   connect mult.BoxChange viewer3.BoxExecute
 116   connect mult.BoxChange viewer2d.BoxExecute
 117
 118 #new CommandButton botonfinal
 119   #set botonfinal.Label "Set Information"
 120   #connect botonfinal.Widget buttonsLayout.Widget4
 121   #connect botonfinal.BoxChange viewer3.BoxExecute
 122
 123 #Layout were the images and the buttones will be displayed
 124
 125 new LayoutSplit window1
 126   set window1.WinWidth "600"
 127   set window1.Proportion "80"
 128   set window1.Orientation V
 129   connect initialImages.Widget window1.Widget1
 130   connect buttonsLayout.Widget window1.Widget2
 131
 132 new LayoutSplit main
 133   set main.WinWidth "1200"
 134   set main.Proportion "50"
 135   set main.Orientation H
 136   connect window1.Widget main.Widget1
 137   connect viewer3.Widget main.Widget2
 138
 139 exec main