view release on metacpan or  search on metacpan

lib/CAD/Drawing/IO/Image.pm  view on Meta::CPAN

	my $bgcolor = "white";
	my $defaultcolor = "black";
	if($opts{defaultcolor}) {
		$defaultcolor = $opts{defaultcolor};
	}
	# $CAD::Drawing::default_color{$self} = $defaultcolor; # XXX ?
	if($opts{bgcolor}) {
		$bgcolor = $opts{bgcolor};
	}
	$outobj->ReadImage("xc:$bgcolor");
	if($opts{transparent}) {
		$outobj->Transparent(color=>"$bgcolor");
	}
	unless($opts{prescaled}) {
		carp("must prescale drawing object for now\n");
		# FIXME:  this should now go into the fit-to-bound deal
	}
# 	$outobj->Set(antialias=>"False");
	my $matte = "white";
	$outobj->Set(mattecolor=>$matte);
	$opts{imtype} and $outobj->Set(type => $opts{imtype});