add light and dark images

scripts/mkcomp

@@ -18,28 +18,36 @@ my $fonts = [
   { "pos" => 100, "name" => "Cascadia-Mono-Regular" },
   { "pos" => 200, "name" => "Source-Code-Pro-Regular" },
   { "pos" => 300, "name" => "Dejavu-Sans-Mono" },
-  { "pos" => 400, "name" => "Jetbrains-Mono" },
+  { "pos" => 400, "name" => "JetBrains-Mono-Regular" },
   { "pos" => 500, "name" => "Iosevka" },
   { "pos" => 600, "name" => "Ubuntu-Mono" },
   { "pos" => 700, "name" => "Fira-Mono-Regular" },
   { "pos" => 800, "name" => "Liberation-Mono" },
-  { "pos" => 900, "name" => "Roboto-Mono" }
+  { "pos" => 900, "name" => "Roboto-Mono-Regular" }
 ];
 
 sub f {
-  my ($x, $s) = @_;
+  my ($x, $s, $c, $a) = @_;
   return join(" ",
-    "-pointsize 48",
-    "-fill black",
+    "-pointsize 64",
+    "-fill " . $c . " ",
     (map { "-font \"$_->{name}\" -annotate +$x+$_->{pos} \"$s\"" } $fonts->@*),
-    "-fill crimson -font \"Myna\" -annotate +$x+1020 \"$s\"",
+    "-fill " . $a . " -font \"Myna\" -annotate +@{[$x + 10]}+1000 \"$s\"",
   );
 }
 
 system (join(" ",
     "magick",
-    "-size 2000x1200 xc:#fefefe",
+    "-size 2000x1200 xc:black",
     "-gravity northwest",
-    join (' ', map { f($_->{pos}, $_->{sym}) } $symbols->@*),
+    join (' ', map { f($_->{pos}, $_->{sym}, "white", "cyan") } $symbols->@*),
     $ARGV[0]
 ));
+
+system (join(" ",
+    "magick",
+    "-size 2000x1200 xc:white",
+    "-gravity northwest",
+    join (' ', map { f($_->{pos}, $_->{sym}, "black", "crimson") } $symbols->@*),
+    $ARGV[1]
+));

scripts/mkhero

@@ -1,21 +1,41 @@
 #!/usr/bin/perl
 
-my $text = [
+my $dark = [
   {"col" => "yellow",       "pos" => 100,  "string" => 'MYNA'},
   {"col" => "cyan",         "pos" => 300,  "string" => 'Lorem ipsum dolor sit amet'},
   {"col" => "violet",       "pos" => 500,  "string" => '0 1 2 3 4 5 6 7 8 9'},
-  {"col" => "hotpink",      "pos" => 700,  "string" => '[] {} () <> | \\\ ? ! #'},
+  {"col" => "hotpink",      "pos" => 700,  "string" => '[] {} () <> | / \\\\\ ? ! #'},
   {"col" => "cyan",         "pos" => 900,  "string" => '\` \' \" , . ; : ~ ^ _'},
-  {"col" => "springgreen",  "pos" => 1100,  "string" => '+ - = ++ -- += -= == !='},
+  {"col" => "springgreen",  "pos" => 1100, "string" => '+ - = ++ -- += -= == !='},
   {"col" => "aqua",         "pos" => 1300, "string" => '\$s @a \%h &f *x =~'},
   {"col" => "violet",       "pos" => 1500, "string" => ':: -> => <$> >>= ^. \%~'},
   {"col" => "coral",        "pos" => 1700, "string" => '$ £ € ¥ ₹ ₽'},
   {"col" => "limegreen",    "pos" => 1900, "string" => '0 O o | 1 l I | \` \' \" | Z 2'}
 ];
 
+my $light = [
+  {"col" => "deeppink",     "pos" => 100,  "string" => 'MYNA'},
+  {"col" => "royalblue",    "pos" => 300,  "string" => 'Lorem ipsum dolor sit amet'},
+  {"col" => "darkviolet",   "pos" => 500,  "string" => '0 1 2 3 4 5 6 7 8 9'},
+  {"col" => "deeppink",     "pos" => 700,  "string" => '[] {} () <> | / \\\\\ ? ! #'},
+  {"col" => "teal",         "pos" => 900,  "string" => '\` \' \" , . ; : ~ ^ _'},
+  {"col" => "forestgreen",  "pos" => 1100, "string" => '+ - = ++ -- += -= == !='},
+  {"col" => "steelblue",    "pos" => 1300, "string" => '\$s @a \%h &f *x =~'},
+  {"col" => "purple",       "pos" => 1500, "string" => ':: -> => <$> >>= ^. \%~'},
+  {"col" => "crimson",      "pos" => 1700, "string" => '$ £ € ¥ ₹ ₽'},
+  {"col" => "green",        "pos" => 1900, "string" => '0 O o | 1 l I | \` \' \" | Z 2'}
+];
+
 system(join(' ',
   "magick",
-  "-size 2000x2200 xc:\"#1a1a1a\" -gravity north -pointsize 128 -font Myna -strokewidth 1.2",
-  (map { "-fill $_->{col} -stroke $_->{col} -annotate +0+$_->{pos} \"$_->{string}\"" } $text->@*),
+  "-size 2000x2200 xc:black -gravity north -pointsize 128 -font Myna -strokewidth 1.2",
+  (map { "-fill $_->{col} -stroke $_->{col} -annotate +0+$_->{pos} \"$_->{string}\"" } $dark->@*),
   $ARGV[0]
-))
+));
+
+system(join(' ',
+  "magick",
+  "-size 2000x2200 xc:white -gravity north -pointsize 128 -font Myna -strokewidth 1.2",
+  (map { "-fill $_->{col} -stroke $_->{col} -annotate +0+$_->{pos} \"$_->{string}\"" } $light->@*),
+  $ARGV[1]
+));