1
# -*- CPERL -*-
2
# /=====================================================================\ #
3
# | relsize | #
4
# | Implementation for LaTeXML | #
5
# |=====================================================================| #
6
# | Part of LaTeXML: | #
7
# | Public domain software, produced as part of work done by the | #
8
# | United States Government & not subject to copyright in the US. | #
9
# |---------------------------------------------------------------------| #
10
# | Bruce Miller <bruce.miller@nist.gov> #_# | #
11
# | http://dlmf.nist.gov/LaTeXML/ (o o) | #
12
# \=========================================================ooo==U==ooo=/ #
13
package LaTeXML::Package::Pool;
14
use strict;
15
use warnings;
16
use LaTeXML::Package;
17
18
#**********************************************************************
19
20
DefPrimitive('\relsize{}', sub {
21
my ($stomach, $size) = @_;
22
MergeFont(scale => 1.2**ToString(Digest($size))); });
23
24
DefPrimitive('\relscale{}', sub {
25
my ($stomach, $size) = @_;
26
MergeFont(scale => ToString(Digest($size))); });
27
28
DefMacro('\textscale{}{}', '\begingroup\relscale{#1}#2\endgroup');
29
30
DefMacro('\larger Optional:1', '\relsize{+#1}');
31
DefMacro('\smaller Optional:1', '\relsize{-#1}');
32
DefMacro('\textlarger Optional:1 {}', '{\relsize{+#1}#2}');
33
DefMacro('\textsmaller Optional:1 {}', '{\relsize{-#1}#2}');
34
35
DefMacro('\RSpercentTolerance', '');
36
DefMacro('\RSsmallest', '999pt');
37
DefMacro('\RSlargest', '1pt');
38
39
DefMacro('\mathlarger Optional:1', '\relsize{+#1}');
40
DefMacro('\mathsmaller Optional:1', '\relsize{-#1}');
41
42
#**********************************************************************
43
1;