Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Features	[ DIR ]	drwxr-xr-x
Kern	[ DIR ]	drwxr-xr-x
Mort	[ DIR ]	drwxr-xr-x
Woff	[ DIR ]	drwxr-xr-x
AATKern.pm	2.89 KB	-rw-r--r--
AATutils.pm	23.07 KB	-rw-r--r--
Anchor.pm	4.8 KB	-rw-r--r--
Bsln.pm	3.72 KB	-rw-r--r--
Changes_old.txt	2.17 KB	-rw-r--r--
Cmap.pm	23.91 KB	-rw-r--r--
Coverage.pm	8.38 KB	-rw-r--r--
Cvt_.pm	1.4 KB	-rw-r--r--
DSIG.pm	1.97 KB	-rw-r--r--
Delta.pm	3.39 KB	-rw-r--r--
Dumper.pm	2.56 KB	-rw-r--r--
EBDT.pm	7.16 KB	-rw-r--r--
EBLC.pm	6.3 KB	-rw-r--r--
Fdsc.pm	2.18 KB	-rw-r--r--
Feat.pm	4.44 KB	-rw-r--r--
Fmtx.pm	1.96 KB	-rw-r--r--
Font.pm	29.07 KB	-rw-r--r--
Fpgm.pm	1.66 KB	-rw-r--r--
GDEF.pm	13.64 KB	-rw-r--r--
GPOS.pm	20.74 KB	-rw-r--r--
GSUB.pm	8.64 KB	-rw-r--r--
Glat.pm	3.42 KB	-rw-r--r--
Gloc.pm	2.56 KB	-rw-r--r--
Glyf.pm	3.68 KB	-rw-r--r--
Glyph.pm	25.25 KB	-rw-r--r--
GrFeat.pm	8.33 KB	-rw-r--r--
Hdmx.pm	3.12 KB	-rw-r--r--
Head.pm	5.84 KB	-rw-r--r--
Hhea.pm	3.54 KB	-rw-r--r--
Hmtx.pm	4.61 KB	-rw-r--r--
Kern.pm	8.5 KB	-rw-r--r--
LTSH.pm	1.67 KB	-rw-r--r--
Loca.pm	4.72 KB	-rw-r--r--
Manual.pod	8.96 KB	-rw-r--r--
Maxp.pm	4.17 KB	-rw-r--r--
Mort.pm	2.1 KB	-rw-r--r--
Name.pm	27.78 KB	-rw-r--r--
OS_2.pm	38.07 KB	-rw-r--r--
OTTags.pm	42.94 KB	-rw-r--r--
OldCmap.pm	9.66 KB	-rw-r--r--
OldMort.pm	25.53 KB	-rw-r--r--
PCLT.pm	2.49 KB	-rw-r--r--
PSNames.pm	132.77 KB	-rw-r--r--
Post.pm	9.53 KB	-rw-r--r--
Prep.pm	1.61 KB	-rw-r--r--
Prop.pm	3.47 KB	-rw-r--r--
Segarr.pm	9.53 KB	-rw-r--r--
Silf.pm	28.24 KB	-rw-r--r--
Sill.pm	3.2 KB	-rw-r--r--
Table.pm	11.15 KB	-rw-r--r--
Ttc.pm	3.87 KB	-rw-r--r--
Ttopen.pm	44.24 KB	-rw-r--r--
Useall.pm	2.16 KB	-rw-r--r--
Utils.pm	18.51 KB	-rw-r--r--
Vhea.pm	3.57 KB	-rw-r--r--
Vmtx.pm	1.66 KB	-rw-r--r--
Win32.pm	1.08 KB	-rw-r--r--
Woff.pm	1.09 KB	-rw-r--r--
XMLparse.pm	5.49 KB	-rw-r--r--

Code Editor : Anchor.pm

package Font::TTF::Anchor;

=head1 NAME

Font::TTF::Anchor - Anchor points for GPOS tables

=head1 DESCRIPTION

The Anchor defines an anchor point on a glyph providing various information
depending on how much is available, including such information as the co-ordinates,
a curve point and even device specific modifiers.

=head1 INSTANCE VARIABLES

=over 4

=item x

XCoordinate of the anchor point

=item y

YCoordinate of the anchor point

=item p

Curve point on the glyph to use as the anchor point

=item xdev

Device table (delta) for the xcoordinate

=item ydev

Device table (delta) for the ycoordinate

=item xid

XIdAnchor for multiple master horizontal metric id

=item yid

YIdAnchor for multiple master vertical metric id

=back

=head1 METHODS

=cut

use strict;
use Font::TTF::Utils;

=head2 new

Creates a new Anchor

=cut

sub new
{
    my ($class) = shift;
    my ($self) = {@_};

bless $self, $class;
}

=head2 read($fh)

Reads the anchor from the given file handle at that point. The file handle is left
at an arbitrary read point, usually the end of something!

=cut

sub read
{
    my ($self, $fh) = @_;
    my ($dat, $loc, $fmt, $p, $xoff, $yoff);

$fh->read($dat, 6);
    $fmt = unpack('n', $dat);
    if ($fmt == 4)
    { ($self->{'xid'}, $self->{'yid'}) = TTF_Unpack('S2', substr($dat,2)); }
    else
    { ($self->{'x'}, $self->{'y'}) = TTF_Unpack('s2', substr($dat,2)); }

if ($fmt == 2)
    {
        $fh->read($dat, 2);
        $self->{'p'} = unpack('n', $dat);
    } elsif ($fmt == 3)
    {
        $fh->read($dat, 4);
        ($xoff, $yoff) = unpack('n2', $dat);
        $loc = $fh->tell() - 10;
        if ($xoff)
        {
            $fh->seek($loc + $xoff, 0);
            $self->{'xdev'} = Font::TTF::Delta->new->read($fh);
        }
        if ($yoff)
        {
            $fh->seek($loc + $yoff, 0);
            $self->{'ydev'} = Font::TTF::Delta->new->read($fh);
        }
    }
    $self;
}

=head2 out($fh, $style)

Outputs the Anchor to the given file handle at this point also addressing issues
of deltas. If $style is set, then no output is sent to the file handle. The return
value is the output string.

=cut

sub out
{
    my ($self, $fh, $style) = @_;
    my ($xoff, $yoff, $fmt, $out);

if (defined $self->{'xid'} || defined $self->{'yid'})
    { $out = TTF_Pack('SSS', 4, $self->{'xid'}, $self->{'yid'}); }
    elsif (defined $self->{'p'})
    { $out = TTF_Pack('Ssss', 2, @{$self}{'x', 'y', 'p'}); }
    elsif (defined $self->{'xdev'} || defined $self->{'ydev'})
    {
        $out = TTF_Pack('Sss', 3, @{$self}{'x', 'y'});
        if (defined $self->{'xdev'})
        {
            $out .= pack('n2', 10, 0);
            $out .= $self->{'xdev'}->out($fh, 1);
            $yoff = length($out) - 10;
        }
        else
        { $out .= pack('n2', 0, 0); }
        if (defined $self->{'ydev'})
        {
            $yoff = 10 unless $yoff;
            substr($out, 8, 2) = pack('n', $yoff);
            $out .= $self->{'ydev'}->out($fh, 1);
        }
    } else
    { $out = TTF_Pack('Sss', 1, @{$self}{'x', 'y'}); }
    $fh->print($out) unless $style;
    $out;
}

sub signature
{
    my ($self) = @_;
    return join (",", map {"${_}=$self->{$_}"} qw(x y p xdev ydev xid yid));
}

=head2 $a->out_xml($context)

Outputs the anchor in XML

=cut

sub out_xml
{
    my ($self, $context, $depth) = @_;
    my ($fh) = $context->{'fh'};
    my ($end);
    
    $fh->print("$depth<anchor x='$self->{'x'}' y='$self->{'y'}'");
    $fh->print(" p='$self->{'p'}'") if defined ($self->{'p'});
    $end = (defined $self->{'xdev'} || defined $self->{'ydev'} || defined $self->{'xid'} || defined $self->{'yid'});
    unless ($end)
    {
        $fh->print("/>\n");
        return $self;
    }

if (defined $self->{'xdev'})
    {
        $fh->print("$depth$context->{'indent'}<xdev>\n");
        $self->{'xdev'}->out_xml($context, $depth . ($context->{'indent'} x 2));
        $fh->print("$depth$context->{'indent'}</xdev>\n");
    }
    
    if (defined $self->{'ydev'})
    {
        $fh->print("$depth$context->{'indent'}<ydev>\n");
        $self->{'ydev'}->out_xml($context, $depth . ($context->{'indent'} x 2));
        $fh->print("$depth$context->{'indent'}</ydev>\n");
    }
    
    if (defined $self->{'xid'} || defined $self->{'yid'})
    {
        $fh->print("$depth$context->{'indent'}<mmaster");
        $fh->print(" xid='$self->{'xid'}'") if defined ($self->{'xid'});
        $fh->print(" yid='$self->{'yid'}'") if defined ($self->{'yid'});
        $fh->print("/>\n");
    }
    $fh->print("$depth</anchor>\n");
    $self;
}

=head1 AUTHOR

Martin Hosken L<http://scripts.sil.org/FontUtils>.

=head1 LICENSING

This module is released under the terms of the Artistic License 2.0. 
For details, see the full text of the license in the file LICENSE.

=cut

${this.title}

Code Editor : Anchor.pm