X-Git-Url: https://git.mdrn.pl/librarian.git/blobdiff_plain/e316fc14bef26f958937aec0e6854b61f71a3b34..09dded3d8606e8e4406fffcf477ceb4a1c97fee2:/font-optimizer/ext/Font-TTF/lib/Font/TTF/Anchor.pm?ds=sidebyside

diff --git a/font-optimizer/ext/Font-TTF/lib/Font/TTF/Anchor.pm b/font-optimizer/ext/Font-TTF/lib/Font/TTF/Anchor.pm
deleted file mode 100644
index b901e83..0000000
--- a/font-optimizer/ext/Font-TTF/lib/Font/TTF/Anchor.pm
+++ /dev/null
@@ -1,216 +0,0 @@
-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 Martin_Hosken@sil.org. See L<Font::TTF::Font> for copyright and
-licensing.
-
-=cut
-
-1;
-