sub
new {
my
$class
=
shift
;
$self
= SUPER::OnePassBitmapAlgorithmComponent->new(BagElement1);
$self
= {
matrixbitmap
=>
undef
,
index
=> -1, };
bless
$self
,
$class
;
}
sub
getBitmap {
my
$self
=
shift
;
return
$self
->{matrixbitmap};
}
sub
blueDither {
my
(
$self
) =
@_
;
my
$ditherobj
= MatrixBitmapDitherBlue->new;
my
$self
->{
index
} =
$self
->addFunctor(OnePassFunctorWithClassOp->new(
&$ditherobj
->ditherBlue));
$self
->indexFunctor(
$i
)->setClassOp(\
$ditherobj
);
}
sub
executeAllFunctors {
my
(
$self
,
$matrixbitmapobj
) =
@_
;
my
$resultmatrixobj
=
$self
->indexFunctor(
$self
->{
index
})->
do
(
$matrixbitmapobj
);
$self
->indexFunctor(
$self
->{
index
})->setResult(
$resultmatrixobj
);
}
1;