1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
#!/usr/bin/perl
use lib "../src/.libs";
use lib $ENV{PWD} . "/blib/lib";
use lib $ENV{PWD} . "/blib/arch";
use zinnia;
print zinnia::version(), "\n";
my $input = "(character (width 1000)(height 1000)(strokes ((243 273)(393 450))((700 253)(343 486)(280 716)(393 866)(710 880))))";
my $s = new zinnia::Character;
my $r = new zinnia::Recognizer;
die "$!: cannot open\n"
if (!$r->open("/usr/local/lib/zinnia/model/tomoe/handwriting-ja.model"));
die $s->what() if (!$s->parse($input));
print $s->toString(), "\n";
my $result = $r->classify($s, 10);
my $size = $result->size();
for (my $i = 0; $i < $size; ++$i) {
printf "%s\t%f\n", $result->value($i), $result->score($i);
}
$s->clear();
$s->set_width(300);
$s->set_height(300);
$s->add(0, 51, 29);
$s->add(0, 117, 41);
$s->add(1, 99, 65);
$s->add(1, 219, 77);
$s->add(2, 27, 131);
$s->add(2, 261, 131);
$s->add(3, 129, 17);
$s->add(3, 57, 203);
$s->add(4, 111, 71);
$s->add(4, 219, 173);
$s->add(5, 81, 161);
$s->add(5, 93, 281);
$s->add(6, 99, 167);
$s->add(6, 207, 167);
$s->add(6, 189, 245);
$s->add(7, 99, 227);
$s->add(7, 189, 227);
$s->add(8, 111, 257);
$s->add(8, 189, 245);
$result = $r->classify($s, 10);
my $size = $result->size();
for (my $i = 0; $i < $size; ++$i) {
printf "%s\t%f\n", $result->value($i), $result->score($i);
}
|
