From 1464527159aa1d2463f505eacc5e09aea1cbcd00 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 5 Oct 2017 00:40:03 +0000
Subject: fonts-tlwg (4oct17)

git-svn-id: svn://tug.org/texlive/trunk@45469 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/fonts-tlwg/lthwaree.fd | 27 ++++++++++++++--------
 1 file changed, 18 insertions(+), 9 deletions(-)

(limited to 'Master/texmf-dist/tex/latex/fonts-tlwg/lthwaree.fd')

diff --git a/Master/texmf-dist/tex/latex/fonts-tlwg/lthwaree.fd b/Master/texmf-dist/tex/latex/fonts-tlwg/lthwaree.fd
index ca22fc8fffc..2996b448dd5 100644
--- a/Master/texmf-dist/tex/latex/fonts-tlwg/lthwaree.fd
+++ b/Master/texmf-dist/tex/latex/fonts-tlwg/lthwaree.fd
@@ -4,7 +4,7 @@
 %
 % Copyright (C) 1999 National Electronics and Computer Technology Center
 % (NECTEC), Thailand.  All rights reserved.
-% 
+%
 % It may be distributed and/or modified under the
 % conditions of the LaTeX Project Public License, either version 1.3
 % of this license or (at your option) any later version.
@@ -12,23 +12,32 @@
 %   http://www.latex-project.org/lppl.txt
 % and version 1.3 or later is part of all distributions of LaTeX
 % version 2005/12/01 or later.
-% 
+%
 % This work has the LPPL maintenance status "maintained".
-% 
+%
 % The Current Maintainer of this work is Theppitak Karoonboonyanan.
-% 
+%
+% 2017/09/11 Abhabongse Janthong <abhabongse@gmail.com>
+%            - add font scaling
 % 2008/01/21 Theppitak Karoonboonyanan <thep@linux.thai.net>
 %            - first version
 
 \ProvidesFile{lthwaree.fd}[2008/01/21 v1.0 Thai font definitions]
 
+% Check if the scale factor has been defined
+\ifcsname fontstlwg@scale\endcsname
+  \edef\fontstlwg@@scale{s * [\csname fontstlwg@scale\endcsname] }%
+\else
+  \def\fontstlwg@@scale{s * }%
+\fi
+
 % Primary declarations
 \DeclareFontFamily{LTH}{waree}{}
-\DeclareFontShape{LTH}{waree}{m}{n}{<->s * waree}{}
-\DeclareFontShape{LTH}{waree}{m}{sl}{<->s * waree_o}{}
+\DeclareFontShape{LTH}{waree}{m}{n}{<-> \fontstlwg@@scale waree}{}
+\DeclareFontShape{LTH}{waree}{m}{sl}{<-> \fontstlwg@@scale waree_o}{}
 %%%%%%% bold series
-\DeclareFontShape{LTH}{waree}{b}{n}{<->s * waree_b}{}
-\DeclareFontShape{LTH}{waree}{b}{sl}{<->s * waree_bo}{}
+\DeclareFontShape{LTH}{waree}{b}{n}{<-> \fontstlwg@@scale waree_b}{}
+\DeclareFontShape{LTH}{waree}{b}{sl}{<-> \fontstlwg@@scale waree_bo}{}
 
 % Substitutions
 \DeclareFontShape{LTH}{waree}{m}{it}{<->ssub * waree/m/sl}{}
@@ -39,6 +48,6 @@
 \DeclareFontShape{LTH}{waree}{bx}{it}{<->ssub * waree/b/sl}{}
 \endinput
 
-% 
+%
 % EOF
 %
-- 
cgit v1.2.3

