File Coverage

blib/lib/Image/Magick/Text/AutoBreak.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Image::Magick::Text::AutoBreak;
use warnings;
use strict;
use Carp;
use Image::Magick;
use Encode qw(decode);
our $VERSION = '0.02';

###  ---------------------------------------------------------------------------
### Constractor
###  ---------------------------------------------------------------------------
sub new {

    my $class = shift;
    my $self =
        bless {
            magick 				=> undef,
            charset 			=> 'utf8',
            ngCharaForHead 		=> undef,
            ngCharaForTail 		=> undef,
            ngCharaForSepa		=> undef,
            x               	=> 0,
            y               	=> 0,
            width           	=> undef,
            height          	=> undef,
            'line-spacing'  	=> 4,
            _plan           	=> [],
            _result 			=> undef,
            @_}, $class;

	if (! $self->{width}) {

		$self->{width} = $self->{magick}->Get('width') - $self->{x};
	}

	if (! $self->{height}) {

		$self->{height} = $self->{magick}->Get('height') - $self->{y};
	}

    return $self;
}

###  ---------------------------------------------------------------------------
### Prepare the plan for annotation
### This calls for same params as Image::Magick->Annotate
###  ---------------------------------------------------------------------------
sub prepare {

    my $self = shift;
    my %args = (
        text            => '',
        fill            => '#000000',
        pointsize       => 9,
        @_);

    $self->{_result} = {width => 0, height => 0};

    my $in_str =
        utf8::is_utf8($args{text})
            ? $args{text}
            : decode($self->{charset}, $args{text});

    my $y_pos = $self->{y};

    foreach my $line (split(/\r\n|\n|\r/, $args{text})) {

        if ($y_pos > $self->{y} + $self->{height}) {

            last;
        }

        if (! $line) {

            $y_pos += $args{pointsize} + $self->{'line-spacing'};
            next;
        }

        $y_pos =
            $self->_makePlan(
                %args,
                text    => $line,
                x       => $self->{x},
                y       => $y_pos + $self->{'line-spacing'}
            );
    }

    if ($y_pos > $self->{_result}->{height}) {

        $self->{_result}->{height} = $y_pos;
    }

    return $self->getResult();
}

###  ---------------------------------------------------------------------------
### make plan for annotation
### @return int height
###  ---------------------------------------------------------------------------
sub _makePlan {

    my $self = shift;
    my %args = (@_);

    $args{text} =~ s/^\s//;

    my @box;

	### set initial position to last length
    my $pos1 = ($args{_last_length} or 1);

	@box =
        $self->{magick}->QueryFontMetrics(
			%args, text => substr($args{text}, 0, $pos1)
		);

	### Set destination of search for horizontal limit
    my $increment = ($box[4] > $self->{width}) ? -1 : 1;

    ### Search for horizontal limit
    for (my $i = $pos1;
         $i > 0 and $i <= length($args{text});
         $i += $increment) {

        @box =
            $self->{magick}->QueryFontMetrics(
                %args,
                text => substr($args{text}, 0, $i),
            );

        if ($increment == 1 and $box[4] > $self->{width}) {

            last;
        }

        $pos1 = $i;

        if ($increment == -1 and $box[4] < $self->{width}) {

            last;
        }
    }

    if ($args{y} + $box[5] > $self->{y} + $self->{height}) {

        return $args{y};
    }

    ### word wrapping
    if ($pos1 < length($args{text})) {

        while ($pos1 > 1) {

            my $next = substr($args{text}, $pos1, 1);

            if ($next and $next =~ $self->{ngCharaForHead}) {

                $pos1--; next;
            }

            my $last = substr($args{text}, $pos1 - 1, 1);

            if ($last and $last =~ $self->{ngCharaForTail}) {

                $pos1--; next;
            }

            if ($last =~ $self->{'ngCharaForSepa'} and
                $next =~ $self->{'ngCharaForSepa'}) {

                $pos1--; next;
            }

            last;
        }

        @box =
            $self->{magick}->QueryFontMetrics(
                %args,
                text => substr($args{text}, 0, $pos1)
            );
    }

    ### Record result
    if ($box[4] > $self->{_result}->{width}) {

        $self->{_result}->{width} = $box[4];
    }

    $args{_last_length} = $pos1;

    push(@{$self->{_plan}},
        {
            %args,
            text    => substr($args{text}, 0, $pos1),
            y       => $args{y} + $box[5]
        }
    );

    ### Evaluate tail str
    if ($pos1 < length($args{text})) {

        return
            $self->_makePlan(
                %args,
                y       => $args{y} + $box[5] + $self->{'line-spacing'},
                text    => substr($args{text}, $pos1)
            );
    }

    ### Returns bottom position of written box
    return $args{y} + $args{pointsize};
}

### ----------------------------------------------------------------------------
### annotate
### This calls for same params as Image::Magick->Annotate
### ----------------------------------------------------------------------------
sub annotate {

    my $self = shift;
    my %args = (@_);

	for my $default_args (@{$self->{_plan}}) {

	    $self->{magick}->Annotate(%$default_args, %args);
	}

    return $self->getResult();
}
### ----------------------------------------------------------------------------
### get result
### @return int width or height
### ----------------------------------------------------------------------------
sub getResult {

    my $self = shift;

    if ($_[0]) {

        return $self->{_result}->{$_[0]};
    }

    return ($self->{_result}->{width}, $self->{_result}->{height});
}

1; # Magic true value required at end of module
__END__