Encode/Table/doti.tbr

#?PETBL/1.0 SOURCE
#?o name="dot-i pictographs"
#?o table-name="doti"
#?o license="Public Domain"
#?o map-internal="my ($c,$d,$t) = (shift); ($t,$c,$d) = ($1,hex $2,hex $3) if $c =~ /(A)-(..)(..)/; (0x7100E000 + ($c-0xF0)*188 + $d-0x40-($d>0x7F))"
A-F040  U+0030
A-F041  U+0031
A-F042  U+0032
A-F043  U+0033
A-F044  U+0034
A-F045  U+0035
A-F046  U+0036
A-F047  U+0037
A-F048  U+0038
A-F049  U+0039

A-F04D  U+2776
A-F04E  U+2777
A-F04F  U+2778
A-F050  U+2779
A-F051  U+277A
A-F052  U+277B
A-F053  U+277C
A-F054  U+277D
1	wakaba	1.1	#?PETBL/1.0 SOURCE
2			#?o name="dot-i pictographs"
3			#?o table-name="doti"
4			#?o license="Public Domain"
5			#?o map-internal="my ($c,$d,$t) = (shift); ($t,$c,$d) = ($1,hex $2,hex $3) if $c =~ /(A)-(..)(..)/; (0x7100E000 + ($c-0xF0)*188 + $d-0x40-($d>0x7F))"
6			A-F040 U+0030
7			A-F041 U+0031
8			A-F042 U+0032
9			A-F043 U+0033
10			A-F044 U+0034
11			A-F045 U+0035
12			A-F046 U+0036
13			A-F047 U+0037
14			A-F048 U+0038
15			A-F049 U+0039
16
17			A-F04D U+2776
18			A-F04E U+2777
19			A-F04F U+2778
20			A-F050 U+2779
21			A-F051 U+277A
22			A-F052 U+277B
23			A-F053 U+277C
24			A-F054 U+277D
25