X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/61d7dd11d4a450a64f2817ee4db0ec7fa5880b42..b9e4a0c3af29391c27e9a020693541b9a86c4d14:/bin/generate_images diff --git a/bin/generate_images b/bin/generate_images deleted file mode 100755 index 77844c0..0000000 --- a/bin/generate_images +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/perl -use warnings; -use strict; - -use Image::Magick; - -if (@ARGV != 1) { - print "usage: generate_images \n"; - exit; -} - -open FILE, $ARGV[0] or die $!; - -while () { - while ( /(['\w-]*)/g ) { - my $image=Image::Magick->new(size=>'350x450'); - $image->ReadImage('xc:black'); - $image->Annotate(font=>'kai.ttf', pointsize=>40, gravity=>'Center', fill=>'yellow', text=>$1); - $image->Write(filename=>"$1.png", compression=>'None'); - } -} - -close FILE; \ No newline at end of file