sasMacros.tcl

# $Id$ #

package require image
package require display
package require sas

namespace eval sas {
    proc drawCluster { img roi } {
  set x [::sas::SRoi_x_get $roi]
  set y [::sas::SRoi_y_get $roi]
  set w [::sas::SRoi_width_get $roi]
  set h [::sas::SRoi_height_get $roi]
  set a [::sas::SRoi_angle_get $roi]
  set a [expr [expr -$a * 3.141593] / 180]
  ::display::drawOrientedRectangle $img $y $x $h $w $a 1 red [list jafar clust]
    }
    
    proc drawClusters { img selec } {
  set nbRois [::sas::CSSelection_getNbSRoi $selec]
  for {set i 0} {$i < $nbRois} {incr i} {
      set roi [::sas::CSSelection_getSRoi $selec $i]
      ::sas::drawCluster $img $roi 
  }
    }

}

package provide sas 1.0