diff options
author | Karl Berry <karl@freefriends.org> | 2015-10-15 20:43:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-10-15 20:43:42 +0000 |
commit | d8db6cbbb21b99fd09ab36c490225a9c75e0b80c (patch) | |
tree | 58e378817d6bd35f0b56e8a365585c36d7bca6a7 /Master/texmf-dist/tex | |
parent | 7a625a16a1f5059f3ab26c49b094515d1f7d722e (diff) |
tipfr flatten
git-svn-id: svn://tug.org/texlive/trunk@38646 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/tipfr/tipfr.sty | 580 |
1 files changed, 580 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/tipfr/tipfr.sty b/Master/texmf-dist/tex/latex/tipfr/tipfr.sty new file mode 100644 index 00000000000..49ad29e72c4 --- /dev/null +++ b/Master/texmf-dist/tex/latex/tipfr/tipfr.sty @@ -0,0 +1,580 @@ +\def\fileversion{1.4b} +\def\filedate{2015/01/05} +\def\fileauthor{Philippe DE SOUSA} +\NeedsTeXFormat{LaTeX2e}[1999/12/01] +\ProvidesPackage{tipfr}[% + \filedate\space v\fileversion\space + LaTeX package by \fileauthor] +\RequirePackage[dvipsnames,table]{xcolor} +\RequirePackage[zerostyle=d]{newtxtt} +\@ifpackageloaded{tikz}{}{\RequirePackage{tikz}} +\usetikzlibrary{calc,shapes,arrows,shadows,backgrounds,babel} +\@ifpackageloaded{ifthen}{}{\RequirePackage{ifthen}} +\@ifpackageloaded{xkeyval}{}{\RequirePackage{xkeyval}} +\@ifpackageloaded{mathtools}{}{\RequirePackage{mathtools}} +\@ifpackageloaded{amssymb}{}{\RequirePackage{amssymb}} +\@ifpackageloaded{multido}{}{\RequirePackage{multido}} + +%% 13 décembre 2014 : v1.0 - création du package et du design des touches +%% 14 décembre 2014 : v1.1 - création de la commande \Touche +%% 19 décembre 2014 : v1.2 - création de la commande \Calculatrice, ajout de l'option entoure, ajout de l'option nom +%% 27 décembre 2014 : v1.2a - anglicisation des noms d'options +%% 27 décembre 2014 : v1.3 - ajout de la commande \Menu pour créer des menus de calculatrice +%% 29 décembre 2014 : v1.4 - ajout de la commande \Ecran pour afficher un écran avec courbe ou avec calculs et résultats +%% 02 janvier 2015 : v1.4a - changement de \ProvidesClass en \ProvidesPackage, suppression de \makeatletter, \makeatother +%% 05 janvier 2015 : v1.4b - suppression de \shorthandon{;} et \shorthandoff{;} grace à la librairie babel de Tikz +%% + possibilité de changer le nom de la touche Enter et les options Second et Alpha pour permettre le signe = +%% + suppression du \RequirePackage{babel} +%% 05 janvier 2015 : v1.5 - ajout de la commande étoilée de \Calculatrice pour dessiner une calculatrice mignature + +%% Merci à Daniel Flipo et Knut Lickert pour leurs conseils et remarques + + + +%%----------------------------- +%--------- TOUCHES ------------ +%%----------------------------- + +% définition de l'accent circonflexe et de la racine carrée +\newcommand*\Circonflexe{\tikz{\draw[scale=0.25] (0,0)--(1,1)--(2,0);}} +\newcommand*\Racine{$\sqrt{\phantom{xx}}$} + + +% création de booléen pour tester les styles de touche +\newcommand*{\Def@Bool}[1]{% +\newboolean{#1} +\setboolean{#1}{false} +} +\newcommand*{\DefBool}[1]{\Def@Bool{#1}} + +\DefBool{ToucheChiffre} +\DefBool{ToucheOperation} +\DefBool{ToucheFonction} +\DefBool{ToucheGraphe} +\DefBool{ToucheAlpha} +\DefBool{ToucheSeconde} +\DefBool{ToucheOnOff} +\DefBool{ToucheEntrer} +\DefBool{ToucheFleches} +\DefBool{ModeAlpha} +\DefBool{ModeSeconde} +\define@boolkey{Touche}{arrowup}[false]{} +\define@boolkey{Touche}{arrowleft}[false]{} +\define@boolkey{Touche}{arrowright}[false]{} +\define@boolkey{Touche}{arrowdown}[false]{} +\define@boolkey{Touche}{arrowtot}[false]{} +\define@boolkey{Touche}{fixed}[true]{} +\define@boolkey{Touche}{circle}[false]{} + + +% Définition des keys +\define@key{Touche}{fontsize}{\def\Font@Size{#1}} + +\define@key{Touche}{raise}{\def\Hauteur@Touche{#1}} + +\define@key{Touche}{name}{\def\Le@Nom{#1}} + +\define@key{Touche}{radius}{\def\Le@Rayon{#1}} + +\define@key{Touche}{colour}{\def\La@Couleur{#1}} +\define@key{Touche}{color}{\def\La@Couleur{#1}} + +\define@key{Touche}{thickness}{\def\Ep@isseur{#1}} + +\define@key{Touche}{principal}{\def\Le@Principal{\fontsize{\Font@Size}{\Font@Size}\selectfont #1}} + +\define@key{Touche}{position}{\def\La@Position{#1}} + +\define@key{Touche}{alpha}{\ifthenelse{\equal{\string #1}{\string pasdealpha}}% + {\setboolean{ModeAlpha}{false}}% + {\def\Mode@Alpha{\fontsize{\Font@Size}{\Font@Size}\selectfont #1}\setboolean{ModeAlpha}{true}}% + } + +\define@key{Touche}{second}{\ifthenelse{\equal{\string #1}{\string pasdeseconde}}% + {\setboolean{ModeSeconde}{false}}% + {\def\Mode@Seconde{\fontsize{\Font@Size}{\Font@Size}\selectfont #1}\setboolean{ModeSeconde}{true}}% + } + +\define@key{Touche}{xoffset}{\def\X@Decalage{#1}} +\define@key{Touche}{yoffset}{\def\Y@Decalage{#1}} + +\define@key{Touche}{scalearrows}{\def\Scale@Fleches{#1}} + +% Définitions des styles disponibles +\define@choicekey{Touche}{style}% + {number,operation,function,graph,second,on,enter,alpha,arrows}% + {\ifthenelse{\equal{\string #1}{\string number}}% + {\setboolean{ToucheChiffre}{true}} + {\setboolean{ToucheChiffre}{false}}% + \ifthenelse{\equal{\string #1}{\string operation}}% + {\setboolean{ToucheOperation}{true}} + {\setboolean{ToucheOperation}{false}}% + \ifthenelse{\equal{\string #1}{\string function}}% + {\setboolean{ToucheFonction}{true}} + {\setboolean{ToucheFonction}{false}}% + \ifthenelse{\equal{\string #1}{\string graph}}% + {\setboolean{ToucheGraphe}{true}} + {\setboolean{ToucheGraphe}{false}}% + \ifthenelse{\equal{\string #1}{\string second}}% + {\setboolean{ToucheSeconde}{true}} + {\setboolean{ToucheSeconde}{false}}% + \ifthenelse{\equal{\string #1}{\string on}}% + {\setboolean{ToucheOnOff}{true}} + {\setboolean{ToucheOnOff}{false}}% + \ifthenelse{\equal{\string #1}{\string enter}}% + {\setboolean{ToucheEntrer}{true}} + {\setboolean{ToucheEntrer}{false}}% + \ifthenelse{\equal{\string #1}{\string alpha}}% + {\setboolean{ToucheAlpha}{true}} + {\setboolean{ToucheAlpha}{false}}% + \ifthenelse{\equal{\string #1}{\string arrows}}% + {\setboolean{ToucheFleches}{true}} + {\setboolean{ToucheFleches}{false}}% + } + + +% configurations par défaut +\presetkeys{Touche}{style=function,principal=sin,alpha=pasdealpha,second=pasdeseconde, + position=0.7,raise=0ex,fontsize=8pt, + xoffset=0cm,yoffset=0cm,scalearrows=1,name=NOM, + fixed=true,arrowup=false,arrowdown=false,arrowleft=false,arrowright=false,arrowtot=false, + circle=false,radius=20pt,colour=red,thickness=1pt}{} + + +%%----------------------------- +% commande \Touche dont la forme dépend du style choisi +%%----------------------------- + +\newcommand*\Touche[1][]{% +\setkeys{Touche}{#1} +%%----------------------------- +% Touche blanche pour les chiffres +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheChiffre}}% + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.5cm,remember picture] + \draw[fill=white] (0,1)..controls+(40:0.4)and+(140:0.4).. (2,1) node[midway] (c) {} -- (2,1) arc (0:-180:1) -- cycle; + \path (1,0) -- (c) node[pos=\La@Position] {\bfseries \Le@Principal}; + \coordinate (\Le@Nom) at (c); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (c) circle (\Le@Rayon);\fi + \ifthenelse{\boolean{ModeSeconde}} + {\ifthenelse{\boolean{ModeAlpha}} + {\node[above] at (c) {\makebox[1.2cm][s]{\bfseries\sffamily\textcolor{blue}% + {\Mode@Seconde}\hfill\textcolor{ForestGreen}{\Mode@Alpha}}};} + {\node[above] at (c) {\bfseries\sffamily\textcolor{blue}{\Mode@Seconde}};}} + {} + \end{tikzpicture}}% + {\unskip}% +}% +%%----------------------------- +% Touche grise pour les opérations +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheOperation}}% + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.5cm,remember picture] + \draw[fill=gray] (0,1)..controls+(20:0.4)and+(160:0.4).. (2,1) node[midway] (c) + {} -- (2,1)..controls+(-90:0.75)and+(0:0.5)..(1,0.2)..controls+(180:0.5)and+(-90:0.75)..(0,1) -- cycle ; + \path (1,0.2) -- (c) node[color=white,pos=\La@Position] {\bfseries\sffamily \Le@Principal}; + \coordinate (\Le@Nom) at (c); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (c) circle (\Le@Rayon);\fi + \ifthenelse{\boolean{ModeSeconde}} + {\ifthenelse{\boolean{ModeAlpha}} + {\node[above] at (c) {\makebox[1.2cm][s]{\bfseries\sffamily\textcolor{blue}% + {\Mode@Seconde}\hfill\textcolor{ForestGreen}{\Mode@Alpha}}};} + {\node[above] at (c) {\bfseries\sffamily\textcolor{blue}{\Mode@Seconde}};}} + {} + \end{tikzpicture}} + {\unskip}% +}% +%%----------------------------- +% Touche noire pour les fonctions +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheFonction}} + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.5cm,remember picture] + \draw[fill=black] (0,1)..controls+(20:0.4)and+(160:0.4).. (2,1) node[midway] (c) {} -- + (2,1)..controls+(-90:0.75)and+(0:0.5)..(1,0.2)..controls+(180:0.5)and+(-90:0.75)..(0,1) -- cycle ; + \path (1,0.2) -- (c) node[color=white,pos=\La@Position] {\bfseries\sffamily \Le@Principal}; + \coordinate (\Le@Nom) at (c); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (c) circle (\Le@Rayon);\fi + \ifthenelse{\boolean{ModeSeconde}} + {\ifthenelse{\boolean{ModeAlpha}} + {\node[above] at (c) {\makebox[1.2cm][s]{\bfseries\sffamily\textcolor{blue}% + {\Mode@Seconde}\hfill\textcolor{ForestGreen}{\Mode@Alpha}}};} + {\node[above] at (c) {\bfseries\sffamily\textcolor{blue}{\Mode@Seconde}};}} + {} + \end{tikzpicture}} + {\unskip}% +}% +%%----------------------------- +% Touche grise pour les graphes +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheGraphe}} + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.7cm,remember picture] + \draw[fill=gray] (0,1)..controls+(20:0.4)and+(160:0.4).. (2,1) node[midway] (c) {} -- + (2,1)..controls+(-90:0.3)and+(0:0.75)..(1,0.7)..controls+(180:0.75)and+(-90:0.3)..(0,1) -- cycle ; + \path (1,0.2) -- (c) node[color=white,pos=\La@Position] {\bfseries\sffamily \Le@Principal}; + \coordinate (\Le@Nom) at (c); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (c) circle (\Le@Rayon);\fi + \ifthenelse{\boolean{ModeSeconde}} + {\ifthenelse{\boolean{ModeAlpha}} + {\node[above] at (c) {\makebox[1.2cm][s]{\bfseries\sffamily\textcolor{blue}% + {\Mode@Seconde}\hfill\textcolor{ForestGreen}{\Mode@Alpha}}};} + {\node[above] at (c) {\bfseries\sffamily\textcolor{blue}{\Mode@Seconde}};}} + {} + \end{tikzpicture}} + {\unskip}% +}% +%%----------------------------- +% Touche Entrer +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheEntrer}} + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.5cm,remember picture] + \draw[fill=gray] (0,1)..controls+(20:0.4)and+(160:0.4).. (2,1) node[midway] (c) {} -- + (2,1)..controls+(-90:0.75)and+(0:0.7)..(1,-0.5)..controls+(180:0.7)and+(-90:0.75)..(0,1) -- cycle ; + \path (1,0.2) -- (c) node[color=white,pos=\La@Position] {\bfseries\sffamily \Le@Principal}; + \coordinate (\Le@Nom) at (1,0.75); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (1,0.75) circle (\Le@Rayon);\fi + \ifthenelse{\boolean{ModeSeconde}} + {\ifthenelse{\boolean{ModeAlpha}} + {\node[above] at (c) {\makebox[1.2cm][s]{\bfseries\sffamily\textcolor{blue}% + {\Mode@Seconde}\hfill\textcolor{ForestGreen}{\Mode@Alpha}}};} + {\node[above] at (c) {\bfseries\sffamily\textcolor{blue}{\Mode@Seconde}};}} + {} + \end{tikzpicture}} + {\unskip}% +}% +%%----------------------------- +% Touche On/Off +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheOnOff}} + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.5cm,remember picture] + \draw[fill=black] (0,1)..controls+(20:0.4)and+(160:0.4).. (2,1) node[midway] (c) {} -- + (2,1)..controls+(-90:0.75)and+(0:0.7)..(1,0)..controls+(180:0.7)and+(-90:0.75)..(0,1) -- cycle ; + \path (1,0.2) -- (c) node[color=white,pos=\La@Position] {\fontsize{\Font@Size}{\Font@Size}\selectfont\bfseries\sffamily on}; + \coordinate (\Le@Nom) at (c); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (c) circle (\Le@Rayon);\fi + \node[above] at (c) {\fontsize{\Font@Size}{\Font@Size}\selectfont\bfseries\sffamily\textcolor{blue}{off}}; + \end{tikzpicture}} + {\unskip}% +}% +%%----------------------------- +% Touche 2nde +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheSeconde}} + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.5cm,remember picture] + \draw[fill=blue] (0,1)..controls+(20:0.4)and+(160:0.4).. (2,1) node[midway] (c) {} -- + (2,1)..controls+(-90:0.75)and+(0:0.5)..(1,0.2)..controls+(180:0.5)and+(-90:0.75)..(0,1) -- cycle ; + \coordinate (\Le@Nom) at (c); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (c) circle (\Le@Rayon);\fi + \path (1,0.2) -- (c) node[color=white,pos=\La@Position] {\fontsize{\Font@Size}{\Font@Size}\selectfont\bfseries\sffamily 2nde}; + \end{tikzpicture}}% + {\unskip}% +}% +%%----------------------------- +% Touche Alpha +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheAlpha}}% + {\unskip\begin{tikzpicture}[x=0.5cm,y=0.5cm,remember picture] + \draw[fill=ForestGreen] (0,1)..controls+(20:0.4)and+(160:0.4).. (2,1) node[midway] (c) {} -- + (2,1)..controls+(-90:0.75)and+(0:0.5)..(1,0.2)..controls+(180:0.5)and+(-90:0.75)..(0,1) -- cycle ; + \path (1,0.2) -- (c) node[color=white,pos=\La@Position] {\fontsize{\Font@Size}{\Font@Size}\selectfont\bfseries\sffamily alpha}; + \coordinate (\Le@Nom) at (c); + \ifKV@Touche@circle\draw[\La@Couleur,line width=\Ep@isseur] (c) circle (\Le@Rayon);\fi + \node[above] at (c) {\fontsize{\Font@Size}{\Font@Size}\selectfont\bfseries\sffamily\textcolor{blue}{verr A}}; + \end{tikzpicture}} + {\unskip}% +}% +%%----------------------------- +% Touche des flèches +%%----------------------------- +\raisebox{\Hauteur@Touche}{ +\ifthenelse{\boolean{ToucheFleches}}% + {\unskip\begin{tikzpicture}[\ifKV@Touche@fixed\else overlay\fi,xshift=\X@Decalage,yshift=\Y@Decalage,scale=\Scale@Fleches] + \fill[white] ({cos(110) -0.1},{sin(110)-0.2}) -- ({cos(160)+0.4},{sin(160)+0.12}) arc(30:-30:1) -- + ({cos(-110) -0.1},{sin(-110)+0.2}) arc(-30:30:1.47) ; + \fill[white,xscale=-1] ({cos(110) -0.1},{sin(110)-0.2}) -- ({cos(160)+0.4},{sin(160)+0.12}) arc(30:-30:1) -- + ({cos(-110) -0.1},{sin(-110)+0.2}) arc(-30:30:1.47) ; + \draw[fill=gray] ({cos(70)},{sin(70)}) arc (70:110:1) ..controls+(220:0.1)and+(90:0.1).. +(-0.1,-0.2) + arc(30:-30:1.47) ..controls+(-90:0.1)and+(140:0.1).. + ({cos(-110)},{sin(-110)}) arc (-110:-70:1)..controls+(40:0.1)and+(-90:0.1).. + +(0.1,0.2) arc (210:150:1.47) ..controls+(90:0.1)and+(-40:0.1).. ({cos(70)},{sin(70)}); + \draw[fill=gray] ({cos(160)},{sin(160)}) arc(160:200:1) ..controls+(-45:0.2)and+(170:0.2).. +(0.4,-0.2) + arc(-30:30:1) ..controls+(180:0.2)and+(30:0.2).. ({cos(160)},{sin(160)}); + \draw[fill=gray,xscale=-1] ({cos(160)},{sin(160)}) arc(160:200:1) ..controls+(-45:0.2)and+(170:0.2).. + +(0.4,-0.2) arc(-30:30:1) ..controls+(180:0.2)and+(30:0.2).. ({cos(160)},{sin(160)}); + \fill[white] (0,0.9) -- +(-0.15,-0.15) -- +(0.15,-0.15)-- cycle; + \fill[white] (-0.9,0) -- +(0.15,0.15) -- +(0.15,-0.15)-- cycle; + \fill[white,yscale=-1] (0,0.9) -- +(-0.15,-0.15) -- +(0.15,-0.15)-- cycle; + \fill[white,xscale=-1] (-0.9,0) -- +(0.15,0.15) -- +(0.15,-0.15)-- cycle; + \coordinate (FLE) at (0,0); + \coordinate (FLH) at (0,0.825); + \coordinate (FLB) at (0,-0.825); + \coordinate (FLD) at (0.825,0); + \coordinate (FLG) at (-0.825,0); + \ifKV@Touche@arrowdown\draw[\La@Couleur,line width=\Ep@isseur] (FLB) circle (10pt);\fi + \ifKV@Touche@arrowleft\draw[\La@Couleur,line width=\Ep@isseur] (FLG) circle (10pt);\fi + \ifKV@Touche@arrowtot\draw[\La@Couleur,line width=\Ep@isseur] (FLE) circle (30pt);\fi + \ifKV@Touche@arrowup\draw[\La@Couleur,line width=\Ep@isseur] (FLH) circle (10pt);\fi + \ifKV@Touche@arrowright\draw[\La@Couleur,line width=\Ep@isseur] (FLD) circle (10pt);\fi + \end{tikzpicture}} + {\unskip}% +}% +} + +%%----------------------------- +%------ CALCULATRICE ---------- +%%----------------------------- + +% options de la commande \Calculatrice* +\define@key{Calculatrice}{calcscale}{\def\Calc@Echelle{#1}} +\define@key{Calculatrice}{calcrotate}{\def\Calc@Rotation{#1}} +\define@key{Calculatrice}{calcraise}{\def\Calc@Position{#1}} + +% configurations par défaut pour \Calculatrice* +\presetkeys{Calculatrice}{calcscale=0.5,calcrotate=-30,calcraise=-2ex}{} + +%%----------------------------- +%-------- Grand format -------- +%%----------------------------- +\newcommand{\Calculatrice@nostar}[1][]{ +\begin{tikzpicture}[remember picture] +\renewcommand{\tabcolsep}{-3pt} +\node (tabcalc) at (0,0) { +\Touche[style=arrows,fixed=false,xoffset=5.75cm,yoffset=3.75cm] +\begin{tabular}{*{5}{>{\arraybackslash}c}} +%Touche du haut + \Touche[style=graph,principal=$f(x)$,second={gr.stats},alpha=f1,position=0.95,fontsize=7pt,name=FX] & + \Touche[style=graph,principal={fenêtre},second=déf tab,alpha=f2,position=0.95,fontsize=7pt,name=FEN] & + \Touche[style=graph,principal={zoom},second={format},alpha={f3},position=0.95,fontsize=7pt,name=ZOOM] & + \Touche[style=graph,principal={trace},second={calculs},alpha={f4},position=0.95,fontsize=7pt,name=TRC] & + \Touche[style=graph,principal={graphe},second={table},alpha={f5},position=0.95,fontsize=7pt,name=GRA] \\ +% + \Touche[style=second,name=SCD] & + \Touche[principal={mode},second={quitter},position=0.8,name=MODE] & + \Touche[principal={suppr},second={insérer},position=0.65,name=SUP] & & \\ +% + \Touche[style=alpha,name=ALPHA] & + \Touche[principal={$x,t,\theta,n$},second={échanger},fontsize=7pt,position=0.8,name=XTN] & + \Touche[principal={stats},second={listes},name=STATS] & & \\ +% + \Touche[principal={math},second={tests},alpha={A},position=0.8,name=MAT] & + \Touche[principal={\textcolor{purple}{apps}},second={angle},alpha={B},position=0.7,name=APPS] & + \Touche[principal={prgm},second={dessin},alpha={C},position=0.7,name=PRGM] & + \Touche[principal={var},second={distrib},name=VAR] & + \Touche[principal={annul},name=ANN]\\ +% + \Touche[principal={$x^{-1}$},second={matrice},alpha={D},fontsize=7pt,name=INV] & + \Touche[principal={sin},second={arcsin},alpha={E},name=SIN] & + \Touche[principal={cos},second={arccos},alpha={F},name=COS] & + \Touche[principal={tan},second={arctan},alpha={G},name=TAN] & + \Touche[principal={\Circonflexe},second={$\pi$},alpha={H},name=POW]\\ +% + \Touche[principal={$x^2$},second={\Racine},alpha={I},name=CARRE] & + \Touche[principal={\large ,},second={EE},alpha={J},name=VIRG] & + \Touche[principal={(},second={\{},alpha={K},name=PO] & + \Touche[principal={)},second={\}},alpha={L},name=PF] & + \Touche[style=operation,principal={$\div$},second={e},alpha={M},name=DIV]\\ +% + \Touche[principal={log},second={$10^x$},alpha={N},name=LOG] & + \Touche[style=number,principal={7},second={$u_n$},alpha={O},name=T7] & + \Touche[style=number,principal={8},second={$v_n$},alpha={P},name=T8] & + \Touche[style=number,principal={9},second={$w_n$},alpha={Q},name=T9] & + \Touche[style=operation,principal={$\times$},second={[},alpha={R},name=MUL]\\ +% + \Touche[principal={ln},second={e$^x$},alpha={S},name=LN] & + \Touche[style=number,principal={4},second={L4},alpha={T},name=T4] & + \Touche[style=number,principal={5},second={L5},alpha={U},name=T5] & + \Touche[style=number,principal={6},second={L6},alpha={V},name=T6] & + \Touche[style=operation,principal={$-$},second={]},alpha={W},name=SUB]\\ +% + \Touche[principal={sto$\to$},second={rappel},alpha={X},name=STO] & + \Touche[style=number,principal={1},second={L1},alpha={Y},name=T1] & + \Touche[style=number,principal={2},second={L2},alpha={Z},name=T2] & + \Touche[style=number,principal={3},second={L3},alpha={$\theta$},name=T3] & + \Touche[style=operation,principal={+},second={mém},alpha={"},name=ADD]\\ +% Touches du bas + \Touche[style=on,name=ON] & + \Touche[style=number,principal={0},second={cat.},alpha={$\sqcup$},name=T0] & + \Touche[style=number,principal={$\centerdot$},second={$i$},alpha={:},name=DOT] & + \Touche[style=number,principal={(--)},second={rép},alpha={?},name=MS] & + \Touche[style=enter,fontsize=7pt, principal=entrer, second=préc, alpha=résol, name=ETR] +\end{tabular}}; + + \node (ecran) at ($(tabcalc.north west)+(0.35,0)$) [inner sep=0pt,draw,fill=ForestGreen!15,rectangle, + minimum width=6.85cm,minimum height=5cm,anchor=south west] {}; + \begin{scope}[shift={(ecran.center)}] + \clip ($(tabcalc.north west)+(0.35,0)$) rectangle ($(tabcalc.north east)+(0.2,5)$); + \draw(ecran.south)--(ecran.north); + \draw(ecran.west)--(ecran.east); + \multido{\i=0+1}{7}{\draw ({\i/2},0)--({\i/2},0.05);} + \multido{\i=0+1}{7}{\draw ({-\i/2},0)--({-\i/2},0.05);} + \multido{\i=0+1}{5}{\draw (0,{\i/2})--(0.05,{\i/2});} + \multido{\i=0+1}{5}{\draw (0,{-\i/2})--(0.05,{-\i/2});} + %\draw[line width=1pt] plot[domain=-5:5,samples=500] (\x,{(\x+1)^2-2.25}); + \end{scope} + +\begin{scope}[on background layer] + \draw[fill=Orange!10] + ($(ecran.north west) + (-0.65,0.85)$)..controls+(-120:0.5)and+(90:1.5).. + ($(tabcalc.west) + (-0.4,-3.5)$) ..controls+(-90:1)and+(170:1).. + ($(tabcalc.south west)+ (0.8,-0.5)$) ..controls+(-10:0.5)and+(-170:1).. + ($(tabcalc.south east) + (-0.5,-0.5)$) ..controls+(10:1)and+(-90:1).. + ($(tabcalc.east) + (0.75,-3.5)$) ..controls+(90:1.5)and+(-60:0.5).. + ($(ecran.north east) + (0.65,0.85)$) ..controls+(170:1.5)and+(10:1.5).. + ($(ecran.north west) + (-0.65,0.85)$)--cycle; + \node at ($(ecran.north) + (0,0.5)$) {{\Large\bfseries\sffamily #1}}; +\end{scope} +\end{tikzpicture} +} + +%%----------------------------- +%-------- Petit format -------- +%%----------------------------- +\newcommand*{\Calculatrice@star}[1][]{% +\setkeys{Calculatrice}{#1}% +\raisebox{\Calc@Position}{% +\begin{tikzpicture}[x=0.5cm,scale=\Calc@Echelle,rotate=\Calc@Rotation] + \draw[fill=black] (0,0) rectangle (2.1,2.6); + \draw[white,fill=white] (0.1,1.5) rectangle (2,2.5); + \fill[white] (0.25,1.35) ellipse (0.15 and 0.05) + ++(0.4,0) ellipse (0.15 and 0.05) + ++(0.4,0) ellipse (0.15 and 0.05) + ++(0.4,0) ellipse (0.15 and 0.05) + ++(0.4,0) ellipse (0.15 and 0.05); + \fill[white] (1.8,1) ellipse (0.2 and 0.15); + \fill[white,rounded corners=2] (0.1,0.9) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (0.6,0.9) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (1.1,0.9) rectangle ++(0.4,0.2); +%% + \fill[white,rounded corners=2] (0.1,0.45) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (0.6,0.45) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (1.1,0.45) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (1.6,0.45) rectangle ++(0.4,0.2); +%% + \fill[white,rounded corners=2] (0.1,0.1) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (0.6,0.1) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (1.1,0.1) rectangle ++(0.4,0.2); + \fill[white,rounded corners=2] (1.6,0.1) rectangle ++(0.4,0.2); +%% +\end{tikzpicture}% +}% +} + +%%----------------------------- +%\Calculatrice = Grand format- +%\Calculatrice* = Petit format- +%%----------------------------- +\newcommand*\Calculatrice{\@ifstar{\Calculatrice@star}{\Calculatrice@nostar}} + + +%%----------------------------- +%------ MENU ------------------ +%%----------------------------- + +% Définitions des options +\define@boolkey{Menu}{select}[false]{} +\define@key{Menu}{size}{\def\t@ille{#1}} +\define@key{Menu}{text}{\def\@texte{#1}} +\define@key{Menu}{colourbox}{\def\Couleur@Boite{#1}} +\define@key{Menu}{colorbox}{\def\Couleur@Boite{#1}} + +% Valeurs par défaut +\presetkeys{Menu}{select=false,text=\unskip,colorbox=white}{size=15pt} + +% Définition de la touche \Menu +\newcommand\@Menu[2][]{ +\setlength{\fboxsep}{0pt} \setlength{\fboxrule}{0.5pt} +\setkeys{Menu}{#1} +\ifKV@Menu@select \tikz[font=\ttfamily\bfseries]{\node (texte) +{\fontsize{\t@ille}{0}\selectfont\colorbox{black}{\color{white}\protect\uppercase{#2}}};\draw +(texte) node[right=10pt] {\fontsize{\t@ille}{0}\selectfont\@texte};} \else +\tikz[font=\ttfamily\bfseries]{\node (texte) +{\fontsize{\t@ille}{0}\selectfont\colorbox{\Couleur@Boite}{\color{black}\protect\uppercase{#2}}};\draw +(texte) node[right=10pt] {\fontsize{\t@ille}{0}\selectfont\@texte};} \fi } + +\newcommand\Menu[2][]{\@Menu[#1]{#2}} + + + +%%----------------------------- +%------ ECRAN ------------------ +%%----------------------------- + + +\newcounter{LineCommand} +\setcounter{LineCommand}{0} +\newcounter{LineResult} +\setcounter{LineResult}{0} + +\define@boolkey{Ecran}{graphic}[false]{} + +% Définition des keys +\define@key{Ecran}{screencolor}{\def\Couleur@Ecran{#1}} +\define@key{Ecran}{screencolour}{\def\Couleur@Ecran{#1}} +\define@key{Ecran}{screenname}{\def\Nom@Ecran{#1}} +\define@key{Ecran}{xgrad}{\def\X@Grad{#1}} +\define@key{Ecran}{ygrad}{\def\Y@Grad{#1}} +\define@key{Ecran}{nbgradx}{\def\@IncrementX{#1}} +\define@key{Ecran}{nbgrady}{\def\@IncrementY{#1}} +\define@key{Ecran}{width}{\def\L@ngueur{#1}} +\define@key{Ecran}{height}{\def\H@uteur{#1}} +\define@key{Ecran}{origin}{\def\@rigin{#1}} +\define@key{Ecran}{plotcolour}{\def\courbe@couleur{#1}} +\define@key{Ecran}{plotcolor}{\def\courbe@couleur{#1}} +\define@key{Ecran}{plotwidth}{\def\courbe@epaisseur{#1}} + +% Configurations par défaut +\presetkeys{Ecran}{graphic=false, + screencolour=ForestGreen!15, + screenname=ecran, + width=8, height=5, + xgrad=0.5, ygrad=0.5, + nbgradx=8, nbgrady=5, + origin=(\Nom@Ecran.center), + plotcolour=blue, + plotwidth=1pt + }{} + +% Commande \Ecran +\newcommand*\Ecran[2][]{% +\setcounter{LineCommand}{0} +\setcounter{LineResult}{0} +\setkeys{Ecran}{#1} +\ifKV@Ecran@graphic + \begin{tikzpicture}[remember picture] + \node (\Nom@Ecran) at (0,0) [inner sep=0pt,draw, fill=\Couleur@Ecran, rectangle, minimum width=\L@ngueur cm, + minimum height=\H@uteur cm, anchor=south west] {}; + \clip (0,0) rectangle (\L@ngueur,\H@uteur); + \draw \@rigin -- +(0,\H@uteur) -- +(0,-\H@uteur); + \draw \@rigin -- +(\L@ngueur,0) -- +(-\L@ngueur,0); + \begin{scope}[shift=\@rigin,x=\X@Grad cm,y=\Y@Grad cm] + \multido{\i=0+1}{\@IncrementX}{\draw (\i,0)--(\i,0.05/\Y@Grad);} + \multido{\i=0+1}{\@IncrementX}{\draw (-\i,0)--(-\i,0.05/\Y@Grad);} + \multido{\i=0+1}{\@IncrementY}{\draw (0,{\i})--(0.05/\X@Grad,{\i});} + \multido{\i=0+1}{\@IncrementY}{\draw (0,{-\i})--(0.05/\X@Grad,{-\i});} + \foreach \courbe/\domain in {#2} + \ifx \domain\empty \def\domain{-6:6} \fi + \draw[line width=\courbe@epaisseur,color=\courbe@couleur] plot[domain=\domain,samples=500] (\x,{\courbe}); + \end{scope} + \end{tikzpicture} +\else + \begin{tikzpicture}[remember picture] + \node (\Nom@Ecran) at (0,0) [inner sep=0pt, draw, fill=\Couleur@Ecran, rectangle, minimum width=\L@ngueur cm, + minimum height=\H@uteur cm,anchor=south west] {}; + \clip (0,0) rectangle (\L@ngueur,\H@uteur); + \foreach \command/\result in {#2} + {\ifx\command\empty {\addtocounter{LineResult}{-1}\addtocounter{LineCommand}{1}} \else + \node[anchor=north west] at ($(\Nom@Ecran.north west)+(0,-\theLineCommand/2)$) {\texttt{\command}}; + \addtocounter{LineCommand}{2}\fi + \ifx\result\empty {\addtocounter{LineCommand}{-1}\addtocounter{LineResult}{1}} \else + \node[anchor=north east] at ($(\Nom@Ecran.north east)+(0,-0.5-\theLineResult/2)$) {\texttt{\result}}; + \addtocounter{LineResult}{2}\fi} + \end{tikzpicture} +\fi +} |