SHARE
TWEET

Untitled

a guest Mar 3rd, 2020 10 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. my $n = 0;
  3. my $cmdTemplate = "convert -size 300x300 canvas:white -font helvetica -pointsize 210 -gravity north -draw \"text -30,10 'SYM'\" -pointsize 100 -gravity east -draw \"text 0,0 'MOD'\" -pointsize 100 -gravity south -draw \"text 0,0 'DIV'\" NUM.jpg";
  4. for my $c (split //, "#_23456789abcdefghijklmnopqrstuvwxyz") {
  5.   my $cmd = $cmdTemplate;
  6.   $cmd =~ s/SYM/$c/;
  7.   $cmd =~ s/MOD/$n%6/;
  8.   $cmd =~ s/DIV/int($n/6)/;
  9.   $cmd =~ s/NUM/$n++/;
  10.   system($cmd);
  11. }
  12. system("rm -f all.jpg");
  13. system("montage *jpg -geometry +6+6 all.jpg");
  14. foreach $n (0...35) {
  15.   system("rm ${n}.jpg");
  16. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top