LaTeX Forum

\begin{filecontents*}{t1ptmn.fd}
\ProvidesFile{t1ptmn.fd}[2010/06/01 Priv. Adobe Times Narrow font definition, ptmr8rn]
\DeclareFontFamily{T1}{ptmn}{}
\DeclareFontShape{T1}{ptmn}{m}{n}{
  <-> s * ptmr8rn
  }{}
\endinput
\end{filecontents*}
%% --
\begin{filecontents*}{t1ptmnx.fd}
\ProvidesFile{t1ptmnx.fd}[2010/06/01 Priv. Adobe Times Narrow font definition, .82 ptmr8rn]
\DeclareFontFamily{T1}{ptmnx}{}
\DeclareFontShape{T1}{ptmnx}{m}{n}{
  <-> s * [.82] ptmr8rn
  }{}
\endinput
\end{filecontents*}
%% ---
\listfiles
\errorcontextlines=\maxdimen
\RequirePackage[loading]{tracefnt}
%% ---
\RequirePackage{fix-cm}
\documentclass{article}
% \usepackage[T1]{fontenc}        % enable EC-Fonts (extended cork)
%% --- User Commands   ---
\newcommand{\Times}{\fontencoding{T1}\fontsize{10}{12}\selectfont}
\newcommand{\TimesNarrow}{\fontencoding{T1}\fontfamily{ptmn}\fontshape{n}\fontsize{10}{12}\selectfont}
\newcommand{\TimesNarrowX}{\fontencoding{T1}\fontfamily{ptmnx}\fontshape{n}\fontsize{10}{12}\selectfont}
%% --- LayOut Settings --- 
\setlength{\parindent}{0pt}
\begin{document}
\Times{abcdefghijklmnopqrstuvwxyzäöüßABCDEFGHIJKLMNOPQRSTUVWXYZÄÖܧ}

\TimesNarrow{abcdefghijklmnopqrstuvwxyzäöüßABCDEFGHIJKLMNOPQRSTUVWXYZÄÖܧ}

\TimesNarrowX{abcdefghijklmnopqrstuvwxyzäöüßABCDEFGHIJKLMNOPQRSTUVWXYZÄÖܧ}
\end{document}

\newcommand{\vCM}{\text{\usefont{OML}{cmr}{m}{it}\symbol{118}}}    % velocity, v in CM-font (cmr)

\makeatletter 
  %% make boldmath and boldsymbol an alias for \pmb{}
  \def\boldmath{\pmb}
  \def\boldsymbol{\pmb}
\makeatother

%% --
\DeclareSymbolFont{rsfs}{U}{rsfs}{m}{n}
\DeclareSymbolFontAlphabet{\mathrsfs}{rsfs}

\newcommand\hmmax{0} % default 3
\newcommand\bmmax{0} % default 4
\usepackage{bm}

[...]
\usepackage[T1]{fontenc}
\usepackage{lmodern}
\renewcommand{\rmdefault}{ptm}
\usepackage{amsmath}

123 sieht anders aus als $123$

[...]
\DeclareMathAlphabet{\mathcm}{T1}{cmr}{m}{it}
\newcommand{\vCM}{\ensuremath{\mathcm{v}}{}}  % velocity, v in CM-font (cmr)

[...]
\usepackage[T1]{fontenc} 
\usepackage{mathptmx}           % provides time-font
\usepackage{bm}                 % provides \bm (boldmath)
\renewcommand{\boldmath}{\bm}   % \boldmath =: \bm
\usepackage{amsmath}            % provides a lot math stuff, i.a. subarry
[...]

\listfiles                      % show files, that have been used
\errorcontextlines=\maxdimen     % show max lines around error
%% --
\documentclass[a4paper]{article}
\usepackage[resetfonts]{cmap}   % make PDF searchable
\usepackage{fixltx2e}           % fix latex-e bugs
\usepackage[ansinew]{inputenc}  % latin1 includes "ä,ö,ü", ansinew includes win32 specials 
\usepackage[T1]{fontenc}        % enable EC-Fonts (extended cork)
\usepackage{ifthen}             % provides makro `ifthen'
%% fontselection: fontec, fontlmodern, timesdefaultrm, mathptmxon, fontkurier, fontiwona
\def\myfontselection{mathptmxon}
\ifthenelse{\equal{\myfontselection}{fontec}}{\usepackage{mmap}}{}
\ifthenelse{\equal{\myfontselection}{fontlmodern}}{\usepackage{lmodern}}{}
\ifthenelse{\equal{\myfontselection}{mathptmxon}}{\usepackage{mathptmx}}{}
\ifthenelse{\equal{\myfontselection}{timesdefaultrm}}{\usepackage{lmodern}
                                                      \renewcommand{\rmdefault}{ptm}}{}
\ifthenelse{\equal{\myfontselection}{fontkurier}}{\usepackage[light,condensed,math]{kurier}}{}
\ifthenelse{\equal{\myfontselection}{fontiwona}}{\usepackage[light,condensed,math]{iwona}}{}
%% --- End Font Selection ---
\usepackage{amsmath}            % provides a lot math stuff, i.a. subarry 
%% ---
\begin{document}
\section*{Vergleich der Matheschriften}
Schwachstelle vom Paket \textsf{mathptmx} ist der Mathemodus, z.B. $v$ und $\nu$ sehen sich 
sehr ähnlich und die Abstände im Index von mathematischen Symbolen sind nicht immer schön. Deshalb definiere ich \textsf{times} nur als Textschrift, indem ich der Variablen \texttt{\textbackslash{}rmdefault} einen neuen Wert zuweise:\newline{}
latin math v: $v_{\mathit{bla,\, foo}}$ \newline{}
greek math nu: $\nu_{\mathit{bla,\, foo}}$ \newline{}
\end{document}

[...]
\usepackage{ifthen}
\newboolean{mathptmxon}
\setboolean{mathptmxon}{true}
[...]
\usepackage[T1]{fontenc}
\ifthenelse{\boolean{mathptmxon}}{\usepackage{mathptmx}}{\usepackage{exscale}}

[...]
%% if package "mathptmx" is used
\ifthenelse{\boolean{mathptmxon}}{%
  \makeatletter 
    %% change symbols font to standard CM-font
    \SetSymbolFont{symbols}{normal}{OMS}{llcmsy}{m}{n} 
  \makeatother
}{}
[...]