### ----------------------------------------------------
### -- PDF::Content
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/text-box-images.t
### ----------------------------------------------------
use v6;
use Test;
plan 3;
use lib 't';
use PDF::Grammar::Test :is-json-equiv;
use PDF::Content::Text::Box;
use PDF::Content::Font::CoreFont;
use PDF::Content::Page;
use PDF::Content::XObject;
use PDF::Content::Color :&color;
use PDFTiny;

sub draw-rect($gfx, @rect, :@color = (.5, .01, .01)) {
    $gfx.tag: 'Artifact', {
        @rect[2] -= @rect[0];
        @rect[3] -= @rect[1];
        $gfx.StrokeAlpha = .5;
        $gfx.StrokeColor = color @color;
        $gfx.paint: :stroke, { .Rectangle(|@rect); }
    }
}

my PDFTiny $pdf .= new;
my PDF::Content::Page $page = $pdf.add-page;

my PDF::Content::Font::CoreFont $font = $pdf.core-font( :family<helvetica>, :weight<bold> );
my $font-size = 16;
my PDF::Content::XObject $image .= open: "t/images/lightbulb.gif";

my $image-padded = $page.xobject-form(:BBox[0, 0, $image.width + 1, $image.height + 4]);
my @rect;
$image-padded.graphics: {
    @rect = .do($image, :position[1,0]);
}
is-deeply @rect, [1, 0, 1 + $image.width, $image.height], '$gfx.do returned rectangle';

my $text-box;

my (@rect2, @rect3);

$page.text: -> $gfx {
    my @chunks = PDF::Content::Text::Box.comb: 'I must go down to the seas';
    @chunks.append: ' ', 'aga','in';
    $gfx.TextMove(100, 540);
    $text-box = $gfx.text-box: :@chunks, :$font, :$font-size;
    @rect = $gfx.say($text-box);
    $text-box = $gfx.text-box: :@chunks, :$font, :$font-size, :width(220);
    @rect2 = $gfx.say($text-box);
    for @chunks.grep('the'|'aga') -> $source is rw {
        $source = $image-padded;
    }
    $text-box = $gfx.text-box: :@chunks, :$font, :$font-size, :width(220);
    @rect3 = $gfx.say($text-box).list;
    is-deeply [@rect3.map(*.round)], [100, 453, 320, 503], '$gfx.say returned rectangle';
    is-json-equiv [$text-box.images.map({[ .<Tx>, .<Ty> ]})], [
        [141.344, 0],
        [0.0, -25.3]
    ], 'images';
}

$text-box.place-images($page.gfx);

$page.graphics: -> $gfx {
    $gfx.&draw-rect(@rect);
    $gfx.&draw-rect(@rect2, :color[.2, .6, .2]);
    $gfx.&draw-rect(@rect3);
}

$page.graphics: -> $gfx {
    $gfx.HorizScaling = 120;
    my $text = q:to<END-QUOTE>.chomp;
    To be, or not to be, that is the question:
    Whether 'tis nobler in the mind to suffer
    The slings and arrows of outrageous fortune,
    Or to take Arms against a Sea of troubles,
    And by opposing end them: to die, to sleep
    No more; and by a sleep, to say we end
    the heart-ache, and the thousand natural shocks
    that Flesh is heir to? 'Tis a consummation
    devoutly to be wished.
    END-QUOTE

    my @chunks = PDF::Content::Text::Box.comb($text);
    for @chunks.grep('the') -> $source is rw {
        my $width = $font.stringwidth($source, $font-size);
        my $height = $font-size * 1.5;
        $source = $image-padded;
    }
    $text-box = $gfx.text-box( :@chunks, :$font, :$font-size, :width(250) );
    $page.text: {
        @rect = $gfx.print($text-box, :position[100, 400]);
    }
   draw-rect($gfx,@rect);

   @rect = $gfx.print($image, :position[100, 580]);
   draw-rect($gfx,@rect);
   @rect = $gfx.print($image, :position[125, 580]);
   draw-rect($gfx,@rect);
}

$text-box.place-images($page.gfx);

# ensure consistant document ID generation
$pdf.id = $*PROGRAM.basename.fmt('%-16.16s');

$pdf.save-as: "t/text-box-images.pdf";


