Name Tag Generator Part 5

nametag5.pl

# Create a mask (or stencil) image using the desired text
my $mask = Image::Magick->new;      # Create a new image object
$mask->Set( size => '503x339' );    # Same size as blank name tag image
$mask->ReadImage( 'canvas:black' ); # Fill the image with black
$mask->Annotate(                    # Render the text on the image in white
	font      => $font,
	pointsize => $size,
	fill      => 'white',
	text      => $name,
	x         => $x,
	y         => $y,
	antialias => true,
);