X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/61d7dd11d4a450a64f2817ee4db0ec7fa5880b42..b9e4a0c3af29391c27e9a020693541b9a86c4d14:/bin/old/generate_images

diff --git a/bin/old/generate_images b/bin/old/generate_images
new file mode 100755
index 0000000..77844c0
--- /dev/null
+++ b/bin/old/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