# Centre text components on image my $colour = $full->colorAllocate(0, 0, 0); my @bounds = new GD::Image->stringFT($colour, "Image/outline.ttf", 90, 0.18, 0, 0, $watermark_text); my $left = ($full->width() / 2) - (($bounds[2] - $bounds[0]) / 2) + 5; my $top = ($full->height() / 2) - ($bounds[7] - $bounds[1]) / 2; $full->stringFT($colour, "/Image/outline.ttf", 90, 0.18, $left, $top, $watermark_text); @bounds = new GD::Image->stringFT($colour, "Image/watermark.ttf", 95, 0.18, 0, 0, $copyright); $left = ($full->width() / 2) - (($bounds[2] - $bounds[0]) / 2) + 5; $full->stringFT($colour, "Image/watermark.ttf", 95, 0.18, $left, $top + 160, $copyright_text);