Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / Font.pm

package Pastel::Font;\r
@ISA = qw (Pastel::Mixin::Mixin);\r
use Pastel::Mixin::Mixin;\r
use Carp;\r
use strict;\r
\r
my $font_parser;\r
\r
{\r
    my $id;\r
    sub _id { return $id++;}\r
}\r
\r
sub new {\r
    my $class = shift;\r
    my $self = {};\r
    bless $self, ref($class) || $class;\r
    $self->_init(@_);\r
    return $self;\r
}\r
\r
sub _init {\r
     my ($self, @args) = @_;\r
     my ($family, $style, $size) = $self->_rearrange(["FAMILY","STYLE","SIZE"],\r
						   @args );\r
     if ( defined ( $family) ){\r
	 $self->{"family"} = $family;\r
     }\r
\r
     if ( defined( $style ) ){\r
	 if( ($style =~ /^bold$/i) || ($style =~ /^italic$/i) ||\r
	     ($style =~ /^bolditalic$/i) || ($style =~ /^plain$/i)|| ($style =~ /^regular$/i) ){\r
	     $self->{"style"} = $style;\r
	 }\r
	 else {\r
	     croak "Illegal style parameter in Pastel::Font\n";\r
	 }\r
     } else {\r
	 $self->{"style"} = "REGULAR";\r
     }\r
\r
     if ( defined( $size ) ){\r
	 $self->{"size"} = $size;\r
     } else {\r
	 $self->{"size"} = 10;\r
     }\r
     \r
     $self->{"id"} = $self->_id()  ;\r
     return $self;\r
}\r
\r
sub get_id {\r
    return $_[0]->{"id"};\r
}\r
\r
sub get_family {\r
    return $_[0]->{"family"};\r
}\r
\r
sub get_style {\r
    return $_[0]->{"style"};\r
}\r
\r
sub get_size {\r
    return $_[0]->{"size"};\r
}\r
\r
sub get_svg_string {\r
    my $self = shift;\r
    my $s = "";\r
    $s .= "font-family:".$self->get_family()."; "; \r
    $s .= "font-size:".$self->get_size()."pt;";\r
    if( $self->{"style"} =~ /^bold$/i ){\r
      $s .= "font-weight:bold;";\r
    }\r
    if( $self->{"style"} eq "bolditalic"){\r
	$s .= 'font-style:italic;font-weight:bold';\r
    }\r
    if( $self->{"style"} eq "italic"){\r
	$s .= 'font-style:italic';\r
    }\r
    return $s;\r
}\r
\r
sub _fontify {\r
    my $self = shift;\r
    my $string_object = shift;\r
    $string_object->{"font"} = $self;\r
    return $string_object;\r
}\r
\r
sub create_from_file {\r
  my ($self, @args) = @_;\r
  #my $font_parser;\r
  my ($filename, $type) = $self->_rearrange( ["FILE","TYPE"], @args );\r
  \r
  if ( defined ($type) ){\r
\r
    if ($type =~ /^TTF$/i ){\r
     # $self->{"type"} = "TTF";\r
      $font_parser = Pastel::Font::TTF->create_from_file($filename);\r
      #print "Font created\n";\r
      return $self->new($font_parser->get_font_family(),$font_parser->get_subfamily());\r
      \r
    }\r
\r
  } else {\r
    croak 'Error: Argument missing in Pastel::Font::create_from file()', "\n";\r
  }\r
\r
}\r
1;\r
\r