X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=commitid.scad.pl;h=4c7371fb5ba19d3b4b711d8ddf851452b6d656b5;hb=a75f4245977276aed475729d9c71faad2a0c528e;hp=3ea50a0c6bd68497e34fcee0b416c3ec2dc8c670;hpb=98537f0b67e59e1e7f12def805f3b8ca382c4aaa;p=reprap-play.git diff --git a/commitid.scad.pl b/commitid.scad.pl index 3ea50a0..4c7371f 100755 --- a/commitid.scad.pl +++ b/commitid.scad.pl @@ -178,7 +178,7 @@ # starts abcdeffedbcaabcdef... In the examples `_' shows where a # space would be printed. # -# Small2 Small3 ... Small10 +# Small2 Small3 ... Small9 Small10 Small12 Small14 Small16 # A single line containing as much of the count will fit, eg: # Small5 3456* # Small8 _*123456 @@ -186,16 +186,16 @@ # will fit without makign the output ambiguous: # Small9 ab*123456 # -# Small2S Small4S ... Small10S -# Small3T Small9T +# Small2S Small4S ... Small16S +# Small3T Small9T Small12T # Same as Small but split into two lines (S) # or three lines (T). Eg: # Small4S *4 Small6T _* # 56 34 # 56 -# Git2 Git3 ... Git10 -# Git4S Git6S ... Git10S -# Git6T Git9T +# Git2 Git3 ... Git9 Git10 Git12 Git14 Git16 +# Git4S Git6S ... Git16S +# Git6T Git9T Git12T # Just the commit object hash, in one, two (S) or three (T) # lines. E.g.: # Git5 abcd* @@ -543,7 +543,7 @@ sub do_git () { print STDERR join ' ', map { $_ // '?' } "-- commitid", $git_object, $git_dirty, $git_count, "--\n"; - foreach my $sz (2..10) { + foreach my $sz (2..10, qw(12 14 16)) { gentextmodule_demo_start_batch(); if (defined($git_count)) { @@ -562,7 +562,7 @@ sub do_git () { genform_plusq("Git$sz", ljustt($sz, 'Objid', $git_object, $git_dirty)) if defined $git_object; - if (defined $git_count && defined $git_object) { + if (defined $git_count && defined $git_object && $sz<=10) { genform_prep(); genform("Full".($sz*2), ljustt($sz, 'Objid', $git_object),