frcursive

git-svn-id: svn://tug.org/texlive/trunk@940 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 139 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/frcursive/frcursive.sty b/Master/texmf-dist/tex/latex/frcursive/frcursive.sty
new file mode 100644
index 00000000000..c9c3acaac78
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/frcursive/frcursive.sty
@@ -0,0 +1,65 @@
+%%
+%% This is file `frcursive.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% frcursive.dtx 
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{frcursive}
+  [2004/02/01 v1.2 support package for French Cursive]
+\newcommand{\frcursive@enc}{T1}
+\DeclareOption{OT1}{%
+  \renewcommand{\frcursive@enc}{OT1}}
+\newif\if@frcursive@default
+\@frcursive@defaultfalse
+\DeclareOption{default}{%
+  \@frcursive@defaulttrue}
+\ProcessOptions\relax
+\if@frcursive@default
+\renewcommand{\rmdefault}{frc}
+\linespread{1.5}
+\RequirePackage[T1]{fontenc}
+\fi
+\newenvironment{cursive}{%
+  \fontencoding{\frcursive@enc}%
+  \fontfamily{frc}%
+  \linespread{1.5}%
+  \selectfont}{%
+  \par}
+\newcommand{\textcursive}[1]{{\cursive#1}}
+\newenvironment{calseries}{\fontseries{cal}\selectfont}{}
+\newcommand{\textcal}[1]{{\calseries#1}}
+\newenvironment{ftseries}{\fontseries{ft}\selectfont}{}
+\newcommand{\textft}[1]{{\ftseries#1}}
+\newenvironment{wideseries}{\fontseries{w}\selectfont}{}
+\newcommand{\textwide}[1]{{\wideseries#1}}
+\newenvironment{acadshape}{\fontshape{ac}\selectfont}{}
+\newcommand{\textacad}[1]{{\acadshape#1}}
+\newlength{\seyesThickness}
+\setlength{\seyesThickness}{0.05mm}
+\newcommand{\seyesDefault}{}
+\newsavebox{\seyes@box}
+\newlength{\seyes@ln}
+\newcommand{\seyes}[2][\seyesDefault]{%
+  \mbox{%
+    \sbox\seyes@box{#2}%
+    #1%
+    \raisebox{-0.5\seyesThickness}{\mbox{%
+      \rlap{\rule{\wd\seyes@box}{\seyesThickness}}%
+      \settoheight\seyes@ln{a}%
+      \rlap{\rule[\seyes@ln]{\wd\seyes@box}{\seyesThickness}}%
+      \settoheight\seyes@ln{d}%
+      \rlap{\rule[\seyes@ln]{\wd\seyes@box}{\seyesThickness}}%
+      \settoheight\seyes@ln{b}%
+      \rlap{\rule[\seyes@ln]{\wd\seyes@box}{\seyesThickness}}%
+      \settodepth\seyes@ln{p}%
+      \rlap{\rule[-\seyes@ln]{\wd\seyes@box}{\seyesThickness}}%
+      \settodepth\seyes@ln{g}%
+      \rlap{\rule[-\seyes@ln]{\wd\seyes@box}{\seyesThickness}}%
+    }}%
+    \usebox\seyes@box}}
+\endinput
+%%
+%% End of file `frcursive.sty'.
diff --git a/Master/texmf-dist/tex/latex/frcursive/ot1frc.fd b/Master/texmf-dist/tex/latex/frcursive/ot1frc.fd
new file mode 100644
index 00000000000..54192c9e70f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/frcursive/ot1frc.fd
@@ -0,0 +1,37 @@
+%-*- TeX -*-
+% NFSS definition for the French Cursive font family
+% Bugfixes by Mariusz Wodzicki.
+
+\ProvidesFile{ot1frc.fd}[2004/02/02 French Cursive font definition]
+\DeclareFontFamily{OT1}{frc}{}
+
+\newcommand\DeclareFrenchCursiveShape[3]{
+    \DeclareFontShape{OT1}{frc}{#2}{#3}{%
+        <-8> frc#17
+        <8><9><10><12> gen * frc#1
+        <10.95> frc#111
+        <14.4>  frc#114
+        <17.28-> frc#117}{}}
+
+\DeclareFrenchCursiveShape {r}    {m}{n}
+\DeclareFrenchCursiveShape {sl}   {m}{sl}
+\DeclareFrenchCursiveShape {bx}   {bx}{n}
+\DeclareFrenchCursiveShape {slbx} {bx}{sl}
+
+\newcommand\DeclareReducedFrenchCursiveShape[3]{
+    \DeclareFontShape{OT1}{frc}{#2}{#3}{%
+        <-10.95> frc#110
+        <10.95>  frc#111
+        <12>     frc#112
+        <14.4->  frc#114}{}}
+
+\DeclareReducedFrenchCursiveShape {c} {cal}{n}  % calligraphic
+\DeclareReducedFrenchCursiveShape {f} {ft}{n}   % fixed-thickness
+
+\DeclareFontShape{OT1}{frc}{m}{ac}{<-> frca10}{}
+\DeclareFontShape{OT1}{frc}{w}{n}{<-> frcw10}{}
+
+\DeclareFontShape{OT1}{frc}{m}{it}{<-> sub * frc/m/sl}{}
+\DeclareFontShape{OT1}{frc}{bx}{it}{<-> sub * frc/bx/sl}{}
+
+\endinput
diff --git a/Master/texmf-dist/tex/latex/frcursive/t1frc.fd b/Master/texmf-dist/tex/latex/frcursive/t1frc.fd
new file mode 100644
index 00000000000..516ebccdbab
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/frcursive/t1frc.fd
@@ -0,0 +1,37 @@
+%-*- TeX -*-
+% NFSS definition for the French Cursive font family
+% Bugfixes by Mariusz Wodzicki.
+
+\ProvidesFile{t1frc.fd}[2004/02/02 French Cursive font definition]
+\DeclareFontFamily{T1}{frc}{}
+
+\newcommand\DeclareFrenchCursiveShape[3]{
+    \DeclareFontShape{T1}{frc}{#2}{#3}{%
+        <-8> frc#17
+        <8><9><10><12> gen * frc#1
+        <10.95> frc#111
+        <14.4>  frc#114
+        <17.28-> frc#117}{}}
+
+\DeclareFrenchCursiveShape {r}    {m}{n}
+\DeclareFrenchCursiveShape {sl}   {m}{sl}
+\DeclareFrenchCursiveShape {bx}   {bx}{n}
+\DeclareFrenchCursiveShape {slbx} {bx}{sl}
+
+\newcommand\DeclareReducedFrenchCursiveShape[3]{
+    \DeclareFontShape{T1}{frc}{#2}{#3}{%
+        <-10.95> frc#110
+        <10.95>  frc#111
+        <12>     frc#112
+        <14.4->  frc#114}{}}
+
+\DeclareReducedFrenchCursiveShape {c} {cal}{n}  % calligraphic
+\DeclareReducedFrenchCursiveShape {f} {ft}{n}   % fixed-thickness
+
+\DeclareFontShape{T1}{frc}{m}{ac}{<-> frca10}{}
+\DeclareFontShape{T1}{frc}{w}{n}{<-> frcw10}{}
+
+\DeclareFontShape{T1}{frc}{m}{it}{<-> sub * frc/m/sl}{}
+\DeclareFontShape{T1}{frc}{bx}{it}{<-> sub * frc/bx/sl}{}
+
+\endinput