Looking for the font which has light condensed Greek letters (matching `lmttlc`)

Question

I am using the mathastext package typsetting some historic literatures. I've chosen the Latin Modern Typewriter Light Condensed font for default font just on the consideration of saving paper. Here is the MWE:

\documentclass{article}
\usepackage[no-math]{fontspec}
\setmainfont{Latin Modern  Mono Light Cond}
\usepackage{amsmath}
\usepackage[basic]{mathastext}
\begin{document}
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut purus elit, vestibulum ut,
placerat ac, adipiscing vitae, felis. Curabitur dictum gravida mauris. Nam arcu libero,             
nonummy eget, consectetuer id, vulputate a, magna. Donec vehicula augue eu neque.
\begin{gather*}
1+\frac{1}{4}+\frac{1}{9}+\cdots =\frac{\pi}{6}\\
\frac{\ln x}{\ln\alpha}=\log_{\alpha}x\\
f(x)=\frac{1}{\sigma\sqrt{2\pi}}\exp\left(-\frac{(x-\mu)^2}{2\sigma^2}\right)
\end{gather*}
\end{document}

You can see the Greek letters are too big. I compiled the code file via XeLaTeX BTW.

Answer 1

Using mathspec to select the Greek glyphs from an OpenType font, here is with DejaVu Serif Condensed:

vs

(on the right I added the result of using mathastext without the basic option; in my opinion this is better: look at the = sign and at the (small) parentheses)

I did not experiment much more as I used the CharacterViewer on my Mac to try to identify candidate fonts, but the fonts from the TexLive 2013 repertory are not known to the system, so I only had the system fonts and a few I installed. Also note that for some reason I must specify the font filename when using xelatex with TexLive installed OpenType fonts.

\documentclass{article}
\usepackage{amsmath}
\usepackage[no-math]{fontspec}

\setmainfont[ExternalLocation]{lmmonoltcond10-regular}
% je ne peux pas faire ici sur TL2010:
% \setmainfont{Latin Modern Mono Light Cond}
% et ça ne marche pas non plus sur le Mac avec TL2013. 

\usepackage{mathspec}
%\setmathsfont(Greek)[Lowercase=Regular,Scale=0.92]{FreeMono}
%\setmathsfont(Greek)[Lowercase=Regular,Scale=0.92]{Courier New}
%\setmathsfont(Greek)[Lowercase=Regular,Scale=0.76]{DejaVu Sans ExtraLight}
\setmathsfont(Greek)[Lowercase=Regular,Scale=0.76]{DejaVu Serif Condensed}

    % previous tries
    % \usepackage[style=French,scale=0.88]{libgreek}
    % \usepackage[basic,eulergreek]{mathastext}
    % \MTEulerScale{0.9}

\usepackage[basic]{mathastext}
    %\MTgreekfont{cmr}\Mathastext
    %\MTgreekfont{cmtt}\Mathastext
\begin{document}
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Ut purus elit,
vestibulum ut, 
placerat ac, adipiscing vitae, felis. Curabitur dictum gravida mauris.
Nam arcu libero,              
nonummy eget, consectetuer id, vulputate a, magna. Donec vehicula augue
eu neque. 
\begin{gather*}
1+\frac{1}{4}+\frac{1}{9}+\cdots =\frac{\pi}{6}\\
\frac{\ln x}{\ln\alpha}=\log_{\alpha}x\\
f(x)=\frac{1}{\sigma\sqrt{2\pi}}\exp\left(-\frac{(x-\mu)^2}{2\sigma^2}\right)
\end{gather*}

\[ abcdefghijklmnopqrstuvwxyz \]
\[ αβγδεζηθικλμνξοπρςστυφχψω \]

\end{document}

Answer 2

I don't have the ability to recreate your exact situation, because I don't have that condensed font available to me. However, if no font-based solution presents itself in another answer, this could be an alternate (if less preferred) method.

In essence, I use the scalerel package to redefine greek letters to a condensed version by sqeezing them laterally (in this case to a 70% original width setting). I do it with the \condense macro which redefines its (macro) argument in condensed form.

Below, I show the unchanged, then the changed charcters; then, the result. Obviously, if you adopted this approach, you would put the \condense{} invocations in the preamble.

\documentclass{article}
%\usepackage[no-math]{fontspec}
%\setmainfont{Latin Modern  Mono Light Cond}
\usepackage{amsmath}
\usepackage[basic]{mathastext}
\usepackage{scalerel}
\makeatletter
% Following 3 lines thanks to Prof. Enrico Gregorio, from:
% http://tex.stackexchange.com/questions/42318/
%   removing-a-backslash-from-a-character-sequence
\begingroup\lccode`\|=`\\
\lowercase{\endgroup\def\removebs#1{\if#1|\else#1\fi}}
\newcommand{\@macro@name}[1]{\expandafter\removebs\string#1}
\newcommand*\condense[1]{%
  \expandafter\let\csname sv\@macro@name{#1}\endcsname#1%
  \def#1{\hstretch{.7}{\csname sv\@macro@name{#1}\endcsname}}%
}
\makeatother
\begin{document}

ORIGINAL: \(\alpha\mu\sigma\pi\)

\condense{\alpha}\condense{\mu}\condense{\sigma}\condense{\pi}
REVISED: \(\alpha\mu\sigma\pi\)

\begin{equation}
1+\frac{1}{4}+\frac{1}{9}+\cdots =\frac{\pi}{6}\\
\end{equation}
\begin{equation}
\frac{\ln x}{\ln\alpha}=\log_{\alpha}x\\
\end{equation}
\begin{equation}
f(x)=\frac{1}{\sigma\sqrt{2\pi}}\exp\left(-\frac{(x-\mu)^2}{2\sigma^2}\right)
\end{equation}

\end{document}