new command: text2png

1 files changed, 61 insertions, 0 deletions

diff --git a/dot/local/bin/text2png b/dot/local/bin/text2png
new file mode 100755
index 0000000..ada7780
--- /dev/null
+++ b/dot/local/bin/text2png
@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+use warnings;
+use File::Temp qw(tempfile);
+use List::Util qw(max min);
+
+$font = 'FreeMono';
+
+# Approximate dimensions used to determine approximate size. Only the
+# value that produces the higher resolution (for the given input) is used.
+$desired_width = 1296;
+$desired_height = 1296;
+
+# Font size in points (72 points per inch). This does not determine the size of
+# the image, because the image density is defined in terms of it.
+$font_size = 72;
+$margin = $font_size;
+
+$width_chars = 0;
+$height_lines = 0;
+
+###
+
+($tempFH, $tempFN) = tempfile();
+for (<STDIN>) {
+    $width_chars = max((length $_), $width_chars);
+    ++$height_lines;
+    print $tempFH $_;
+}
+
+$PPI = 72; # points per inch
+sub choose_density()
+{
+    my $width_density = $PPI * $desired_width / $width_chars / $font_size;
+    my $height_density = $PPI * $desired_height / $height_lines / $font_size;
+    return max($width_density, $height_density);
+}
+$density = choose_density;
+$character_size = $font_size * $density / $PPI;
+$initial_image_size = sprintf "%ix%i",
+    1.25 * $character_size * $width_chars,
+    1.25 * $character_size * $height_lines;
+$offset = sprintf '+%i+%i', ($character_size) x 2;
+
+$output = 'png:-';
+
+system <<END;
+set -x;
+convert \\
+        -size $initial_image_size \\
+        xc:white \\
+        -font "$font" \\
+        -density $density \\
+        -pointsize $font_size \\
+        -annotate $offset \\
+        "\@$tempFN" \\
+        -trim \\
+        -bordercolor '#FFFFFF' \\
+        -border $margin \\
+        +repage \\
+        $output
+END