move pscolor

diff --git a/generate-board b/generate-board
index c371019af8e042bf8e20d616381e22653521f38c..9dd93530113f80992af7f938589ee5c1519876ea 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -301,19 +301,6 @@ sub face_path ($) {
   o("    closepath\n");
 }
 
-sub pscolour ($;$) {
-  my ($spec, $adj1) = @_;
-  confess unless defined $spec;
-  my @rgb = map { hex($_) / 15.0 } split //, $spec;
-  $adj1 //= sub { };
-  $adj1->(@rgb);
-  my $r = join ' ',
-      (map { sprintf "%.6f ", $_ } @rgb
-      ),
-          'setrgbcolor';
-  return $r;
-}
-
 sub computeboundings() {
   $bb{Entire} = [ 0,0, $a4_h, $a4_w + $a3_h ];
   $bb{PageB} = [ 0,0, $a4_h, $a4_w ];
@@ -401,6 +388,19 @@ showpage
 END
 }
 
+sub pscolour ($;$) {
+  my ($spec, $adj1) = @_;
+  confess unless defined $spec;
+  my @rgb = map { hex($_) / 15.0 } split //, $spec;
+  $adj1 //= sub { };
+  $adj1->(@rgb);
+  my $r = join ' ',
+      (map { sprintf "%.6f ", $_ } @rgb
+      ),
+          'setrgbcolor';
+  return $r;
+}
+
 sub lighterpscolour ($$) {
   my ($colourname, $retain) = @_;
   pscolour($c{Colours}{$colourname},