chiark / gitweb /
todos
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 09:25:43 +0000 (09:25 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 2 Mar 2019 09:25:43 +0000 (09:25 +0000)
generate-board

index deed43f594f5a441fa88a924e9999815b65113a5..a4c6c25a3d45d00cb9c06fb06aa3e85c930f14af 100755 (executable)
@@ -140,6 +140,7 @@ sub calculate_centres () {
     my $sum = Math::GSL::Vector->new(2);
     $sum += $_->{Pos} foreach @$poly;
     $rr->{Centre} = $sum * (1.0 / @$poly);
+    # xxx use mean edge location (ie weight by edge length)
   }
 }
 
@@ -365,6 +366,8 @@ sub label_faces() {
     my $pos = $rr->{Centre} + mkvec( 0, 0.5 * $sz * @$words );
     if ($hs{$rr->{Name}}) {
       print STDERR "adjust hs $rr->{Name}\n";
+      # xxx HS placements in regions >=5 sides, further
+      # xxx or maybe something involving total edge length
       $pos -= mkvec(0, -$hs_sz/2);
       my $hspos = $pos - mkvec(0, $sz * @$words + $hs_sz/2 + $hs_lw);
       o(sprintf <<END
@@ -376,6 +379,7 @@ END
                   sub { $_ = 0.75 * $_ foreach @_ }),
        psvec($hspos), $hs_sz/2);
     }
+    # xxx water cubes
     o("  /words {\n");
     foreach my $word (@$words) {
       $pos += mkvec(0,-$sz);
@@ -419,7 +423,14 @@ adjust_nz();
 preamble();
 fill_faces();
 edge_faces();
+# xxx dykes
+# xxx dyke spots
 label_faces();
+# xxx water track
+# xxx HS initial locations
+# xxx HS instructions
+# xxx overall instructions
+# xxx card decks
 postamble();
 
 print STDERR Dumper(\%region) if $ENV{'GENERATE_BOARD_DUP'};