递归包扩展

Question

我最近发现了这个包frcursive，我认为它有漂亮的书法字母。

唯一的问题是，当我尝试使用它时，大写书法字母与普通大写字母相比太大了！有人能帮我缩小它们，而不影响小写字母吗？

这是 MWE

\documentclass[12pt, a4paper]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{frcursive}
\begin{document}
\cursive{A}A
\end{document}

谢谢您的帮助

道明

Answer 1

您可以按照合适的比例加载字体（2/3 似乎不错）。

\documentclass[12pt, a4paper]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}

\DeclareFontFamily{T1}{frc}{}
\DeclareFontShape{T1}{frc}{m}{n}{%
  <-8>   s*[0.6667] frcr6
  <8-14> s*[0.6667] frcr10
  <14->  s*[0.6667] frcr14
}{}
\DeclareFontShape{T1}{frc}{m}{sl}{%
  <-8>   s*[0.6667] frcsl6
  <8-14> s*[0.6667] frcsl10
  <14->  s*[0.6667] frcsl14
}{}
\DeclareFontShape{T1}{frc}{m}{it}{<-> ssub*frc/m/sl}{}
\DeclareFontShape{T1}{frc}{bx}{n}{%
  <-8>   s*[0.6667] frcbx6
  <8-14> s*[0.6667] frcbx10
  <14->  s*[0.6667] frcbx14
}{}
\DeclareFontShape{T1}{frc}{bx}{sl}{%
  <-8>   s*[0.6667] frcbxsl6
  <8-14> s*[0.6667] frcbxsl10
  <14->  s*[0.6667] frcbxsl14
}{}
\DeclareFontShape{T1}{frc}{bx}{it}{<-> ssub*frc/bx/sl}{}

\DeclareRobustCommand{\cursive}{\fontfamily{frc}\selectfont}
\DeclareTextFontCommand{\textcursive}{\cursive}

\begin{document}

\textcursive{ABCD}A

\textit{\textcursive{ABCD}A}

\textbf{\textcursive{ABCD}A}

\end{document}

关于仅缩放大写字母，我认为它不能给出一个很好的结果：说实话，它非常丑陋：

Answer 2

\documentclass[12pt, a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage{frcursive}
\makeatletter
\renewenvironment{cursive}{%
  \fontencoding{\frcursive@enc}%
  \fontfamily{frc}%
  \fontsize{9pt}{10pt}%
  \linespread{1.5}%
  \selectfont}{\par}
 \makeatother
\begin{document}
A \begin{cursive} A \end{cursive}
\end{document}