summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/frcursive/frcursive.sty
blob: c9c3acaac784ba1daa1d46bd90c147938bd29c3c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
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'.