commitid.scad.pl: Introduce autogenerated warning

[reprap-play.git] / commitid.scad.pl

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 973ca0aca7ec8018a1dd5d319a3ad0b56efa6a9e..aced30a46fa7dfbbb2d45b81c6fb27cb80737063 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -62,6 +62,7 @@ $SIG{__WARN__} = sub { die @_; };
 sub p { print @_ or die $!; }
 
 p <<'END';
+// *** AUTOGENERATED - DO NOT EDIT *** //
 function Commitid_pixelsz() =
   ($Commitid_pixelsz       ? $Commitid_pixelsz       : 0.4) *
   ($Commitid_scale         ? $Commitid_scale         : 1.0);
@@ -72,6 +73,33 @@ function Commitid__scale() =
   Commitid_pixelsz() / 0.1;
 END
 
+sub chrmodname ($) {
+    my ($chr) = @_;
+    my $chrx = sprintf '%#x', ord $chr;
+    return "Commitid__chr_$chrx";
+}
+
+sub gentextmodule ($@) {
+    my ($modulename, @lines) = @_;
+    p "module $modulename(){\n";
+    p " scale(Commitid__scale()){\n";
+    my $y = @lines;
+    foreach my $line (@lines) {
+       $y--;
+       my $x = 0;
+       foreach my $chr (split //, $line) {
+           next if $chr !~ m/\S/;
+           p sprintf "  translate([%d * 0.8, %d * 1.2]) %s();\n",
+               $x, $y, chrmodname $chr;
+           $x++;
+       }
+    }
+    p " }\n";
+    p "}\n";
+}
+
+our @demo;
+
 sub parsefont () {
     my %cellmap;
     for (;;) {
@@ -85,6 +113,7 @@ sub parsefont () {
     my %chrpolys;
     while (<DATA>) {
        next unless m/\S/;
+       chomp;
        my @chrs = split / /, $_;
        <DATA> !~ m/\S/ or die;
        foreach my $row (reverse 0..4) {
@@ -118,11 +147,10 @@ sub parsefont () {
        }    
     }
 
-    my @demo;
+    my $demo = '';
     my $democols = 6;
     foreach my $chr (sort keys %chrpolys) {
-       my $chrx = sprintf '%#x', ord $chr;
-       my $mod = "Commitid__chr_$chrx";
+       my $mod = chrmodname $chr;
        p "module $mod () {\n";
        foreach my $poly (@{ $chrpolys{$chr} }) {
            p " polygon([";
@@ -137,22 +165,14 @@ sub parsefont () {
            p "]);\n";
        }
        p "}\n";
-       my $px = @demo % $democols;
-       my $py = int(@demo / $democols);
-       push @demo, " scale( Commitid__scale() ) translate([$px * 0.800, $py * 1.200]) 
- $mod ();\n";
+       $demo .= $chr;
     }
-    p "module Commitid_FontDemo(){\n";
-    p $_ foreach @demo;
-    p "}\n";
-
-#    use Data::Dumper;
-#    print Dumper(\%chrpolys);
+    @demo = reverse $demo =~ m{.{1,$democols}}go;
 }
 
 parsefont();
 
-#p "Commitid_FontDemo();\n";
+gentextmodule('Commitid_FontDemo', @demo);
 
 __DATA__