From 61a092e76cd7aa171cd3790eddc820e8ca15f995 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:56:10 +0000 Subject: frcursive git-svn-id: svn://tug.org/texlive/trunk@940 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/frcursive/frcursive.sty | 65 ++++++++++++++++++++++ Master/texmf-dist/tex/latex/frcursive/ot1frc.fd | 37 ++++++++++++ Master/texmf-dist/tex/latex/frcursive/t1frc.fd | 37 ++++++++++++ 3 files changed, 139 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/frcursive/frcursive.sty create mode 100644 Master/texmf-dist/tex/latex/frcursive/ot1frc.fd create mode 100644 Master/texmf-dist/tex/latex/frcursive/t1frc.fd (limited to 'Master/texmf-dist/tex/latex/frcursive') 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 -- cgit v1.2.3