view release on metacpan or  search on metacpan

bin/MorphometryI  view on Meta::CPAN

         $canvas-> color( $w-> {ini}-> {$w->{setColors}->[$i]});
         my $j;
         my $lastLW = 0;
         for ( $j = 0; $j < @$wwl; $j++) {
            my @x = map { $_ * $z } @{$$wwl[$j]};
            $canvas-> lineWidth( $$wwlw[$j] * $z), $lastLW = $$wwlw[$j] if $lastLW != $$wwlw[$j];
            $canvas-> polyline( \@x);
         }
      }
   }
   $wl = $w-> {points};
   if ( defined $wl) {
      my $i;
      $canvas-> color( $w->{pointColor});
      for ( $i = 0; $i < scalar @$wl; $i+=2) {
         my ( $x, $y) = @$wl[ $i, $i+1];
         $canvas-> fill_ellipse( $x * $z, $y * $z, $p, $p);
      }
   }
   $wl = $w-> {extraPoints};
   if ( defined $wl) {
      my $i;
      $canvas-> color( $w->{pointColor});
      $canvas-> lineWidth( $z);
      for ( $i = 0; $i < scalar @$wl; $i+=2) {
         my ( $x, $y) = @$wl[ $i, $i+1];
         $canvas-> line( $x * $z - $p, $y * $z - $p, $x * $z + $p, $y * $z + $p);
         $canvas-> line( $x * $z + $p, $y * $z - $p, $x * $z - $p, $y * $z + $p);
      }
   }
}

sub iv_cancelmode
{
   my ( $w, $self) = @_;
   my $t = $self->{transaction};
   $w-> SUPER::iv_cancelmode( $self);
   $w-> pt_close() if $t;
}

sub iv_togglemode
{
   my ( $w, $self) = @_;
   return if !$ImageApp::testing and !defined $self-> image;
   $w-> iv_cancelmode( $self);
   $self-> {drawmode} = defined $self-> {drawmode} ? undef : 1;
   $w-> ToolBar-> Contours-> checked( defined $self-> {drawmode});
   $w-> sb_text( defined $self-> {drawmode} ? "Drawing mode on - Esc or right button to cancel" : "Reference point mode on");
}

# IV_END

package PropRollup;
use vars qw(@ISA);
@ISA = qw(Prima::Dialog);

sub profile_default
{
   my $def = $_[ 0]-> SUPER::profile_default;
   my %prf = (
       borderIcons => bi::SystemMenu | bi::TitleBar,
       width => 207,
       height => 306,
       sizeDontCare => 0,

       text => 'Parameters',
       visible => 0,
   );
   @$def{keys %prf} = values %prf;
   return $def;
}

sub init
{
   my $self = shift;
   my %profile = $self-> SUPER::init(@_);

   my $image = Prima::Icon->create( width=>16, height=>16, type => im::bpp1,
     palette => [ 0,0,0,0,0,0],
     data =>
     "\x01\x00\x00\x00A\x08\x00\x00\!\x10\x00\x00\x10 \x00\x00\x07\xc0\x00\x00".
     "\x080\x00\x001\x88\x00\x00C\xc0\x00\x00\x03\xc4\x00\x00\!\x88\x00\x00".
     "\x18p\x00\x00\x07\x80\x00\x00\x10\x10\x00\x00\!\x08\x00\x00A\x04\x00\x00".
     "\x01\x00\x00\x00".
   '');

   my $w = $self-> owner;

   my $i = $w-> IV-> image;
   my @sz = defined $i ? $i-> size : (0,0);
   my $canApply = defined $i && $i-> type == im::Byte;

   $self-> insert(
     [ Label =>
       origin => [ 5, 280],
       name => 'UF',
       size => [ 148, 20],
       text => 'Union ~find threshold',
   ],[ SpinEdit =>
       origin => [ 5, 255],
       name => 'Union',
       size => [ 148, 20],
       min => 1,
       value => $w-> {ini}-> {UFThreshold},
       max => 255,
   ],[ Label =>
       origin => [ 5, 230],
       name => 'BT',
       size => [ 148, 20],
       text => '~Binary threshold',
   ],[ SpinEdit =>
       origin => [ 5, 205],
       name => 'Binary',
       size => [ 148, 20],
       min => 0,
       value => $w-> {ini}-> {BinThreshold},
       max => 255,
   ],[ Label =>
       origin => [ 5, 180],
       name => 'ES',
       size => [ 148, 20],