File Coverage

lib/Panotools/Script/Line/ControlMorph.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	23	24	95.8

package Panotools::Script::Line::ControlMorph;

use strict;
use warnings;
use Panotools::Script::Line;

use vars qw /@ISA/;
@ISA = qw /Panotools::Script::Line/;

=head1 NAME

Panotools::Script::Line::ControlMorph - Panotools morph control-point

=head1 SYNOPSIS

A single morph control-point forms a 'C' line

=head1 DESCRIPTION

Morphing of control point lines
One line per point
Created automatically by optimizer

  i0           image
  c0           control point
  x363.726     starting x point position
  y125.738     starting y point position
  X363.838     morphed x point position
  Y125.618     morphed y point position
  D12.34       control point error
  Dx7.89       control point error in horisontal direction
  Dy-9.49      control point error in vertical direction

  C i0 c0  x363.726 y125.738 X363.838 Y125.618  D12.34 Dx7.89 Dy-9.49

=cut

sub _defaults
{
    my $self = shift;
}

sub _valid { return '^([icxXyY]|D[xy]?)(.*)' }

sub Identifier
{
    my $self = shift;
    return "C";
}

1;