para

#| A single line of a text box
unit class PDF::Content::Text::Line;



head

This class represents a single line of output in a L<PDF::Content::Text::Box>.



use PDF::Content::Ops :OpCode;
use Method::Also;

has Str @.decoded;
has List @.encoded;
has Numeric $.height is rw is required;
has Numeric $.word-width is rw = 0;
has Numeric $.word-gap is rw = 0;
has Numeric $.indent is rw = 0;
has Numeric $.align = 0;
has Numeric @.spaces;

method content-width returns Numeric {
    $!indent  +  $!word-width  +  @!spaces.sum * $!word-gap;
}

multi method align('justify', Numeric:D :$width!, Numeric:D :$max-word-gap! ) {
    my Numeric \content-width = $.content-width;
    my Numeric \wb = +@!spaces.sum;

    if content-width && wb && $width >= content-width {
        given $!word-gap + ($width - content-width) / wb {
            $!word-gap = $_
                unless $_ > $max-word-gap;
        }
        $!align = 0;
    }
}

multi method align('left') {
    $!align = 0;
}

multi method align('right') {
    $!align = - $.content-width;
}

multi method align('center') {
    $!align = - $.content-width  /  2;
}

multi method align { $!align }

sub coalesce(@line is raw) {
    my @l;
    my $prev;
    for @line {
        if $_ ~~ Str && $prev ~~ Str {
            @l.tail ~= $_;
        }
        else {
            @l.push: $_;
            $prev := $_;
        }
    }
    @l;
}

multi sub render2D(@atoms, :$scale, :$TextRise!) {
    my @segs;
    my Array $chunk = [];
    my Int $y = 0;
    my $text-rise = $TextRise;

    for @atoms {
        if .isa(Complex) {
            my $new-rise = $TextRise + .im.round / $scale;
            unless $new-rise =~= $text-rise {
                $text-rise := $new-rise;
                @segs.push: render(@$chunk) if @$chunk;
                @segs.push: 'Ts' => [$text-rise];
                $chunk = [];
            }
            $_ .= re;
        }
        $chunk.push: $_ if $_;
    }

    @segs.push: render(@$chunk) if @$chunk;

    if ($text-rise !=~= $TextRise) {
        # restore
        @segs.push: 'Ts' => [$TextRise];
    }

    @segs.Slip;
}

multi sub render(@atoms where .elems == 1 && .head.isa(Str)) {
    (OpCode::ShowText) => [@atoms.head,];
}

multi sub render(@atoms) {
    (OpCode::ShowSpaceText) => [@atoms,];
}

method content(:$font!, Numeric :$font-size!, :$space-pad = 0, :$TextRise = 0.0) {
    my Numeric $scale = -1000 / $font-size;
    my subset Atom where Str|Numeric;
    my Atom @line;
    constant Space = ' ';
    my int $wc = 0;

    if $!align + $!indent -> $indent {
        @line.push: ($indent * $scale).round.Int;
    }

    # flatten words. insert spaces and space adjustments.
    # Ensure we add spaces - as recommended in [PDF-32000 14.8.2.5 - Identifying Word Breaks]
    for ^+@!encoded -> $i {
        if @!spaces[$i] -> $spaces {
            my UInt $whole-spaces = $spaces.floor || 1;
            my $part-spaces = $spaces - $whole-spaces;
            @line.push: $font.encode(Space x $whole-spaces);
            my Int $pad = round($space-pad * $spaces + -1000 * $part-spaces * $!word-gap / $font-size);
            @line.push: $pad
                if $pad;
        }
        @line.append: @!encoded[$i].list;
    }
    @line .= &coalesce;

    @line.first(Complex)
    ?? render2D(@line, :$scale, :$TextRise)
    !! render(@line);
}

method text is also<Str> {
    join '', @!decoded.kv.map: -> $i, $w {
        (' ' x @!spaces[$i].round) ~ $w
    }
}



root

Content

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Line

Description

Methods

method text

method decoded

method encoded

method height

method word-gap

method indent

method align

method content-width

PDF::Content v0.9.11

Authors

License

Dependencies

Test Dependencies

Provides

Documentation