4 $SIG{__WARN__} = sub { die @_; };
6 # We generate a physical indication of which commit was used.
8 # We can generate three forms:
16 # git rev-list --first-parent --count HEAD
17 # typically 3-4 characters but we allow for up to 6
24 # same but in two lines eg
31 # git-rev-list --first-parent --count HEAD
40 last if %cellmap && !m/\S/;
49 my @chrs = split / /, $_;
50 <DATA> !~ m/\S/ or die;
51 foreach my $row (0..4) {
55 $_ .= ' ' x (@chrs * 4);
61 foreach my $chr (@chrs) {
62 s{^ }{} or die "$chr $_ ?";
63 foreach my $col (0..2) {
69 $f =~ s/\b\d/ sprintf '%x', $col*2 + $& /ge;
70 $f =~ s/\d\b/ sprintf '%x', $row*2 + $& /ge;
71 push @{ $chrpolys{$chr} }, [ split / /, $f ];
82 print Dumper(\%chrpolys);
99 /#\ # ##\ ##\ # # ### /## ### /#\ /#\
100 # # # # # # # # # # # # # #
101 # # # /#/ ### ### ##\ ##\ // >#< \##
102 # # # # # # # # # # # # #
103 \#/ # ### ##/ # ##/ \#/ # \#/ ##/
108 /## ##\ /## /## /## #
109 # # # # # # # # # ###
111 \## ##/ \## \## ### #