PackRecalage/bbs/appli/ViewerMerge2D.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.Orientation "2"
 105   set viewer3.Slice "1"
 106
 107 #Boton that will set the points and angle
 108
 109 new CommandButton botonfinal
 110   set botonfinal.Label "Set Information"
 111   connect botonfinal.Widget buttonsLayout.Widget4
 112   connect botonfinal.BoxChange viewer3.BoxExecute
 113
 114 #Layout were the images and the buttones will be displayed
 115
 116 new LayoutSplit window1
 117   set window1.WinWidth "600"
 118   set window1.Proportion "80"
 119   set window1.Orientation V
 120   connect initialImages.Widget window1.Widget1
 121   connect buttonsLayout.Widget window1.Widget2
 122
 123 new LayoutSplit main
 124   set main.WinWidth "1200"
 125   set main.Proportion "100"
 126   set main.Orientation H
 127   connect window1.Widget main.Widget1
 128   connect viewer3.Widget main.Widget2
 129
 130 exec main