From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/8931
Path: main.gmane.org!not-for-mail
From: AlterEgo Qasars <quasar@econ.muni.cz>
Newsgroups: gmane.comp.tex.context
Subject: \boldsymbol solved
Date: Tue, 6 Aug 2002 10:50:15 +0200
Sender: owner-ntg-context@let.uu.nl
Message-ID: <20020806085015.GA30768@merkur.econ.muni.cz>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="oyUTqETQ0mS9luUI"
X-Trace: main.gmane.org 1035399295 31574 80.91.224.250 (23 Oct 2002 18:54:55 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 18:54:55 +0000 (UTC)
Original-To: konference o ConTeXtu <ntg-context@ntg.nl>
Xref: main.gmane.org gmane.comp.tex.context:8931
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:8931

--oyUTqETQ0mS9luUI
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

Good morning!

Many times I bothered you requesting the \boldsymbol command.
After some time I was succesfull and have implemented that.
(Well, I simply robbed off the code from the former m-math 
module and changed it to work with my version of ConTeXt. :-)
I include the code for those who need it as much as me.

Many greetings,
M.K.

--oyUTqETQ0mS9luUI
Content-Type: application/x-tex
Content-Disposition: attachment; filename="boldsymbol.tex"
Content-Transfer-Encoding: quoted-printable

% First you must set fonts=0A%	-- these stands for Czech Times New, you pro=
bably would use=0A%	another ones=0A\definefontsynonym [Serif]            [q=
tmr8z]=0A\definefontsynonym [SerifBold]        [qtmb8z]=0A\definefontsynony=
m [SerifItalic]      [qtmri8z]=0A\definefontsynonym [SerifSlanted]     [qtm=
ri8z]=0A\definefontsynonym [SerifBoldItalic]  [qtmbi8z]=0A\definefontsynony=
m [SerifBoldSlanted] [qtmbi8z]=0A\definefontsynonym [SerifCaps]        [qtm=
r8z]=0A%	-- this stands for ordinary math fonts, here TXfonts=0A%	(compatib=
le with Times New Roman) is used=0A\definefontsynonym [MathRoman]        [t=
xr][encoding=3Dx5]=0A\definefontsynonym [MathExtension]    [txex]=0A\define=
fontsynonym [MathItalic]       [txmi]=0A\definefontsynonym [MathSymbol]    =
   [txsy]=0A%	-- this stands for bold fonts (TX ones)=0A\definefontsynonym =
[MathRomanBold]     [txb][encoding=3Dx5]=0A\definefontsynonym [MathExtensio=
nBold] [txbex]=0A\definefontsynonym [MathItalicBold]    [txbmi]=0A\definefo=
ntsynonym [MathSymbolBold]    [txbsy]=0A%	-- well, I don't know what is the=
 rest :-(=0A\definefontsynonym [MathAlphaBold]     [LucidaNewMath-Arrows-De=
mi]=0A%	-- this turns fonts on=0A\definebodyfont [14.4pt,12pt,11pt,10pt,9pt=
,8pt,7pt,6pt,5pt]=0A        [rm,mm] [default]=0A\setupbodyfont[10pt]=0A=0A%=
 This is the code -- most is robbed of the former math module=0A\unprotect=
=0A\def\boldsymbol#1{%=0A	{\begingroup%=0A	\definefontsynonym[MathRoman][Ma=
thRomanBold]%=0A	\definefontsynonym[MathExtension][MathExtensionBold]%=0A	\=
definefontsynonym[MathItalic][MathItalicBold]%=0A	\definefontsynonym[MathSy=
mbol][MathSymbolBold]%=0A	\definebodyfont[14.4pt,12pt,11pt,10pt,9pt,8pt,7pt=
,6pt,5pt]%=0A        	[rm,mm][default]%=0A	\setupbodyfont%=0A	\math@atom{#1=
}{%=0A	\mathchoice%=0A		{\hbox{$\m@th\displaystyle#1$}}%=0A		{\hbox{$\m@th\=
textstyle#1$}}%=0A		{\hbox{$\m@th\scriptstyle#1$}}%=0A		{\hbox{$\m@th\scrip=
tscriptstyle#1$}}}%=0A    \endgroup}}=0A=0A\def\math@atom#1#2%=0A   {\binre=
l@{#1}\binrel@@{#2}}=0A=0A\def\binrel@#1%=0A  {\begingroup=0A   \setbox\!!b=
oxa\hbox{\thinmuskip0mu=0A     \medmuskip\m@ne mu \thickmuskip\@ne mu=0A   =
  \setbox\!!boxb\hbox{$#1\m@th$}\kern-\wd\!!boxb=0A     ${}#1{}\m@th$}%=0A =
  \edef\@tempa{\endgroup\let\noexpand\binrel@@=0A     \ifdim\wd\!!boxa<\z@ =
\mathbin=0A     \else\ifdim\wd\!!boxa>\z@ \mathrel=0A     \else \relax\fi\f=
i}%=0A   \@tempa }=0A=0A\let\binrel@@\relax=0A\protect=0A
--oyUTqETQ0mS9luUI--