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.