commitid.scad.pl: in Full*, swap count and commitid

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

diff --git a/commitid.scad.pl b/commitid.scad.pl
index 2da787311e2f9d9b6d8d9996a6e29b9469ca999b..9a7667dc82c9b4f1339451522e11bb6b0dc60529 100755 (executable)
--- a/commitid.scad.pl
+++ b/commitid.scad.pl
@@ -99,11 +99,18 @@ $SIG{__WARN__} = sub { die @_; };
 #       git-rev-list --first-parent --count HEAD
 #       git-rev-parse HEAD
 #       eg
-#            Full6      1070
-#                     82f2a2
+#            Full6    82f2a2
+#                       1070
 #       If tree is dirty, + or * is suffixed to count (but not to
 #       commitid) reducing number of digits by 1.
 #
+#   Full6T
+#   Full9T
+#   Full12T
+#   Full15T
+#       As Full but commit is split over two lines for a 3-line message;
+#       dirty marker is in commitid.
+#
 #   FontDemo
 #
 #   Arg0, Arg1, ...
@@ -353,8 +360,16 @@ sub do_git () {
 
        if (defined $git_count && defined $git_object) {
            gentextmodule("Full$sz",
-                         rjustt($sz, $git_count.$git_dirty),
-                         ljustt($sz, $git_object, ''));
+                         ljustt($sz, $git_object, ''),
+                         rjustt($sz, $git_count.$git_dirty));
+
+           if (!($sz % 2)) {
+               my $e = $sz/2;
+               gentextmodule("Full".($e*3)."T",
+                             ljustt($e*2, $git_object, $git_dirty)
+                             =~ m/.{$e}/g,
+                             rjustt($e, $git_count));
+           }
        }
     }
 }