profCitation.sty

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{profCitation}[2014/05/19]

\newcommand{\Cdeux}{%
  \formatcitation{Les mathématiques ne sont écrites que pour les mathématiciens}{N. Copernic}%
}
\newcommand{\Cquatre}{%
  \formatcitation{Un mathématicien est un aveugle qui, dans une pièce sombre, cherche un chat noir qui n'y est pas.}{C. Darwin}%
}
\newcommand{\Csix}{%
  \formatcitation{Si vous touchez aux maths, vous ne devez être ni pressés, ni cupides, fussiez-vous roi ou reine.}{Euclide}%
}
\newcommand{\Csept}{%
  \formatcitation{Ne tenez pour certain que ce qui est démontré.}{I. Newton}%
}
\newcommand{\Cun}{%
  \formatcitation{La vie n'est bonne qu'à étudier et à enseigner les mathématiques.}{B. Pascal}%
}
\newcommand{\Cneuf}{%
  \formatcitation{C'est avec la logique que nous prouvons et avec l'intuition que nous trouvons.}{H. Poincaré}%
}
\newcommand{\Ccinq}{%
  \formatcitation{Qui parle sème~; qui écoute récolte.}{Pythagore}%
}
\newcommand{\Chuit}{
  \formatcitation{Toute chose est nombre.}{Pythagore}%
}
\newcommand{\Ctrois}{%
  \formatcitation{La vérité est parfaite pour les mathématiques, la chimie, la philosophie, mais pas pour la vie.}{E. Sabato}%
}
\newcommand{\Cdix}{%
\formatcitation{Aussi difficile que cela puisse paraître, si vous n'essayez pas, alors vous le ne ferez jamais.}{A. Wiles}%
}
\newcount\randCit
\newsavebox{\textecitation}
\newlength{\longCitation}
\newlength{\hautCitation}
\newlength{\profCitation}
\newcommand{\numcitation}[1]{%
  \ifcase#1 \or \Cun \or \Cdeux \or \Ctrois \or \Cquatre \or \Ccinq \or \Csix
  \or \Csept \or \Chuit \or \Cneuf \or \Cdix \fi%
}
\newcommand{\formatcitation}[2]{%
  #1 $\longrightarrow$ {\scshape \normalfont #2}%%
}
\newcommand{\citationchoisie}{%
  \setrannum{\randCit}{1}{10}%
  \def\TEXTE{\numcitation{\randCit}}
  \def\TEXTEf{\footnotesize\bfseries\slshape\TEXTE}
  \settowidth{\longCitation}{\TEXTEf}
  \settoheight{\hautCitation}{\TEXTEf}
  \settodepth{\profCitation}{\TEXTEf}
  \savebox{\textecitation}{%
    \begin{pspicture}(0,-\profCitation)(\longCitation,\hautCitation)%\psset{unit=0.75cm}
      \def\texteH{%
        \begin{psclip}{\psframe[linestyle=none,linewidth=0pt](0,0)(\longCitation,\hautCitation)}
          \rput[Bl](0,0){\psframebox[linestyle=none,framesep=0pt]{\macouleur\TEXTEf}}
        \end{psclip}
      }%%
      \def\texteB{\begin{psclip}{\psframe[linestyle=none,linewidth=0pt](0,0)(\longCitation,-\profCitation)}
          \rput[Bl](0,0){\psframebox[linestyle=none,framesep=0pt]{\white\TEXTEf}}
        \end{psclip}
      }%%
      \rput(0,0){\texteB}
      \rput(0,0){\texteH}
    \end{pspicture}
  }%
}
\citationchoisie

\if@nocit
\savebox{\textecitation}{}
\fi
\endinput