X-VM-v5-Data: ([nil nil nil nil nil nil nil nil nil]
	["1082" "Thu" "4" "November" "93" "18:03:12" "GMT" "David Carlisle" "carlisle@CS.MAN.AC.UK" nil "35" "Re: latex2e, nfss2 and internal font selection commands" "^Date:" nil nil "11"])
Return-Path: <LATEX-L@vm.urz.Uni-Heidelberg.de>
Received: from sc.ZIB-Berlin.DE (mailserv) 
        by dagobert.ZIB-Berlin.DE (4.1/SMI-4.0/24.6.93)
	id AA21160; Fri, 5 Nov 93 12:16:09 +0100
Received: from vm.urz.Uni-Heidelberg.de (vm.hd-net.uni-heidelberg.de) by sc.ZIB-Berlin.DE (4.1/SMI-4.0-sc/03.06.93)
	id AA29774; Fri, 5 Nov 93 12:16:07 +0100
Message-Id: <9311051116.AA29774@sc.ZIB-Berlin.DE>
Received: from DHDURZ1 by vm.urz.Uni-Heidelberg.de (IBM VM SMTP V2R2)
   with BSMTP id 6200; Fri, 05 Nov 93 12:14:56 CET
Received: from DHDURZ1 by DHDURZ1 (Mailer R2.08 R208004) with BSMTP id 9853;
 Fri, 05 Nov 93 12:14:39 CET
Received: from DHDURZ1 by DHDURZ1 (Mailer R2.08 R208004) with BSMTP id 9851;
 Fri, 05 Nov 93 12:14:35 CET
Reply-To: Mailing list for the LaTeX3 project <LATEX-L@vm.urz.Uni-Heidelberg.de>
In-Reply-To:  <9311041756.AA00980@m1.cs.man.ac.uk> (message from Uwe Muench on
              Thu, 4 Nov 93 18:19:23 +0100)
Date:         Thu, 4 Nov 93 18:03:12 GMT
From: David Carlisle <carlisle@CS.MAN.AC.UK>
Sender: Mailing list for the LaTeX3 project <LATEX-L@vm.urz.Uni-Heidelberg.de>
To: Multiple Recipients of <LATEX-L@vm.urz.Uni-Heidelberg.de>
Subject:      Re: latex2e, nfss2 and internal font selection commands
Status: R
X-Status: 
X-Keywords:                  
X-UID: 1091



> but 'xfig' exports code, which contains many commands as \tenrm, \sevenrm,
> etc (mostly of no need, but it does). I see, that it is possible to write
> such things as

recent versions of xfig (transfig) do not do this. they do all font
sizing in terms of the following commands, which work with or without
the NFSS.

David

\begingroup\makeatletter
% extract first six characters in \fmtname
\def\x#1#2#3#4#5#6#7\relax{\def\x{#1#2#3#4#5#6}}
\expandafter\x\fmtname xxxxxx\relax \def\y{splain}
\ifx\x\y   % LaTeX or SliTeX?
\gdef\SetFigFont#1#2#3{%
  \ifnum #1<17 \tiny\else \ifnum #1<20 \small\else
  \ifnum #1<24 \normalsize\else \ifnum #1<29 \large\else
  \ifnum #1<34 \Large\else \ifnum #1<41 \LARGE\else
     \huge\fi\fi\fi\fi\fi\fi
  \csname #3\endcsname}
\else
\gdef\SetFigFont#1#2#3{\begingroup
  \count@#1\relax \ifnum 25<\count@ \count@25 \fi
  \def\x{\endgroup\@setsize\SetFigFont{#2pt}}%
  \expandafter\x
    \csname \romannumeral\the\count@ pt\expandafter\endcsname
    \csname @\romannumeral\the\count@ pt\endcsname
  \csname #3\endcsname}
\fi
\endgroup

\endinput