+++ /dev/null
-#!/usr/bin/perl -w
-use strict;
-
-$SIG{__WARN__} = sub { die @_; };
-
-# xxx much of the comment below is TODO
-
-# We generate a physical indication of which commit was used.
-#
-# We provide for a scaling factor
-#
-# $Commitid_pixelsz = 0.4;
-# $Commitid_depth = 1.5; // in pixels
-#
-# For each form we have
-#
-# module Commitid_Form_2D(pixelsz=0.4)
-# module Commitid_Form(pixelsz=0.4, depth=pixelsz)
-#
-# function Commitid_Form_size(pixelsz=$Commitid_pixelsz) => [ xsz, ysz ]
-#
-#
-# We can generate these forms:
-#
-# Tiny3:
-# Tiny4:
-# Tiny5:
-# Tiny6:
-# Tiny7:
-# Tiny8:
-# git rev-list --first-parent --count HEAD
-# typically 3-4 characters but we allow for up to 6
-# eg
-# Tiny4 1070
-#
-# Tiny4Q:
-# Tiny6Q:
-# Tiny9Q:
-# same but in two lines eg
-# Tiny4Q 10
-# 70
-#
-# Git4
-# Git6
-# Git8
-# git-rev-parse HEAD
-# eg
-# Git6 82f2a2
-
-# Small4
-# Small6
-# Small8
-# git-rev-list --first-parent --count HEAD
-# git-rev-parse HEAD
-# eg
-# Small6 1070
-# 82f2a2
-
-sub p { print @_ or die $!; }
-
-sub parsefont () {
- my %cellmap;
- for (;;) {
- $_ = <DATA> // die;
- last if %cellmap && !m/\S/;
- next unless m/\S/;
- chomp;
- s{^(.) }{};
- $cellmap{$1} = $_;
- }
- my %chrpolys;
- while (<DATA>) {
- next unless m/\S/;
- my @chrs = split / /, $_;
- <DATA> !~ m/\S/ or die;
- foreach my $row (reverse 0..4) {
- $_ = <DATA>;
- chomp;
- s{^}{ };
- $_ .= ' ' x 8;
- m{\S/\S} and die;
- s{/(?=\s)}{L}g;
- s{/(?=\S)}{r}g;
- s{\\(?=\s)}{l}g;
- s{\\(?=\S)}{R}g;
- p "// $_\n";
- foreach my $chr (@chrs) {
- s{^ }{} or die "$chr $_ ?";
- foreach my $col (0..2) {
- my @verts;
- if (s{^ }{}) {
- } elsif (s{^\S}{}) {
- my $f = $cellmap{$&};
- die unless $f;
- $f =~ s/\b\d/ sprintf '%05d', $col*4000 + $&*2050 /ge;
- $f =~ s/\d\b/ sprintf '%05d', $row*4000 + $&*2050 /ge;
- push @{ $chrpolys{$chr} }, [ split / /, $f ];
- } else {
- die "$_ ?";
- }
- }
- }
- die "$_ ?" if m{\S};
- }
- }
-
- my @demo;
- my $democols = 6;
- foreach my $chr (sort keys %chrpolys) {
- my $chrx = sprintf '%#x', ord $chr;
- my $mod = "Commitid__chr_$chrx";
- p "module $mod () {\n";
- foreach my $poly (@{ $chrpolys{$chr} }) {
- p " polygon([";
- my $delim = "";
- foreach my $pt (@$poly) {
- p $delim;
- $pt =~ s{\d{5}}{$&,};
- $pt =~ s{\b\d}{$&.}g;
- p "[$pt]";
- $delim = ',';
- }
- p "]);\n";
- }
- p "}\n";
- my $px = @demo % $democols;
- my $py = int(@demo / $democols);
- push @demo, " translate([$px * 1.600, $py * 2.400]) $mod ();\n";
- }
- p "module Commitid_FontDemo(){\n";
- p $_ foreach @demo;
- p "}\n";
-
-# use Data::Dumper;
-# print Dumper(\%chrpolys);
-}
-
-parsefont();
-
-#p "Commitid_FontDemo();\n";
-
-__DATA__
-
-# 00 20 22 02
-l 00 20 02
-r 00 20 22
-L 00 22 02
-R 20 22 02
-> 00 20 22 02 11
-< 00 20 11 22 02
-
-0 1 2 3 4 5 6 7 8 9
-
-/#\ r /#\ ##\ # # ### // ### /#\ /#\
-# # /# # # # # # # # # # # #
-#r# # /#/ ##< \## ##\ ##\ // >#< \##
-# # # # # # # # # # # # #
-\#/ /#\ ### ##/ # ##/ \#/ # \#/ ##/
-
-a b c d e f
-
- # # /##
-/## ##\ /## /## /#\ #
-# # # # # # # #r/ ###
-# # # # # # # #/ #
-\## ##/ \## \## \#/ #
-