Advertisement
Guest User

Untitled

a guest
Oct 5th, 2021
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.54 KB | None | 0 0
  1. ######################
  2. # generate thumbnail #
  3. ######################
  4. my $text_uf = $text; # text unformatted
  5. $text =~ s/\"/\\\"/g; # escape things so its cool with imagemagick
  6.  
  7. open (OUT, ">magick/$md5sum");
  8. print OUT "text 10, 10\n\"" . $text . "\"\n\n";
  9. close(OUT);
  10.  
  11. my $image = $md5sum . ".png";
  12.  
  13. `convert -font mona.ttf -fill black -pointsize 13 -draw "\@magick/$md5sum" images/gray.png thumb/$image`;
  14.  
  15. `mogrify -trim thumb/$image`;
  16.  
  17. `mogrify -resize 200x200'>' thumb/$image`;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement