cleaning up bin

[dotfiles.git] / bin / old / generate_images

diff --git a/bin/old/generate_images b/bin/old/generate_images
new file mode 100755 (executable)
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