chiark / gitweb /
break out $text_sz
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 01:59:33 +0000 (01:59 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 3 Mar 2019 01:59:33 +0000 (01:59 +0000)
generate-board

index ef9f9cea0f8099067ddfafec58a45c0f6da6b8a2..bb1cc49da0de1361683559ad18ba32d806dcdf8b 100755 (executable)
@@ -410,6 +410,8 @@ sub edge_faces() {
 our $hs_sz = 17 * MM2PT;
 our $hs_lw = 3;
 
+our $text_sz = 18;
+
 sub token_circle ($$$$;$$) {
   my ($what, $pos, $fillcolour, $edgecolour, $sz,$lw) = @_;
   $sz //= $hs_sz;
@@ -436,7 +438,7 @@ our $cube_gap = $cube_sz * 0.2;
 our $cube_lw = ($cube_sz * 0.1);
 
 sub label_faces() {
-  my $sz = 18;
+  my $sz = $text_sz;
   my $shadow = $sz * 0.1;
   o(<<END);
   /wordsshow {