File reorganization

More makefile-friendly

1 files changed, 50 insertions, 0 deletions

diff --git a/fmt/font.h b/fmt/font.h
new file mode 100644
index 0000000..54d4b54
--- /dev/null
+++ b/fmt/font.h
@@ -0,0 +1,50 @@
+%% Fonts
+\newcount\thespacing
+\newdimen\size
+\begingroup
+  \edef\specialAt{{ \string a\string t }}%
+  \def\x#1{%
+    \def\getfontsize##1=##2{% The user level macro
+      \expandafter\getfontsizE\fontname##2#1\relax{##1}%
+    }%
+    \def\getfontsizE##1#1##2\relax##3{%
+      \ifx*##2*% Loaded at designsize
+        \begingroup
+          \font\tmpfont"##1" scaled 2000
+          \getfontsize\dimen0=\tmpfont
+          \divide\dimen0 by 2
+          \expandafter
+        \endgroup
+        \expandafter\getfontsiZe\the\dimen0\relax{##3}%
+      \else% Otherwise #2 holds the size. But is is followed by " at ", so we have to strip that
+        \getfontsiZE{##3}##2%
+      \fi
+    }%
+    \def\getfontsiZE##1##2#1{##1=##2}% Strip " at "
+    \def\getfontsiZe##1\relax##2{##2=##1}
+  }
+  \expandafter\expandafter\expandafter
+\endgroup
+\expandafter\x\specialAt % From StackOverflow
+{
+\catcode`\@=11
+
+\global\let\f@nt\font
+
+\gdef\spacing{
+    \afterassignment\adjs \thespacing}
+\gdef\adjs{%adjust spacing
+    \baselineskip=\size \multiply\baselineskip by \thespacing
+    \divide\baselineskip by 100\relax}
+
+\gdef\font#1{%
+    \def\orig{#1}\edef\realname{\csname\string#1@font\endcsname}
+    \afterassignment\xfont
+    \expandafter\f@nt\realname
+}
+\gdef\xfont{
+    \expandafter\getfontsize\expandafter\dimen0\expandafter=\realname
+    \expandafter\expandafter\expandafter\def
+    \expandafter\orig\expandafter{\realname\size\dimen0\adjs}
+}
+}