improve comparison

 images/comp.png | Bin 236127 -> 110158 bytes
 scripts/mkcomp  |  29 ++++++++++++-----------------
 scripts/mkhero  |   2 +-
 3 files changed, 13 insertions(+), 18 deletions(-)

diff --git a/images/comp.png b/images/comp.png
index a45c0d5..defd3c5 100644
Binary files a/images/comp.png and b/images/comp.png differ
diff --git a/scripts/mkcomp b/scripts/mkcomp
index cf5a2aa..939ee59 100755
--- a/scripts/mkcomp
+++ b/scripts/mkcomp
@@ -4,14 +4,14 @@ use strict;
 use warnings;
 
 my $symbols = [
-  { "pos" => 400,   "sym" => "->" },
-  { "pos" => 600,   "sym" => "=>" },
-  { "pos" => 800,   "sym" => "~>" },
-  { "pos" => 1000,   "sym" => "<>" },
-  { "pos" => 1200,  "sym" => "=~" },
-  { "pos" => 1400,  "sym" => "<\$>" },
-  { "pos" => 1600,  "sym" => "<*>" },
-  { "pos" => 1800,  "sym" => ">>=" },
+  { "pos" => 200,   "sym" => "->" },
+  { "pos" => 400,   "sym" => "=>" },
+  { "pos" => 600,   "sym" => "~>" },
+  { "pos" => 800,   "sym" => "<>" },
+  { "pos" => 1000,  "sym" => "=~" },
+  { "pos" => 1200,  "sym" => "<\$>" },
+  { "pos" => 1400,  "sym" => "<*>" },
+  { "pos" => 1600,  "sym" => ">>=" },
 ];
 
 my $fonts = [
@@ -29,22 +29,17 @@ my $fonts = [
 sub f {
   my ($x, $s) = @_;
   return join(" ",
-    "-pointsize 64",
-    "-fill white -stroke white",
+    "-pointsize 48",
+    "-fill black",
     (map { "-font \"$_->{name}\" -annotate +$x+$_->{pos} \"$s\"" } $fonts->@*),
-    "-fill cyan -stroke cyan -font \"Myna\" -annotate +$x+1050 \"$s\""
+    "-fill crimson -font \"Myna\" -annotate +$x+1020 \"$s\"",
   );
 }
 
 system (join(" ",
     "magick",
-    "-size 2000x1200 xc:black",
+    "-size 2000x1200 xc:#fefefe",
     "-gravity northwest",
-    "-pointsize 64 -strokewidth 1.2 -fill white -stroke white -font \"Inter-Regular\"",
-    join(' ', map { "-annotate +80+$_->{pos} \"@{[$_->{name} =~ s/-.*//r]}\"" } $fonts->@*),
-    '-fill cyan -stroke cyan -annotate +80+1050 "Myna"',
-
     join (' ', map { f($_->{pos}, $_->{sym}) } $symbols->@*),
-
     $ARGV[0]
 ));
diff --git a/scripts/mkhero b/scripts/mkhero
index 97808b7..f36d15c 100755
--- a/scripts/mkhero
+++ b/scripts/mkhero
@@ -15,7 +15,7 @@ my $text = [
 
 system(join(' ',
   "magick",
-  "-size 2000x2200 xc:\"#1A1A1A\" -gravity north -pointsize 128 -font Myna -strokewidth 1.2",
+  "-size 2000x2200 xc:\"#1a1a1a\" -gravity north -pointsize 128 -font Myna -strokewidth 1.2",
   (map { "-fill $_->{col} -stroke $_->{col} -annotate +0+$_->{pos} \"$_->{string}\"" } $text->@*),
   $ARGV[0]
 ))