git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
latin: common styling for pigpen and nyctograph svg
[sheet.git]
/
writing-latn.inc.pl
diff --git
a/writing-latn.inc.pl
b/writing-latn.inc.pl
index 7fabb6ed1520eb3407706358d894a5cca93565cb..f178be95c879c56792cc7eb0b8badc57355cb3ec 100644
(file)
--- a/
writing-latn.inc.pl
+++ b/
writing-latn.inc.pl
@@
-291,7
+291,7
@@
my $U = 0; # optional unicode alternatives
m/h/ or s/v/l3,/g;
m/v/ or s/h([^h]*)/l$1,3/g;
my $dot = s/\.// && qq(<circle cx="3" cy="3" r="1"/>);
m/h/ or s/v/l3,/g;
m/v/ or s/h([^h]*)/l$1,3/g;
my $dot = s/\.// && qq(<circle cx="3" cy="3" r="1"/>);
- qq(<path
stroke-linecap="square"
d="$_"/>$dot)
+ qq(<path d="$_"/>$dot)
}
qw(
Hvh vhv vh hvh vhvh Hhvh hv Vvhv Hhv
}
qw(
Hvh vhv vh hvh vhvh Hhvh hv Vvhv Hhv
@@
-304,8
+304,7
@@
my $U = 0; # optional unicode alternatives
map { s/M[\d,\hM]+(?=[M"])//gr } # clean up superfluous moves
map { sprintf
'<svg width="14" height="14" viewBox="-.5 -.5 5 5">'
map { s/M[\d,\hM]+(?=[M"])//gr } # clean up superfluous moves
map { sprintf
'<svg width="14" height="14" viewBox="-.5 -.5 5 5">'
- . '<path%s d="M0,0%s %s4,0 %s4,4 %s0,4 %s0,0"/></svg>',
- ' stroke-linecap="round" stroke-linejoin="round"',
+ . '<path d="M0,0%s %s4,0 %s4,4 %s0,4 %s0,0"/></svg>',
'h.5v.5h-.5v-.5', # start anchor
map { ['M', 'h0M', 'L']->[$_] }
split //, $_
'h.5v.5h-.5v-.5', # start anchor
map { ['M', 'h0M', 'L']->[$_] }
split //, $_