W dC: "@ v +73!73 d5;d5<C dCN "@ v +3#3 PkPj~C y #@ 3M _4 N +###53533yBB < y 2@/ g 3M_4N
+73#53533#3##5# BB<<< P @ Y a Q +462"&P6L66L6L&66&%55 K v i /@, _2N
+353353353KUUUiiiiii 2 ' 1 ; ? L@I i j
1M a 7M 2M
a 8N?>=<:9540/ +%462"&72654&"462"&72654&"462"&72654&"#3G~GG~G8)J**J)/G~GG~G8)J**J)+G~GG~G8)J**J)22T__TS__S32&#"3#3# 327#"&'#73&547#7gtZb<5)@lZtN9Hs~J(4^U2$"2V]D'[~s2&%2 ; G cIK+PX@# l M _ N@ l c NY@ #! +65!7!&'&+7!#3##5f 3sj'Pd ?
7??6?Q; gK
UIKPX@ a M NK+PX@ m N@ ] a QYY#"+7327'#"&5#g@7F'*) Bn9B8$ " 8 Ba C@@ I _ M` N
+'#373#5###53S6H\\H7RV6WZX'1 F P J
IK(PX@ _ M a N@ e _ NY@ +;5.546235#5>54&"#JABffBAÇBIIB!hQdppdQh!:a$SS$a ->$ k IKPX@ k e a N@" m k ] a QY@
+5&" 327#"&54632@<@TG$9cNzz}.==%={K?y~ 0 # b
IKPX@ m a M a N@ m m a NY@ " +"32654&7.#"'632#"&546328O!94Ic;GBA79@M[^OViJ"Pk8?Fl@H hy!.)_W4
@ _ M N B+!37!tBe^f d @ M ` N+!#!#!BB^ - &@#
I _ M _ N+!!!!57zוFi<<(, d%Qn @ [ _ O +5!d%II b )@&I c N +333#C͗H2# 2
' 1@.#I m]aQ$##"#"$" +3267.#"#"&4632632#"64&#" 32t<52<<253nQ\\Qm43nQ\\Qm<52<<25zGF>>FnhhonhhzGF>>F ' GIK(PX@ m a N@ m ] a QY#$#"+#"'73254632&#"NHA-%2TNHA-%2T4PU;g6PU;g O A@> I m m m ] a Q!#!#!#!! +632327#"&#"632327#"&#"O-/-$-/-/.$-/-/-$-/-/.$-/ B"< B" B"< B" P
"@
J _ N +%!5%5%`HX`=<<?B? P
#@
J _ N +%!=-5`W`=<;:7632/.+*'& +$462" 462" 462" 462"462" 462"462" 462"$462"$462" 462"462"&7 ( ( ( ( ( ( ( (V ( ( ( (W ( ( ( () ( (u ( ( ( ( ( ( ,( ( 8( ( r( ( T( ( s( ( 8( ( V( ( ( ( ( ( ( ( ( (
3dD@( m ] a Q
+ D264&#" "&5462~ (( ((K`DD`D2);));),C0.CC.0 >dD@3I m ] a Q + D27654&#"7 #5#"'&547632#!!f - * *1 n.## + 2dD@'+* I m ] a Q'*&3+ D'#"'&54763267654'&#"'7>32T` $"2 ? 4$& *Xh ,) ` @ =dD@2?:2&$I m k ] a Q'&!) + D&'&'&'&54762>54'&+'327654'&#"'7>32 o
($*J '4 , *
&
A 9dD@.:20,( J ] a Q AA
+ D27654&'"'&54767&'&5476?67654'&/7 ) ) %
0)' ('
"
)
; 6dD@+ J;,
I ] a Q42)'+ D'76764'&/#"'&546?32767&'&54632
2#$)
/
9&-
&
A EdD@:?; I m m ] a Q#!&'. + D&'&'&'&54767&'&547632 '.#";#"67632 7
9(*
),%>/ $
!
2 GdD@<J m m ] a Q ,*%$! 22 '+ D67654'&#""&54675732767&'&54632&
5=<;:943)'
PP + D"'&/7327654&#"'367654&#"'7>32327675#53##5#"'&'.*+ ""!##
!- >$#
B@,
7-
" e"" " / DdD@9 I m k [ _ O / /!$)/ + D5!##"'&/732764&+'327654&'uJ
+:75)%#.,-!LX""
)20X
N**0!!
; D SdD@HC32! I mm
[
` P D D&(&$/$ + D5!#67632'767654&#"#5#"'&547632 '.#"327675 &3"* , * "!/
""C
1# U
"%%
$ ɱdD IKPX@% s l[` PKPX@$ l[` PKPX@% s l[` P@$ l[` PYYY@
'# + D476;5#5!##5#" #"&
]?-h? F"" @
GdD@<I m[` P
+ D27675#'5#5!##5#"'&
O'A?-+ S
lg
,g""m
" =dD@2
I m [ _ O " " + D5!##"'&' './7 3276= 2! )<`"( )
""A (e:
A O` G ldD@a4$"
I
m m l
]
a
Q
EC<;:987651/)'
GG #+ D&'&#"!3##5#"'&547632 '.#"327675##5#53&'&547632''') F9' + +
(85! ,5f$% P
p "92 * 8dD@-I m [ _ O **+ D"&/732654'&'&'&5476;#"}(F(
#!]]
! 45+! %
$3 d 7@4 m _ N
+53"&'3 32673 V(NxI
P23P IxBWWiQ6HH6Qi d d( ?@< I m _ N
+%'7'53"&'3 32673
"P(-V(NxI
P23P Ix/<(>WWiQ6HH6Qi dL( ) n@kI
m k
m_ N '&$" ) )
+53"&'3 32673'7'53"&'3 32673 V(NxI
P23P Ix~"P(-V(NxI
P23P IxWWiQ6HH6Qi/<(VWWiQ6HH6Qi d B W@TB@31$ I m m m
_ N 97/-!
+53"&'3 32673'###"'&547632 367654'&#"'767632 V(NxI
P23P Ix
!. -!B )'+,+F34'"5wBWWiQ6HH6Qi
!(& +++=8-' dm ] d@a\UK?=$ I m
k
m
m _ N DB:820/-!
+53"&'3 32673&'&'5#&'&547632 767654'&+'327654'&#"'7>32# V(NxI
P23P Ix$$ ( !0;#h"% " H&<+,
*$4
8BWWiQ6HH6Qi
%
2
' - !-# & d = Y@V I m k m
_ N 0.-+ ==
+53"&'3 32673"'&/732654'&'&'&5476;#" V(NxI
P23P IxW500; ""0"" -
+'GBWWiQ6HH6Qi/$$:,$ "7
"2F 3 ! 9 : =@:"J6I m k ] a Q$!% %&% +%>54&#"'636#"&5467.54767";#"3267.' &*." +'K(J>".]'"19 n0M'G1I5,?^B+U'./N* *.!*J4(60umN0QH'%='$,]4h*&1 \B++z@." + ;!9#4 *>umN7!cC%%dH1w'* *.!*% H @ J N+7#&'74:B`BH<'UY-6%p' # ;@8 L 3M a 9M_4M 2 N## +!#3354632&#" 3###BBdDLF9) -PBD0PU9g032.#" .V;0&'6< /4C
/
6'#B n 8@5J
I k f N %%+ 7>32.#" =3.W:/&'65C%(7G
5
6'#BPII "
-@* J I d N
+53%77pd!,Cx@]]< ( / 7 +@(J
I e N %(+%77>32.#" "2C<N0$ $
.C C ((.< :* B 6 7 <@9J
I k e N %(+%77>32.#" 7532C<N0$ $
.C !I< ((.< :* BIII 7 !@
I f N %%+.54632.#""']C$ $ '62+ E#=U< 6'%G 3@0
I k f N +53.54632.#"KJ S9 , + *" II] E#=U56' E ! 2+'%;`!5< $ I / @ I v +3#'WB
) z@
)('&%$
IK#PX@ M b NK(PX@ Mb M a N@ M` M a NYY@ +% +>54&#"7.5463275#5!##'7' ' #*Ǹ+1I47O" 5x,qC.. '' 0wJ'4JJ4#BO(<<,5I + 3 O@L.-,+*'
I m m M` N20)(%#
+'72675#'5#5!!>32'>54&#"#5'%5#"&6659&G:}Z8I(Eb.)<'):*"J BF F"Fa5133 &#'6]<< #mM54&"753###"&'3.5462'"&5467.5462 32675$,,<*"qC3'X.. 9SS9#@
> i@f* I
n l M
` N > >=;750/$$$! +5!##!"3267>32# .'"&54632>54&#"#"&5463!5
qB}
K! +qP B0.+L 4J"1 F`
*u:)^<< U?,C]'/ /#2$#'"A) .$2] c / D@A."! I mm M
` N / /$%$#%# +5!#>32.#"#5#"&54632.#"3267
cK)
2O B > MmqP$"4KG1 @^<<#&I
K: eHMm<J4,?3+2 : `@]32,+%
I m m m a M
_ N ::750.)'#!
+%"&54632.#"32675!!#"&' 3267#"&'7 326=>UY@ 6($2."(M LC. ^P02P".6 S9=U
< /! *&#P u<<6OpMEOFdy>Bw0Nm ,8^<<-$2<8653/-(&"
+'7'"&546325!##"32632#"&'7 32654&#"#"&546;5^I( LKQ);vR]O6NT6O
Q,+ W6!( <<
U!?,X}(U=!2"k x >@; I m k _ N
+5!"&5467#5!#3267
C]&#P6B7'-r64q^<<]C-MCCP)'7k]jKU ! : E@B/I m k m_ N
64-+'%$" :
:%
+%>54&#""&5467.5467#5!!;#"3267.54632 &*." +']'"19h G1I5,?^B+U'./R9>UN* *.!*JmN0QH'!6
<<4'6CJ42F" .d0=US9u Ig ;@8 I m k _ N
+5!"&'7 32654&'!#
gJ<<38".:7F U^<<ɥ3$7u6<"U/C] ; F F=76 IK#PX@:
^
n
n k_ N@;
m
n
n k_ NY@CB;942.,+)!$!'$ +.'"&54632>54&#"#"&546;5!5!##"32632 3267#"&'# YV"Ji"#@DV I%t7&; =I%2 (*
q.:)/ 0 3$ '"G% !*!/d<< K!
C +h % x= * L@I("! I m m m _ N %$
**
+5!"&'7 32654&#"'>32 3267#"&'
2p3"-])2FB/0!B!@a $ 1 3 g^<<82/-0N71G
5VC
<
Id
C ! A@> I k a M_ N
!!+'7'5"&546;5!5!##"3267(W(t]CrP'6}X8\5 zx/.(dtKi<
O ' A@>"!I k a M_ N
''+'7'5"&546;5!5!##"32654&'7 J(heHs\,>O9R5 yq5!(^kMm< 8(M-X} 3 Y@V
I
m
m k a M_ N/-,*%$#"! 33 +'7'5"&'7 32654&#"#"&546;5!5!##"32632RI(_5P6O
M47&)w PM);vk6!(]a"VR:5".k<< U>,Vy Q 2 >@; I n k M_ N22$$*!+ +'7'7>54&#"5!#!".54632#"&546;5I(B#-& #~^$3QK46O}XkY@x5"(7& &" 7<<>,N<"4KO6EbkHe 1@. m_ N
+7265#5!##"&5'7;M]CEa3$%$3|<<=VV=% )@& I k _ N +5!.546;#"
ep]C'6aY^<;#"3267^Ki 6BO64KG1 " &:0) C!P@YG13}@@}^<<
U=$=b97N>,*:< ' 0Q
5B/$3TLV@E 1@. l _ N +5!"&5463!#"
d a^<<"< I 7@4 I l _ N
+'75!"&5463!#" 555d a/556<<"< I | *@' I m _ N %#+5!#3267#"&=
{F2)LK)Nm^<<4K:1]#'rO g % M@J I m m M
` N % %"
+2675#5!#>32.#"##"&= @ >g B %&B"B?!He
.),?T<<"' C
5/
bE
# F@C! Im m _ N ##
+5!267'"&54632.#"7
4
F1MmuS" #( Y^<T01a!(^-N Ea" ^<<? ?[9ED:]04kB/? 2@/ e M M _ N "% +53.54632#&$#"3##
q kPcه rrB^< Zc{^B <^ KPX@/ M _ M M
b M a NK#PX@'
[ e M _ M NK(PX@( m
d M _ M N@+ m
d M _ NYYY@
+5353.54632#&$#"3##ld#q kPwLJ rrB[]]< Zdk^B <^ 7 ! 9@6!
I m m _ N +5!.54632>3"'>7.#"
7ruS)W& S-Dp< ?!7Nu`^<<)TMm)' #C`M&3 F1C}# I
1 N@K/# I mm
_ N -+'%! 11
+5!2654&"267.#""&54632>32#"&'
R;;RD BC ,>>,HeeH0TP-EaaE/UR^<<.U=7NN=>NPB32#"&'l665R);;)*D
D BB ,>>,HeeH1TP.EaaE/UQ655C<<'Y@7NN=@STE?MU=>U@;$
I m m ] a Q #" +2654&#"7 265#"&54632#$33$&77((Mm4 B]]BOX[6'$33$'6;.
gI \A@Yvli 5@2
I m_ N
+7267'5!##"&= ;J)L Pq1Ga<32.#"#5#"&54632.#"3267<<<c@$*))D B E HeiJ3
).C?,"H
5556<<#&
CK: "eHMm
6
J4/B5/2 > c@`760/)
I m m m a M
_ N > >;942-+'%"!
+'7%"&54632.#"32675!!#"&' 3267#"&'7 326=e555=VbE) );/!(M L;) )M@NJF#66
555N7=U
52$ *&#I n<<6Op;6B47-6& -@* I ` N4#+'75!##"&546;26=555)X w
6
5556<< r >@; I m k _ N +'75!"&'7 32654&'!# 665rZ0<)E$37:F Y/556<<4r' UE<> 7O g ) P@M" I m m M
` N
)
)&$! +3'7'2675#5!#>32.#"##"&=665 @ >g B
&&B"B?!He/...),?T<<"'
<
5/
bE
:@
IKPX@ a N@ ] a QY%+>54&#"''>7.54632 "* ''2_0">V(.N79S'"5""46)?/$8H&4KK4 C k 5 .@+ I m _ N
+5!'%.#"'>7>3
! @l"*3(E0 I R@OIF=4.-' I m m e _ N A?:920+)"
+53>4&#".'#"&5467.54632 3267#"&'32674632 $,+ !/((
MmA7&*U=:R*& 3/\)-\+0X%4=F2& " ^<<5<++ 52 0$eH4XB"9RR9&D
BE".C'7' #( 4 O@L41 I m m m k
_ N ,*)'#! +5!.'"&54632>54&#"#"&5463!!"32632
/E7A#.Oe
T5k7&h
@ T&7mT
43^<</(! "
L, j5$3< @6'?f
" ~K(PX@'
[ e M _ M N@+
l e M _ NY@
+5353.54632#.#"3##dq }XiGI8W=V rrBGdd< , Pq|`oO7 , <^ . { IK(PX@* m M
_ M M b N@* m f M
_ NY@ . ."%$% +53.546324632.#" #.#"3##
q }X=BT<$ $ '6 C8W=V rrB^< , Pq=97M;
6' 3`oO7 , <^ . 2 IK(PX@3
k m M _ M M b N@3
k m f M _ NY@// /2/210 . ."%$% +53.546324632.#" #.#"3##%53
q }XA;X>$ $ '6 C8W=V rrBJI^< , PqA<:Q;
6' 3`oO7 , <^II W 2@/ e M M _ N "% +53.54632#.#"3##
q}X`+C*B>UkrB^<4 Heu\yC.4<^ y K(PX@* ^ M_ M M
` N@- ^ M_ M
` NY@
+53###53.54632#.#"^rBqq}X\*<*B>Uo]]<^<4 Heu\lC.4 . K(PXIIYK(PX@& ] f M _
M N@* m f M _
NY@ . ."%$% +###53.54632>32.#" #.#"rBqq}X2e,R3$&'6
<*B>U<^<4 He/,,5<
6' /\lC.4 . 2 K(PXIIYK(PX@/
k ] f M _ M N@3
k m f M _ NY@// /2/210 . ."%$% +###53.54632>32.#" #.#"%53rBqq}X2e,R3$&'6
<*B>UI<^<4 He/,,5<
6' /\lC.4III $ KPX@/ M _ M M
a M b NK#PX@'
[ f M _ M NK(PX@( n
c M _ M N@+ n
c M _ NYYY@
+5353.#"#.546323##dq`2". IV=I!rrBTdd#=U|<^ $ 9 + ϶" IKPX@$ M
_ M MbNK#PX@!f M
_ M NK(PX@& ^ f M
_ M N@* m f M
_ NYYY@ + +%$%" +53.#"#.54632>32.#" 3##
q`2". IV=*X$O2$ $ ,? rrB^#@Y82-6< F2 Q<^ $ 9 /& IKPX@- k
M
_ M MbNK#PX@* kf
M
_ M NK(PX@/ k ^ f
M
_ M N@3 k m f
M
_ NYYY@" //.-,+*)$"
+5353.#"#.54632>32.#" 3##]q[4'6 I]C'P"P3$ $ *:
rrBddq<`|3$ ?>#@Y5/+2< F2$6<^ I 2@/ e M M _ N %" +53.#"#.546323##
q$l@Y IZ-rrB^'Ea~<^ I H@E
[ e M M _ N
+5353.#"#.546323##dq$l@Y IZ-rrBT]]'Ea~<^ I 2 + n IK(PX@!e M M
_ N@& ] e M M
_ NY@ + +%$%" +53.#"#.54632>32.#"3##
q$l@Y IZS:[=$ $ '6grB^'EaC>8I< 6')D<^ I 2 + / IK(PX@*
ke M M _ N@/
k ] e M M _ NY@,, ,/,/.- + +%$%" +53.#"#.54632>32.#"3##753
q$l@Y IZS:[=$ $ '6grBqI^'EaC>8I< 6')D<^II - p ( :@7 J
I m ] a Q +7'"&'7 32654&#"'>32΅W(!'yI7N 3(H(,>mPxq/dk40(&*' $ (%*>,4K ! /@, JI m ] a Q4%$+7'"&54632.#";=UN7VJ.CI *2$
<]]/PV:*.CaZ!OX# 5 3@0I [ m m _ O#$%" +4632.#"326753#5#"&aE 9,)::)*M BB L*Ea=U<
/!$3'#jP Y ( P@M' I
m m m m M ` N ( (%#! !$"#
+5!##5#"&'32654&#"#52632# 3267cqCP/TC<<;)'&&'EaZLQ04U^<< "|`%$ &BO69F0:6.Z %: 1@. I m _ N
+5!"&'5 3267
:d(`28^$:" 9^<< <I
5 F@C4(' I m M ` N 5 5$%)+#
+5!!>32'>54&#"#5'7.54632.#"3267
J,@YB<<8@3$.OB(=QuR#
6O?,&H^<<%+iK@}2('j6/BF8/rcAPqCJ4,?/(9 B & ? i@f8710/.$ I m
m m M
` N'' '?'?<:-,+*)(!
&&+%2675#"&4632.#"3267!#"&' 5!##5'7.'.'7 326=(U> =VZ@/%$3/! = G1OrBK}((/, 'd22ISrS < /B/
=Ud~<<6d
ZF%kE!+22$ ;@8
I M ` N 4# +5!##5'%##"&546;26=
,qBM
k
/ ^<<5e}
! >@;
I m k M ` N ! !%% +5!##5'%5# #"&'7 32654&'!5
qCSN7T/<(|> '40 ^<<5 ;6Om& ']0 J v@s9.-*'! I
m m m m
k M` N JJIGCA@>7621%# +267##"32632 5!##5'75#"&' .'"&5462>54&#"#"&546;5, AL# 3-qC!%,OJ9 /,I 9R&899L
J$n;)2
K
,<325
6rB!-L%H ('\1#^3^<<5-0 5 "82 1 - <@9%$#" I k _ N - -,*'$!+5!##"3267.54632 .''7.546;5
>n);N
* + , B+.azaE^<<7&@n
'+ + G%J/.x}KB]k N =@:I M ` N
+%2?#5!##5'7.=
dC[qC(@RB.Ca<<5]9 + / L@I*)('&#
I m m M` N .,%$!
+2675#'5#5!!>32'>54&#"#5'%5#"&&G:}Z8I(Eb.)<'):*"J BF F"Fa&#'6]<< #mM>^<32'>54&''7"3"&5467.546;5
Ch -:"Ki# 5 5gh0&&*+ ^<<=
R:*M/5 (@>`<{.I B *k
= t@ =:9.-IK(PX@( m a M_ M a N@% m e a M_ NY@ %## % +>54&#"767.5462#53# #"3267#"&547675' $' *(i6(.NnN)'.q;21+" IK#PX@5
m m
m M ` N@:
m m ]
m M ` NY@# ] ]ZXUSNLB@=<97&$! '"+>32>54&#"26755!!>32 '>54&#"#5#"&5467.54632.#"32675J*
* -O3V
6.:K2$ M(9S83(&** %N BT1@Y,$$,eH B "0,>B/)E "".(/(C
- <<"'K4 8 (([*5@##*&ș ">, 3
:#4J/&8' ; - j@ #" IK#PX@ m M ` N@# k m M ` NY@ - - +#
+5!!>32'>54&#"##.5467#5!5
H; Mm" 6G1#<C%1UK"Yh w{^<<iKDq'%c91Gn@+5o*/4A(= < ` ^ @]QPDC:90-,#" IK(PX@)m m
m
_ N@. ] m m
m
_ NY@ ^ ^[YUSNL%+(+%+# +5!!>32'>54&#">32'>54&#"'>7.#".546325#"&54632.#"3267
C$B])&6 #7&/G 4 7NE9(-7' %G<(*:L9
RiaF( H&KiiK 5+ /BB/0M^<< nM,T (? 1G@1F21[5?" 3+( /! 0 <R29S fJIh <C.,?3+
E @D87.%" IK#PX@1 m m a M
` N@5 m m M a M
` NY@!
E
EB@<:53)'$#
+726755!!>32'>54&#"#5#"&5467.54632.#"326750^ c Q,9SOC(8?* .TB&Z.1F8+. I M ` N . .$#= +5!## #"'.5467%##"&546326=
'qC . )4
c^<<r
+
_
Z p @
YXTHG;8/.%
IK#PX@S
m ]
m n m m m k_ N@T
m m
m n m m m k_ NY@5 p pomigba][VURPLJEC?=:964)'$#
+"&54632%5!#!"3267>32#>32'>54&#"#5#"&54632.#"32675"&'7 32654&#"#"&546;5 ]
C $ 7OnM%D 4KI<".6"D/<H*9RN7 8(! *.!(JM;/,X9S' * 1o;)u <<
0
J49Sd7'&J5," c:*.C/
" xMF(?G7'#
[*$2W { x @a`]WVSROICB65)&IK$PX@U
m
m m m n m k
a
M_ N@S
m
m
m m m n m k_ NY@3 x xwuqojiec[YMKGE@>:831-+('!
+"&54632%5!#!"3276767632#5#"&54632.#"32675#"&'#"&' .'73265.'7 32654&#"#"&546;5 TD7N*&<-,??, . (N$."
K,In< $@8Z6O' $6p:*u <<
1F1&D]0"#1/ $ V
3K-<5
\
;)7 (CI:* Y,$2W W }@z@?<4-'$I
m
m n m l_ N W WVTPNJHDB8620+)&%
+"&54632%5!#!"3267>32#5#"&'#"&546;26=.'7 32654&#"#"&546;5m tL (',?$ < %2 Y
"3U (=M6O'+7p?,u <<
0K4 9
E q:%(=B/! 'U*$2W n $ cl@ ONKE<9IK PX@Y u
m m m n
m
l a M _ NK(PX@Z
m m m n
m
l a M _ N@^
m m m n
m
l a M _ NYY@7%%
%c%cb`\ZYWSQ@>;:4210,*)('&! $
$ +"&546322675#"&'"3>3"5!#!"2632#5#"&5467.5467.'7 32654&#"#"&546;5n? #!, '#
*"
B6j,>,$<?!4K )!Q7/5I=V c5k;)u;)' / <<
0G1,EB 7& - +=7(@F3$#U*$2W n Q @>=:5/*I
m
m n n m k_ N QQPNKIHFB@9731.-,+%#"
+"&5463235#"&'5!#!"32632#5##"&546;5.'7 32654&#"#"&46;5 t/,
4 r 2FCZ !:g&.8]4K r (d;)n <<
*C.&9 c<Y @/.BJ3$ [H2W L * }@wqpmg^]ZHB?%$ IKPX@`
m m
m
n m k a M` NK#PX@^
m m m
m
n m k` N@e
m m m
m
n m k` NYY@/
~|zyusbaUSNMFDA@:8751/.-,+)'"
$+72654&#""&54632 32675#"&!##"32632#5#"&'3.54632 &/"&5467.5467.'7 32654&##"&546;5!!/+ +$ % 0 5+
U T'7C2 7]' ):*# *+5 2Ki,$ $A1!=/9T6O X*;)-q' - 2
~<6* .
$ "
(?,%< ('<(.;<& ^ *C 1 M@J0 I m
k k M
` N 1 1.,'&%$# +5!##5#"&5467#53.5467#5!#3#3267
qC%h47N
nW&0
xd* 8j ^<<8632*)('! %
%%+>54&#"267.54675!;#"5!# #5#"&54632.#"32675#"&5467.5467 $& +(0N&*8, G1(0}qj K49R
I
' +'"S: 2 4 3 @ .-
IK$PX@, m k M a
M` N@*
m m k M` NY@ ,+*)('&%$# 33 +%"&'7 32654&'%5# #"&'7 32654&'!5!5!## 9K/6!p= *
G1@|&< X)"M rBN]P!FS3$$ V 4KiTg;))d<<%W9S ; W@T32&% I m
k m a M ` N ; ;:975$%".#
+5!##5#"&5467'%32675##"&'7 32654&#"'>3235
qC,"<3235qC
mM<}05'a,/B$ W97e%(Q.$2."
* '? 8S^<<J
B]`SDN:)(x;6H1,/%+:* &5W tQ
; M@J0"!
I m k m k
_ N;;:8#$,$!$ +%#"32654&'5!#!"3267 #"&546;5#"&546;5 *uS9R d^ *ta3V /( yUoS9 !S9k#4K/!.<< 6B .<%9SmN1FCcQ/BW ? r@o43I m
k
k m M a M` N ??><861/+)'%!
+%267!>32# 5!##5#"&'32654&#"#"3267#"&546;5r)T"@>SuXURqCT1T 'O7>@C]}X.Z%/-sPq2+'6
D%=UmM4JCfG2FW E r@o76I m
k
k m M a M` N EEDB><1/+)'%!
+%267!>32# 5!##5#"&'32654&#"#"32654&'7 #"&546;5$P%QZWP"IN?Zf:R 7W (3f4Kd.r?,^<<
6!7&C]
;)@YVP/IP6'
K4H+(HQ:*
g+ *W + S w@t?> I u
m m k
m m m k_ N
S
SRPLJIGCA<:9731-,&!$! +2654&"5!#!"32632#"3.5462#"&546;5#"&'7 32654&#"#"&546;58''8&beBc); 'jD JhKm[jS9In9(2g4J
c,m:*Ό <<
37&"< 7U #,?C.7A}Q,?(\Q(HQ:*
^'$2W P <;IK#PX@E m m
m m
n a M` N@W
m m
m m
n M a M` NY@3 PPOMIGFD@>97310.*'&$
+%267!2632# 5!##5#"&'2654&#"+"32632#"&'7 32654&#"#"&546;5z.X w VyaFJqC W/O|MmR: s
G Q*:qP]P6IJ4KQ3z>,)'ak(R:3K-7<< "{`+ ".. L!C.X}"Y@ !{2'6k nb S γ.IK$PX@H u
m
k m m k a M_ N@F u
m m
k m m k_ NY@- SSRPLJIGCA=;651/)'"!
+2654&#"2654&"5!#!"3.54632!"3.54632#"&546;5#"&546;5"""" 8&&8'ot*:qIK37O$2uL K41GjWs]BjheH <,4=yN/B(~Q6O< Q }@z5%I m
m k k
m M a M` N Q QPNJHDB=<8631-+)'$#"!
+%267!>32# >54&#"5!##5#"&'32654&#"!"3.54632#"&546;5f-X!-h9SuaENP"-& #qC X.V~]$3O79h-):yUK46OqPyaEզ6.TqO64K,8V7& && 4<<')`' +?,`: 4KO6EbyFa ) ? C@@3- I m k _ N ? ?><'&%! +5!##"3.54632 ./ #"&'.5467>54&/.546;5
6h,>wd 3$!/ *<0d6
"(.#980.*($"! +267&/"&'3>7.5!#!"3267>32#.'#"&'"&467.546;5Q1T$&/!(6e-=:) - *f +yA 2 $ ,+J']09W @YT>S9+%4 ,&7%1 !. - )e<<' =p(6#,(\40')H6OlP
7Nk ; 8 @ 0'&%$ IK(PX@. k a M _ N@, m k _ NY@ 8 8*)'($!
+5!#!"32673267.54632'#"&5467.546;5
Hq$3O6(Nf?, >2$# /6("I'He,$;JY@^<< $2C
@$ + "."45^PS9%?
N./Bk T u@rL@?0) I m m m
m
m
k_ N TTSQIHDB=;7642-,$" +267/#"&'5!#!"3267>32#.'#"&'"&54632.#"3>7.546;52T$0"(7g *yA 1 $ ++I"_39V
Z>,-( ]C ) #AS9+%"4 ,&7r<<' =p(6#+(\ 5#&H6aF,>( /B.
q$7Nk M 7 H@E/ I l M ` N 7 7*/"!
+5!#!"34632 #.' #"&54?.546;5
Zo$3i(! + + I,
&se}YuY@^<7267'5!#!"3267.54632 &/#"&5467.546;5$ += B @i".iK+ '6(!,$<
$ ]01GA7GYU>I 0!
qI
C<<#=V "2$( 'T+ &A8@6'%Eh@4Jk w J Y@V?>430)(
I m m l
_ N J JIG&+&.'$! +5!##"3267.54632' #"&57'.#".54632 7#"&546;5
p&7aF! + $3% d.d /! (B
(6''
I%`]B^<<' 9S + -(r
(P /-!.dyU7Nk * O@L
m
l k M
` N
*
*)'#! #$! +%3##";%5!##5##"&546;5#"&546;5b۴ qC
^
/1GG1q <<5
d
^B/,>W / W@T'
I m m k M
` N //.,"
+%267##">3#"5!##5#"&5467.546;5D; &5( :2(^);GqB>CMm-7O6xMET '<3H2<<=BY@ . ?"/BW = ? _@\7.+*'I
m l _ N ? ?><20"
+7267"5!##"3267.54632 .'#"&5467.546;5,K$="'#Jk,>aE( 3#".& ("C V14J/'ETeH!G8
" =<<7&9S 3$'#];;+37' 7f;@Yd 5 w43 IK PX@( s n M ` N@) n M ` NY@ 5 5$%- +5!## #"&546?.'.#"#"&54632 75
qB )}" E%PM81o5)/^<<,^
J
r 't%0-& G >@; I k M` N
+35#'5!###".5467.='TqC$392"AJ(! n#<<,/!4] /%w@&? 3! g > @
763 IK(PX@+
m m m
_ N@1
m m m m
_ NY@' > >;91/+*)($"
+2675#'5!#2#'2654&#"'7.#"3"&54632>75#"&=*P ;t1GS9'7#$3<%'7K4EaU=#8" O,Eah" $2<U57'"2$
' !/5O64K Y@ ` R a@^KJBA854+*"!I
m
m m
_ N R ROMHF<:20&$
+2675#5!!>32'>54&#">32'>54&#"'>7.#".46325#"&='G;#I(Ea ; ;)#I &7OB6/-7' )G<0 'H7
RiS9$A E#Ea&#'6F<< #mM$L#!: 1F)&
Fd[<: 3+(
' !: <ZnN ]C B Q@N>5/.%"! I m m
m M ` NBBA@<:((
+%>35"'>7.#"25!##5"'>7.#".5467.54632>35*`0Ge<?&'7,$:ZqCDi5 A!'78,!;J(!"']C-O fG$%8,+ #;
i<54&#"2675%7.546325#53##5#"&5467'%'"' !W$S(]0:$+J47N$ !qC U,*:j%~ * '' )@8d(E( V>"2FF2"><<<,1C.<5/d 9 n@ ( IK(PX@# M` M b N@ f M` NY@42'&%$#"! +>4&"46?''7.54632#53## #"'&'. '8&,G !*3O67O# "qB!44"" 5
I~5qH)2FF2!CW<<r
#
A @=9.-,+*$# IK#PX@) m M ` M b NK(PX@% m M ` M a N@) m e M ` NYY@ A A@?43(%
+>54&#"75!##"'6?.#".5467''7.5462 >35 "# qB:bC : ):bQcy5(q($,JhK# +I ^6/ .q<<2PB $' 4b 5$E+@Cx5k=#/BB/ =W)#') ~ > @:10$#"! IK(PX@+ m m M` M a N@( m m e M` NY@><,$%'%
+>54&#"4632.#"32675''7.546325#53##5#" & "(PiK6 ,/CC/.O!$,O64K /qCM-K$ (hJ5
& "*&qPq5]: ,>B/1<<<"' 9 & q" IKPX@! k a M _ N@ m k _ NY@ & &
+5#3''5!##"3267#"&5467.=5x;Fc);fH.P('d6d,$(5ȅ '<<7'B]" .')Z*A
@* f , F@C( I k a M _ N , ,#!
+5#3''5!##"32654&'7 #"&5467.=/;s);mNB]/ ]j(!#&x!.<<;)=UR9-(C#Uy}X-H< 7 @ V@S/ I m
m k
l M ` N ><98 7 764*)##7! +5!!!">;2 #54&+#"&="3"&5467.546;5#3265
+$2 4KC"F21F:Rf
&#')/!Ik ^<< 7
G1#q2FF2qG1Jj32 #5#" #"&546;54&#"3"&5467.546;5
(!N6UzC5Y S9]f
|'"&).!^<< 2 C.
i
/ G1Rv325!##5##"&'.46;54&#"3"&5467.546;5} 0& ,?vrB # !=U+%$,C.
+6'M<<( 5
B/Rv5i(H9 $2W + @ c@`93
I m m
k M
` N @@?=-+'&$" +%267#!">32 5!##5#"&'2654&#".5467.46;5#K /'6B]1% ;.8qC I&Ei );7&Nm.(&0>,q1, ,
F2 - <32 #5"'7.#".54632>74&#"3"&5467.546;5
(!#J&cB"2<
% 4DG1 14&fGdxyU
l/(,1:)^<< 2 R:=..# /5L1.C 'fUHe5]32 #5#"&54632.#"326754&#"3"&5467.546;5
[
(!2 UzC
5"1GG1
5R:He`t&#')/!^<< ,
U=P?+,? 5 C$2Y@Pq325!3!61#"&' &'7 326=
qB(([*2 ((F -Y';z$<".. 9 &^<< <045*&
B +(**P(29# k / @
*)(' IK$PX@' m k a M _ N@% m m k _ NY@ " //
+5!7 32654&'!! #"&"&'7 32654&'%
< X)"aG1@|K/6!p= *N^<32'>54&#"'#"&'7 326=
L):R1,C+3+ 4/3$55; "^<< ]C=l%(Y4); .C(!+2 4 D@A.-,+ I m k m _ N 4 4" +"
+5!!3>32'>54&#".5467##"&'7 26=
02 He0-6')>,". (%+ d<(
6698'^<<yU?|5('g:9R2$4(F$"#-(/.6" F1 C W@T; I
m m m m k
_ N C CB@6543$$%$$( +5!#!">32#"3267#"&54632654&#"3"$5467.546;5
>X @. He2$);;) EbK4#?,Ru֘=4+22$^<<
5O6$3 'CN7,> &eHfI8d < &7P Q| 2+-&'.546k:
xq:2 ,$3;;)*:<<5` [>$@G)) >@;
I k M ` N % +5!##5'7.5467#5!#3267
qC(1=&#]3?7' ]9^<<5i
W70NCCO0'7?9, / / /.-$IKPX@3
m m
M ` M a N@0
m m e
M ` NY@,+*)"#$4 +%.' 32654&#"3"&4632# 3267#53##5'Pv
.+Hf?,'6."CP]CHefZ87r3CqC]"
\R92F* #CFrSmNUy+2B<<<< ) 8 @ 876- IKPX@3
m m
M ` M a N@0
m m e
M ` NY@5432!'$+ +7.5467.54632#52654&#">;#"267#5!##5'7.#".54632>75!5!##5m!>aB
@#7NXH[muS1X N>qB5iQ 4 "N7Bq32#>3" H*9RN7 8(! *.!(JM;/,X9S' * 5x/!1
C $ 7OnM%D D/u c:*.C/
" xMF(?G7'#
n1"W<<
0
J49Sd6" n hJ IK(PX@ M` M _ N@ c M` NY@
+535373##dl.wrBb]]< /<^ ` 7@4J I e M ` N %% +537>32.#" 3##
l/W:$ $
&76wrB^< /4C< 6'#B<^ t M@JJ I k e M
` N
+53537>32.#" 3##Cr/X9$ $ '60wrBII<%(7G< 6'#B<^ F A@>
J I c M_ N
+5353%773##dd!+Cu`rB@]]<<%(<^ ? F ;@8JI e M _ N %( +53%77>32.#"3##
d!2C<N0$ $ /B,`rB^32.#"3##I]8C<N0$ $
.C,grBII<<%((.< :*~<^ 2 V@S0*)('& I
m m m M` N .,%$#"! 22 +7"&'7 32654&#"'>32 32675!5!##5'%5#"&'4j). S*4K?, <. R-54&"753##5'75#"&'3.5462'"&5467.5462 32675$,,<*"qCPj3'X.. 9SS9#@
B m@j."!
I
n l M
` N B BA?;943$$$% +5!##5'7!"3267>32# .'"&54632>54&#"#"&5463!5
qB}
K! +qP B0.+L 4J"1 F`
*u:)^<<]I5Q$ U?,C]'/ /#2$#'"A) .$2] . =@:)("! I m m M ` N%'+# +05!5!!>32'>54&#"#5''7.#"'>32m J,@YB<<8@3$.MB!-=%H ('\1#^u<<%+iK@}2('j6/BC,;5-* 5 "9 B %B )@&
I c a N %(+3267#"'&'&5476?%5!v([*/0s9e/-
$
82.9?,+W8;= dj 9 1@.
J+*'#I m a NE '+&+%654'#"&54673267.54632 &'"&54763237 X}<V=,/! '
2 -3?72J' IJ?4,[>p-(c6C]
9*,>>, = QA@88 ,&vC) ) E 9@610 I m_ NBA@?>=42/-+76 " /4'&7632 676'&'&#"/7267654&'&'#5!tU_);
,e4o >24 %". $\8 )6>HI)' ,6@-G[0/, -j*r /05,* ?B17J%2& K* T&n<;
F0 X n t@qpdXWNHFEDCBA?6 I m m
l
m M
` Noooo~|zyusnmlj2$"#8 +>7/&' 5!3!##5#"&'32654&#"#" 7>7&676''7&'&'&'&676. 7>7.'&76?5#367632# 3267!1K "1 ?WG2qCP/TC<<;)/FD0 @ ' $ vH#
W28aY 3+1!
gB!'S ")1I (N'EaZLQ04U 9)!1
2&,o<< "|`%$ &
0m
0|(6
84IE,G/ /0 4d$6.6khO69F0:6.Z >.4*) IK PX@?
m
m m M` Mb NK#PX@<
m
m m M ` Ma NK(PX@<
m
m m M` M a N@9
m
m m e M` NYYY@=;87651/$"" +46;54&"3"&5462 35#5%67632'>54&#"###"&w5#2##4JJhKۭa$%(Ea-*;&):)#$$ CcF ' CG1/BN7<< mM7.#".54632>35!5!# 0@,54&#"'676qC0&/H(i9x
/")$34& ;$,0(y<<^w#.@:^'"
@'$44" ) 3@0%!
I m ` N'$, +#'#"&54632>54&#"'67675#5!0&/H(i9x
/")$34& ;$,0(]w#.@:^'"
@'$44"y< 2 6 IK(PX@*
kf M M _ N@/
k ] f M M _ NY@33 363654 2 2#%'% +53.54632&54632.#"#&'&#"3##%53
q ]zESS9 , + *Pn^5z rrB"J^< Z<"B=U56' # '"^B <^II ; n IK(PX@!f M M
_ N@& ] f M M
_ NY@ ; ;(J%&% +53.5463267632.#"##&'#&'&'&#"3##
q ]z=F..C$ $ '6 P d^5z rrB^< Z< 5;)+< 6'%$
}$"^B <^ I@F
l e M M _ N
+5353.54632#&'&#"3##dvq ]Pn^5z rrB@]]< Zx'"^B <^ 2@/ e M M _ N #% +53.54632#&'&#"3##
q ]Pn^5z rrB^< Zx'"^B <^ N 6@3I e M M _ N "' +53&'454762#.#"3##
oIIwGO8f.1trB^<# Y32|`}"$<)
<^ 0 ;@8 If M M
_ N 0 0&&% +530'476267632&#&/&'&#"3##
nIIws .C
C JH ''0^f.1trB^"$"$>"$<)
<^II ^ > oIK(PX@!f M M
_ N@& ] f M M
_ NY@ > >)W%&' +53&'45476267632.#""#1#&'&'&'&'&#"3##
oIIw}s .C$ $ # $ "O '0^hf.1trB^<# Y32N #+< 0$ 8*!>"$<)
<^ 6@3I e M M _ N "' +53&'454762#.#"3##
oIIw}GO8hf.1trB^<# Y32|`}"$<)
<^ # IKPX@/ M M _ M
b M a NK#PX@'
[ e M M _ N@( m
d M M _ NYY@ ##"!
+5353&'454762#.#"3##doIIw}GO8hf.1trB[]]<# Y32|`}"$<)
<^ 4 8 ε IK!PX@3
l m M _ M M a NK+PX@0
l m e M _ M N@3
l m e M _ NYY@55 585876 4 4%%'% +53.54632454632.#"&'&'&#"3##%53
q YGS9 , + *
Pbه rrBLJ^< ZE!,=U56' "\36^B <^II |
# ?@<#"! I m _ N
+5!267''7.54632.#"7
( G!DWuR,! )
^<<h p6(d $@|bL R D D 4 X D ! !f!!","b""# #R##$L$% %&&' ''(8() )$)H)t)* *t**+6++,,V,,--^--..T./$/0 001<122d223F344L445f56>67678(8j889 909h999:*:~::;:;t;;;<&>P>? ?R?@ @AjAB
B\BBC0CD DjDE.EEF*FtFG GHGGH HbHIIHIIJ$JbJJK2KLL2LLLM M@MpMMMN.NPNrNNNO6OVOPZPQnRRS2STxTUZUV(V~WPXHYYZ6Z[ [f[\6\]]^ ^T^__l__`~`ajabbZbc ccdTdde6efffg^ggh^h~hhii6izijj`jjk*k`k~kkl6lblllm4n0nNnjnnnootoppq qqrdrsvttzuu uFutuvvvwJwx xVxxy y,yzp{X{d{p{|,||},}f}~D~hj.T|ڀ(Ɓ܁$f̃.r
hЄHd(zΆ*z։TԊH̋<$<|ؐ^ڑh" z R8~8h(hzК|n(z
VʞƟ.ޠT2 ΣN@̥J4<|©P
\ެrV֮j @䱊P^6zµ$^жbF\JbҽJʿ.@bV~Zzfv˖@Rv
Ѽ.TӶ&:Ռ2`0\ c 0 ` R R b ,i &
X , L X Lx
4Copyright 2011-12 Lohit Fonts Project contributors.
Open type tables written by:
Pravin Satpute
Sneha Kore
Latin glyphs designed by:
Eduardo Rodriguez Tunni
Licensed under the SIL Open Font License 1.1 (see file OFL.txt)Lohit DevanagariRegularFontForge 2.0 : Lohit Devanagari : 17-9-2013Lohit Devanagari2.95.5Lohit-DevanagariLohit is a trademark of Red Hat, Inc.
OFL 1.1http://scripts.sil.org/OFL C o p y r i g h t 2 0 1 1 - 1 2 L o h i t F o n t s P r o j e c t c o n t r i b u t o r s .
< h t t p : / / f e d o r a h o s t e d . o r g / l o h i t >
O p e n t y p e t a b l e s w r i t t e n b y :
P r a v i n S a t p u t e < p s a t p u t e A T r e d h a t D O T c o m >
S n e h a K o r e < s k o r e A t r e d h a t D O T c o m >
L a t i n g l y p h s d e s i g n e d b y :
E d u a r d o R o d r i g u e z T u n n i < f o n t i m e A T g m a i l D O T c o m >
L i c e n s e d u n d e r t h e S I L O p e n F o n t L i c e n s e 1 . 1 ( s e e f i l e O F L . t x t ) L o h i t D e v a n a g a r i R e g u l a r F o n t F o r g e 2 . 0 : L o h i t D e v a n a g a r i : 1 7 - 9 - 2 0 1 3 L o h i t D e v a n a g a r i 2 . 9 5 . 5 L o h i t - D e v a n a g a r i L o h i t i s a t r a d e m a r k o f R e d H a t , I n c .
O F L 1 . 1 h t t p : / / s c r i p t s . s i l . o r g / O F L ~
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h j i k m l n o q p r s u t v w x z y { } | ~
!"#$%&'()*+,-. /012345678 9:;<=>?@ ABCDEFGHIJKL MNOP QRSTUV WX YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~uni00B2uni00B3uni00B5uni00B9AmacronamacronAbreveabreveAogonekaogonekDcarondcaronDcroatEmacronemacron
Edotaccent
edotaccentEogonekeogonekEcaronecaron Gcommaaccent gcommaaccenthbarItildeitildeImacronimacronIogonekiogonekIJij Jcircumflex jcircumflex Kcommaaccent kcommaaccent kgreenlandicLacutelacute Lcommaaccent lcommaaccentLcaronlcaronLdotldotNacutenacute Ncommaaccent ncommaaccentNcaronncaronOmacronomacron
Ohungarumlaut
ohungarumlautRacuteracute Rcommaaccent rcommaaccentRcaronrcaronSacutesacute Tcommaaccent tcommaaccentTcarontcaronUmacronumacronUringuring
Uhungarumlaut
uhungarumlautUogonekuogonekZacutezacute
Zdotaccent
zdotaccent Scommaaccent scommaaccentuni021Auni021Buni0237
apostropheuni0307uni0326candrabinduinverteddevacandrabindudeva anusvaradeva visargadeva
ashortdevaadevaaadevaidevaiidevaudevauudeva rvocalicdeva lvocalicdeva ecandradeva
eshortdevaedevaaideva ocandradeva
oshortdevaodevaaudevakadevakhadevagadevaghadevangadevacadevachadevajadevajhadevanyadevattadevatthadevaddadevaddhadevannadevatadevathadevadadevadhadevanadevannnadevapadevaphadevabadevabhadevamadevayadevaradevarradevaladevalladevallladevavadevashadevassadevasadevahadeva
oesigndeva ooesigndeva nuktadeva avagrahadeva
aasigndeva isigndeva
iisigndeva usigndeva
uusigndevarvocalicsigndevarrvocalicsigndevaecandrasigndevaeshortsigndeva esigndeva
aisigndevaocandrasigndevaoshortsigndeva osigndeva
ausigndeva
viramadevaeprishthamatrasigndeva
awsigndevaomdeva
udattadeva anudattadeva gravedeva acutedevaecandralongsigndeva
uesigndeva uuesigndevaqadevakhhadevaghhadevazadeva dddhadevarhadevafadevayyadeva
rrvocalicdeva
llvocalicdevalvocalicsigndevallvocalicsigndevadandadbldandazerodevaonedevatwodeva threedevafourdevafivedevasixdeva sevendeva eightdevaninedevaabbreviationsigndevahighspacingdotdeva acandradevaoedevaooedevaawdevauedevauuedeva
marddadevazhadeva yaheavydevaggadevajjadevaglottalstopdevadddadevabbadevauni1CF5uni1CF6zerowidthnonjoinerzerowidthjoineruni2080uni2084Euro inr_currency afii61289uni2126 estimateduni2206 dottedcirclezerocombiningdigitdevaonecombiningdigitdevatwocombiningdigitdevathreecombiningdigitdevafourcombiningdigitdevafivecombiningdigitdevasixcombiningdigitdevasevencombiningdigitdevaeightcombiningdigitdevaninecombiningdigitdevaacombiningletterdevaucombiningletterdevakacombiningletterdevanacombiningletterdevapacombiningletterdevaracombiningletterdevavicombiningletterdevaavagrahacombiningsigndevaspacingcandrabindudevacandrabinduviramadevadoublecandrabinduviramadevacandrabindudigittwodevacandrabindudigitthreedevacandrabinduavagrahadeva pushpikadeva
gapfillerdeva caretdevaheadstrokedeva signsiddhamjainomuniFB01uniFB02isign_ra_virama.alt2isigndeva.alt1esigndeva_anusvaradevaesign_ra_virama.alt1esign_ra_virama_anusvaraaisigndeva_anusvaradevaaisign_ra_virama.alt1aisign_ra_virama_anusvararadeva_viramadeva radeva_viramadeva_anusvaradevaviramadeva_radeva_altviramadeva_radevashadeva_viramadeva_radevaphadeva_radeva_nuktadevatadeva_viramadeva_tadevakadeva_viramadeva_ssadevajadeva_viramadeva_nyadevakadeva_viramadevakhadeva_viramadevagadeva_viramadevaghadeva_viramadevangadeva_viramadevacadeva_viramadevachadeva_viramadevajadeva_viramadevajhadeva_viramadevanyadeva_viramadevattadeva_viramadevatthadeva_viramadevaddadeva_viramadevaddhadeva_viramadevannadeva_viramadevatadeva_viramadevathadeva_viramadevadadeva_viramadevadhadeva_viramadevanadeva_viramadevannnadeva_viramadevapadeva_viramadevaphadeva_viramadevabadeva_viramadevabhadeva_viramadevamadeva_viramadevayadeva_viramadevaisigndeva.alt2isigndeva_anusvara.alt2ladeva_viramadevalladeva_viramadevallladeva_viramadevavadeva_viramadevashadeva_viramadevassadeva_viramadevasadeva_viramadevahadeva_viramadevaqadeva_viramadevakhhadeva_viramadevaghhadeva_viramadevazadeva_viramadevafadeva_viramadevashadeva_viramadeva.altta_virama_ra_viramadevata_virama_ta_viramadevaka_virama_ssa_viramadevaja_virama_nya_viramadevaisigndeva_anusvaradevaisign_ra_viramaisign_ra_virama_anusvaraisigndeva.alt3isigndeva_anusvaradeva.alt3isign_ra_virama.alt3 isign_ra_virama_anusvara.alt3iisigndeva_anusvaradevaiisigndeva_ra_viramaiisign_ra_virama_anusvaraiisigndeva.alt1 iisigndeva_anusvaradeva.alt1iisigndeva_ra_virama.alt1 iisign_ra_virama_anusvara.alt1vattudeva_ulowdevavattudeva_uulowdevaglyph244
yadeva_altradeva_viramadeva.altkadeva_viramadeva_radevakhadeva_viramadeva_radevagadeva_viramadeva_radevajadeva_viramadeva_radevajhadeva_viramadeva_radevatadeva_viramadeva_radevadadeva_viramadeva_radevapadeva_viramadeva_radevaphadeva_viramadeva_radevabadeva_viramadeva_radevabhadeva_viramadeva_radevamadeva_viramadeva_radevavadeva_viramadeva_radevasadeva_viramadeva_radevahadeva_viramadeva_radevasha_virama_rvocalicdevakadeva_viramadeva_kadevakadeva_viramadeva_tadevakadeva_viramadeva_ladevakadeva_viramadeva_vadevagadeva_viramadeva_nadevangadeva_viramadeva_kadevangadeva_viramadeva_khadevangadeva_viramadeva_gadevangadeva_viramadeva_ghadevangadeva_viramadeva_madeva nga_virama_ka_virama_ssadevacadeva_viramadeva_cadevachadeva_viramadeva_vadevajadeva_viramadeva_jadevanyadeva_viramadeva_cadevanyadeva_viramadeva_jadevattadeva_viramadeva_ttadevattadeva_viramadeva_tthadevattadeva_viramadeva_yadevattadeva_viramadeva_vadeva tthadeva_viraamdeva_tthadevatthadeva_viraamdeva_yadevaddadeva_viramadeva_ddadevaddadeva_viramadeva_ddhadevaddadeva_viramadeva_yadeva ddhadeva_viramadeva_ddhadevaddhadeva_viramadeva_yadevadadeva_viramadeva_gadevadadeva_viramadeva_ghadevadadeva_viramadeva_dadevadadeva_viramadeva_dhadevadadeva_viramadeva_nadevadadeva_viramadeva_badevadadeva_viramadeva_bhadevadadeva_viramadeva_madevadadeva_viramadeva_yadevadadeva_viramadeva_vadevanadeva_viramadeva_nadevapadeva_viramadeva_tadevapadeva_viramadeva_ladevaphadeva_viramadeva_ladevaladeva_viramadeva_ladevashadeva_viramadeva_cadevashadeva_viramadeva_nadevashadeva_viramadeva_ladevashadeva_viramadeva_vadevassadeva_viramadeva_ttadevassadeva_viramadeva_tthadevahadeva_viramadeva_nnadevahadeva_viramadeva_nadevahadeva_viramadeva_madevahadeva_viramadeva_yadevahadeva_viramadeva_ladevahadeva_viramadeva_vadevasa_virama_ta_virama_radevaja_virama_ja_viramadevadadeva_rvocalicsigndevaradeva_usigndevaradeva_uusigndevahadeva_rvocalicdevanadeva_viramadeva_altghadeva_viramadeva_radevacadeva_viramadeva_radevathadeva_viramadeva_radevadhadeva_viramadeva_radevanadeva_viramadeva_radevaladeva_viramadeva_radevanga_virama_ka_viramadevaosigndeva_anusvaradevaosign_ra_virama.alt1osign_ra_virama_anusvaraausigndeva_anusvaradevaausign_ra_virama.alt1ausign_ra_virama_anusvaranyadeva_viramadeva_radevannadeva_viramadeva_radevayadeva_viramadeva_radevassadeva_viramadeva_radevaka_virama_ssa_virama_radevaja_virama_nya_virama_radevakadeva_viramadeva_radeva.np eightdeva.np fivedeva.np
zhadeva.npda_ddha_ra_yadeva
jhadeva.npnep_jha_virama ladeva.mr
shadeva.mrshadeva_viramadeva.mrisign_ra_virama_anusvara.jaisign_ra_virama.jaisigndeva_anusvaradeva.ja isigndeva.ja
isigndeva.thaisign_ra_virama.tha isign_ra_virama_anusvara.thaisigndeva_anusvara.tha isign_ra_virama_anusvara.alt1isign_ra_virama.alt1isigndeva_anusvara.alt1 isign_ra_virama_anusvara.alt4isign_ra_virama.alt4isigndeva.alt4isigndeva_anusvaradeva.alt4 isign_ra_virama_anusvara.alt2ba_virama_ra_viramadeva B B_ @ @ B B < < 3' 7 7 2 2XX IB , UXEY K QKSZX4(Y`f UX%a cc#b!! Y C#D C`B-, `f-,#!#!-, d BCC ``BCB%CCTx #CCadPxC`B!e !CCB C#BC`B# PXeYC`B-,+CX#!#!CC# PXeY d P&Z(
CEcEEX!%YR[X!#!X PPX!@Y 8PX!8YY
CEcEad(PX!
CEcE 0PX!0Y PX f a
PX` PX!
` 6PX!6``YYY% Cc RX K
PX! CK PX! Ka c Cc bYYdaY+YY# PXeYY dC#BY-, E %ad CPX#B#B!!Y`-,#!#!+ dbB #BEX
CEc
C`Ec*! C +0%&QX`PaRYX#Y!Y @SX+!@Y# PXeY-, C+ C`B-, #B# #Babfc`*- , E Cc b PX@`Yfc`D`-
, CEB*! C`B- , C#D C`B- , E +# C%` E#a d PX! 0PX @YY# PXeY%#aDD`-
, E +# C%` E#a d$PX @Y# PXeY%#aDD`-, #B
EPX!#!Y*!-,EdaD-,` CJ PX #BYCJ RX #BY-, bfc c#aC` ` #B#-,KTXdDY$
e#x-,KQXKSXdDY!Y$e#x-, CUXCaB+Y C%B%B%B# %PX C`%B #a*!#a #a*! C`%B%a*!YCGCG`b PX@`Yfc Cc b PX@`Yfc` #DC >C`B-, ETX#B E#B
#`B ` BBB` #Ba++"Y-, +-,+-,+-,+-,+-,+- ,+- ,+- ,+- , +-+,# bfc`KTX# .]!!Y-,,# bfc`KTX# .q!!Y--,# bfc&`KTX# .r!!Y- , + ETX#B E#B
#`B `a BB`++"Y-!, +-", +-#, +-$, +-%, +-&, +-', +-(, +-), +-*, +-., <`-/, `` C#`C%a`.*!-0,/+/*-1, G Cc b PX@`Yfc`#a8# UX G Cc b PX@`Yfc`#a8!Y-2, ETXEB1*EX0Y"Y-3, + ETXEB1*EX0Y"Y-4, 5`-5, EBEc b PX@`Yfc+Cc b PX@`Yfc+ D>#84*!-6, < G Cc b PX@`Yfc` Ca8-7,.<-8, < G Cc b PX@`Yfc` CaCc8-9, % . G #B%IG#G#a Xb!Y#B8*-:, #B%%G#G#a B C+e.# <8-;, #B%% .G#G#a #B B C+ `PX @QX &YBB#
C #G#G#a#F`Cb PX@`Yfc` + a C`d#CadPXCaC`Y%b PX@`Yfca# &#Fa8#
CF%
CG#G#a` Cb PX@`Yfc`# +#C`+%a%b PX@`Yfc&a %`d#%`dPX!#!Y# &#Fa8Y-<, #B & .G#G#a#<8-=, #B
#B F#G+#a8->, #B%%G#G#a TX. <#!%%G#G#a %%G#G#a%%I%a cc# Xb!Yc b PX@`Yfc`#.# <8#!Y-?, #B
C .G#G#a ` `fb PX@`Yfc# <8-@,# .F%FCXPRYX +.0+-~, >+@+-, >+A+-, >+B+-,>+@+-,>+A+-,>+B+-, ?+.0+-, ?+@+-, ?+A+-, ?+B+-,?+@+-,?+A+-,?+B+-, EPXEX#!!YYB+e$PxEX0Y- K RXY cp B :+" * B@ G?/'
* B@ KC7+
* B
* B @ @ @ @ @ * D$QX@X dD(QX X DY'QX @cTX DYYYYY@ IA1)* Dd DD Text-Layout-0.037/tests/fontbb.pl 0000644 0004000 0004000 00000006047 14640222607 014503 0 ustar jv jv #!/usr/bin/perl
use v5.36;
use Object::Pad;
use utf8;
my $verbose = 1;
@ARGV = ( "Times-Roman",
"FreeSerif.ttf",
"DejaVuSerif.ttf",
"ArialMT.ttf",
"MuseJazzText.otf",
"MuseJazzChord.ttf" ) unless @ARGV;
use PDF::API2;
sub max { $_[0] >= $_[1] ? $_[0] : $_[1] }
sub min { $_[0] <= $_[1] ? $_[0] : $_[1] }
my $pdf = PDF::API2->new;
my $page = $pdf->page;
my $gfx = $page->gfx;
PDF::API2::addFontDirs( $ENV{HOME}."/.fonts", "/usr/share/fonts/" );
my $x0 = 70;
my $y0 = 650;
# Annotations.
my $af = $pdf->font("Helvetica");
my $as = 8;
my $scale = 0.08;
my $dx = 3000 * $scale;
my $dy = 2500 * $scale;
my $sz = 1000 * $scale;
my $dd = 400 * $scale;
my ( $x, $y ) = ( $x0, $y0 );
for my $fn ( @ARGV ) {
next unless $fn;
my $font = $pdf->font($fn);
# PDF::API2 units are 1/1000 em.
my @xbb = $font->fontbbox;
push( @xbb, $font->ascender, $font->descender );
my $xbb = sprintf( "%d %d | %d %d | %d %d", @xbb );
warn("$fn: $xbb\n");
# Scale.
my @bb = map { $_ * $scale } @xbb;
my $o = $pdf->xo_form;
$o->line_width(0.5);
$o->fill_color('black');
$o->stroke_color('black');
# Background (first glyph).
$o->fill_color("yellow");
$o->rectangle( 0, $bb[1],
$sz*$font->width("Á"), $bb[3] );
$o->fill;
# Crosslines for origin.
$o->stroke_color('lightgreen');
$o->move( -$dd, 0 );
$o->hline($dd);
$o->stroke;
$o->move( 0, -$dd );
$o->vline($dd);
$o->stroke;
# Font bounding box.
$o->stroke_color("blue");
$o->fill_color("blue");
$o->rectangle(@bb[0..3]);
$o->stroke;
$o->textstart;
$o->font( $af, $as );
$o->translate( $bb[0]+1, $bb[3]+3 );
$o->text("bounding box");
$o->translate( $bb[0]+1, $bb[1]-8 );
$o->text("$xbb[0] $xbb[1] $fn");
$o->translate( $bb[2], $bb[3]+3 );
$o->text("$xbb[2] $xbb[3]", align => "right" );
$o->textend;
# Ascender and descender.
$o->stroke_color("red");
$o->fill_color("red");
$o->move( -$dd, $bb[4] );
$o->hline( $bb[2]+$dd );
$o->stroke;
$o->move( -$dd, $bb[5] );
$o->hline( $bb[2]+$dd );
$o->stroke;
$o->textstart;
$o->font( $af, $as );
$o->translate( $bb[2]+$dd, $bb[4]+2 );
$o->text( "ascender", align => "right" );
$o->translate( $bb[2]+$dd, $bb[4]-8 );
$o->text( $xbb[4], align => "right" );
$o->translate( $bb[2]+$dd, $bb[5]+2 );
$o->text( "descender", align => "right" );
$o->translate( $bb[2]+$dd, $bb[5]-8 );
$o->text( $xbb[5], align => "right" );
$o->textend;
# Sample glyphs (with max asc and desc).
$o->fill_color("black");
$o->stroke_color("black");
$o->textstart;
$o->font( $font, $sz );
$o->translate( 0, 0 );
$o->text( "Ág" );
$o->textend;
my @obb = ( min($bb[0],-$dd), $bb[1]-10, $bb[2]+$dd, $bb[3]+9 );
# $o->rectangle(@obb); $o->stroke;
$o->bbox(@obb);
if ( $x + $bb[2] + $dd > 590 ) {
$x = $x0;
$y -= $dy;
}
warn("X: [@{[$o->bbox]}] @ $x,$y\n");
$gfx->object( $o, $x, $y, 1, 1 );
$x += $dx;
}
$pdf->saveas("fontbb.pdf");
Text-Layout-0.037/tests/underline.pl 0000644 0004000 0004000 00000002053 14640222607 015207 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
my $verbose = 1;
use PDF::API2;
my $pdf = PDF::API2->new;
my $page = $pdf->page;
my $text = $page->text;
my $font = $pdf->corefont('Times-Roman');
$text->font( $font, 80 );
$text->translate(50,700);
$text->text("the quick brown fox _ ", -underline => ["auto","auto"] );
$text->text("jumps", -underline => "auto" );
use lib 'lib';
use Text::Layout;
my $layout = Text::Layout->new($pdf);
#my $fc = Text::Layout::FontConfig->new( corefonts => 1 );
# Select a font.
$font = Text::Layout::FontConfig->from_string("Times 80");
#my $font = $fc->from_string("Times 60");
$layout->set_font_description($font);
#$font->set_shaping;
$font->{underline_thickness} = 45;
$font->{underline_position} = -100;
$layout->set_markup( qq{the quick brown fox _ jumps} );
$layout->render( 50, 650, $text );
$layout->set_markup( qq{the quick brown fox _ jumps} );
$layout->render( 50, 550, $text );
$pdf->saveas("underline.pdf");
Text-Layout-0.037/tests/tl_p_03.pl 0000644 0004000 0004000 00000005603 14640222607 014466 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
use PDF::API2;
use lib "../lib";
use Text::Layout;
use Text::Layout::FontConfig;
eval { require HarfBuzz::Shaper }
or warn("HarfBuzz::Shaper not found. Expect incorrect results!\n");
# Create document and graphics environment.
my $pdf = PDF::API2->new();
$pdf->mediabox( 595, 842 ); # A4
# Set up page and get the text context.
my $page = $pdf->page;
my $text = $page->text;
# Create a layout instance.
my $layout = Text::Layout->new($pdf);
my $PANGO_SCALE = $layout->set_pango_mode(1);
# Select a font.
setup_fonts();
my $font = Text::Layout::FontConfig->from_string("Amiri 45");
$layout->set_font_description($font);
# Start...
my $x = 0;
my $y = 700;
# Left align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("left");
# Arabic is RTL, so it comes out as right aligned.
$layout->set_markup( q{برنامج أهلا بالعالم} );
showlayout( $x, $y );
# Typeset in three parts. Note that parts 1 and 3 will be ltr,
# and part 2 will be rtl.
# Note, however, that this currently relies on the native
# harfbuzz library to correctly determine ('guess') the
# characteristics of the text.
$y -= 100;
$layout->set_markup("abc");
$x += showlayout( $x, $y );
$layout->set_markup( q{برنامج أهلا بالعالم} );
# Arabic is RTL, restrict to actual width to prevent unwanted alignment.
$layout->set_width( ($layout->get_size)[0] / $PANGO_SCALE );
$x += showlayout( $x, $y );
$layout->set_markup("xyz");
showlayout( $x, $y );
# Typeset as one string, using .
$x = 0;
$y -= 100;
$font = Text::Layout::FontConfig->from_string("Sans 45");
$layout->set_font_description($font);
$layout->set_markup( "abc".
"".q{برنامج أهلا بالعالم}."".
"def" );
showlayout( $x, $y );
# Ship out.
$pdf->saveas("tl_p_03.pdf");
################ Subroutines ################
my $gfx;
sub showlayout {
my ( $x, $y ) = @_;
$layout->show( $x, $y, $text);
my $dx = ($layout->get_size)[0] / $PANGO_SCALE;
$gfx //= $page->gfx;
$layout->showbb($gfx);
return $dx;
}
sub setup_fonts {
my $fd = Text::Layout::FontConfig->new;
# Add font dir and register fonts.
$fd->add_fontdirs( $ENV{HOME}."/.fonts", "/usr/share/fonts/" );
# Add a Sans family.
$fd->register_font( "FreeSans.ttf", "Sans" );
$fd->register_font( "FreeSansBold.ttf", "Sans", "Bold" );
$fd->register_font( "FreeSansOblique.ttf", "Sans", "Italic" );
$fd->register_font( "FreeSansBoldOblique.ttf", "Sans", "BoldItalic" );
# Add Devanagari (Indian). Requires shaping.
$fd->register_font( "lohit-devanagari/Lohit-Devanagari.ttf",
"Deva", "", "", { shaping => 1 } );
# Add Amiri (Arabic). Requires shaping.
$fd->register_font( "amiri/amiri-regular.ttf",
"Amiri", "", "",
{ shaping => 1,
nosubset => 1,
} );
}
Text-Layout-0.037/tests/tl_c_02.pl 0000644 0004000 0004000 00000011712 14640222607 014446 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
use lib "../lib";
use PDF::API2;
use Text::Layout;
use Text::Layout::FontConfig;
use HarfBuzz::Shaper 0.026;
# Create document and graphics environment.
my $pdf = PDF::API2->new();
$pdf->mediabox( 595, 842 ); # A4
# Set up page and get the text context.
my $page = $pdf->page;
my $text = $page->text;
my $gfx = $page->gfx;
# Create a layout instance.
my $layout = Text::Layout->new($pdf);
my $PANGO_SCALE;
sub main {
# Select a font.
my $font = Text::Layout::FontConfig->from_string("Sans 44");
$layout->set_font_description($font);
# Start...
my $x = 0;
my $y = 700;
# Text to render.
$layout->set_markup( q{ Áhe quick brown fox } );
# Left align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("left");
# Render it.
showlayout( $x, $y );
$y -= 100;
# Right align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("right");
# Render it.
showlayout( $x, $y );
$y -= 100;
$text->font( $font->{font}, 44);
$text->translate( $x, $y-50 );
my $txt_nomarkup = q{Áhe quick brown fox};
my $dx = $text->text($txt_nomarkup);
if ( $font->{font}->can("extents") ) {
my $e = $font->{font}->extents( $txt_nomarkup, 44 );
printf( "EXT: %.2f %.2f %.2f %.2f\n", @$e{qw( x y width height )} );
$gfx->save;
$gfx->translate( $x, $y-50 );
# PDF::API2 text is baseline oriented, so are the extents.
# So we can draw the BB at the same origin as the text.
$gfx->rect( $e->{x}, $e->{y}, $e->{width}, $e->{height} );
$gfx->linewidth(0.5);
$gfx->strokecolor("cyan");
$gfx->stroke;
$gfx->restore;
}
# Draw baseline.
$gfx->save;
$gfx->translate( $x, $y-50 );
$gfx->move( 0, 0 );
$gfx->line( $dx, 0 );
$gfx->linewidth(0.5);
$gfx->strokecolor("magenta");
$gfx->stroke;
$gfx->restore;
$y -= 100;
# Text to render.
# $layout->set_markup( q{Áhe quick brown fox} );
# Right align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("center");
# Render it.
showlayout( $x, $y );
$y -= 100;
# This will only work properly with the HarfBuzz driver.
$font = Text::Layout::FontConfig->from_string("Deva 60");
$layout->set_font_description($font);
$layout->set_width( 595 * $PANGO_SCALE );
# Nepali is LTR.
$layout->set_alignment("left");
# This text consists of 6 characters but will render 4 glyphs.
my $phrase =
"\N{DEVANAGARI LETTER TA}".
"\N{DEVANAGARI LETTER MA}".
"\N{DEVANAGARI VOWEL SIGN AA}".
"\N{DEVANAGARI LETTER NGA}".
"\N{DEVANAGARI SIGN VIRAMA}".
"\N{DEVANAGARI LETTER GA}".
qq{ this should look like THIS};
$layout->set_markup($phrase);
showlayout( $x, $y );
# Ship out.
$pdf->saveas("tl_c_02.pdf");
}
################ Subroutines ################
sub showlayout {
my ( $x, $y ) = @_;
$layout->show( $x, $y, $text);
$layout->showbb($gfx);
}
sub setup_fonts {
$^O =~ /mswin/i ? setup_fonts_windows() : setup_fonts_linux();
}
sub setup_fonts_linux {
# Register all corefonts. Useful for fallback.
# Not required, skip if you have your own fonts.
my $fd = Text::Layout::FontConfig->new;
# $fd->register_corefonts;
# Add font dir and register fonts.
$fd->add_fontdirs( ".", $ENV{HOME}."/.fonts", "/usr/share/fonts/" );
# Add a Sans family.
$fd->register_font( "DejaVuSans.ttf", "Sans" );
$fd->register_font( "DejaVuSans-Bold.ttf", "Sans", "Bold" );
$fd->register_font( "DejaVuSans-Oblique.ttf", "Sans", "Italic" );
$fd->register_font( "DejaVuSans-BoldOblique.ttf", "Sans", "BoldItalic" );
# Add Devanagari. Requires shaping.
# Note that Nepali is a LTR language.
$fd->register_font( "Lohit-Devanagari.ttf",
"Deva", "", "",
{ shaping => 1,
language => 'nepali'
} );
}
sub setup_fonts_windows {
# Register all corefonts. Useful for fallback.
# Not required, skip if you have your own fonts.
my $fd = Text::Layout::FontConfig->new;
# $fd->register_corefonts;
# Add font dir and register fonts.
$fd->add_fontdirs( ".", "C:\\Windows\\Fonts" );
$fd->register_font( "arial.ttf", "sans", "" );
$fd->register_font( "arialbd.ttf", "sans", "bold" );
$fd->register_font( "ariali.ttf", "sans", "italic" );
$fd->register_font( "arialbi.ttf", "sans", "bolditalic" );
# Add Devanagari. Requires shaping.
# Note that Nepali is a LTR language.
$fd->register_font( "Lohit-Devanagari.ttf",
"Deva", "", "",
{ shaping => 1,
language => 'nepali'
} );
}
################ Main entry point ################
# Setup the fonts.
setup_fonts();
if ( @ARGV ) {
# For compliancy, use Pango units;
$PANGO_SCALE = $layout->set_pango_mode("on");
}
else {
$PANGO_SCALE = 1;
}
main();
Text-Layout-0.037/tests/pango02.pl 0000644 0004000 0004000 00000003557 14640222607 014502 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Pango;
use Cairo;
require "./pango00.pl"; # subs
# Create document and graphics environment.
my $surface = Cairo::PdfSurface->create( 'pango02.pdf', 595, 842 ); # A4
my $cr = Cairo::Context->create($surface);
my $layout = Pango::Cairo::create_layout($cr);
# Scale from Cairo (PDF) units to Pango.
my $PANGO_SCALE = Pango->scale;
# Scale from Cairo (PDF) font size to Pango.
my $PANGO_FONT_SCALE = 0.75 * $PANGO_SCALE;
# Font sizes used, scaled.
my $realfontsize = 60;
my $fontsize = $realfontsize * $PANGO_FONT_SCALE;
my $tinysize = 20 * $PANGO_FONT_SCALE;
# Select a font.
my $font = Pango::FontDescription->from_string('freeserif 12');
$font->set_size($fontsize);
$layout->set_font_description($font);
# Start...
my $x = 0;
my $y = 842-500; # Cairo goes down
# Text to render.
$layout->set_markup( q{ Áhe quick brown fox } );
# Left align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("left");
# Render it.
showlayout( $cr, $layout, $x, $y );
$y += 100;
# Right align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("right");
# Render it.
showlayout( $cr, $layout, $x, $y );
$y += 100;
$font = Pango::FontDescription->from_string('Lohit Devanagari 45');
$layout->set_font_description($font);
$layout->set_width( 595 * $PANGO_SCALE );
# Nepali is LTR.
$layout->set_alignment("left");
# This text consists of 6 characters but will render 4 glyphs.
my $phrase =
"\N{DEVANAGARI LETTER TA}".
"\N{DEVANAGARI LETTER MA}".
"\N{DEVANAGARI VOWEL SIGN AA}".
"\N{DEVANAGARI LETTER NGA}".
"\N{DEVANAGARI SIGN VIRAMA}".
"\N{DEVANAGARI LETTER GA}".
qq{ this should look like THIS};
$layout->set_markup($phrase);
showlayout( $cr, $layout, $x, $y );
# Ship out.
$cr->show_page;
Text-Layout-0.037/tests/tl_p_01.pl 0000644 0004000 0004000 00000007615 14640222607 014471 0 ustar jv jv #!/usr/bin/perl
# This is an example of using Text::Layout to create the same document
# as native Pango.
#
# This example uses Text::Layout in Pango conformance mode. The
# relevant parts of this program and its Pango counterpart are very
# much the same.
use strict;
use warnings;
use utf8;
use lib "../lib";
use PDF::API2;
use Text::Layout;
# Create document and graphics environment.
my $pdf = PDF::API2->new( file => 'tl_p_01.pdf' );
$pdf->mediabox( 595, 842 ); # A4
# Set up page and get the text context.
my $page = $pdf->page;
my $text = $page->text;
my $gfx = $page->gfx;
# Create a layout instance.
my $layout = Text::Layout->new($pdf);
# Tell Text::Layout that we are running in Pango compatibility.
my $PANGO_SCALE = $layout->set_pango_mode("on");
# Scale from Cairo (PDF) font size to Pango.
my $PANGO_FONT_SCALE = 0.75 * $PANGO_SCALE;
# Font sizes used, scaled.
my $realfontsize = 60;
my $fontsize = $realfontsize * $PANGO_FONT_SCALE;
my $tinysize = 20 * $PANGO_FONT_SCALE;
sub main {
# Select a font.
my $font = Text::Layout::FontConfig->from_string("freeserif 12");
$font->set_size($fontsize);
$layout->set_font_description($font);
# Start...
my $x = 0;
my $y = 500; # PDF goes up
# Text to render.
my $txt = qq{ Áhe quick }.
# $tinysize = 15360 for a 20pt font.
qq{brown }.
# rise is in 1/1024 units.
qq{fox}.
# 10240/1024 units = 10pt.
qq{x}.
# size=45pt for a 60pt font.
qq{x };
my $txt_nomarkup = "Áhe quick brown fox ";
$layout->set_markup($txt);
# Left align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("left");
# Render it.
showlayout( $x, $y );
$y -= 100;
# Right align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("right");
# Render it.
showlayout( $x, $y );
$y -= 100;
# Plain PDF::API2, no Text::Layout.
$text->font( $font->{font}, $realfontsize );
# PDF::API2 text is baseline oriented.
$text->translate( $x, $y-50 );
my $dx = $text->text($txt_nomarkup);
if ( $font->{font}->can("extents") ) {
my $e = $font->{font}->extents( $txt_nomarkup, $realfontsize );
printf( "EXT: %.2f %.2f %.2f %.2f\n", @$e{qw( x y width height )} );
$gfx->save;
$gfx->translate( $x, $y-50 );
# PDF::API2 text is baseline oriented, so are the extents.
# So we can draw the BB at the same origin as the text.
$gfx->rect( $e->{x}, $e->{y}, $e->{width}, $e->{height} );
$gfx->linewidth(0.5);
$gfx->strokecolor("cyan");
$gfx->stroke;
$gfx->restore;
}
# Draw baseline.
$gfx->save;
$gfx->translate( $x, $y-50 );
$gfx->move( 0, 0 );
$gfx->line( $dx, 0 );
$gfx->linewidth(0.5);
$gfx->strokecolor("magenta");
$gfx->stroke;
$gfx->restore;
$y -= 100;
# Right align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("center");
# Render it.
showlayout( $x, $y );
# Ship out.
$pdf->save;
}
################ Subroutines ################
sub showlayout {
my ( $x, $y ) = @_;
$layout->show( $x, $y, $text);
$layout->showbb($gfx);
}
sub setup_fonts {
my $fd = Text::Layout::FontConfig->new;
# Add font dir and register fonts.
$fd->add_fontdirs( $ENV{HOME}."/.fonts", "/usr/share/fonts/" );
for ( "", qw( Bold Italic BoldItalic ) ) {
$fd->register_font( "FreeSerif$_.ttf", "freeserif", $_,
{ shaping => 0 } );
}
for ( "Roman", qw( Bold Italic BoldItalic ) ) {
$fd->register_font( "Times-$_", "freeserixf",
$_ eq "Roman" ? "" : $_,
{ shaping => 0 } );
}
}
################ Main entry point ################
# Setup the fonts.
setup_fonts();
# Run...
main();
Text-Layout-0.037/tests/pango00.pl 0000644 0004000 0004000 00000003453 14640222607 014473 0 ustar jv jv #! perl
use strict;
################ Subroutines ################
my $cr;
my $layout;
my $PANGO_SCALE = 1024;
sub showlayout {
my ( $_cr, $_layout, $x, $y ) = @_;
$cr = $_cr;
$layout = $_layout;
$cr->move_to( $x, $y );
$cr->set_source_rgba( 0, 0, 0, 1 );
Pango::Cairo::show_layout( $cr, $layout );
my $dx = ($layout->get_size)[0]/$PANGO_SCALE;
showbb( $x, $y );
return $dx;
}
# Shows the bounding box of the last piece of text that was rendered.
sub showbb {
my ( $x, $y ) = @_;
# Show origin.
_showloc( $x, $y );
# Bounding box, top-left coordinates.
my @e = $layout->get_pixel_extents;
for ( 1, 0 ) {
printf( "%-7s %6.2f %6.2f %6.2f %6.2f\n",
(qw(Ink: Layout:))[$_],
@{%{e[$_]}}{qw( x y width height )} );
}
# NOTE: Some fonts include natural spacing in the bounding box.
# NOTE: Some fonts exclude accents on capitals from the bounding box.
# Show baseline.
$cr->save;
$cr->set_source_rgb(1,0,1);
$cr->set_line_width( 0.25 );
$cr->translate( $x, $y );
my %e = %{$e[1]};
_line( $e{x}, $layout->get_baseline/$PANGO_SCALE, $e{width}, 0 );
# Show BBox.
$cr->rectangle( $e{x}, $e{y}, $e{width}, $e{height} );;
$cr->stroke;
%e = %{$e[0]};
$cr->set_source_rgb(0,1,1);
$cr->rectangle( $e{x}, $e{y}, $e{width}, $e{height} );;
$cr->stroke;
$cr->restore;
}
sub _showloc {
my ( $x, $y, $d ) = @_;
$x ||= 0; $y ||= 0; $d ||= 50;
$cr->save;
$cr->set_source_rgb(0,0,1);
_line( $x-$d, $y, 2*$d, 0 );
_line( $x, $y-$d, 0, 2*$d );
$cr->restore;
}
sub _line {
my ( $x, $y, $w, $h, $lw ) = @_;
$lw ||= 0.5;
$y = $y;
$cr->save;
$cr->move_to( $x, $y );
$cr->rel_line_to( $w, $h );
$cr->set_line_width($lw);
$cr->stroke;
$cr->restore;
}
1;
Text-Layout-0.037/tests/pango04.pl 0000644 0004000 0004000 00000001670 14640222607 014476 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Pango;
use Cairo;
require "./pango00.pl"; # subs
# Create document and graphics environment.
my $surface = Cairo::PdfSurface->create( 'pango04.pdf', 595, 842 ); # A4
my $cr = Cairo::Context->create($surface);
my $layout = Pango::Cairo::create_layout($cr);
# Scale from Cairo (PDF) units to Pango.
my $PANGO_SCALE = Pango->scale;
# Select a font.
my $font = Pango::FontDescription->from_string('AR PL New Sung 60');
$layout->set_font_description($font);
$layout->get_context->set_base_gravity('west');
# Start...
my $x = 0;
my $y = 842-700;
# Left align text.
$layout->set_width( 595 * $PANGO_SCALE );
$layout->set_alignment("left");
# FireFly is TTB.
# WARNING: If the font cannot be found, a substitute font may come out LTR!.
$layout->set_markup("懶惰的姜貓");
$cr->translate(300,100);
$cr->rotate(2*atan2(1,1));
showlayout( $cr, $layout, $x, $y );
# Ship out.
$cr->show_page;
Text-Layout-0.037/tests/strikes.pl 0000644 0004000 0004000 00000002432 14640222607 014707 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
my $verbose = 1;
use PDF::API2;
my $pdf = PDF::API2->new;
$pdf->default_page_size("a4");
my $page = $pdf->page;
my $text = $page->text;
#my $font = $pdf->corefont('Times-Roman');
my $font = $pdf->ttfont( $ENV{HOME} . '/.fonts/DejaVuSerif.ttf');
$text->font( $font, 40 );
$text->translate(50,500);
$text->text("the quick brown fox _ ", -underline => ["auto","auto"] );
$text->text("jumps", -underline => ["auto","auto"] );
use lib 'lib';
use Text::Layout;
warn("Text::Layout version ", $Text::Layout::VERSION, "\n");
my $layout = Text::Layout->new($pdf);
# Select a font.
$font = Text::Layout::FontConfig->from_string("DejaVuSerif 40");
$layout->set_font_description($font);
#$font->set_shaping;
$layout->set_markup( qq{the quick brown fox _ jumps} );
$layout->render( 50, 350, $text );
$font->{underline_thickness} = 45;
$font->{underline_position} = -140;
$font->{strikeline_position} = 320;
$font->{overline_position} = 600;
$layout->set_markup( qq{the quick brown fox _ jumps} );
$layout->render( 50, 250, $text );
$pdf->save("strikes.pdf");
Text-Layout-0.037/tests/tl_c_04.pl 0000644 0004000 0004000 00000003410 14640222607 014444 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
use PDF::API2;
use lib "../lib";
use Text::Layout;
use Text::Layout::FontConfig;
eval { require HarfBuzz::Shaper }
or warn("HarfBuzz::Shaper not found. Expect incorrect results!\n");
# Create document and graphics environment.
my $pdf = PDF::API2->new();
$pdf->mediabox( 595, 842 ); # A4
# Set up page and get the text context.
# Markup::Simple *only* uses the text context, and only for rendering.
my $page = $pdf->page;
my $text = $page->text;
# Create a layout instance.
my $layout = Text::Layout->new($pdf);
# Setup the fonts.
setup_fonts();
# Select a font.
my $font = Text::Layout::FontConfig->from_string("AR-PL-New-Sung 60");
$layout->set_font_description($font);
# Start...
my $x = 200;
my $y = 500;
# Left align text.
$layout->set_width(195);
$layout->set_alignment("left");
my $t = "懶惰的姜貓";
# FireFlySung is TTB.
$layout->set_markup($t);
showlayout( $x, $y );
$x = 0;
$y = 700;
$layout->set_width(595);
$font->set_direction('ltr');
showlayout( $x, $y );
# Ship out.
$pdf->saveas("tl_c_04.pdf");
################ Subroutines ################
my $gfx;
sub showlayout {
my ( $x, $y ) = @_;
$layout->show( $x, $y, $text);
$gfx //= $page->gfx;
$layout->showbb($gfx);
}
sub setup_fonts {
# Register all corefonts. Useful for fallback.
# Not required, skip if you have your own fonts.
my $fd = Text::Layout::FontConfig->new;
# $fd->register_corefonts;
# Add font dir and register fonts.
$fd->add_fontdirs( $ENV{HOME}."/.fonts", "/usr/share/fonts/" );
# Add FireFlySung (Chinese). Requires shaping.
$fd->register_font( "fireflysung.ttf",
"AR-PL-New-Sung", "", "",
{ shaping => 1,
language => 'chinese',
direction => 'ttb',
nosubset => 1 } );
}
Text-Layout-0.037/tests/md1.pl 0000644 0004000 0004000 00000001124 14640222607 013701 0 ustar jv jv #!/usr/bin/perl
use strict;
use warnings;
use utf8;
use lib "../lib";
use Text::Layout::Markdown;
# Create a layout instance.
my $layout = Text::Layout::Markdown->new;
binmode( STDOUT, ':utf8' );
# Text to render.
$layout->set_markup( q{Áhe quick brown fox} );
# Render it.
print $layout->show(), "\n";
# Text to render.
$layout->set_markup( q{Áhe quick brown fox} );
# Right align text (will be ignored w/ Markdown).
$layout->set_width(50);
$layout->set_alignment("center");
# Render it.
print $layout->show(), "\n";
Text-Layout-0.037/t/ 0000755 0004000 0004000 00000000000 14640222611 011761 5 ustar jv jv Text-Layout-0.037/t/00-load.t 0000644 0004000 0004000 00000001101 14611401705 013274 0 ustar jv jv #!perl -T
use Test::More tests => 6;
BEGIN {
use_ok( 'Text::Layout::FontConfig' );
use_ok( 'Text::Layout' );
}
note( "Testing Text::Layout $Text::Layout::VERSION, Perl $], $^X" );
eval {
require HarfBuzz::Shaper;
HarfBuzz::Shaper->VERSION(0.018);
diag( "Shaping enabled (HarfBuzz::Shaper $HarfBuzz::Shaper::VERSION)" );
1;
} || note( "Shaping disabled (HarfBuzz::Shaper not found)" );
BEGIN {
use_ok( 'Text::Layout::Markdown' );
use_ok( 'Text::Layout::PDFAPI2' );
use_ok( 'Text::Layout::Pango' );
use_ok( 'Text::Layout::Cairo' );
}
Text-Layout-0.037/t/102-pdfapi.t 0000644 0004000 0004000 00000006005 14177246042 013723 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
use Test::More;
if ( eval { require PDF::API2 } ) {
plan tests => 32;
}
else {
plan skip_all => "PDF::API2 not installed";
}
#### All this has been tested.
# Create PDF document, with a page and text content.
my $pdf = PDF::API2->new;
$pdf->mediabox( 595, 842 ); # A4
my $page = $pdf->page;
my $text = $page->text;
# Create a layout.
require Text::Layout;
my $layout = Text::Layout->new($pdf);
isa_ok( $layout, 'Text::Layout::PDFAPI2', 'Implicit backend' );
# Create a FontConfig.
require Text::Layout::FontConfig;
my $fc = Text::Layout::FontConfig->new;
# Register some (core) fonts.
$fc->register_font( "Times-Roman", "Serif" );
$fc->register_font( "Times-Bold", "Serif", "Bold" );
$fc->register_font( "Times-Italic", "Serif", "Italic" );
$fc->register_font( "Times-BoldItalic", "Serif", "BoldItalic" );
# Lookup a font by description.
my $fd = $fc->from_string("Serif 20");
#### End pre-tested setup.
# Apply the font to the layout.
$layout->set_font_description($fd);
is( $layout->get_font_description->to_string, "Serif 20", "Font desc");
# Put some text in the layout.
$layout->set_markup("The quick brows fox");
# Get baseline. Since we're working top-left this is a negative value.
my $v = $layout->get_baseline;
fuzz( $v, -13.66, "baseline $v" );
$v = $layout->get_iter->get_baseline;
fuzz( $v, -13.66, "baseline $v" );
# Get width/height.
my @a = $layout->get_pixel_size;
fuzz( $a[0], 166.08, "pixel_size width $a[0]" );
fuzz( $a[1], 18.00, "pixel_size height $a[1]" );
my $a = $layout->get_pixel_size;
fuzz( $a->{width}, 166.08, "pixel_size width $a->{width}" );
fuzz( $a->{height}, 18.00, "pixel_size height $a->{height}" );
# get_size should return the same, since we're not using Pango units.
@a = $layout->get_size;
fuzz( $a[0], 166.08, "size width" );
fuzz( $a[1], 18.00, "size height" );
$a = $layout->get_size;
fuzz( $a->{width}, 166.08, "size width" );
fuzz( $a->{height}, 18.00, "size height" );
# Get extents
my @ink = qw( ink layout );
my @fields = qw( x y width height );
# Subtracting height from y was introduced in 0.028.
my $res = { x => 0.00, y => -18.00, width => 166.08, height => 18.00 };
# This case cannot calculate ink.
my $ink = $res;
my $inkres = [ $res, $ink ];
# Scalar call should yield layout values.
$a = $layout->get_pixel_extents;
for my $f ( @fields ) {
fuzz( $a->{$f}, $res->{$f},
"pixel_extents @{[$ink[1]]} $f @{[$a->{$f}]}" );
}
# List call should yield [ res ink ].
@a = $layout->get_pixel_extents;
for ( 0, 1 ) {
my $a = $a[$_];
for my $f ( @fields ) {
fuzz( $a->{$f}, $inkres->[$_]{$f},
"pixel_extents[$_] @{[$ink[$_]]} $f @{[$a->{$f}]}" );
}
}
# Same, using Pango units (but we do not).
@a = $layout->get_extents;
for ( 0, 1 ) {
my $a = $a[$_];
for my $f ( @fields ) {
fuzz( $a->{$f}, $inkres->[$_]{$f},
"extents[$_] @{[$ink[$_]]} $f @{[$a->{$f}]}" );
}
}
# Big bang?
$layout->show( 100, 500, $text );
sub fuzz { ok( $_[0] < $_[1]+0.01 && $_[0] > $_[1]-0.01, $_[2] ) }
Text-Layout-0.037/t/Polo-SemiScript.ttf 0000644 0004000 0004000 00000053004 14177246042 015504 0 ustar jv jv pFFTMW U GDEF T *GPOSD Ut rGSUBw U XOS/2x: x Vcmap>k Pgasp T glyf8? CheadNH 6hhea 4 $hmtx? locaJ maxpL x X name+ O postZ Rl y A'M_< I ~ Z~ u @ 1 @ H PfEd 8 Z M y ( ( S , F E "
# > _ K ! ` # L A $ j g < K ) !I ! 0
)= a ! & ! % ( *) X " ^ * 0 0 ) ) ) I , F * N @ ~ 1BSax~ " & 0 : D!"!&"""""" "+"H"`"e% 1AR`x} & 0 9 D!"!&"""""" "+"H"`"d% d5 5G ߋެ ެޕޒހPQ L b
# $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ & \ \ \ JpppppFh8vBBBB.p $
4
T N
H
zn84d\TBJJ^Lt b b P P P p p : : ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 3 q "4>'>CX Dp
! 1 ( p 7'&76&67> .'&U
n =,/< d0
%-
(S 9 C #&7&/72 2>767.'>7&>7& &>07 A` @
E
k7 .
'
9
$='*
^FD: S U $B
22b/1*"%7 ,"
* 0 [: " 6_ J V 67 >76.'6 76'&76 76'.#'&'4>7.6/>%
H=$ .
!
(;AG,!#E
L s M*8BK; ;.+!. $*, /5
1% +%O0RN1B_p| , .'4>7> ^%
2 $ a 76&467>&'&0+ M
[#F> " , 3 q "4>'>CX Dp
! n
7&.'&05% '
n6$ : ! ?6>72 &'&>8B# / :Y[
[fI~+%h<" %:4/ vs + 6&'&7>766&' & 7sE{ &-./4 :5 eI 49U* A5 >Zi
>:ZX ]P,-# "
(&$ % 2 $j ( &'.>5&&'&627>76&66' %P +/
" j 0#H-
1
/' "&b C 2 " &#&7>2 7>73".'.?>76=% 1 &&'*"26b
+*
NG^ %"
,"r)b!)
8+6S?
3d&
&05 "u9$ x M 63>7 '.'&>76 2>3>7.'&'.7>7'&'&-
4*" Pq T0 '
:O\$Cz
3Q (.6\@s
]%68) 0 v
cA
$>! `n # , C >7 &'.''&7>76.''.#2 676{4" *9%-0 8! # (2
1
I3&
/7vUw* @-
#44 2@];
Gu #o B .#'6 '.4767>7>7&'&'.4'6&6YC
|q I3( RCR
G788 8 60 2
oH
". #eN.! C.
[
.HP= p ; .>76'.#6#.'&762'.'&'&67>/ #6B *-$
* 0(i$@K?'
[2)LHb zl$ CK
%") ZEt
3hUAB l 7 @ 7267&/.'.'64677>7'&.'&76& 6/%
I!+,. 7>W ' H <,b# D8/ ' "-) zH-$G;$ a . ;
T0c+ )%& D'g% 52
#!
H6YP39>A/#X$. 97 m - 9 >" .'>7"'.4766&'fLT)
q2 &w$A
k
),& F#1
e%:2
& #"! i
%LP3' ?
g6p( %-R 6 .'>6&'.>F
G
&
y( -!
0" !. \ i # 6 '.66#>7{
/ *# b
3.
: =(
,$ ;f 2 E > >7>'>7>'& .'&6 &'&>r"k 6V%
="M98 R
& $P! c +
3 8" " ,Xs #
E>$p 2,
&2"G
! 1 ? R 6 && '$'"&.'46'.'>27#>>5..' 326s)1
,(0 =
*
" &
-+8 !N (5
: G< 2,
*|5
t(;9# :(
91 $x 9
x ( 7 G T > &'&'.7 76.'.'4&4 &7>.'7>&' 636$DI= W8&
]\!2
!/.$
5 J/4".7"'k. + qz/*,*?5(' 6,`
/$ &Xq?V
LP*1 $K]
08=
AN
$ 4 8 6 >'&' >7>76&'&7>7>'.'>3 3?
*q
E)` 8F YA2cl&uR$L6#D*b 27@ D ! A~
6
Co E^ , : '&'6 677&6' .'.67>.'>>3 JG6
( H) #
C
j
j]-e *%6 S *@
h -
2i & B5,,2c 74&##3>2 $7&'&'4>7&4&'&'>7'.'4&47$. >7>6&6D $ hU&
$GN '"Q
W<"MMr b4O ' #
7- &NE
(&( (
s?
=
)* ',
@ -2
8$ C' )}
(
H T \ 6$7 67>' &'.7.'&>767&67.'.'&7&'3>6& 6 M
3YPJ
Q V (,
"0
$D&
8 4 +"% !
!
k G
.?Q T > .' 767'.'4&>6& 27&&'.'7>7.3#HQ.+T u)E/'
=XA !RH8 o4W$)#;T
5C &5 g >G W^?N >: * ),
#- /% &.
v # < _ >47&763 6 &'".'.'>&7'&' .'.'&/.54&76 676'> D
X 9
\
& gD 7, 6 %$! ~
/at#2< ,+
K.% =G
9
! F
q 7&'6'&'4>0 $
W'
e *6N = 7 '.'&'.767 2>7'.#&'&7>7
CN
!2
V#
3 /# 05%Mm+M %0g/
&"
C
- $6 3 O 7.' .'.'&'.7>4&5.657.'> 367&
73 .#.''&'>7.67>7&&'&>8/ 'O/ +C01 Gn
e$%)
'*Q'# V@e +) f i
#!$
.J
lD]N"
$ L a 6 >7>76>727..'&467.'""'67.'.% .'&'6.! (F )+ D(
] $- /(
!
"
$#.6^ L fO ;pS
! 4
, w
`G,I5 #%:V
qx A 6 > 76636&7.'.'.'&'&'.60
)2/.$/
$E
47r?8 @ "F +7M @: 0 $< eA?H /57 N >: 408 .<= 0 '&'.7>7>76&'&' 676&7 36PL3
+$BDBT> V;
c=c)&4 1l- )dWY/B+ ,BhDv Q+V
NT Q : D > '&6'.'&7 >&76&67&"# #.6.'>N@r$ ];D? )
yM
OkG9 [T&x %/X >=, oU jR=EJq03
$ y I 67.'&'&6&'.5&67> 6 >7>'.'&5>,)%/
/# <J2IR,
+/4B&Y,!_z
6
"'4
0$1WB1;8MA1!
G$ I0a6
'k=# M[ +
w Q >.'&'"'647.767667>762>76.'..7> usS [
!
P Cp6w)
TdM |*EV+, 2
4|>7 -.
7#% 6\8dB ( O&!! N ! O #4>&'.*#&'4>7> '.7> 674.'.'\E "Sw+>*p8L7. =4ژ.\4@ oO
!cOTC4H> &, 6"
7[ _570,/ fFN
1' # > 367"#& &'&6'.'7 4674.'*.'.>76 l)' !&!
.T'
E(9
0 H
#46a&7 3%*
!*
0 D 6>74&4676 &'.'&#&'&76'.762 ^5/ <(
$ +(
2 : H:( !
# &Y:
1 Ao0 )1 AF q = &#&'&'6& 67>&5&"'>7>76W/ # $T >.
',
T A [- &IN6!6
$N=X0c$n+
`t=! ) ~ [ d %&'&'&66367>76 >7 26?676"'.'&..'37 k'
E0%h )
!' f. 8 <%I(
`2D
DW =]'= A ;) / BI5E
VEO 5(; C
%1-) O + 5* : G .'&'#&&6'4>7>76&'.'&'>7 3>76& 36
^aIA"-
I57&
6 / h[0 *L @:&
8S=$ : H8 N^ 1
5 X& xT!!)+c ! F M 27>7'&5656 67>7&'.'&'>76 >7>76n;SFQW
S3
! ?
.p 9 +*
6 0"HP+HN1]
`# 9, ;0 "Xt N
,uGNW\@ !# I N _ 636" &%"'&7>?.'.76675&&'.'67>&.&'$>0%+#G[ (LH&MA 7 [[cYF
=y}>P+WTq" 4(S$J [!,
.//
7$
"
DH` "/ & "*% &! ( = 7 7&'4.7.'#'.'&>7>76#67>j
:3t} /
61%Zu )/
ak TI- 8]
L)$
+ )KB, 5I#
W
:+ h % 6 3676&'&&'7&7>.7676",\W#}M<
# 2'%V<h
K$C-8E
q .'>7'&'&67>
1At#*Z5e &R74(u' @
P:". ?; ;2z359
g ( 3 '.'#'&7>7 6&76& 7>g & % &#(* 2 iC1
" T<g AIE1
Ch
: ,
-{Fk)3
HR)0 ) + : 2.'""&' 7'.7676&'& > K<3
; . @+t!w5&3 A3?
@2P H$g2W1#p)
"o K 6#&6'&# &65464'&"'.'.&74>>'&746."&#&'6Y8 E
0
$ 8l8 B 6-
( +J
C( sV%%%Sk
m0# !LG M Y .'& '.'4&47 6267>&'&'.67>762636&4&726.
R_m2' 5.SO3
-}
D!(9@ &j G 7>: .'&4'.#.'&6'.67> k&# !,
()
_!gk5 ; 6S (
=K> R|EhY* \
'&'6>>3.'&$"
&-5
K
\
!2
wWJ4 Z
. 62 &'&66 '.'&676768
(
(# ( #
D N
#."$`Fs ' %6g:
MW - %s G > >7>74'672>'.''&6'46&'&67454.+
*P?E^Hi+2@
d
$ 7--&BJ 0 3" N
%
;! "U] n ! > >363&.56&62
"(
<
A7N^
%.H} ( C 263>72 > &'&6'&'&#.6'&&/6,E 10
RE'
@! g ]%$26 `$> a
A (;
K&
n ?Z o
-> 1 6 7> 2?'.'&&'>74. 0(
+$. J$6 $! =VX.
&^ FSXQ
I
N)C6 ' 63676'&&5467> '.'&6nSM
H'$ 5 S4V )]$
>'D/H'~5
- ;"W #Nh)
- '2:9 L1G *; 2 H > > '.'.>'.?6 7&'4.'& 7>&/
./( 8U
\ c/ 4 s_7\ 1($HB / 12:+ V
4(( 9E B 2 G &>7>7 "&#&>'&6'&'&676642>7>&4$
#' +tW#%z X'<
M
&}B7 M N 79y0p){+/RM -27 "9 ( >726 #>'&.'&'6'( 3
#
.
:/ !0. I kk Q
F!"
/y = . '&'>726>7>7'.'>7>H.*2 <#td
[(. D&"
)(
IM .*
"<V7$
,8@ ) C 2 6 6& .'.'& &'&7676&g(A - " $
$
"
= jKo
B
0"/
<(
, 1 7>7> .'.64'#&'.'6z
X"+
!
TO4* D nj K"E#
6;*GR
(06\&B'u0 , 7>7&>76 .'.'.'.'69?1
C :
S
# 8,((. '. ."5 !
? 4 - ? 27>7 >?> '>7&'&'/.'> 6%( B
$ 3 /'
X
#@3I<1fE4*7-5'7=*
* $
U9
> A<
7 E 7> '.''&'&?6&'.676674&#
-$+- ( ")& (
\ - +$,"1
X8 ,
/- Je =*
* 2 9 '&'.>?.'&7> >67+
2!-CA2 3!(0 (9(s1
"
[Kko
2=MI?D9en ? O 6672 &7>7.76 ?4&5.656&76'.67> W(*
#0+;4 '
WQ #]=)K/ e
;
! 23
G "
]
6 K '&'6 7 7&'4.7.'#'.'&>7>76#67>$"
&-
:3t} /
61%Zu )/
ak ]
!2
w TI- 8]
L)$
+ )KB, 5I#
W
:+ } ; P "'&'&#'&'6 7 7&'4.7.'#'.'&>7>76#67>To (
&-[
:3t} /
61%Zu )/
ak }u 22
w TI- 8]
L)$
+ )KB, 5I#
W
:+ )g
9 H '&'62.'""&' 7'.7676&'& >x$"
&-K<3
; . @+t!w5&3 g
!2
wA3?
@2P H$g2W1#p)
)} > M "'&'&#'&'62.'""&' 7'.7676&'& >"o (
&-CK<3
; . @+t!w5&3 }u 22
wA3?
@2P H$g2W1#p)
)s
G V '&'6' '&'62.'""&' 7'.7676&'& >$"
&-k$"
&-\K<3
; . @+t!w5&3 ]
!2
w
!2
wA3?
@2P H$g2W1#p)
[
'&'6>>3.'&$"
&-B5
K
[
!2
wWJ4 } % "'&'&#'&'6>>3.'&vo (
&-5
K
}u 22
wWJ4 Gs
. '&'6' '&'6>>3.'&$"
&-k$"
&-55
K
]
!2
w
!2
wWJ4 g
5 '&'663676'&&5467> '.'&6[$"
&-SM
H'$ 5 S4V )]$
>'D/H'g
!2
w5
- ;"W #Nh)
- '2:9 L1G } : "'&'&#'&'663676'&&5467> '.'&6
o (
&-ZSM
H'$ 5 S4V )]$
>'D/H'}u 22
w5
- ;"W #Nh)
- '2:9 L1G s
C '&'6' '&'663676'&&5467> '.'&6$"
&-k$"
&-GSM
H'$ 5 S4V )]$
>'D/H']
!2
w
!2
w5
- ;"W #Nh)
- '2:9 L1G m
? '&'6 7>7> .'.64'#&'.'6X$"
&-
X"+
!
TO4* Dm
!2
w nj K"E#
6;*GR
(06\&B'u0 } D "'&'&#'&'6 7>7> .'.64'#&'.'6o (
&-G
X"+
!
TO4* D}u 22
w nj K"E#
6;*GR
(06\&B'u0 u
M '&'6' '&'6 7>7> .'.64'#&'.'6$"
&-g$"
&-?
X"+
!
TO4* Dg
!2
w
!2
w nj K"E#
6;*GR
(06\&B'u0 1 1 1 , .'4>7> ^%
2 $ 1 1 1 7 p
,S n X P o l o S c r i p t v . 1 b t D a v i d R a k o w s k i . A l l R i g h t s R e s e r v e d . Polo Script v.1 bt David Rakowski. All Rights Reserved. P o l o - S e m i S c r i p t Polo-SemiScript S e m i S c r i p t SemiScript F o n t F o r g e 2 . 0 : P o l o - S e m i S c r i p t : 1 1 - 1 2 - 2 0 2 1 FontForge 2.0 : Polo-SemiScript : 11-12-2021 P o l o - S e m i S c r i p t Polo-SemiScript V e r s i o n 0 0 1 . 0 0 1 Version 001.001 P o l o - S e m i S c r i p t Polo-SemiScript
! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a
b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ NULHTLFCRDLEDC1DC2DC3DC4RSUSDELnbspaceuni03BCuni2206uni2126 "
, latn liga o l i
, latn kern . $ l j h h j I d j q O I Text-Layout-0.037/t/152-pdfbuilder.t 0000644 0004000 0004000 00000006132 14177771221 014610 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
use Test::More;
if ( eval { require PDF::Builder } ) {
if ( $PDF::Builder::VERSION eq '3.018' ) {
plan skip_all => "PDF::Builder incompatible version";
}
else {
plan tests => 31;
}
}
else {
plan skip_all => "PDF::Builder not installed";
}
#### All this has been tested.
# Create PDF document, with a page and text content.
my $pdf = PDF::Builder->new;
$pdf->mediabox( 595, 842 ); # A4
my $page = $pdf->page;
my $text = $page->text;
# Create a layout.
require Text::Layout::PDFAPI2;
my $layout = Text::Layout::PDFAPI2->new($pdf);
# Create a FontConfig.
require Text::Layout::FontConfig;
my $fc = Text::Layout::FontConfig->new;
# Register some (core) fonts.
$fc->register_font( "Times-Roman", "Serif" );
$fc->register_font( "Times-Bold", "Serif", "Bold" );
$fc->register_font( "Times-Italic", "Serif", "Italic" );
$fc->register_font( "Times-BoldItalic", "Serif", "BoldItalic" );
# Lookup a font by description.
my $fd = $fc->from_string("Serif 20");
#### End pre-tested setup.
# Apply the font to the layout.
$layout->set_font_description($fd);
is( $layout->get_font_description->to_string, "Serif 20", "Font desc");
# Put some text in the layout.
$layout->set_markup("The quick brows fox");
# Get baseline. Since we're working top-left this is a negative value.
my $v = $layout->get_baseline;
fuzz( $v, -13.66, "baseline $v" );
$v = $layout->get_iter->get_baseline;
fuzz( $v, -13.66, "baseline $v" );
# Get width/height.
my @a = $layout->get_pixel_size;
fuzz( $a[0], 166.08, "pixel_size width $a[0]" );
fuzz( $a[1], 18.00, "pixel_size height $a[1]" );
my $a = $layout->get_pixel_size;
fuzz( $a->{width}, 166.08, "pixel_size width $a->{width}" );
fuzz( $a->{height}, 18.00, "pixel_size height $a->{height}" );
# get_size should return the same, since we're not using Pango units.
@a = $layout->get_size;
fuzz( $a[0], 166.08, "size width" );
fuzz( $a[1], 18.00, "size height" );
$a = $layout->get_size;
fuzz( $a->{width}, 166.08, "size width" );
fuzz( $a->{height}, 18.00, "size height" );
# Get extents
my @ink = qw( ink layout );
my @fields = qw( x y width height );
# Subtracting height from y was introduced in 0.028.
my $res = { x => 0.00, y => -18.00, width => 166.08, height => 18.00 };
# This case cannot calculate ink.
my $ink = $res;
my $inkres = [ $res, $ink ];
# Scalar call should yield layout values.
$a = $layout->get_pixel_extents;
for my $f ( @fields ) {
fuzz( $a->{$f}, $res->{$f},
"pixel_extents @{[$ink[1]]} $f @{[$a->{$f}]}" );
}
# List call should yield [ res ink ].
@a = $layout->get_pixel_extents;
for ( 0, 1 ) {
my $a = $a[$_];
for my $f ( @fields ) {
fuzz( $a->{$f}, $inkres->[$_]{$f},
"pixel_extents[$_] @{[$ink[$_]]} $f @{[$a->{$f}]}" );
}
}
# Same, using Pango units (but we do not).
@a = $layout->get_extents;
for ( 0, 1 ) {
my $a = $a[$_];
for my $f ( @fields ) {
fuzz( $a->{$f}, $inkres->[$_]{$f},
"extents[$_] @{[$ink[$_]]} $f @{[$a->{$f}]}" );
}
}
# Big bang?
$layout->show( 100, 500, $text );
sub fuzz { ok( $_[0] < $_[1]+0.01 && $_[0] > $_[1]-0.01, $_[2] ) }
Text-Layout-0.037/t/200-extents.t 0000644 0004000 0004000 00000003621 14177246042 014152 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
use Test::More;
if ( eval { require PDF::API2 } ) {
plan tests => 12;
}
else {
plan skip_all => "PDF::API2 not installed";
}
# Currently the extents method is implemented by the PDFAPI2 backend.
use Text::Layout::PDFAPI2;
-d "t" && chdir("t");
#### All this has been tested.
# Create PDF document, with a page and text content.
my $pdf = PDF::API2->new;
# Create a font.
# Polo-SemiScript was one of the smallest files I could find.
my $fontfile = "Polo-SemiScript.ttf";
ok( -s $fontfile, "have $fontfile" );
my $font;
eval { $font = $pdf->ttfont($fontfile)};
diag($@) if $@;
ok( $font, "have font" );
my $text = "The quick brown fox";
my $e = $font->extents( $text, 64 );
ok( $e, "have extents" );
my $exp = { x => 1.6, y => -12.16,
width => 550.336, height => 56.96,
bl => 47.104};
for ( qw( x y width height bl ) ) {
fuzz( $e->{$_}, $exp->{$_}, "extent $_ $e->{$_}" );
}
augment($exp);
for ( qw( xMin yMin xMax yMax ) ) {
fuzz( $e->{$_}, $exp->{$_}, "extent $_ $e->{$_}" );
}
# visualize( $text, $e );
sub visualize {
my ( $txt, $e ) = ( @_ );
my $text = (my $page = $pdf->page)->text;
my $gfx = $page->gfx;
$gfx->translate(50,600);
$gfx->linewidth(1);
$gfx->rectxy( $e->{xMin}, $e->{yMin}, $e->{xMax}, $e->{yMax} );
$gfx->strokecolor("cyan");
$gfx->stroke;
$gfx->linewidth(0.5);
$gfx->rect( $e->{x}, $e->{y}, $e->{width}, $e->{height} );
$gfx->line( $e->{x}, 0, $e->{x}+$e->{width}, 0 );
$gfx->strokecolor("magenta");
$gfx->stroke;
$text->font($font,64);
$text->translate(50,600);
$text->text($txt);
$pdf->save("200.pdf");
}
sub fuzz { ok( $_[0] < $_[1]+0.01 && $_[0] > $_[1]-0.01, $_[2] ) }
sub augment {
my $e = shift;
$e->{xMin} = $e->{x};
$e->{yMin} = $e->{y};
$e->{xMax} = $e->{x} + $e->{width};
$e->{yMax} = $e->{y} + $e->{height};
}
Text-Layout-0.037/t/11-markup.t 0000644 0004000 0004000 00000011677 14507716150 013710 0 ustar jv jv #! perl
# Basic markup parsing -- regular, bold, italic and overlaps.
use strict;
use Test::More tests => 10;
use Text::Layout::Testing;
my $layout = Text::Layout::Testing->new;
my $xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick brown fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => '8.333',
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick ',
},
{ font => 'Helvetica(sans,normal,normal,11)', size => 11,
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
# font_desc overrides fam/style/weight.
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick ',
},
{ font => 'Helvetica-BoldOblique(sans,italic,bold,10)', size => 10,
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
underline => 'single',
type => "text", text => 'quick',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
underline => 'double', underline_color => 'blue',
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
strikethrough => 1,
type => "text", text => 'quick',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' brown fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
strikethrough => 1, strikethrough_color => 'yellow',
type => "text", text => 'quick',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' brown fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
strikethrough => 1, strikethrough_color => 'yellow',
type => "text", text => 'quick',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
strikethrough_color => 'yellow',
type => "text", text => ' brown ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
strikethrough => 1, strikethrough_color => 'yellow',
type => "text", text => 'fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick ',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
overline => 'double', overline_color => 'red',
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
Text-Layout-0.037/t/10-markup.t 0000644 0004000 0004000 00000006140 14507716141 013674 0 ustar jv jv #! perl
# Basic markup parsing -- regular, bold, italic and overlaps.
use strict;
use Test::More tests => 9;
use Text::Layout::Testing;
my $layout = Text::Layout::Testing->new;
my $xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick brown fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick ',
},
{ font => 'Times-Bold(times,normal,bold,10)', size => 10,
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick ',
},
{ font => 'Times-Italic(times,italic,normal,10)', size => 10,
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The quick ',
},
{ font => 'Times-BoldItalic(times,italic,bold,10)', size => 10,
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The ',
},
{ font => 'Times-Italic(times,italic,normal,10)', size => 10,
type => "text", text => 'quick ',
},
{ font => 'Times-BoldItalic(times,italic,bold,10)', size => 10,
type => "text", text => 'brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
$xp =
[
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => 'The ',
},
{ font => 'Times-BoldItalic(times,italic,bold,10)', size => 10,
type => "text", text => 'quick',
},
{ font => 'Times-Bold(times,normal,bold,10)', size => 10,
type => "text", text => ' brown',
},
{ font => 'Times-Roman(times,normal,normal,10)', size => 10,
type => "text", text => ' fox',
},
];
$layout->set_markup("The quick brown fox");
is_deeply( $layout->_debug_text, $xp );
Text-Layout-0.037/t/210-struts.t 0000755 0004000 0004000 00000001657 14611401705 014027 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
use Test::More;
if ( eval { require PDF::API2 } ) {
plan tests => 1;
}
else {
plan skip_all => "PDF::API2 not installed";
}
use Text::Layout::Testing;
-d "t" && chdir("t");
# Create PDF document, with a page and text content.
my $pdf = PDF::API2->new;
my $text = "The quick brown fox";
my $layout = Text::Layout->new($pdf);
my $fc = Text::Layout::FontConfig->new( corefonts => 1 );
$layout->set_font_description( $fc->from_string( "Times 20" ) );
$layout->set_markup($text);
my @s = $layout->get_struts;
my $exp = [ { _x => 0,
width => 10,
desc => undef,
asc => undef,
label => 'start' },
{ _x => 178.3,
desc => undef,
asc => undef,
width => 0,
label => 'end' } ];
delete $s[0]->{_strut};
delete $s[1]->{_strut};
is_deeply( \@s, $exp, "struts" );
Text-Layout-0.037/t/150-pdfbuilder.t 0000644 0004000 0004000 00000002273 13672413332 014603 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
use Test::More;
if ( eval { require PDF::Builder } ) {
plan tests => 7;
}
else {
plan skip_all => "PDF::Builder not installed";
}
# Create PDF document, with a page and text content.
my $pdf = PDF::Builder->new;
ok( $pdf, "Create PDF" );
$pdf->mediabox( 595, 842 ); # A4
my $page = $pdf->page;
ok( $page, "Create PDF page" );
my $text = $page->text;
ok( $text, "Create PDF page text" );
# Create a layout.
require Text::Layout::PDFAPI2;
my $layout = Text::Layout::PDFAPI2->new($pdf);
ok( $layout, "Create layout");
# Create a FontConfig.
require Text::Layout::FontConfig;
my $fc = Text::Layout::FontConfig->new;
ok( $fc, "Get FontConfig" );
# Register some (core) fonts.
$fc->register_font( "Times-Roman", "Serif" );
$fc->register_font( "Times-Bold", "Serif", "Bold" );
$fc->register_font( "Times-Italic", "Serif", "Italic" );
$fc->register_font( "Times-BoldItalic", "Serif", "BoldItalic" );
# Lookup a font by description.
my $fd = $fc->from_string("Serif 20");
isa_ok( $fd, 'Text::Layout::FontDescriptor', "Get font desc" );
isa_ok( $fd->get_font($layout), 'PDF::Builder::Resource::Font::CoreFont', "Get font" );
Text-Layout-0.037/t/100-pdfapi.t 0000644 0004000 0004000 00000002257 13672413201 013716 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
use Test::More;
if ( eval { require PDF::API2 } ) {
plan tests => 7;
}
else {
plan skip_all => "PDF::API2 not installed";
}
# Create PDF document, with a page and text content.
my $pdf = PDF::API2->new;
ok( $pdf, "Create PDF" );
$pdf->mediabox( 595, 842 ); # A4
my $page = $pdf->page;
ok( $page, "Create PDF page" );
my $text = $page->text;
ok( $text, "Create PDF page text" );
# Create a layout.
require Text::Layout::PDFAPI2;
my $layout = Text::Layout::PDFAPI2->new($pdf);
ok( $layout, "Create layout");
# Create a FontConfig.
require Text::Layout::FontConfig;
my $fc = Text::Layout::FontConfig->new;
ok( $fc, "Get FontConfig" );
# Register some (core) fonts.
$fc->register_font( "Times-Roman", "Serif" );
$fc->register_font( "Times-Bold", "Serif", "Bold" );
$fc->register_font( "Times-Italic", "Serif", "Italic" );
$fc->register_font( "Times-BoldItalic", "Serif", "BoldItalic" );
# Lookup a font by description.
my $fd = $fc->from_string("Serif 20");
isa_ok( $fd, 'Text::Layout::FontDescriptor', "Get font desc" );
isa_ok( $fd->get_font($layout), 'PDF::API2::Resource::Font::CoreFont', "Get font" );
Text-Layout-0.037/lib/ 0000755 0004000 0004000 00000000000 14640222611 012264 5 ustar jv jv Text-Layout-0.037/lib/Text/ 0000755 0004000 0004000 00000000000 14640222611 013210 5 ustar jv jv Text-Layout-0.037/lib/Text/Layout/ 0000755 0004000 0004000 00000000000 14640222611 014465 5 ustar jv jv Text-Layout-0.037/lib/Text/Layout/Cairo.pm 0000644 0004000 0004000 00000000272 14640222607 016066 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
use Carp;
package Text::Layout::Cairo;
sub new {
my ( $pkg, @data ) = @_;
croak("Text::Layout::Cairo: Not yet implemented");
}
1;
Text-Layout-0.037/lib/Text/Layout/FontDescriptor.pm 0000644 0004000 0004000 00000007661 14640222607 020007 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
package Text::Layout::FontDescriptor;
use Carp;
our $VERSION = "0.037";
=head1 NAME
Text::Layout::FontDescriptor - font description for Text::Layout
=head1 SYNOPSIS
Font descriptors are used internally by Text::Layout and
Text::Layout::FontConfig.
=cut
=head1 METHODS
=over
=item new( [ %atts ] )
Creates a new FontDescriptor object.
Attributes:
=over
=item family
=item style
=item weight
The Family, style, and weight of this font. There are mandatory. For
defaults, use an empty string.
=item size
Optional, font size.
=item font
The actual font data.
=item loader
A code reference to call to actually create/load the font if necessary.
Loading will store the font data in the C property.
=back
=back
=cut
sub new {
my ( $pkg, %atts ) = @_;
my $self = bless { style => "",
weight => "",
%atts } => $pkg;
return $self;
}
=over
=item get_font
Returns the actual font data for the font this descriptor describes.
If necessary, the backend will be called to create/load the font.
=back
=cut
sub get_font {
my ( $self, $context ) = @_;
$self->{font} ||= do {
croak("Forgot to pass a layout context to get_font?")
unless UNIVERSAL::isa( $context, 'Text::Layout' );
$context->load_font( $self->{loader_data}, $self );
};
}
=over
=item get_family
=item get_style
=item get_weight
Accessors to the font family, style, and weight.
Readonly.
=back
=cut
sub get_family {
my ( $self ) = @_;
$self->{family};
}
sub get_style {
my ( $self ) = @_;
$self->{style};
}
sub get_weight {
my ( $self ) = @_;
$self->{weight};
}
=over
=item set_size
=item get_size
Sets/gets the size property of the font.
=back
=cut
sub set_size {
my ( $self, $size ) = @_;
$self->{size} = $size;
}
sub get_size {
my ( $self ) = @_;
$self->{size};
}
=over
=item set_direction
=item get_direction
Sets/gets the direction property of the font.
=back
=cut
sub set_direction {
my ( $self, $direction ) = @_;
$self->{direction} = $direction;
}
sub get_direction {
my ( $self ) = @_;
$self->{direction};
}
# Not documented -- internal use only.
sub set_shaping {
my ( $self, $sh ) = @_;
$self->{shaping} = $sh // 1;
}
sub get_shaping {
my ( $self ) = @_;
$self->{shaping};
}
# Not documented -- internal use only.
sub set_interline {
my ( $self, $sh ) = @_;
$self->{interline} = $sh // 1;
}
sub get_interline {
my ( $self ) = @_;
$self->{interline};
}
# Not documented -- internal use only.
# Note that the ascender/descender values are filled in at load time,
# unless overridden by a set_... call.
sub set_ascender {
my ( $self, $asc ) = @_;
$self->{ascender} = $asc;
}
sub get_ascender {
my ( $self ) = @_;
$self->{ascender};
}
sub set_descender {
my ( $self, $desc ) = @_;
$self->{descender} = $desc;
}
sub get_descender {
my ( $self ) = @_;
$self->{descender};
}
=over
=item to_string
Returns a Pango-style font string, C.
=back
=cut
sub to_string {
my ( $self ) = @_;
my $desc = ucfirst( $self->{family} );
$desc .= ucfirst( $self->{style} )
if $self->{style} && $self->{style} ne "normal";
$desc .= " " . ucfirst( $self->{weight} )
if $self->{weight} && $self->{weight} ne "normal";
$desc .= " " . $self->{size} if $self->{size};
return $desc;
}
use overload '""' => \&to_string;
=head1 SEE ALSO
L, L.
=head1 AUTHOR
Johan Vromans, C<< >>
=head1 SUPPORT
This module is part of L.
Development takes place on GitHub:
L.
You can find documentation for this module with the perldoc command.
perldoc Text::Layout::FontDescriptor
Please report any bugs or feature requests using the issue tracker for Text::Layout on GitHub.
=head1 LICENSE
See L.
=cut
1;
Text-Layout-0.037/lib/Text/Layout/Version.pm 0000644 0004000 0004000 00000000136 14640222607 016455 0 ustar jv jv # This file is generated. Do not edit!
package Text::Layout::Version;
our $VERSION = "0.037";
Text-Layout-0.037/lib/Text/Layout/PDFAPI2/ 0000755 0004000 0004000 00000000000 14640222611 015512 5 ustar jv jv Text-Layout-0.037/lib/Text/Layout/PDFAPI2/ImageElement.pm 0000644 0004000 0004000 00000021451 14640222607 020414 0 ustar jv jv #! perl
use v5.26;
use warnings;
use utf8;
use Object::Pad;
class Text::Layout::PDFAPI2::ImageElement :does(Text::Layout::ElementRole);
=head1 NAME
Text::Layout::PDFAPI2::ImageElement - ![]()
element for PDF images
=head1 DESCRIPTION
This class implements support for an C<< ![]()
>> element. It can be
used to include inline images in marked-up texts.
The class provides the three mandatory methods according to the
requirements of L.
=over 4
=item parse
To parse the C<< ![]()
>> tag in marked-up text.
=item bbox
To provide the augmented bounding box for the image.
=item render
To render the image using one of the PDF::API2 compatible libraries.
=back
An additional, overridable method getimage() is provided to actually
produce the desired image object. See L
=head1 THE C<< ![]()
>> ELEMENT
![]()
Note that the C<< ![]()
>> element must be self-closed, i.e., end with
C<< /> >>.
The image is placed at the current location in the text and aligned on
the baseline of the text. The image dimensions contribute to the
resultant bounding box of the formatted text. See C and C
below.
All attributes are key=value pairs. The value should (but need not) be
enclosed in quotes.
Dimensional values may be a (fractional) number optionally
postfixed by C or C, or a percentage.
A number indicates points.
C values are multiplied by the current font size and
C values are multiplied by half the font size.
=over 4
=item CI
Provides the source of the image. This can be the filename of a jpg,
png or gif image.
=item CI
The desired width for the image.
Dimensional.
The image is scaled if necessary.
=item CI
The desired height for the image.
Dimensional.
The image is scaled if necessary.
=item CI
A horizontal offset for the image, wrt. the current location in the text.
Dimensional.
=item CI
Same, but vertical. Positive amounts move up.
Note the direction is opposite to the Pango C.
=item CI
A scaling factor, to be applied I width/height scaling.
The value may be expressed as a percentage.
=item CI
Align the image in the width given by CI.
Possible alignments are C, C, and C.
=item CI
If true, the actual bounding box of an object is used for placement.
By default the bounding box is only used to obtain the width and height.
This attribute has no effect on image objects.
=item CI
The advance width of the image.
Dimensional.
Default advance is the image width plus horizontal offset.
This overrides the advance and may be zero.
=item CI
The advance height of the image.
Dimensional.
Default advance is the image height plus vertical offset.
This overrides the advance and may be zero.
=back
=head1 CONSTRUCTOR
This class is usually instantiated in a Text::Layout register_element call:
$layout->register_element
( Text::Layout::PDFAPI2::ImageElement->new( pdf => $pdf ) );
=cut
use constant TYPE => "img";
use Carp;
use Text::Layout::Utils qw(parse_kv);
field $pdf :param :accessor;
use constant DEBUG => 0;
method parse( $ctx, $k, $v ) {
my %ctl = ( type => TYPE );
# Split the attributes.
my $attr = parse_kv($v);
while ( my ( $k, $v ) = each( %$attr ) ) {
# Ignore case unless required.
$v = lc $v unless $k =~ /^(src)$/;
if ( $k =~ /^(src|bbox)$/ ) {
$ctl{$k} = $v;
}
elsif ( $k eq "align" && $v =~ /^(left|right|center)$/ ) {
$ctl{$k} = $v;
}
elsif ( $k =~ /^(width|height|dx|dy|w|h)$/ ) {
$v = $1 * $ctx->{size} if $v =~ /^(-?[\d.]+)em$/;
$v = $1 * $ctx->{size} / 2 if $v =~ /^(-?[\d.]+)ex$/;
$v = $1 * $ctx->{size} / 100 if $v =~ /^(-?[\d.]+)\%$/;
$ctl{$k} = $v;
}
elsif ( $k =~ /^(scale)$/ ) {
$v = $1 / 100 if $v =~ /^([\d.]+)\%$/;
$ctl{$k} = $v;
}
else {
carp("Invalid " . TYPE . " attribute: \"$k\"\n");
}
}
return \%ctl;
}
method render( $fragment, $gfx, $x, $y ) {
my $b = $self->bbox($fragment);
my @bbox = @{$b->{bbox}};
my @bb = @{$b->{bb}};
my @abox = @{$b->{abox}};
my $width = $bb[2] - $bb[0];
my $height = $bb[3] - $bb[1];
my $img = $self->getimage($fragment);
my $is_image = ref($img) =~ /::Image::/;
my @a;
if ( $is_image ) {
@a = ( $x + $bb[0], $y + $bb[1], $width, $height );
warn("IMG x=$a[0], y=$a[1], width=$a[2], height=$a[3]\n") if DEBUG;
}
else {
my ( $xscale, $yscale ) = @bb[4,5];
@a = ( $x + $bb[0],
$y + $bb[1] - $yscale*($bbox[1]),
$xscale, $yscale );
unless ( $fragment->{bbox} ) {
$a[0] -= $xscale*($bbox[0]);
}
warn("OBJ x=${x}->$a[0], y=${y}->$a[1], width=$width, height=$height",
( $xscale != 1 || $yscale != 1 )
? ", scale=$xscale" : "",
( $xscale != $yscale )
? ",$yscale" : "", "\n") if DEBUG;
}
$gfx->object( $img, @a );
return { abox => \@abox };
}
method bbox( $fragment ) {
return $fragment->{_bb} if $fragment->{_bb};
my @bbox; # bbox of image or object
my @bb; # bbox after scaling/displacement, plus scale factors
my @abox; # advance box
my $img = $self->getimage($fragment);
my $is_image = ref($img) =~ /::Image::/;
my $img_width;
my $img_height;
if ( $is_image ) {
$img_width = $img->width;
$img_height = $img->height;
@bbox = ( 0, 0, $img_width, $img_height );
}
else {
@bbox = $img->bbox;
@bbox[0,2] = @bbox[2,0] if $bbox[2] < $bbox[0];
@bbox[1,3] = @bbox[3,1] if $bbox[3] < $bbox[1];
$img_width = $bbox[2] - $bbox[0];
$img_height = $bbox[3] - $bbox[1];
}
# Target width and height.
my $width = $fragment->{width} || $img_width;
my $height = $fragment->{height} || $img_height;
# Calculate scale factors.
my $xscale = 1;
if ( $width != $img_width ) {
$xscale = $width / $img_width;
}
my $yscale = $xscale;
if ( $height != $img_height ) {
$yscale = $height / $img_height;
}
# Apply custom scale.
my $scale = $fragment->{scale} // 1;
if ( $scale != 1 ) {
$xscale *= $scale;
$yscale *= $scale;
$width *= $scale;
$height *= $scale;
}
# Displacement wrt. the origin.
my $dx = $fragment->{dx} || 0;
my $dy = $fragment->{dy} || 0;
if ( !$is_image && $fragment->{bbox} ) {
$dx += $bbox[0] * $xscale;
$dy += $bbox[1] * $yscale;
}
# Use the image baseline, if any.
if ( $fragment->{base} ) {
$dy += ( $bbox[1] - $fragment->{base} ) * $yscale;
}
@bb = ( $dx, $dy, $width + $dx, $height + $dy, $xscale, $yscale );
@abox = @bb;
# Bounding box width/height.
if ( defined $fragment->{w} ) {
$abox[0] = 0;
$abox[2] = $fragment->{w};
}
if ( defined $fragment->{a} ) {
$abox[3] = $fragment->{a};
}
if ( defined $fragment->{d} ) {
$abox[1] = $fragment->{d};
}
if ( $fragment->{align} ) {
if ( $fragment->{align} eq "right" ) {
$bb[0] += $abox[2] - $width;
}
elsif ( $fragment->{align} eq "center" ) {
$bb[0] += ($abox[2]-$width)/2;
}
}
warn( ref($img) =~ /::Image::/ ? "IMG" : "OBJ",
" bbox [@bbox]",
" bb [@bb]",
" abox [@abox]",
( $xscale != 1 || $yscale != 1 )
? " scale=$xscale" : "",
( $xscale != $yscale )
? ",$yscale" : "", "\n") if DEBUG;
return $fragment->{_bb} = { bbox => \@bbox, bb => \@bb, abox => \@abox };
}
=head1 IMAGE PRODUCER
The image object is produced with a call to method getimage(), that
can be overridden in a subclass.
The method gets a hash ref as argument.
This hash contains all the attributes and may be used for cacheing purposes.
For example,
method getimage ($fragment) {
$fragment->{_img} //= $self->pdf->image($fragment->{src});
}
An overridden getimage() may produce a PDF XObject instead of an image
object. An XObject is treated similar to an image object, but is
aligned according to its bounding box if attribute C is set to a
I value, i.e., not zero.
=cut
method getimage ($fragment) {
return $fragment->{_img} if $fragment->{_img};
my $src = $fragment->{src};
# API suports jpg, png, gif and tiff.
# If we have the SVGPDF module, we can do SVG images.
if ( $src =~ /\.svg$/i ) {
local $SIG{__WARN__} = '__IGNORE__';
if ( eval "require SVGPDF" ) {
$fragment->{_img} = SVGPDF->new( pdf => $pdf )
->process( $src, combine => "stacked" )->[0]->{xo};
}
# API will complain.
}
# Pass to API.
$fragment->{_img} //= $pdf->image($src);
}
=head1 SEE ALSO
L, L, L.
=head1 AUTHOR
Johan Vromans, C<< >>
=head1 SUPPORT
This class is part of .
Development takes place on GitHub:
L.
Please report any bugs or feature requests using the issue tracker for
Text::Layout on GitHub.
=head1 LICENSE
See L.
=cut
1;
Text-Layout-0.037/lib/Text/Layout/FontConfig.pm 0000644 0004000 0004000 00000050050 14640222607 017064 0 ustar jv jv #! perl
use strict;
use warnings;
use utf8;
package Text::Layout::FontConfig;
use Carp;
our $VERSION = "0.037";
use Text::Layout::FontDescriptor;
=head1 NAME
Text::Layout::FontConfig - Pango style font description for Text::Layout
=head1 SYNOPSIS
Font descriptors are strings that identify the characteristics of the
desired font. For example, C.
The PDF context deals with physical fonts, e.g. built-in fonts like
C and fonts loaded from font files like
C.
To map font descriptions to physical fonts, these fonts must be
registered. This defines a font family, style, and weight for the
font.
Note that Text::Layout::FontConfig is a singleton. Creating objects
with new() will always return the same object.
=cut
my %fonts;
my @dirs;
my %maps;
my $loader;
my $debug = 0;
my $weights =
[ 100 => 'thin',
100 => 'hairline',
200 => 'extra light',
200 => 'ultra light',
300 => 'light', # supported
350 => 'book', # supported
400 => 'normal', # supported
400 => 'regular', # supported
500 => 'medium', # supported
600 => 'semi bold', # supported 'semi'
600 => 'demi bold',
700 => 'bold', # supported
800 => 'extra bold',
800 => 'ultra bold',
900 => 'black',
900 => 'heavy', # supported
950 => 'extra black',
950 => 'ultra black',
];
=head2 METHODS
=over
=item new( [ atts... ] )
For convenience only. Text::Layout::FontConfig is a singleton.
Creating objects with new() will always return the same object.
Attributes:
=over
=item corefonts
If true, a predefined set of font names (the PDF corefonts) is registered.
=back
=back
=cut
sub new {
my ( $pkg, %atts ) = @_;
my $self = bless {} => $pkg;
$debug = $self->{debug} = $atts{debug};
if ( $atts{corefonts} ) {
$self->register_corefonts;
}
if ( $atts{loader} ) {
$loader = $atts{loader};
}
return $self;
}
sub reset {
my ( $self ) = @_;
warn("FC: Reset\n") if $debug;
%fonts = ();
@dirs = ();
%maps = ();
}
sub debug { shift->{debug} }
=over
=item register_fonts( $font, $family, $style [ , $weight ] [ , $props ] )
Registers a font fmaily, style and weight for the given font.
$font can be the name of a built-in font, or the name of a TrueType or
OpenType font file.
$family is a font family name such as C, C, C, or
C. It is possible to specify multiple family names, e.g.,
C.
$style is the slant style, one of C, C, or C.
$weight is the font weight, like C, or C.
For convenience, style combinations like "bolditalic" are allowed.
A final hash reference can be passed to specify additional properties
for this font. Recognized properties are:
=over
=item *
C - If set to a true value, this font will require text
shaping. This is required for fonts that deal with complex glyph
rendering and ligature handling like Devanagari.
Text shaping requires module L.
=item *
C - If set overrides the font ascender.
This may be necessary to improve results for some fonts.
The value is expressed in 1/1000th of an em.
C - If set overrides the font descender.
This may be necessary to improve results for some fonts.
The value is expressed in 1/1000th of an em.
=item *
C, C - Overrides the font
specified or calculated values for underline thickness and/or position.
This may improve results for some fonts.
=item *
C, C - Overrides the font
specified or calculated values for strikeline thickness and/or position.
This may improve results for some fonts.
Note that strikeline thickness will default to underline thickness, if set.
=item *
C, C - Overrides the font
specified or calculated values for overline thickness and/or position.
This may improve results for some fonts.
Note that overline thickness will default to underline thickness, if
set.
=back
=back
=cut
sub register_font {
shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
my $props;
$props = pop(@_) if UNIVERSAL::isa( $_[-1], 'HASH' );
my ( $font, $family, $style, $weight ) = @_;
if ( $style && !$weight && $style =~ s/^(heavy|bold|semi(?:bold)?|medium|book|light)//i ) {
$weight = $1;
}
$style = _norm_style( $style // "normal" );
$weight = _norm_weight( $weight // "normal" );
my $ff;
if ( $font =~ /\.[ot]tf$/ ) {
if ( $font =~ m;^/; ) {
$ff = $font if -r -s $font;
}
else {
foreach ( @dirs ) {
next unless -r -s "$_/$font";
$ff = "$_/$font";
last;
}
}
}
else {
# Assume corefont.
$ff = $font
}
croak("Cannot find font: ", $font, "\n") unless $ff;
foreach ( split(/\s*,\s*/, $family) ) {
$fonts{lc $_}->{$style}->{$weight}->{loader} = $loader;
$fonts{lc $_}->{$style}->{$weight}->{loader_data} = $ff;
warn("FC: Registered: $ff for ", lc($_), "-$style-$weight\n") if $debug;
next unless $props;
while ( my($k,$v) = each %$props ) {
$fonts{lc $_}->{$style}->{$weight}->{$k} = $v;
}
}
}
=over
=item add_fontdirs( @dirs )
Adds one or more file paths to be searched for font files.
=back
=cut
sub add_fontdirs {
shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
my ( @d ) = @_;
foreach ( @d ) {
unless ( -d -r -x ) {
carp("Skipped font dir: $_ [$!]");
next;
}
push( @dirs, $_ );
}
}
=over
=item register_aliases( $family, $aliases, ... )
Adds aliases for existing font families.
Multiple aliases can be specified, e.g.
$layout->register_aliases( "times", "serif, default" );
or
$layout->register_aliases( "times", "serif", "default" );
=back
=cut
sub register_aliases {
shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
my ( $family, @aliases ) = @_;
carp("Unknown font family: $family")
unless exists $fonts{lc $family};
foreach ( @aliases ) {
foreach ( split( /\s*,\s*/, $_ ) ) {
$fonts{lc $_} = $fonts{lc $family};
}
}
}
=over
=item register_corefonts( %options )
This is a convenience method that registers all built-in corefonts.
Aliases for families C, C, and C are added
unless $noaliases is specified.
You do not need to call this method if you provide your own font
registrations.
Options:
=over
=item aliases
If true, register Serif, Sans and Mono as aliases for Times,
Helvetica and Courier.
This is enabled by default and can be cancelled with C.
=item noaliases
If true, do not register Serif, Sans and Mono as aliases for Times,
Helvetica and Courier.
=item remap
Remap the core fonts to real TrueType or OpenType font files.
Supported values are C or C to use the GNU Free Fonts
(http://ftp.gnu.org/gnu/freefont/) and C or C for the
TeX Gyre fonts (https://www.gust.org.pl/projects/e-foundry/tex-gyre/).
=back
=back
=cut
sub register_corefonts {
shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
my %options;
if ( @_ == 1 ) {
$options{noaliases} = shift;
}
else {
%options = @_;
}
my $noaliases = defined($options{aliases}) ? !$options{aliases} : $options{noaliases};
warn("FC: Registering corefonts\n") if $debug;
register_font( "Times-Roman", "Times" );
register_font( "Times-Bold", "Times", "Bold" );
register_font( "Times-Italic", "Times", "Italic" );
register_font( "Times-BoldItalic", "Times", "BoldItalic" );
register_aliases( "Times", "Serif" )
unless $noaliases;
register_font( "Helvetica", "Helvetica" );
register_font( "Helvetica-Bold", "Helvetica", "Bold" );
register_font( "Helvetica-Oblique", "Helvetica", "Oblique" );
register_font( "Helvetica-BoldOblique", "Helvetica", "BoldOblique" );
register_aliases( "Helvetica", "Sans", "Arial" )
unless $noaliases;
register_font( "Courier", "Courier" );
register_font( "Courier-Bold", "Courier", "Bold" );
register_font( "Courier-Oblique", "Courier", "Italic" );
register_font( "Courier-BoldOblique", "Courier", "BoldItalic" );
register_aliases( "Courier", "Mono", "Monospace", "fixed" )
unless $noaliases;
register_aliases( "Courier", "Mono", "Monospace", "fixed" )
unless $noaliases;
register_font( "ZapfDingbats", "Dingbats" );
if ( 0 ) {
register_font( "Georgia", "Georgia" );
register_font( "Georgia,Bold", "Georgia", "Bold" );
register_font( "Georgia,Italic", "Georgia", "Italic" );
register_font( "Georgia,BoldItalic", "Georgia", "BoldItalic" );
register_font( "Verdana", "Verdana" );
register_font( "Verdana,Bold", "Verdana", "Bold" );
register_font( "Verdana,Italic", "Verdana", "Italic" );
register_font( "Verdana,BoldItalic", "Verdana", "BoldItalic" );
register_font( "WebDings", "WebDings" );
register_font( "WingDings", "WingDings" );
}
# Corefont remapping to real font files.
# Biggest problem is to make sure the fonts are installed, and with
# the file names used here...
$options{remap} //= "";
# GNU Free Fonts.
# http://ftp.gnu.org/gnu/freefont/freefont-ttf-20120503.zip
if ( $options{remap} =~ /^(?:gnu[-_]?)?free(?:[-_]?fonts)?$/i ) {
remap( 'Times-Roman' => "FreeSerif.ttf",
'Times-BoldItalic' => "FreeSerifBoldItalic.ttf",
'Times-Bold' => "FreeSerifBold.ttf",
'Times-Italic' => "FreeSerifItalic.ttf",
'Helvetica' => "FreeSans.ttf",
'Helvetica-BoldOblique' => "FreeSansBoldOblique.ttf",
'Helvetica-Bold' => "FreeSansBold.ttf",
'Helvetica-Oblique' => "FreeSansOblique.ttf",
'Courier' => "FreeMono.ttf",
'Courier-BoldOblique' => "FreeMonoBoldOblique.ttf",
'Courier-Bold' => "FreeMonoBold.ttf",
'Courier-Oblique' => "FreeMonoOblique.ttf",
);
}
# TeX Gyre fonts.
# https://www.gust.org.pl/projects/e-foundry/tex-gyre/whole/tg2_501otf.zip
elsif ( $options{remap} =~ /^tex(?:[-_]?gyre)?$/i ) {
remap( 'Times-Roman' => "texgyretermes-regular.otf",
'Times-BoldItalic' => "texgyretermes-bolditalic.otf",
'Times-Bold' => "texgyretermes-bold.otf",
'Times-Italic' => "texgyretermes-italic.otf",
'Helvetica' => "texgyreheros-regular.otf",
'Helvetica-BoldOblique' => "texgyreheros-bolditalic.otf",
'Helvetica-Bold' => "texgyreheros-bold.otf",
'Helvetica-Oblique' => "texgyreheros-italic.otf",
'Courier' => "texgyrecursor-regular.otf",
'Courier-BoldOblique' => "texgyrecursor-bolditalic.otf",
'Courier-Bold' => "texgyrecursor-bold.otf",
'Courier-Oblique' => "texgyrecursor-italic.otf",
);
}
elsif ( $options{remap} ) {
croak("Unrecognized core remap set");
}
}
=over
=item remap($font)
=item remap( $src => $dst, ... )
Handles font remapping. The main purpose is to remap corefonts to real
fonts.
With a single argument, returns the remapped value, or undef if none.
With a hash argument, maps each of the targets (keys) to a font file
(value). This file must be present in one of the font directories.
Alternatively, the key may be one of C, C and
C and the value an already registered family.
=back
=cut
sub remap {
shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
return $maps{$_[0]} if @_ == 1;
my %m = @_;
while ( my ($k, $v ) = each %m ) {
# Check for family map.
if ( $k =~ /^(Courier|Times|Helvetica)$/
&& defined $fonts{lc $v} ) {
if ( $k eq 'Courier' ) {
$maps{'Courier'} = $fonts{lc $v}{normal}{normal}{loader_data};
$maps{'Courier-Bold'} = $fonts{lc $v}{normal}{bold}{loader_data};
$maps{'Courier-Oblique'} = $fonts{lc $v}{italic}{normal}{loader_data};
$maps{'Courier-BoldOblique'} = $fonts{lc $v}{italic}{bold}{loader_data};
}
elsif ( $k eq 'Helvetica' ) {
$maps{'Helvetica'} = $fonts{lc $v}{normal}{normal}{loader_data};
$maps{'Helvetica-Bold'} = $fonts{lc $v}{normal}{bold}{loader_data};
$maps{'Helvetica-Oblique'} = $fonts{lc $v}{italic}{normal}{loader_data};
$maps{'Helvetica-BoldOblique'} = $fonts{lc $v}{italic}{bold}{loader_data};
}
elsif ( $k eq 'Times' ) {
$maps{'Times-Roman'} = $fonts{lc $v}{normal}{normal}{loader_data};
$maps{'Times-Bold'} = $fonts{lc $v}{normal}{bold}{loader_data};
$maps{'Times-Italic'} = $fonts{lc $v}{italic}{normal}{loader_data};
$maps{'Times-BoldItalic'} = $fonts{lc $v}{italic}{bold}{loader_data};
}
next;
}
# Map font to corefont.
my $ff;
if ( $v =~ m;^/; ) {
$ff = $v if -r -s $v;
}
else {
foreach ( @dirs ) {
next unless -r -s "$_/$v";
$ff = "$_/$v";
last;
}
}
$maps{$k} = $ff
or carp("Invalid font mapping ($v: $!)")
}
1;
}
=over
=item find_font( $family, $style, $weight )
Returns a font descriptor based on the given family, style and weight.
On Linux, fallback using fontconfig.
=back
=cut
sub find_font {
shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
my $atts;
$atts = pop(@_) if UNIVERSAL::isa( $_[-1], 'HASH' );
my ( $family, $style, $weight ) = @_;
warn("FC: find_font( $family, $style, $weight )\n") if $debug;
my $try = sub {
if ( $fonts{$family}
&& $fonts{$family}->{$style}
&& $fonts{$family}->{$style}->{$weight} ) {
my $ff = $fonts{$family}->{$style}->{$weight};
my %i = ( family => $family,
style => $style,
weight => $weight );
;
if ( $ff->{font} ) {
$i{font} = $ff->{font};
}
elsif ( $ff->{loader_data} ) {
$i{loader_data} = $ff->{loader_data};
$i{loader} = $loader;
$i{cache} = $ff;
}
else {
return;
}
for ( qw( shaping ascender descender nosubset direction language
underline_thickness underline_position
strikeline_thickness strikeline_position
overline_thickness overline_position
) ) {
$i{$_} = $ff->{$_};
}
if ( $debug ) {
warn("FC: found( $i{family}, $i{style}, $i{weight} ) -> ",
$i{loader_data}, "\n");
}
return Text::Layout::FontDescriptor->new(%i);
}
};
$style = _norm_style( $style // "normal" );
$weight = _norm_weight( $weight // "normal" );
my $res = $try->();
return $res if $res;
# TODO: Some form of font fallback.
if ( _fallback( $family, $style, $weight ) ) {
$res = $try->();
return $res if $res;
}
# Nope.
croak("Cannot find font: $family $style $weight\n");
}
=over
=item from_string( $description )
Returns a font descriptor using a Pango-style font description, e.g.
C.
On Linux, fallback using fontconfig.
=back
=cut
my $stylep = qr/^( (?:heavy|bold|semi(?:bold)?|medium|book|light)? (?:oblique|italic) )$/ix;
my $weightp = qr/^( (?:heavy|bold|semi(?:bold)?|medium|book|light) (?:oblique|italic)? )$/ix;
sub from_string {
shift if UNIVERSAL::isa( $_[0], __PACKAGE__ );
my ( $description ) = @_;
my $i = parse($description);
my $res = find_font( $i->{family}, $i->{style}, $i->{weight} );
$res->set_size($i->{size}) if $res && $i->{size};
$res;
}
=over
=item parse( $description )
Parses a Pango-style font description and returns a hash ref with keys
C, C
def");
showlayout( $x, $y );
$layout->set_markup("abc