X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/4b06eb26103a8f0840915532fdf411ef82e9ad24..89cf694280e02442fb435d5fe516ac09783d776a:/bin/generate_images

diff --git a/bin/generate_images b/bin/generate_images
new file mode 100755
index 0000000..77844c0
--- /dev/null
+++ b/bin/generate_images
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use Image::Magick;
+
+if (@ARGV != 1) {
+    print "usage: generate_images <file>\n";
+    exit;
+}
+
+open FILE, $ARGV[0] or die $!;
+
+while (<FILE>) {
+    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