cleaning up bin

[dotfiles.git] / bin / generate_images

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