#
# For each form we have
#
-# module Commitid_Form_2D(.4)
-# module Commitid_Form()
+# module Commitid_Form_2D() { ... }
+# module Commitid_Form() { ... }
+#
+# These have their origin in the bottom left corner. The 3D model
+# is a positive, has its origin halfway through, and is twice the
+# depth in height, so it can be added or subtracted.
#
# And we provide
#
}
sub gentextmodule ($@) {
- my ($modulename, @lines) = @_;
- p "module $modulename(){\n";
+ my ($form, @lines) = @_;
+ my $modb = "Commitid_$form";
+ p "module ${modb}_2D(){\n";
p " scale(Commitid__scale()){\n";
my $y = @lines;
foreach my $line (@lines) {
parsefont();
-gentextmodule('Commitid_FontDemo_2D', @demo);
+gentextmodule('FontDemo', @demo);
__DATA__