Skip site navigation (1)Skip section navigation (2)

FreeBSD Manual Pages

  
 
  

home | help
SWF::Element(3)	      User Contributed Perl Documentation      SWF::Element(3)

sub _unpack_JPEG {
    my ($self, $stream,	$len) =	@_;
    my ($data1,	$data2);

	   while (!$data2 and $len > 0)	{
	       my $size	= ($len	> 1000)	? 1000 : $len;
	       $data1 =	$stream->get_string($size);
	       $len -= $size;
	       if ($data1 =~/\xff$/ and	$len>0)	{
		   $data1 .= $stream->get_string(1);
		   $len--;
	       }
	       ($data1,	$data2)	= split	/\xff\xd9/, $data1;
	       $self->BitmapJPEGEncoding->add($data1);
	   }
	   $self->BitmapJPEGEncoding->add("\xff\xd9");

	   $self->BitmapJPEGImage($data2);
	   while ($len > 0) {
	       my $size	= ($len	> 1000)	? 1000 : $len;
	       $data1 =	$stream->get_string($size);
	       $len -= $size;
	       $self->BitmapJPEGImage->add($data1);
	   }
       }

       sub unpack {
	   my ($self, $stream, $flags)=@_;

	   $self->FontID   ->unpack($stream)	if ($flags & 8);
	   $self->TextColor->unpack($stream)	if ($flags & 4);
	   $self->XOffset($stream->get_SI16)	if ($flags & 1);
	   $self->YOffset($stream->get_SI16)	if ($flags & 2);
	   $self->TextHeight($stream->get_UI16)	if ($flags & 8);
       }

NAME
       SWF::Element - Classes of SWF tags and elements.	 See Element.pod for
       further information.

COPYRIGHT
       Copyright 2000 Yasuhiro Sasama (ySas), <ysas@nmt.ne.jp>

       This library is free software; you can redistribute it and/or modify it
       under the same terms as Perl itself.

perl v5.32.0			  2020-08-08		       SWF::Element(3)

NAME | COPYRIGHT

Want to link to this manual page? Use this URL:
<https://www.freebsd.org/cgi/man.cgi?query=SWF::Element&sektion=3&manpath=FreeBSD+12.1-RELEASE+and+Ports>

home | help