starred/Myna
1
0
Fork 0
mirror of https://github.com/sayyadirfanali/Myna.git synced 2026-03-26 02:51:16 +01:00
Code Issues 5 Packages Projects Releases 2 Wiki Activity

add light and dark images

Browse Source
This commit is contained in:
sayyadirfanali
2025-11-09 15:49:51 +05:30
parent aa09d759aa
commit 1b12c8376d
8 changed files with 42 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
scripts/mkcomp
View File

@@ -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]
));