mirror of
https://github.com/KanjiVG/kanjivg.git
synced 2026-07-05 13:35:21 +02:00
Merge pull request #194 from benkasminbullock/master
Remove old Perl scripts
This commit is contained in:
Alexandre Courbot
-54
@@ -1,54 +0,0 @@
|
||||
package KanjiVG;
|
||||
use parent Exporter;
|
||||
our @EXPORT_OK = qw/handle_element/;
|
||||
use warnings;
|
||||
use strict;
|
||||
use Carp;
|
||||
|
||||
my $dir = "$FindBin::Bin/kanjivg";
|
||||
|
||||
sub find_element
|
||||
{
|
||||
my ($element) = @_;
|
||||
if (! defined $element) {
|
||||
croak "No element";
|
||||
}
|
||||
my $string = qr/kanjivg:element="$element"/;
|
||||
my @files = <$dir/*.svg>;
|
||||
my @matches;
|
||||
for my $file (@files) {
|
||||
open my $in, "<:encoding(utf8)", $file
|
||||
or die $!;
|
||||
while (<$in>) {
|
||||
if (/$string/) {
|
||||
push @matches, $file;
|
||||
# print "$file matches.\n";
|
||||
}
|
||||
}
|
||||
close $in or die $!;
|
||||
}
|
||||
return @matches;
|
||||
}
|
||||
|
||||
sub handle_element
|
||||
{
|
||||
my ($element, $handle_start, $data) = @_;
|
||||
my @matches = find_element ($element);
|
||||
if (ref $data ne 'HASH') {
|
||||
croak "Give me a hash ref";
|
||||
}
|
||||
my $parser = XML::Parser->new (
|
||||
Handlers => {
|
||||
Start => sub { &{$handle_start} ($element, $data, @_)},
|
||||
},
|
||||
);
|
||||
for my $file (@matches) {
|
||||
# print "Parsing '$file'.\n";
|
||||
$data->{file} = $file;
|
||||
$parser->parsefile ($file);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
1;
|
||||
@@ -1,307 +0,0 @@
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09920.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07e41.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/081e7.svg:43: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/085cf.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0634c.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07648.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/03006.svg:43: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05e11.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/062d4.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07030.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07030.svg:79: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07030.svg:87: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07953.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/079e1.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08c3a.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0984f.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09aee.svg:70: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09b43.svg:70: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09efb.svg:69: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/04e31.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05047.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05137.svg:81: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/053a9.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0562f.svg:70: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05694.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05737.svg:52: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/057b0.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0583d.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05875.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0589f.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05ad0.svg:65: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05ae3.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05c2d.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05e11.svg:46: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05f11.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05f99.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/060b3.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0616b.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0620e.svg:48: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/063d2.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06500.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06578.svg:68: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/067a1.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/068ba.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06923.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/069f9.svg:68: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/069ff.svg:68: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06a05.svg:69: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06a0a.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06a61.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06b43.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06b54.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06bcb.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06eb2.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06f09.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06f6d.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0701f.svg:76: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07030.svg:54: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07051.svg:82: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07063.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07063.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07063.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0737b.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0737b.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0737b.svg:77: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0737b.svg:84: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07455.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0747e.svg:68: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/074e2.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/074e2.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/074e2.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/074e2.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/074e9.svg:43: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/074f2.svg:43: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07648.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/076de.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0778e.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/077d7.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/077d7.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/077d7.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0792c.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/079ae.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07a19.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07a96.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07a97.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07c1f.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07c2b.svg:77: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07c65.svg:91: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07c6c.svg:76: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07e31.svg:71: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0806f.svg:75: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08073.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08085.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/081df.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08276.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0846d.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08521.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08548.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0856d.svg:70: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08766.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/087f6.svg:78: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/088c3.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0897e.svg:48: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08983.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08988.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0898a.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/089b2.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08aa1.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08adb.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08b5a.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08c6b.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08cca.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08d13.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08d67.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08e35.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08e64.svg:74: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08ec6.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08f46.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09050.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/091b4.svg:65: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0935c.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0937e.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/093d6.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/093d8.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09470.svg:89: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09587.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/095dc.svg:80: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0965e.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/096eb.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09790.svg:74: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/098aa.svg:47: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09a37.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09a6a.svg:91: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09ad4.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09af7.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09b3b.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09c15.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09c67.svg:71: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09d87.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e7f.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e81.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e88.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e8b.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e8c.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e91.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e92.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e93.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e95.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e9d.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e9f.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09fa0.svg:78: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09803.svg:43: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05a9a.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06478.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0757f.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07a31.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/082d2.svg:54: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09aef.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09d87.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05b43.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05dc9.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/064d8.svg:47: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/066e9.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06f5f.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07063.svg:65: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07372.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0737b.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/079b3.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07a6b.svg:68: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07a70.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08b93.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08c3a.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/091c0.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09266.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/096bb.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09a64.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05b45.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/061f4.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/061fa.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06bb1.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06bb2.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07c56.svg:69: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07c64.svg:74: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07e8e.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07e96.svg:70: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/085a4.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08b96.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/097ed.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/097ee.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/097f2.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09f4f.svg:69: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0589f.svg:71: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05dc9.svg:54: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/063d2.svg:54: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/066e9.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06b43.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06b54.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/076de.svg:76: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/02ea4.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/050d6.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05118.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0513b.svg:77: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05694.svg:65: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/056ae.svg:47: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/058a8.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/058c5.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/058d7.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05cb6.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05e1b.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05fdd.svg:54: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06015.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06020.svg:54: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0605a.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0606d.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0606f.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/060d1.svg:71: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06106.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0610f.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0613f.svg:48: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06167.svg:88: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0616e.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06176.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06199.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0649a.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/064f2.svg:52: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06770.svg:49: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06a72.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06ab8.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06ad3.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06f01.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06f80.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06f80.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/06fd8.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/070b9.svg:54: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/070cb.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/070dd.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07121.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07126.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0714e.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07166.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07167.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0718f.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07199.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/071ac.svg:78: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/071b9.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/071c3.svg:68: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/071fb.svg:74: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/071fc.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/073c0.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/074e2.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07515.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07560.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07680.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07683.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0768b.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07690.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07699.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/076de.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/076e1.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/078a7.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/079a7.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07ac5.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07b94.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07cb1.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07ddc.svg:45: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0826a.svg:65: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08375.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08469.svg:50: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08471.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/084b8.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08549.svg:61: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0856a.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/085ab.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08602.svg:63: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/086fb.svg:59: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08988.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08c8a.svg:57: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/08d10.svg:69: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/091ba.svg:83: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09957.svg:47: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09b44.svg:44: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09b5a.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09b6f.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09bca.svg:73: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09c25.svg:74: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09c32.svg:91: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09ceb.svg:55: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09cf6.svg:58: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09d87.svg:69: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09dd9.svg:82: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09dfa.svg:76: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09e1e.svg:80: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09ed1.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09ed2.svg:52: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09ed9.svg:67: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09edb.svg:66: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09ee8.svg:72: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09ef6.svg:84: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05c8c.svg:51: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/0757f.svg:60: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/064e1.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07063.svg:64: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/081fa.svg:56: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/085b9.svg:62: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/07425.svg:53: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/05bc7.svg:46: more than 1 radian from average.
|
||||
/usr/home/ben/projects/kanjivg-data/kanjivg/kanjivg/09d2a.svg:47: more than 1 radian from average.
|
||||
@@ -1,155 +0,0 @@
|
||||
#!/home/ben/software/install/bin/perl
|
||||
use warnings;
|
||||
use strict;
|
||||
use XML::Parser;
|
||||
use FindBin;
|
||||
use Image::SVG::Path 'extract_path_info';
|
||||
use utf8;
|
||||
my $dir = "$FindBin::Bin/kanjivg";
|
||||
|
||||
# The grep only allows the "normal" files from the complete list of
|
||||
# files.
|
||||
|
||||
my @files = grep /\/[0-9a-f]+\.svg$/, <$dir/*.svg>;
|
||||
|
||||
my %stroke_types;
|
||||
|
||||
my %global;
|
||||
|
||||
my %angles;
|
||||
|
||||
# List of errors which are known to come from bad information about
|
||||
# stroke types.
|
||||
|
||||
my @known_bad_elements = qw/冬 羽 尽 辛 手 羊 冫 半/;
|
||||
|
||||
my %known_bad_elements = map {$_ => 1} @known_bad_elements;
|
||||
|
||||
#print keys %known_bad_elements;
|
||||
|
||||
$global{known_bad_elements} = \%known_bad_elements;
|
||||
|
||||
my $parser = XML::Parser->new (
|
||||
Handlers => {
|
||||
Start => sub { &{handle_start} (\%global, @_) },
|
||||
},
|
||||
);
|
||||
|
||||
# This doesn't let us use current_line.
|
||||
#$global{parser} = $parser;
|
||||
|
||||
for my $file (@files) {
|
||||
#for my $file (qw!kanjivg/087bd.svg!) {
|
||||
$global{file} = $file;
|
||||
$global{bad_element} = undef;
|
||||
$parser->parsefile ($file);
|
||||
}
|
||||
|
||||
#for my $t (sort keys %stroke_types) {
|
||||
# print "$t\n";
|
||||
#}
|
||||
|
||||
my %average;
|
||||
|
||||
for my $t (sort keys %angles) {
|
||||
if ($t eq 'None') {
|
||||
next;
|
||||
}
|
||||
my $total_angle = 0;
|
||||
my $n = 0;
|
||||
for my $se (@{$angles{$t}}) {
|
||||
my ($start, $end) = @$se;
|
||||
my $angle = atan2 ($end->[1] - $start->[1], $end->[0] - $start->[0]);
|
||||
$total_angle += $angle;
|
||||
$n++;
|
||||
}
|
||||
$average{$t} = $total_angle / $n;
|
||||
|
||||
# The following line prints out the "type" field and the average angle
|
||||
# in radians.
|
||||
|
||||
# print "$t $average{$t}\n";
|
||||
|
||||
}
|
||||
|
||||
my $limit = 1.0;
|
||||
|
||||
for my $t (sort keys %angles) {
|
||||
if ($t eq 'None') {
|
||||
next;
|
||||
}
|
||||
for my $se (@{$angles{$t}}) {
|
||||
my ($start, $end, $location) = @$se;
|
||||
my $angle = atan2 ($end->[1] - $start->[1], $end->[0] - $start->[0]);
|
||||
if ($angle - $average{$t} > $limit) {
|
||||
print $location, "more than $limit radian from average.\n"
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
exit;
|
||||
|
||||
sub handle_start
|
||||
{
|
||||
my ($global_ref, $parser, $element, %attr) = @_;
|
||||
if ($global_ref->{bad_element}) {
|
||||
return;
|
||||
}
|
||||
|
||||
# Use the expat parser so we can use current_line.
|
||||
$global_ref->{parser} = $parser;
|
||||
if ($element eq 'path') {
|
||||
gather_path_info ($global_ref, \%attr);
|
||||
}
|
||||
elsif ($element eq 'g') {
|
||||
if ($attr{id} =~ /^([0-9a-f]+)$/) {
|
||||
$global_ref->{kanji_id} = $attr{id};
|
||||
}
|
||||
my $el = $attr{"kanjivg:element"};
|
||||
# print "element $el\n";
|
||||
if (defined $el) {
|
||||
if ($global_ref->{known_bad_elements}->{$el}) {
|
||||
# print "Known bad element $el in $global_ref->{file}.\n";
|
||||
$global_ref->{bad_element} = 1;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Get the location for warning messages.
|
||||
|
||||
sub location
|
||||
{
|
||||
my ($global) = @_;
|
||||
my $l = '';
|
||||
$l .= $global->{file};
|
||||
$l .= ":";
|
||||
$l .= $global->{parser}->current_line ();
|
||||
$l .= ": ";
|
||||
return $l;
|
||||
}
|
||||
|
||||
sub gather_path_info
|
||||
{
|
||||
my ($global_ref, $attr_ref) = @_;
|
||||
my $type = $attr_ref->{'kanjivg:type'};
|
||||
if (! $type) {
|
||||
warn location ($global_ref), "no type.\n";
|
||||
return;
|
||||
}
|
||||
$type =~ s/([^[:ascii:]])/"{" . sprintf ("%X", ord $1) . "}"/ge;
|
||||
$stroke_types{$type}++;
|
||||
my $d = $attr_ref->{d};
|
||||
if (! $d) {
|
||||
warn location ($global_ref), "no path.\n";
|
||||
return;
|
||||
}
|
||||
my @info = extract_path_info ($d, {absolute => 1, no_shortcuts => 1});
|
||||
my $start = $info[0]->{point};
|
||||
my $end = $info[-1]->{end};
|
||||
if (! $start || ! $end) {
|
||||
warn location ($global_ref), "parse failed for '$d': no start/end";
|
||||
return;
|
||||
}
|
||||
push @{$angles{$type}}, [$start, $end, location ($global_ref)];
|
||||
}
|
||||
-75
@@ -1,75 +0,0 @@
|
||||
#!/home/ben/software/install/bin/perl
|
||||
use warnings;
|
||||
use strict;
|
||||
use FindBin;
|
||||
use XML::Parser;
|
||||
use Image::SVG::Path 'extract_path_info';
|
||||
use utf8;
|
||||
use KanjiVG qw/handle_element/;
|
||||
binmode STDOUT, "utf8";
|
||||
my %data;
|
||||
my $element = '豕';
|
||||
|
||||
my $start;
|
||||
my $count;
|
||||
|
||||
handle_element ($element, \& handle_start, \%data);
|
||||
|
||||
sub handle_ie
|
||||
{
|
||||
my ($data, $count, $attr) = @_;
|
||||
my $d = $attr->{d};
|
||||
if ($count == 1 || $count == 2) {
|
||||
my @values = extract_path_info ($d, {
|
||||
no_shortcuts => 1,
|
||||
absolute => 1,
|
||||
});
|
||||
my @start = @{$values[0]->{point}};
|
||||
my @end = @{$values[-1]->{end}};
|
||||
my $x_diff = $end[0] - $start[0];
|
||||
my $y_diff = $end[1] - $start[1];
|
||||
$data->{"line$count"} = [$x_diff, $y_diff];
|
||||
my $f = $data->{file};
|
||||
$f =~ s!.*/!!;
|
||||
if ($count == 1 && ($x_diff < 10 || $y_diff > 0)) {
|
||||
# print "$f: $count: $x_diff $y_diff\n";
|
||||
}
|
||||
elsif ($count == 2) {
|
||||
print "$f: $count: $x_diff $y_diff\n";
|
||||
}
|
||||
}
|
||||
if ($count == 2) {
|
||||
# print $data->{line1}->[0]->[0];
|
||||
}
|
||||
}
|
||||
|
||||
sub handle_start
|
||||
{
|
||||
my ($kanjivg_element, $data, $parser, $xml_element, %attr) = @_;
|
||||
if ($xml_element eq 'g') {
|
||||
my $kvg = $attr{'kanjivg:element'};
|
||||
if ($kvg) {
|
||||
if ($kvg eq $kanjivg_element) {
|
||||
my $kp = $attr{"kanjivg:part"};
|
||||
if (defined $kp) {
|
||||
# print "$kp\n";
|
||||
if ($kp == 2) {
|
||||
return;
|
||||
}
|
||||
}
|
||||
# print "Found '$kvg' in '$data->{file}'\n";
|
||||
$start = 1;
|
||||
$count = 0;
|
||||
}
|
||||
}
|
||||
else {
|
||||
$start = undef;
|
||||
$count = 0;
|
||||
}
|
||||
}
|
||||
elsif ($start && $xml_element eq 'path') {
|
||||
$count++;
|
||||
handle_ie ($data, $count, \%attr);
|
||||
}
|
||||
}
|
||||
|
||||
@@ -1,30 +0,0 @@
|
||||
#!/home/ben/software/install/bin/perl
|
||||
use warnings;
|
||||
use strict;
|
||||
use FindBin;
|
||||
use XML::Parser;
|
||||
use Image::SVG::Path 'extract_path_info';
|
||||
use utf8;
|
||||
use KanjiVG qw/find_element/;
|
||||
binmode STDOUT, "utf8";
|
||||
my %data;
|
||||
my $element = '氵';
|
||||
|
||||
|
||||
sub handle_start
|
||||
{
|
||||
my ($data, $count, $d) = @_;
|
||||
if ($count == 3) {
|
||||
my @values = extract_path_info ($d, {
|
||||
no_shortcuts => 1,
|
||||
absolute => 1,
|
||||
});
|
||||
my @start = @{$values[0]->{point}};
|
||||
my @end = @{$values[-1]->{end}};
|
||||
my $x_diff = $end[0] - $start[0];
|
||||
my $y_diff = $end[1] - $start[1];
|
||||
# if ($x_diff < 0 || $y_diff > 0) {
|
||||
printf ("file $global{file}: %d %d\n", $x_diff, $y_diff);
|
||||
# }
|
||||
}
|
||||
}
|
||||
@@ -1,59 +0,0 @@
|
||||
#!/home/ben/software/install/bin/perl
|
||||
use warnings;
|
||||
use strict;
|
||||
use FindBin;
|
||||
use XML::Parser;
|
||||
use Image::SVG::Path 'extract_path_info';
|
||||
use utf8;
|
||||
use KanjiVG qw/handle_element/;
|
||||
binmode STDOUT, "utf8";
|
||||
my %data;
|
||||
my $element = '氵';
|
||||
|
||||
my $start;
|
||||
my $count;
|
||||
|
||||
handle_element ($element, \& handle_start, \%data);
|
||||
|
||||
sub handle_sanzui
|
||||
{
|
||||
my ($data, $count, $attr) = @_;
|
||||
if ($count == 3) {
|
||||
my $d = $attr->{d};
|
||||
my @values = extract_path_info ($d, {
|
||||
no_shortcuts => 1,
|
||||
absolute => 1,
|
||||
});
|
||||
my @start = @{$values[0]->{point}};
|
||||
my @end = @{$values[-1]->{end}};
|
||||
my $x_diff = $end[0] - $start[0];
|
||||
my $y_diff = $end[1] - $start[1];
|
||||
# if ($x_diff < 0 || $y_diff > 0) {
|
||||
printf ("file $data->{file}: %d %d\n", $x_diff, $y_diff);
|
||||
# }
|
||||
}
|
||||
}
|
||||
|
||||
sub handle_start
|
||||
{
|
||||
my ($kanjivg_element, $data, $parser, $xml_element, %attr) = @_;
|
||||
if ($xml_element eq 'g') {
|
||||
my $kvg = $attr{'kanjivg:element'};
|
||||
if ($kvg) {
|
||||
if ($kvg eq $kanjivg_element) {
|
||||
# print "Found '$kvg' in '$data->{file}'\n";
|
||||
$start = 1;
|
||||
$count = 0;
|
||||
}
|
||||
}
|
||||
else {
|
||||
$start = undef;
|
||||
$count = 0;
|
||||
}
|
||||
}
|
||||
elsif ($start && $xml_element eq 'path') {
|
||||
$count++;
|
||||
handle_sanzui ($data, $count, \%attr);
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user