From a6ac60af0643541f56f02f41ce626a57c9c6965a Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 20 Feb 2019 22:43:15 +0000 Subject: scratch3 (20feb19) git-svn-id: svn://tug.org/texlive/trunk@50077 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/scratch3/README | 21 + .../texmf-dist/doc/latex/scratch3/scratch3-fr.pdf | Bin 0 -> 498385 bytes .../texmf-dist/doc/latex/scratch3/scratch3-fr.tex | 588 ++++++++++++ Master/texmf-dist/tex/latex/scratch3/scratch3.sty | 995 +++++++++++++++++++++ 4 files changed, 1604 insertions(+) create mode 100644 Master/texmf-dist/doc/latex/scratch3/README create mode 100644 Master/texmf-dist/doc/latex/scratch3/scratch3-fr.pdf create mode 100644 Master/texmf-dist/doc/latex/scratch3/scratch3-fr.tex create mode 100644 Master/texmf-dist/tex/latex/scratch3/scratch3.sty (limited to 'Master/texmf-dist') diff --git a/Master/texmf-dist/doc/latex/scratch3/README b/Master/texmf-dist/doc/latex/scratch3/README new file mode 100644 index 00000000000..b8f05ef2d86 --- /dev/null +++ b/Master/texmf-dist/doc/latex/scratch3/README @@ -0,0 +1,21 @@ +___________________________________ + + L'extension + scratch3 + + v0.1 + + 19 f\'evier 2019 +___________________________________ + +Author : Christian Tellechea +Maintainer: Christian Tellechea +E-mail : unbonpetit@netc.fr (CT) + Commentaires, signalements de bugs et + suggestions bienvenus +Licence : Released under the LaTeX Project Public License v1.3c or + later, see http://www.latex-project.org/lppl.txt + +---------------------------------------------------------------------- + +Draw programs like scratch (https://scratch.mit.edu/) diff --git a/Master/texmf-dist/doc/latex/scratch3/scratch3-fr.pdf b/Master/texmf-dist/doc/latex/scratch3/scratch3-fr.pdf new file mode 100644 index 00000000000..2ed2bf828a5 Binary files /dev/null and b/Master/texmf-dist/doc/latex/scratch3/scratch3-fr.pdf differ diff --git a/Master/texmf-dist/doc/latex/scratch3/scratch3-fr.tex b/Master/texmf-dist/doc/latex/scratch3/scratch3-fr.tex new file mode 100644 index 00000000000..e09c7105c98 --- /dev/null +++ b/Master/texmf-dist/doc/latex/scratch3/scratch3-fr.tex @@ -0,0 +1,588 @@ +% !TeX encoding = ISO-8859-1 +% Ceci est la documentation du package "scratch3" +% +% Fichier compilé avec pdflatex +\documentclass[french,a4paper,10pt]{article} +\usepackage[latin1]{inputenc} +\usepackage[T1]{fontenc} +\usepackage[margin=2cm]{geometry} +\usepackage[bottom]{footmisc} +\usepackage{libertine,boites,tikz,enumitem,MnSymbol,babel,xspace,listings,scratch3} +\usepackage[scaled=0.8]{luximono} +\frenchbsetup{og=«,fg=»} +\def\SCRATCH{\texttt{scratch}\xspace} +\def\SSCRATCH{\texttt{\scrname}\xspace} +\makeatletter +\def\code{\expandafter\code@i\string} +\def\code@i#1{% + \begingroup + \par\nobreak\medskip\parindent0pt + \leftskip.1\linewidth + \catcode`\^^I 13 \begingroup\lccode`\~`\^^I \lowercase{\endgroup\def~{\leavevmode\space\space\space\space}}% + \let\do\@makeother \dospecials + \ttfamily\small\@noligs + \make@car@active\<{$\langle$\begingroup\itshape}% + \make@car@active\>{\endgroup$\rangle$}% + \obeylines\obeyspaces + \def\code@ii##1#1{##1\par\medbreak\endgroup}% + \code@ii +} +\long\def\grab@toks#1\relax{\gdef\right@content{#1}} + +\newcommand\disable@lig[1]{% + \catcode`#1\active + \begingroup + \lccode`\~`#1\relax + \lowercase{\endgroup\def~{\leavevmode\kern\z@\string#1}}% +} + +\newcommand\make@car@active[1]{% + \catcode`#1\active + \begingroup + \lccode`\~`#1\relax + \lowercase{\endgroup\def~}% +} + +\newcommand\exemple{% + \begingroup + \parskip\z@ + \exemple@} + +\newcommand\exemple@{% + \medbreak\noindent + \begingroup + \let\do\@makeother\dospecials + \make@car@active\ { {}}% + \make@car@active\^^M{\par\leavevmode}% + \make@car@active\^^I{\space\space}% + \make@car@active\,{\leavevmode\kern\z@\string,}% + \make@car@active\-{\leavevmode\kern\z@\string-}% + \make@car@active\>{\leavevmode\kern\z@\string>}% + \make@car@active\<{\leavevmode\kern\z@\string<}% + \@makeother\;\@makeother\!\@makeother\?\@makeother\:% neutralise frenchb + \exemple@@ +} + +\newcommand\exemple@@[1]{% + \def\@tempa##1#1{\exemple@@@{##1}}% + \@tempa +} + +\newcommand\exemple@@@[1]{% + \xdef\the@code{#1}% + \endgroup + \begingroup + \fboxrule0.4pt \fboxsep=5pt + \let\breakboxparindent\z@ + \def\bkvz@top{\hrule\@height\fboxrule}% + \def\bkvz@bottom{\hrule\@height\fboxrule}% + \let\bkvz@before@breakbox\relax + \def\bkvz@set@linewidth{\advance\linewidth\dimexpr-2\fboxrule-2\fboxsep\relax}% + \def\bkvz@left{\vrule\@width\fboxrule\kern\fboxsep}% + \def\bkvz@right{\kern\fboxsep\vrule\@width\fboxrule}% + \breakbox + \kern.5ex\relax + \begingroup + \ttfamily\small\the@code\par + \endgroup + \kern3pt + \hrule height0.1pt width\linewidth depth0.1pt + \vskip5pt + \newlinechar`\^^M\everyeof{\noexpand}\scantokens{#1}\par + \endbreakbox + \endgroup + \medbreak + \endgroup +} +\begingroup + \catcode`\<13 \catcode`\>13 + \gdef\verb{\relax\ifmmode\hbox\else\leavevmode\null\fi + \bgroup + \verb@eol@error \let\do\@makeother \dospecials + \verbatim@font\@noligs + \catcode`\<13 \catcode`\>13 \def<{\begingroup$\langle$\itshape}\def>{\/$\rangle$\endgroup}% + \@ifstar\@sverb\@verb} +\endgroup +\def\longfrscrdate@i#1/#2/#3\@nil{\number#3\relax\space \ifcase#2 \or janvier\or février\or mars\or avril\or mai\or juin\or juillet\or aout\or septembre\or octobre\or novembre\or décembre\fi\space#1} +\edef\longfrscrdate{\expandafter\longfrscrdate@i\scrdate\@nil} +\makeatother +\begingroup + \catcode`\_11 + \gdef\cleval#1#2{% + \bigbreak\noindent + \hbox to .25\linewidth{% + \color{teal}\bfseries\ttfamily + \detokenize{#1}=$\langle$\detokenize{#2}$\rangle$\hss}\kern2.5em + (\textit{Défaut} : {\color{teal}\ttfamily + \skv_eearg\skv_ifempty{\useKV[\scrname]{#1}} + {\detokenize{{}}} + {\detokenize\expandafter\expandafter\expandafter{\useKV[\scrname]{#1}}}}\unskip)% + \par\nobreak + } +\endgroup +\def\suffixe#1{\begingroup\sffamily\bfseries\color{scr#1}#1\endgroup} +\newenvironment{version}[2] + {% + \paragraph{\hbox to 4em {v\hskip1pt #1\hfill}#2}\hskip0pt \par + \catcode`\>13 \begingroup\lccode`\~`\> \lowercase{\endgroup\let~}\item + \begin{itemize}% + } + {% + \end{itemize}% + } +\begin{document} +\parindent=0pt +\thispagestyle{empty} +\begin{titlepage} + \begingroup + \centering + \null\vskip.25\vsize + {\large\bfseries L'extension pour \LaTeX\medbreak + \Huge \begin{scratch}[line width=1.5pt]\blockmove\scrname\end{scratch}\par} + \bigbreak + v \scrver + \smallbreak + \longfrscrdate + \vskip1.5cm + Christian \bsc{Tellechea}\par + \texttt{unbonpetit@netc.fr}\par + \endgroup + \vskip2cm + \leftskip=.2\linewidth \rightskip=.2\linewidth \small + Cette extension permet de dessiner des empilements de blocs similaires à ceux que l'on trouve dans le logiciel de programmation \emph{visuelle} « \SCRATCH v3\footnote{Le logiciel que l'on peut utiliser en ligne à \texttt{https://scratch.mit.edu/}} ». +\end{titlepage} +\parindent0pt +\section{Avant propos} +La présente extension intitulée \SSCRATCH, est une évolution de l'extension \SCRATCH qui imitait la version 2 du logiciel. Depuis janvier~2019, le logiciel est passé à la version~3 et l'extension \SCRATCH est donc devenue obsolète et non maintenue.\medbreak + +Cette version de \SSCRATCH étant la première, elle est susceptible d'être immature, c'est-à-dire de contenir des bugs, des incohérences ou des effets non désirés. Si cela se produit, je remercie les utilisateurs de bien vouloir me le faire savoir par email ou \emph{via} le « bugtracker » de \texttt{gitlab} à l'adresse \begin{center} +\texttt{\detokenize{https://framagit.org/unbonpetit/scratch3/issues}} +\end{center} + +Les utilisateurs les plus atentifs auront sans oute remarqué que seuls les blocs de type «stylo» sont disponibles parmi ceux qui sont dorénavant considérés comme «extension». Il s'agit, pour l'instant, d'un choix délibéré... + +\paragraph{Attention} Il est fortement déconseillé de charger les packages \SCRATCH et \SSCRATCH en raison de plusieurs définitions communes qu'ils partagent et qui conduiraient inévitablement à des dysfonctionnements. L'erreur qui survient ---~et le refus de charger le deuxième~--- lorsqu'on tente de charger ces deux packages ne doivent pas être désactivés par une modification de leurs codes.\medbreak + +L'extension \SSCRATCH requiert les extensions \texttt{simplekv} et \texttt{ti\textit kz} qui sont automatiquement chargées si cela s'avère nécessaire.\medbreak + +Fidèle à mes convictions, la documentation de cette extension n'est disponible qu'en français. + +\section{L'environnement \SCRATCH} +Pour dessiner un programme comme le fait \SCRATCH, il faut ouvrir un environnement «\SCRATCH» et écrire dans cet environnement les macros correspondant aux \emph{blocs} que l'on veut y mettre : + +\code|\begin{scratch} + macros pour dessiner des blocs +\end{scratch}| + +Comme le savent ceux qui enseignent l'algorithmique et la programmation avec le très-à-la-mode\footnote{Je ne déteste rien de plus comme langage de programmation que ce \emph{truc} vaguement graphique, ultra limité et contre-productif dans l'apprentissage du codage qu'est \SCRATCH et que l'éducation nationale veut à tout prix imposer. Je ne compte bien évidemment pas me plier à ce nouveau dogme ridicule et ne l'utiliserai ni ne l'enseignerai; je considère que les élèves méritent mieux que \SCRATCH --~ADA, java ou lua par exemple~-- comme entrée dans le monde de la programmation.} logiciel « \SCRATCH », les programmes sont construits avec des briques, appelés «blocs», qui peuvent s'emboiter les uns sur les autres. Ces blocs sont de plusieurs couleurs, chacune correspondant à un type d'instruction que l'on retrouve dans les menus de \SCRATCH. + +J'ai pris le parti d'écrire des macros ayant comme argument le texte qui figure dans le bloc. Ce faisant, on a plus de liberté que dans \SCRATCH où les blocs ont des textes prédéfinis, mais cette liberté permet d'utiliser cette extension quelle que soit la langue dans laquelle on écrit. + +Enfin, j'ai cherché le bon compromis entre complexité du code et qualité des dessins obtenus avec cette extension: ils \emph{ressemblent} à ceux du logiciel \SCRATCH, mais le but de cette extension n'est \emph{pas} la ressemblance absolue au pixel près! + +\section{Les blocs normaux} +Ces blocs sont les plus courants et possèdent une encoche d'emboitement, femelle en haut et mâle en bas. Les macros permettant de dessiner ces blocs ont des noms de la forme \verb|\block| et ont un seul argument obligatoire qui est le texte que l'on souhaite mettre dans le bloc. Par exemple, un bloc bleu (correspondant au menu «mouvement») a un suffixe \suffixe{move}, et est dessiné grâce à la macro \verb|\blockmove{}|. Ainsi, dans l'environnement \SCRATCH, écrire \verb|\blockmove{Bonjour le monde}| donne +\begin{center}\begin{scratch}\blockmove{Bonjour le monde}\end{scratch}\end{center} + +La police d'écriture dans chaque bloc est la police « \textsf{sans serif} » qui est définie dans le document au moment où l'environnement est appelé : pratiquement, cela signifie que la macro \verb|\sffamily| est exécutée avant que le texte des blocs ne soit composé. La clé «\texttt{pre text}» (voir page~\pageref{pre text}), modifiable par l'utilisateur, contient par défaut le code exécuté avant que du texte ne soit affiché, c'est-à-dire \verb|\sffamily|. Dans cette documentation, la police sans serif est «\textsf{biolinum}». + +La plupart des dimensions des blocs sont proportionnelles à la taille de la police en cours. On peut donc jouer sur la taille de la police (via les classiques macros \verb|\small|, \verb|\large|, \verb|\footnotesize|, etc) pour modifier la taille des blocs\footnote{Il y a aussi la clé «\texttt{scale}» pour mettre le dessin à l'échelle que l'on souhaite, voir page~\pageref{cle-scale}} . + +Voici un inventaire des tous les blocs disponibles, empilés les uns sous les autres : + +\exemple/Voici un algorithme bizarre : \begin{scratch} + \blockmove{bloc de mouvement} + \blocklook{bloc d'apparence} + \blocksound{bloc de son} + \blockpen{bloc de stylo} + \blockvariable{bloc de variable} + \blocklist{bloc de liste} + \blockevent{bloc d'événement} + \blockcontrol{bloc de contrôle} + \blocksensing{bloc de capteur} +\end{scratch}/ + +Il faut donc retenir cette logique : les suffixes \suffixe{move}, \suffixe{look}, \suffixe{sound}, \suffixe{pen}, \suffixe{variable}, \suffixe{list}, \suffixe{event}, \suffixe{control} et \suffixe{sensing} correspondent aux couleurs des blocs. Il existe aussi le suffixe \suffixe{operator} qui n'a pas été montré précédemment puisqu'aucun bloc n'existe pour la fonction «opérateurs». + +\section{Les ovales} +Les « ovales » sont, selon le code graphique de \SCRATCH, censés contenir des variables que l'utilisateur spécifie lui-même (comme des nombres ou du texte) : +\begin{center} + \begin{scratch} + \blockmove{tourner de \turnleft{} de \ovalnum{45} degrés} + \blocklook{penser à \ovalnum{Hmm..} pendant \ovalnum{2} secondes} + \end{scratch} +\end{center} +Les variables peuvent être prédéfinies dans \SCRATCH ou créées par l'utilisateur et dans ce cas, les ovales sont de couleur identique à la couleur du thème auquel appartient la variable: +\begin{center} + \begin{scratch} + \blocklook{penser à \ovalsensing{réponse}} + \blockmove{aller à x: \ovaloperator{\ovalmove{ abscisse x} + \ovalnum{1}} y: \ovalmove{ordonnée y}} + \end{scratch} +\end{center} +Ces variables peuvent également être spécifiques aux blocs concernés, sélectionnées parmi plusieurs possibilités, auquel cas l'ovale est de couleur plus sombre que le bloc et se termine avec une flèche de sélection : +\begin{center} + \begin{scratch} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockcontrol{créer un clone de \ovalcontrol*{moi même}} + \end{scratch} +\end{center} +Au niveau des macros utilisées : +\begin{itemize} + \item la macro \verb|\ovalnum{}| dessine un ovale à fond blanc; + \item la macro \verb|\oval| trace un ovale de la couleur de \verb||; + \item en version étoilée, \verb|\oval*| trace un ovale de couleur plus sombre avec une flèche de sélection; + \item les macros \verb|\turnleft| et \verb|\turnright| dessinent des flèches de rotation dans les blocs \verb|\blockmove|. +\end{itemize} + +\exemple/Ovales de toutes sortes : \begin{scratch} + \blockmove{tourner de \turnleft{} de \ovalnum{45} degrés} + \blocklook{penser à \ovalnum{Hmm..} pendant \ovalnum{2} secondes} + \blocklook{penser à \ovalsensing{réponse}} + \blockmove{aller à x: \ovaloperator{\ovalmove{ abscisse x} + \ovalnum{1}} y: \ovalmove{ordonnée y}} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockcontrol{créer un clone de \ovalcontrol*{moi même}} +\end{scratch}/ + +Toutes les macros de la forme \verb|\oval| sont utilisables \emph{en dehors} de l'environnement \SCRATCH: + +\exemple/Voici une variable simple «\ovalmove{direction}», +une variable sélectionnée «\ovalsound*{Meow}»./ + +Il faut signaler que les blocs de suffixes \suffixe{operator}, \suffixe{variable} , \suffixe{list} ou \suffixe{moreblocks} ne peuvent avoir d'ovales de sélection. N'ayant pas de sens pour \SCRATCH, une erreur sera émise si une macro étoilée \verb|\oval*| est utilisée, et visuellement, cela se traduira par une couleur de remplissage du bloc en rouge. +\medbreak +Un ovale rempli de couleur et accessible avec la macro \verb|\pencolor{}| permet de sélectionner la couleur du stylo: + +\exemple/\begin{scratch} + \blockpen{stylo en position d'écriture} + \blockpen{mettre la couleur du style à \pencolor{red!75!black}} + \blockmove{avancer de \ovalnum{25}} +\end{scratch}/ + +\section{Les blocs de début} +Ces blocs sont de la couleur \suffixe{event} pour la plupart (macro \verb|\blockinit|), mais il existe aussi un bloc de début de couleur \suffixe{control} (macro \verb|\blockinitclone|). Le drapeau vert est dessiné avec la macro \verb|\greenflag|. + +\exemple/Voici un début : +\begin{scratch} + \blockinit{quand \greenflag est cliqué} + \blockmove{suite de l'algorithme...} +\end{scratch} +et un autre : +\begin{scratch} + \blockinitclone{quand je commence comme un clone} + \blocklook{enfiler le costume de clown !} +\end{scratch}/ + +\section{Les rectangles} +Un menu déroulant contenant des valeurs prédéfinies est symbolisé par un rectangle dont la couleur reprend celle du bloc dans lequel il se trouve. Pour ce faire, la macro \verb|\selectmenu{}| doit être exécutée : + +\exemple/\begin{scratch} + \blockinit{Quand je reçois \selectmenu{message 1}} + \blocksound{ajouter \ovalnum{10} à l'effet \selectmenu{hauteur}} + \blocklook{mettre l'effet \selectmenu{couleur} à \ovalnum{0}} + \blockvariable{mettre \selectmenu{ma_variable} à \ovalnum{10}} +\end{scratch}/ + +\section{Les losanges et les blocs de test} +Dans la symbolique graphique de \SCRATCH, les losanges contiennent des valeurs booléennes ayant vocation à se retrouver dans un bloc de test. Pour dessiner de tels objets booléens, les macros \verb|\bool{}| sont utilisées où les \verb|| représentent les couleurs correspondant à la fonction du booléen tracé : \suffixe{list}, \suffixe{sensing} ou \suffixe{operator}. + +Les blocs de test sont de deux types,selon qu'ils possèdent ou pas une branche « else». +\code|\blockif{} + {}| +et +\code|\blockifelse{} + {} + {}| + + +\exemple/Conditions : \begin{scratch} + \blockif{si \booloperator{\ovalmove{abscisse x} < \ovalnum{7}} alors} + {\blockmove{aller à \selectmenu{position aléatoire}} + \blocklook{basculer sur costume \selectmenu{costume 4}} + } + \blockmove{aller à \selectmenu{pointeur souris}} +\end{scratch} +et +\begin{scratch} + \blockifelse{si \boolsensing{couleur \pencolor{blue!65} touchée ?} alors} + {\blockmove{avancer de \ovalnum{2}} + \blocksound{jouer le son \selectmenu{miaou}} + } + {\blockvariable{mettre \ovalvariable{total} à \ovaloperator{\ovalvariable{total} + \ovalnum{1}}} + \blocksound{arrêter tous les sons} + } + \blockmove{aller à \selectmenu{pointeur souris}} +\end{scratch}/ + +La macros \verb|\pencolor| et celles de la forme \verb|\bool| sont utilisables \emph{en dehors} d'un environnement \SCRATCH : + +\exemple/Une couleur : \pencolor{cyan}.\par +Un booléen : \boollist{liste \selectmenu{malist} contient \ovalnum{foobar}}.\par +Un autre : \booloperator{\booloperator{\ovalvariable{varx} > \ovalnum{1}} +et \booloperator{\ovalvariable{varx} < \ovalnum{5}}}./ + +\section{Les blocs de fin} +Ces blocs sont susceptibles de clore un algorithme et n'ont donc pas d'encoche mâle dans leur partie basse. Ils ne peuvent être que du type \suffixe{control} et sont dessinés avec la macro \verb|\blockstop{}| + +\exemple/\begin{scratch}\blockstop{supprimer ce clone}\end{scratch} +ou +\begin{scratch}\blockstop{stop \selectmenu{ce script}}\end{scratch}/ + +\section{Les blocs de répétition} +Ces blocs sont de deux types, selon que la répétition est prévue pour s'arrêter ou pas (boucle infinie). Ils seront dessinés par les macros \verb|\blockrepeat| et \verb|\blocinfloop| ayant chacune \emph{deux} arguments : le premier étant le \verb|| du bloc et le second la suite d'instructions à répéter. + +\exemple/\begin{scratch} + \blockpen{stylo en position d'écriture} + \blockrepeat{répéter \ovalnum{4} fois} + { + \blockmove{avancer de \ovalnum{10}} + \blockmove{tourner \turnright{} de \ovalnum{90} degrés} + } +\end{scratch} +et +\begin{scratch} + \blockpen{stylo en position d'écriture} + \blockinfloop{répéter indéfiniment} + { + \blockmove{s'orienter à \ovaloperator{nombre aléatoire entre \ovalnum{0} et \ovalnum{359}}} + \blockmove{avancer de \ovaloperator{nombre aléatoire entre \ovalnum{1} et \ovalnum{10}}} + \blockif{si \boolsensing{\selectmenu{bord} touché?}} + { + \blockmove{aller à x: \ovalnum{0} y: \ovalnum{0}} + } + } +\end{scratch}/ + +\section{Les blocs de définition} +Les « procédures », ayant le suffixe \suffixe{moreblocks}, permettent d'étendre les maigres possibilités données au programmeur en \SCRATCH. + +\exemple/\begin{scratch} + \initmoreblocks{définir \namemoreblocks{trace_carré \ovalmoreblocks{coté_carré}}} + \blockrepeat{répéter \ovalnum4 fois} + {\blockmove{avancer de \ovalmoreblocks{coté_carré}} + \blockmove{tourner \turnleft{} de \ovalnum{90} degrés} + } +\end{scratch} +puis +\begin{scratch} + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blockpen{relever le stylo} + \blockmove{aller à x: \ovalnum0 y: \ovalnum0} + \blockmove{s'orienter à \ovalnum{90} degrés} + \blockpen{stylo en position d'écriture} + \blockrepeat{répéter \ovalnum{10} fois} + { + \blockmoreblocks{trace carré \ovalnum{50}} + \blockmove{avancer de \ovalnum{10}} + \blockmove{tourner \turnleft{} de \ovalnum{36} degrés} + } +\end{scratch}/ + +\section{Bloc invisible} +Bien que ce genre de bloc n'existe pas avec \SCRATCH, cette fonctionnalité peut s'avérer utile. On insère un espace vide avec \verb|\blockspace[]|. L'espace verticale insérée est égale à la hauteur normale d'un bloc multipliée par le \verb||, valeur optionnelle qui vaut 1 par défaut. + +\exemple/\begin{scratch} + \blockmove{ci-dessous, une espace d'un bloc} + \blockspace + \blockmove{ci dessous, une espace égale à la moitié d'un bloc} + \blockspace[0.5] + \blockmove{la suite} +\end{scratch}/ + +\section{Personnalisation} +Plusieurs \verb|| peuvent être réglés par l'utilisateur selon la syntaxe \verb|=|. Cas paramètres peuvent être spécifiés dans : + +\begin{itemize} + \item l'argument optionnel de l'environnement \verb|\begin{scratch}[]| auquel cas les \verb|| ne s'appliquent qu'à cet environnement; + \item l'argument de la macro \verb|\setscratch{}| pour spécifier des \verb|| pour les environnements \SCRATCH à venir; + \item l'argument de \verb|\setdefaultscratch{}| pour spécifier des \verb|| \emph{par défaut}. +\end{itemize} + +Il existe la macro \verb|\resetscratch| qui remet à leur valeur par défaut tous les \verb|| de \SCRATCH, pour annuler les effets d'une macro \verb|\setscratch|.\bigbreak + +Voici les \verb|| disponibles : + +\cleval{else word}{caractères} +Représente est le mot qui est inséré dans la branche « else » d'un bloc de test. + +\cleval{pre text}{code}\label{pre text} +C'est le \verb|code| qui est exécuté avent que du texte ne soit affiché par \SSCRATCH. + +\cleval{x sep}{dimension} +Représente l'espace horizontale insérée entre les bords droit et gauche du texte du bloc et les bords droits et gauche du bloc. La valeur est ramenée si nécessaire dans l'intervalle [3pt ; 1em]. + +\cleval{y sepsup}{dimension} +Représente l'espace verticale insérée entre le bas de l'encoche femelle et le bord supérieur du texte du bloc. La valeur est ramenée si nécessaire dans l'intervalle [3pt ; 3ex]. + +\cleval{y sepinf}{dimension} +Représente l'espace verticale insérée entre le bas du bloc et le bord inférieur du texte du bloc. La valeur est ramenée si nécessaire dans l'intervalle [3pt ; 3ex]. + +\cleval{line width}{dimension} +Représente l'épaisseur des lignes de relief des blocs et le double des lignes de relief des losanges booléens. La valeur est ramenée si nécessaire dans l'intervalle [0pt ; 5pt]. + +\cleval{loop width}{dimension} +Représente est la largeur de la barre verticale des blocs de répétition ou de test. La valeur est ramenée si nécessaire dans l'intervalle [3pt ; 3em]. + +\cleval{loop height}{dimension} +Représente est l'épaisseur des barres horizontales « else » et inférieure des blocs de répétition ou de test. La valeur est ramenée si nécessaire dans l'intervalle [3pt ; 3ex]. + +\cleval{corner}{dimension} +Représente la dimension des chanfreins des blocs. La valeur est ramenée si nécessaire dans l'intervalle [0.33333ex ; 1ex]. + +\cleval{notch}{dimension} +Représente la largeur des encoches. La valeur est ramenée si nécessaire dans l'intervalle [0.33333em ; 3em]. + +\cleval{scale}{coefficient}\label{cle-scale} +Représente l'échelle à laquelle est représenté le dessin. La valeur est ramenée si nécessaire dans l'intervalle [0.2 ; 5]. + +\cleval{init arcangle}{angle} +Représente l'angle avec l'horizontale de l'arc de cercle tracé dans la partie haute des blocs de départ. La valeur est ramenée si nécessaire dans l'intervalle [20 ; 40]. + +\cleval{init arclength}{dimension} +Représente la longueur horizontale de l'arc de cercle tracé dans la partie haute des blocs de départ. La valeur est ramenée si nécessaire dans l'intervalle [3em ; 8em]. + +\cleval{print}{booléen} +Lorsque ce booléen est vrai, les dessins se font en noir et blanc de façon à pouvoir être dirigés vers une impression en noir et blanc. + +\exemple/\begin{scratch} + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} puis +\begin{scratch}[print] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch}/ + +\cleval{fill blocks}{booléen} +Ce booléen n'est pris en compte que lorsque le booléen \verb|print| est vrai. Si \verb|fill blocks| est vrai, tous les dessins (sauf les ovales contenant des nombres) seront remplis avec un gris choisi avec la clé suivante. + +\cleval{fill gray}{taux de gris} +Lorsque \verb|fill blocks| est vrai, ce taux de blanc dans le gris (nombre compris entre 0 pour noir et 1 pour blanc) est utilisé pour définir une couleur de remplissage des dessins. La valeur est ramenée si nécessaire dans l'intervalle [0 ; 1]. + +\exemple/\begin{scratch} + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} puis +\begin{scratch}[print,fill blocks] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} puis +\begin{scratch}[print,fill blocks,fill gray=0.66] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch}/ + +\cleval{contrast}{entier} +Lorsque l'option \verb|print| est vraie, cet entier, compris entre 0 et 100 inclus, qualifie la différence de teinte entre les lignes de relief et la teinte de gris de ces blocs, spécifiée par la clé \texttt{fill gray}. L'entier 0 sélectionne la couleur spécifiée par \texttt{fill gray} tandis que 100 trace les lignes en noir. La valeur est ramenée si nécessaire dans l'intervalle [0 ; 100]. + +\cleval{text color}{couleur} +Lorsque \verb|fill blocks| est vrai, cette couleur sera utilisée pour le texte des blocs. + +\cleval{flag gray}{taux de gris} +Lorsque \verb|print| est vrai, ce taux de gris est utilisé pour la couleur du drapeau tracé avec \verb|\greenflag| ainsi que pour la flèche se trouvant au bas des blocs de répétition. La valeur est ramenée si nécessaire dans l'intervalle [0 ; 1]. + +\exemple/\begin{scratch}[print,fill blocks,fill gray=0.66] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} puis +\begin{scratch}[print,fill blocks,fill gray=0.33,text color=white,flag gray=0.66] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch}/ + +\cleval{line gray}{taux de gris} +Lorsque \verb|print| est vrai, ce taux de gris est utilisé pour la couleur des lignes de relief. La valeur est ramenée si nécessaire dans l'intervalle [0 ; 1]. + +\cleval{num blocks}{booléen} +Lorsque ce booléen est vrai, les blocs sont numérotés. + +\cleval{num sep}{dimension} +Cette clé contient l'espacement entre les numéros de blocs et leur frontière gauche. La valeur est ramenée si nécessaire dans l'intervalle [0pt ; 1.5em]. + +\cleval{num start}{entier} +Cette clé contient le premier numéro du bloc. + +La macro \verb|\numblock| est chargée d'imprimer les numéros de ligne. Elle admet un argument (le numéro de ligne) et permet, lorsqu'elle est redéfinie, de personnaliser la numérotation : choix de la couleur, de la police, de sa taille et des effets applicables à son argument. Par défaut, cette macro est définie par +\begin{center} + \verb|\newcommand*\numblock[1]{\color{black}\footnotesize\bfseries#1}| +\end{center} + +Dans l'environnement \SCRATCH, entre des instructions \SCRATCH, on peut activer ou désactiver la numérotation \emph{pour le dessin en cours} à l'aide de +\begin{center} + \verb|\setscratch{num blocks=}| +\end{center} + +\exemple/\begin{scratch}[num blocks] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} puis +\renewcommand*\numblock[1]{\color{blue!80}\itshape#1} +\begin{scratch}[num blocks,num start=3] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} +puis +\renewcommand*\numblock[1]{\fboxsep=0.5pt\fbox{\bfseries#1}} +\begin{scratch}[num blocks=false] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \setscratch{num blocks=true} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch}/ + +\cleval{baseline}{alignement} +Cette clé contient la consigne d'alignement du dessin tout entier, c'est-à-dire : +\begin{itemize} + \item la lettre «\verb|c|» auquel cas, le dessin est centré sur la ligne de base + \item un entier qui spécifie un numéro de bloc existant : la numérotation est cohérente avec l'entier initial contenu dans la clé \verb|num start|. Dans ce cas, la ligne de base choisie est celle du texte contenu dans le bloc portant le numéro choisi. +\end{itemize} + +\exemple/Défaut : \begin{scratch} + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} +bloc 3 : \begin{scratch}[baseline=3] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch} +centré +\begin{scratch}[baseline=c] + \blockinit{Quand \greenflag est cliqué} + \blockpen{effacer tout} + \blocksound{jouer le son \ovalsound*{Meow}} + \blockmove{ajouter \ovalnum{5} à \ovalvariable{abscisse}} +\end{scratch}/ + +\section{Mot de la fin} +Le code de cette extension démontre mon immense ignorance de ti\textit kz/pgf et les méthodes de programmation qui lui sont propres que, décidément, je ne comprendrai jamais! C'est sans doute le trop grand éloignement avec la logique de \TeX{} et la documentation de ti\textit kz/pgf, aussi indigeste qu'illisible, qui explique cette incompatibilité d'humeur et mon désintérêt à l'égard de ti\textit kz. Toujours est-il que cette extension fonctionne, avec une lenteur certaine que j'attribue à ma programmation hasardeuse ainsi qu'à la lenteur intrinsèque de ti\textit kz. + +Toute remarque, remontée de bug ---~je n'ose pas dire amélioration du code~---, demande d'implémentation de fonctionnalité est bien évidemment bienvenue; j'invite les utilisateurs à m'en faire part \emph{via} email à \texttt{unbonpetit@netc.fr} + +\section{Historique} +\begin{version}{0.1}{19/02/2019} + >Première version. +\end{version} +\end{document} \ No newline at end of file diff --git a/Master/texmf-dist/tex/latex/scratch3/scratch3.sty b/Master/texmf-dist/tex/latex/scratch3/scratch3.sty new file mode 100644 index 00000000000..6dc76e66794 --- /dev/null +++ b/Master/texmf-dist/tex/latex/scratch3/scratch3.sty @@ -0,0 +1,995 @@ +% !TeX encoding = ISO-8859-1 +% Ce fichier contient le code de l'extension "scratch3" +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% % +\def\scrname{ scratch3 }% +\def\scrver { 0.1 }% +% % +\def\scrdate{ 2019/02/19 }% +% % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% -------------------------------------------------------------------- +% Author : Christian Tellechea +% Status : Maintained +% Email : unbonpetit@netc.fr +% Package URL: https://www.ctan.org/pkg/scratch3 +% Bug tracker: https://framagit.org/unbonpetit/scratch3/issues +% Repository : https://framagit.org/unbonpetit/scratch3/tree/master +% Copyright : Christian Tellechea 2019 +% Licence : Released under the LaTeX Project Public License v1.3c +% or later, see http://www.latex-project.org/lppl.txt +% Files : 1) scratch3.sty +% 2) scratch3-fr.tex +% 3) scratch3-fr.pdf +% 4) README +% -------------------------------------------------------------------- +\csname @ifpackageloaded\endcsname{scratch} + {\PackageError{scratch3}{scratch3 cannot be used since scratch is already loaded}{}% + \endinput + } + {} +\ProvidesPackage{scratch3}[\scrdate\space v\scrver\space Draw scratch3 instructions (CT)] +\NeedsTeXFormat{LaTeX2e} +\RequirePackage{simplekv,tikz} +\usepgflibrary{shapes.misc,arrows.meta} +\usetikzlibrary{bending} + +\expandafter\edef\csname scr\string _restorecatcode\endcsname{\catcode`\noexpand\_=\the\catcode`\_\relax} +\catcode`\_11 +\def\scr_removespaces#1{\edef#1{\skv_exparg\skv_removeextremespaces#1}} +\scr_removespaces\scrname\scr_removespaces\scrver\scr_removespaces\scrdate +% Les réglages par défaut (modifiables avec \setdefaultscratch) +\setKVdefault[\scrname]{ + pre text = \sffamily ,% choix de la police + else word = sinon ,% mot dans branche "else" + x sep = 0.33333em ,% séparation entre côtés droits et gauche du bloc et le texte + y sepsup = 3pt ,% séparation entre côté sup (insert) et haut texte + y sepinf = 5pt ,% séparation entre côté inf et bas texte + line width = .4pt ,% épaisseur des lignes de relief + loop width = 3ex ,% épaisseur de la barre verticale à gauche d'un bloc de boucle + loop height = 1.75ex ,% hauteur de la barre du else et la barre finale + corner = 0.66667ex ,% valeur du chanfrein + notch = 1em ,% longueur des encoches + scale = 1 ,% échelle du dessin + init arcangle = 30 ,% angle début et fin de l'arc + init arclength = 5em ,% longueur de l'arc + contrast = 20 ,% contraste des lignes de relief + print = false ,% impression noir et blanc ? + fill blocks = false ,% remplissage des blocks lorsque l'option "print" est vraie + fill gray = 0.85 ,% taux de gris pour le remplissage si fill blocks est vraie + text color = black ,% couleur du texte lorsque l'option "print" est vraie + flag gray = 0.33 ,% taux de gris pour le drapeau et la flèche de répétition lorsque l'option "print" est vraie + line gray = 0.4 ,% taux de gris pour les lignes lorsque l'option "print" est vraie + bool sep = 1.25pt ,% séparation entre les blocs booléens imbriqués + num blocks = false ,% numérotation des blocs + num sep = 3pt ,% séparation entre bord gauche et numérotation + num start = 1 ,% numéro de départ + baseline = 1 ,% alignement sur le 1er bloc (en partant du haut) +} +\newcommand*\numblock[1]{\color{black}\footnotesize\bfseries#1} +\newcommand*\resetscratch{\csname skv_[\scrname]\endcsname\scr_setcolors} +\newcommand*\setscratch[1]{\setKV[\scrname]{#1}\scr_setcolors} +\newcommand*\setdefaultscratch[1]{\setKVdefault[\scrname]{#1}\scr_setcolors} +\def\scr_setcolors{% + \scr_normalizedec\scr_fillgray fill gray[0,1]\skv_exparg{\definecolor{scr_fillgray}{gray}}\scr_fillgray + \scr_normalizedec\scr_linegray line gray[0,1]\skv_exparg{\definecolor{scr_linegray}{gray}}\scr_linegray + \scr_normalizedec\scr_flaggray flag gray[0,1]\skv_exparg{\definecolor{scr_flaggray}{gray}}\scr_flaggray +} +\expandafter\let\expandafter\scr_ifstar\csname @ifstar\endcsname +\def\scr_boolsentinel{17}% +\def\scr_ovalsentinel{18}% +\def\scr_blockstrut{\vrule height2.1ex depth.9ex width0pt\relax} +\def\scr_ovalstrut{\vphantom{\`Ag}} +\def\scr_cslet#1{\expandafter\let\csname#1\endcsname} +\def\scr_csdef#1{\expandafter\def\csname#1\endcsname} +\def\scr_csedef#1{\expandafter\edef\csname#1\endcsname} +\def\scr_execfirst#1#2{#1} +\def\scr_execsecond#1#2{#2} +\def\scr_firsttonil#1#2\_nil{#1} +\def\scr_maxdim(#1,#2){\the\dimexpr\ifdim\dimexpr#1-(#2)\relax<0pt #2\else#1\fi\relax} +\def\scr_normalizedec#1#2[#3,#4]{% + \edef#1{\useKV[\scrname]{#2}}% + \ifdim#1pt<#3pt + \def#1{#3}% + \else + \ifdim#1pt>#4pt + \def#1{#4}% + \fi + \fi +} +\def\scr_normalizedim#1#2[#3,#4]{% + \edef#1{\the\dimexpr\useKV[\scrname]{#2}}% + \ifdim\dimexpr#1-(#3)\relax<0pt + \edef#1{\the\dimexpr#3}% + \else + \ifdim\dimexpr#1-(#4)\relax>0pt + \edef#1{\the\dimexpr#4}% + \fi + \fi +} +\newcount\scr_loopnest +\newcount\scr_blocknum +\newbox \scr_box +\newdimen\scr_yoffset +\newdimen\scr_xoffset + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un bloc normal % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_normalblock#1#2{% #1=couleur #2=texte + \def\scr_current_blockcolor{#1}% + \def\scr_currentstuff{% + \if_pen + \scr_drawpen + \kern.6em + \begingroup + \ifboolKV[\scrname]{print} + {\color{scr_linegray}} + {\color{penvline}}% + \vrule width0.5pt + \endgroup + \kern.6em + \fi + \useKV[\scrname]{pre text}% + #2% + \scr_blockstrut + }% + \setbox\scr_box\hbox{% + \pgfinterruptpicture + \scr_currentstuff + \endpgfinterruptpicture + }% + \edef\scr_boxwd{\scr_maxdim(\wd\scr_box,\scr_minwd)}% + \edef\scr_boxht{\the\ht\scr_box}% + \edef\scr_totht{\the\dimexpr\ht\scr_box+\dp\scr_box\relax}% + \draw[ + draw={\ifboolKV[\scrname]{print}{scr_linegray!\scr_contrast!black}{#1dd}}, + line width=\scr_linewidth, + rounded corners=0.4*\scr_ex, + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray}{none}}{#1}}, + yshift=\scr_yoffset, + xshift=\scr_xoffset + ] + (0,0)--++(0.66666*\scr_notch,0)--++(\scr_corner,-\scr_corner)--++(\scr_notch,0)--++(\scr_corner,\scr_corner)--++(\scr_boxwd+2*\scr_xsep-\scr_corner*2-\scr_notch*1.66666,0)% ligne sup + --++(0,-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner)% ligne est + --++(-\scr_boxwd-2*\scr_xsep+\scr_corner*2+\scr_notch*1.66666,0)--++(-\scr_corner,-\scr_corner)--++(-\scr_notch,0)--++(-\scr_corner,\scr_corner)--++(-0.66666*\scr_notch,0)% logne sud + --cycle; + \node[ + at=(origin), + draw=none, + anchor=base west, + xshift=\scr_xoffset+\scr_xsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (txt\number\scr_blocknum) + {\scr_currentstuff}; + \ifboolKV[\scrname]{num blocks} + {\node[ + at=(origin), + draw=none, + anchor=base east, + xshift=-\scr_numsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup + ] + (num) + {\skv_exparg\numblock{\number\scr_blocknum}};% + } + {}% + \advance\scr_blocknum1 + \advance\scr_yoffset\dimexpr-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner\relax + \gdef\scr_blockstop{0}% + \_penfalse +} +\newcommand*\blockspace[1][1]{% + \advance\scr_yoffset#1\dimexpr-\scr_blockstruttotht-\scr_ysepsup-\scr_ysepinf-\scr_corner-\scr_linewidth\relax + \gdef\scr_blockstop{1}% +} +\newcommand*\blockstop[1]{% #1=texte + \def\scr_current_blockcolor{scrcontrol}% + \def\scr_currentstuff{% + \useKV[\scrname]{pre text}% + #1% + \scr_blockstrut + }% + \setbox\scr_box\hbox{% + \pgfinterruptpicture + \scr_currentstuff + \endpgfinterruptpicture + }% + \edef\scr_boxwd{\scr_maxdim(\wd\scr_box,\scr_minwd)}% + \edef\scr_boxht{\the\ht\scr_box}% + \edef\scr_totht{\the\dimexpr\ht\scr_box+\dp\scr_box\relax}% + \draw[ + draw={\ifboolKV[\scrname]{print}{scr_linegray!\scr_contrast!black}{\scr_current_blockcolor dd}}, + line width=\scr_linewidth, + rounded corners=0.4*\scr_ex, + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray}{none}}{\scr_current_blockcolor}}, + yshift=\scr_yoffset, + xshift=\scr_xoffset + ] + (0,0)--++(0.66666*\scr_notch,0)--++(\scr_corner,-\scr_corner)--++(\scr_notch,0)--++(\scr_corner,\scr_corner)--++(\scr_boxwd+2*\scr_xsep-\scr_corner*2-\scr_notch*1.66666,0)% ligne sup + --++(0,-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner)--++(-\scr_boxwd-2*\scr_xsep,0)--cycle; + \node[ + at=(origin), + draw=none, + anchor=base west, + xshift=\scr_xoffset+\scr_xsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (txt\number\scr_blocknum) + {\scr_currentstuff}; + \ifboolKV[\scrname]{num blocks} + {\node[ + at=(origin), + draw=none, + anchor=base east, + xshift=-\scr_numsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup + ] + (num) + {\skv_exparg\numblock{\number\scr_blocknum}}; + } + {}% + \advance\scr_blocknum1 + \advance\scr_yoffset\dimexpr-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner-\scr_linewidth\relax + \gdef\scr_blockstop{1}% +} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un bloc de départ % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_initblock#1#2{% + \def\scr_current_blockcolor{#1}% + \def\scr_currentstuff{% + \useKV[\scrname]{pre text}% + #2% + \scr_blockstrut + }% + \setbox\scr_box\hbox{% + \pgfinterruptpicture + \scr_currentstuff + \endpgfinterruptpicture + }% + \edef\scr_boxwd{\scr_maxdim(\wd\scr_box,\scr_xsep+\scr_initarclength+\scr_em)}% + \edef\scr_boxht{\the\ht\scr_box}% + \edef\scr_totht{\the\dimexpr\ht\scr_box+\dp\scr_box\relax}% + \draw[ + draw={\ifboolKV[\scrname]{print}{scr_linegray!\scr_contrast!black}{#1dd}}, + line width=\scr_linewidth, + rounded corners=0.4*\scr_ex, + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray}{none}}{\scr_current_blockcolor}}, + yshift=\scr_yoffset, + xshift=\scr_xoffset + ] + (0,0)to[out=\scr_initarcangle,in=180-\scr_initarcangle](\scr_xsep+\scr_initarclength,0)--(\scr_boxwd+2*\scr_xsep,0)% ligne sup + --++(0,-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner)% ligne est + --++(-\scr_boxwd+\scr_corner*2-2*\scr_xsep+\scr_notch*1.66666,0)--++(-\scr_corner,-\scr_corner)--++(-\scr_notch,0)--++(-\scr_corner,\scr_corner)--++(-0.66666*\scr_notch,0)--cycle% ligne bas + node[ + at=(origin), + draw=none, + anchor=base west, + xshift=\scr_xoffset+\scr_xsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (txt\number\scr_blocknum) + {\scr_currentstuff}; + \ifboolKV[\scrname]{num blocks} + {\node[ + at=(origin), + draw=none, + anchor=base east, + xshift=-\scr_numsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup + ] + (num) + {\skv_exparg\numblock{\number\scr_blocknum}};} + {}% + \advance\scr_blocknum1 + \advance\scr_yoffset\dimexpr-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner\relax + \gdef\scr_blockstop{0}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un bloc de définition % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newcommand*\initmoreblocks[1]{% + \def\scr_currentstuff{% + \useKV[\scrname]{pre text}% + #1% + \scr_blockstrut + }% + \setbox\scr_box\hbox{% + \pgfinterruptpicture + \scr_currentstuff + \endpgfinterruptpicture + }% + \edef\scr_boxwd{\scr_maxdim(\wd\scr_box,\scr_minwd+\scr_em*2)}% + \edef\scr_boxht{\the\ht\scr_box}% + \edef\scr_totht{\the\dimexpr\ht\scr_box+\dp\scr_box\relax}% + \def\scr_current_blockcolor{scrmoreblocks}% + \draw[ + draw={\ifboolKV[\scrname]{print}{scr_linegray!\scr_contrast!black}{\scr_current_blockcolor dd}}, + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray}{none}}{\scr_current_blockcolor}}, + yshift=\scr_yoffset, + xshift=\scr_xoffset, + rounded corners=0.4*\scr_ex + ] + (0,-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner)[rounded corners=2*\scr_ex]--(0,0)--(\scr_boxwd+2*\scr_xsep,0)% ligne sup + [rounded corners=0.4*\scr_ex]--++(0,-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner)% ligne est + --++(-\scr_boxwd-2*\scr_xsep+\scr_corner*2+\scr_notch*1.66666,0)--++(-\scr_corner,-\scr_corner)--++(-\scr_notch,0)--++(-\scr_corner,\scr_corner)--++(-.66666*\scr_notch,0)% ligne sud + --cycle + node[ + at=(origin), + draw=none, + anchor=base west, + xshift=\scr_xoffset+\scr_xsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (txt\number\scr_blocknum) + {\scr_currentstuff}; + \ifboolKV[\scrname]{num blocks} + {\node[ + at=(origin), + draw=none, + anchor=base east, + xshift=-\scr_numsep, + yshift=\scr_yoffset-\scr_boxht-\scr_corner-\scr_ysepsup + ] + (num) + {\skv_exparg\numblock{\number\scr_blocknum}};% + } + {}% + \advance\scr_blocknum1 + \advance\scr_yoffset\dimexpr-\scr_totht-\scr_ysepsup-\scr_ysepinf-\scr_corner\relax + \gdef\scr_blockstop{0}% +} +\newcommand*\scr_namemoreblocks[1]{% + \begin{tikzpicture}% + \setscratch{num blocks=false}% + \definecolor{scrmoreblocks}{HTML}{ff4d6a}% choix couleur foncée pour tracé du bloc qui suit + \scr_normalblock{scrmoreblocks}{% + \definecolor{scrmoreblocks}{HTML}{ff6680}% rétablir couleur claire par défaut + #1% + }% + \end{tikzpicture}% +}% + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un bloc de répétition ou test % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_blockloop#1#2#3#4#5{% #1=texte #2=instructions sup #3=instructions inf #4=boucle infinie (1 ou 0) #5=fleche de répétition (1 ou 0) + \edef\scr_blocminheight{\dimexpr\scr_loopblockheight+\scr_ysepinf+\scr_ysepsup+\scr_corner\relax}% hauteur minimale d'un bloc normal + \setbox\scr_box\hbox{% + \pgfinterruptpicture + \useKV[\scrname]{pre text}% + #1% + \scr_blockstrut + \endpgfinterruptpicture + }% + \scr_csedef{scr_txtloopwd\number\scr_loopnest}{\scr_maxdim(\wd\scr_box,\scr_minwd+\scr_corner*2+\scr_notch*2)}% + \scr_csedef{scr_txtloopht\number\scr_loopnest}{\the\ht\scr_box}% + \scr_csedef{scr_txtlooptotht\number\scr_loopnest}{\the\dimexpr\ht\scr_box+\dp\scr_box\relax}% + \scr_csedef{toploopx\number\scr_loopnest}{\the\scr_xoffset}% coordonnées du point nord-west + \scr_csedef{toploopy\number\scr_loopnest}{\the\scr_yoffset}% + \scr_csedef{blocnum\number\scr_loopnest}{\number\scr_blocknum}% + \advance\scr_xoffset\scr_loopblockwidth + \advance\scr_yoffset\dimexpr-\scr_corner-\scr_ysepsup-\csname scr_txtlooptotht\number\scr_loopnest\endcsname-\scr_ysepinf\relax + \ifboolKV[\scrname]{num blocks} + {\scr_csdef{scr_numblockif\number\scr_loopnest}{% + \node[ + at=(origin), + draw=none, + anchor=base east, + xshift=-\scr_numsep, + yshift=\csname toploopy\number\scr_loopnest\endcsname-\csname scr_txtloopht\number\scr_loopnest\endcsname-\scr_corner-\scr_ysepsup + ] + (num) + {\skv_eearg\numblock{\csname blocnum\number\scr_loopnest\endcsname}};% + }% + } + {\scr_cslet{scr_numblockif\number\scr_loopnest}\empty + }% + \advance\scr_loopnest1 + \advance\scr_blocknum1 + #2% + \advance\scr_loopnest-1 + \scr_cslet{scr_blockstopif_\number\scr_loopnest}\scr_blockstop + \scr_csedef{bottomifx\number\scr_loopnest}{\the\scr_xoffset}% + \scr_csedef{bottomify\number\scr_loopnest}{\the\scr_yoffset}% + \ifcat\relax\detokenize{#3}\relax\else% si instruction #3 + \advance\scr_yoffset\dimexpr-\scr_blocminheight\relax% épaisseur théorique de la branche "sinon" + \scr_csedef{blocelsenum\number\scr_loopnest}{\number\scr_blocknum}% + \ifboolKV[\scrname]{num blocks} + {\scr_csdef{scr_numblockelse\number\scr_loopnest}{% + \node[ + at=(origin), + draw=none, + anchor=base east, + xshift=-\scr_numsep, + yshift=\csname bottomify\number\scr_loopnest\endcsname-\scr_loopblockheight-\scr_corner + ] + (num) + {\skv_eearg\numblock{\csname blocelsenum\number\scr_loopnest\endcsname}};}% + } + {\scr_cslet{scr_numblockelse\number\scr_loopnest}\empty + }% + \advance\scr_loopnest1 + \advance\scr_blocknum1 + #3% + \advance\scr_loopnest-1 + \scr_csedef{bottomelsex\number\scr_loopnest}{\the\scr_xoffset}% + \scr_csedef{bottomelsey\number\scr_loopnest}{\the\scr_yoffset}% + \fi + \advance\scr_yoffset by \dimexpr-\scr_blocminheight\relax% épaisseur de la branche du bas + \def\scr_current_blockcolor{scrcontrol}% +% ############## dessin du corps ############## + \edef\scr_current_linecolor{\ifboolKV[\scrname]{print}{scr_linegray!\scr_contrast!black}{\scr_current_blockcolor dd}}% + \draw[ + draw=\scr_current_linecolor, + line width=\scr_linewidth, + rounded corners=0.4*\scr_ex, + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray}{none}}{\scr_current_blockcolor}} + ] + (\csname toploopx\number\scr_loopnest\endcsname,\csname toploopy\number\scr_loopnest\endcsname)--++(0.66666*\scr_notch,0)--++(\scr_corner,-\scr_corner)--++(\scr_notch,0)--++(\scr_corner,\scr_corner)--++(\csname scr_txtloopwd\number\scr_loopnest\endcsname+2*\scr_xsep-\scr_corner*2-\scr_notch*1.66666,0)% ligne sup + --++(0,-\csname scr_txtlooptotht\number\scr_loopnest\endcsname-\scr_ysepsup-\scr_ysepinf-\scr_corner)% ligne est "|" + --++(-\csname scr_txtloopwd\number\scr_loopnest\endcsname-2*\scr_xsep+\scr_corner*2+\scr_notch*1.66666+\scr_loopblockwidth,0)--++(-\scr_corner,-\scr_corner)--++(-\scr_notch,0)--++(-\scr_corner,\scr_corner)--++(-\scr_notch*.66666,0)% ligne sud "--\__/---------" + --(\csname bottomifx\number\scr_loopnest\endcsname,\csname bottomify\number\scr_loopnest\endcsname)% descente gauche bloc "if" + \ifcat\relax\detokenize{#3}\relax\else% tracé de la branche du else + \ifnum\csname scr_blockstopif_\number\scr_loopnest\endcsname=1 + --++(\csname scr_txtloopwd\number\scr_loopnest\endcsname+2*\scr_xsep-\scr_loopblockwidth,0)% ligne haut de la barre else "-----------------" + \else + --++(\scr_notch*0.66666,0)--++(\scr_corner,-\scr_corner)--++(\scr_notch,0)--++(\scr_corner,\scr_corner)--++(\csname scr_txtloopwd\number\scr_loopnest\endcsname+2*\scr_xsep-\scr_corner*2-\scr_notch*1.66666-\scr_loopblockwidth,0)% ligne haut de la barre else "--\__/---------" + \fi + --++(0,-\scr_loopblockheight-\scr_ysepsup-\scr_ysepinf-\scr_corner)% descente barre else + --++(-\csname scr_txtloopwd\number\scr_loopnest\endcsname-2*\scr_xsep+\scr_corner*2+\scr_notch*1.66666+\scr_loopblockwidth,0)--++(-\scr_corner,-\scr_corner)--++(-\scr_notch,0)--++(-\scr_corner,\scr_corner)--++(-.66666*\scr_notch,0)% ligne sud "/--\__/---------" + --(\csname bottomelsex\number\scr_loopnest\endcsname,\csname bottomelsey\number\scr_loopnest\endcsname)% descente gauche bloc "else" + \fi + \ifnum\scr_blockstop=1 + --++(\csname scr_txtloopwd\number\scr_loopnest\endcsname+2*\scr_xsep-\scr_loopblockwidth,0)% ligne haut de la barre de fin "----------------" + \else + --++(.66666*\scr_notch,0)--++(\scr_corner,-\scr_corner)--++(\scr_notch,0)--++(\scr_corner,\scr_corner)--++(\csname scr_txtloopwd\number\scr_loopnest\endcsname+2*\scr_xsep-\scr_corner*2-\scr_notch*1.66666-\scr_loopblockwidth,0)% ligne haut de la barre de fin "--\__/---------" + \fi + --++(0,-\scr_loopblockheight-\scr_ysepsup-\scr_ysepinf-\scr_corner)% ligne Est "\ + | + /" + \ifnum#4=1 %infiniteloop + --++(-\csname scr_txtloopwd\number\scr_loopnest\endcsname-2*\scr_xsep,0)% ligne Sud "\---------------" + \else + --++(-\csname scr_txtloopwd\number\scr_loopnest\endcsname-2*\scr_xsep+\scr_corner*2+\scr_notch*1.66666,0)--++(-\scr_corner,-\scr_corner)--++(-\scr_notch,0)--++(-\scr_corner,\scr_corner)--++(-.66666*\scr_notch,0)% ligne Sud "\--\__/---------" + \fi + --(\csname toploopx\number\scr_loopnest\endcsname,\csname toploopy\number\scr_loopnest\endcsname-\scr_corner)--cycle;% remontée tout en haut et cycle + \advance\scr_xoffset\dimexpr-\scr_loopblockwidth\relax + \csname scr_numblockif\number\scr_loopnest\endcsname% numérote ou pas le texte dans le bandeau du haut + \node[ + at=(origin), + draw=none, + anchor=base west, + xshift=\csname toploopx\number\scr_loopnest\endcsname+\scr_xsep, + yshift=\csname toploopy\number\scr_loopnest\endcsname-\csname scr_txtloopht\number\scr_loopnest\endcsname-\scr_corner-\scr_ysepsup, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (txt\csname blocnum\number\scr_loopnest\endcsname) + {\useKV[\scrname]{pre text}#1\scr_blockstrut}; + \ifcat\relax\detokenize{#3}\relax\else + \node[ + at=(origin), + draw=none, + anchor=base west, + xshift=\csname toploopx\number\scr_loopnest\endcsname+\scr_xsep, + yshift=\csname bottomify\number\scr_loopnest\endcsname-\scr_loopblockheight-\scr_corner, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (txt\csname blocelsenum\number\scr_loopnest\endcsname) + {\useKV[\scrname]{pre text}\useKV[\scrname]{else word}}; + \csname scr_numblockelse\number\scr_loopnest\endcsname% numérotation bloc else ou pas + \fi + \ifnum#5=1 %fleche + \edef\scr_arrowcolor{\ifboolKV[\scrname]{print}{scr_flaggray}{scrcontrol}!80!black}% couleur ded l'ombre + \draw[ + \scr_arrowcolor, + line width=1.5pt, + -{Triangle[length=\scr_scale*1.25ex,width=\scr_scale*1.5ex]}, + rounded corners=1pt + ] + (\scr_xoffset+\scr_xsep*2+\csname scr_txtloopwd\number\scr_loopnest\endcsname-\scr_ex*3.5+1pt,\scr_yoffset+\scr_linewidth+\scr_ysepinf-1.25pt)--++(\scr_loopblockheight,0)--++(0,\scr_loopblockheight+\scr_corner*0.5); + \edef\scr_arrowcolor{\ifboolKV[\scrname]{print}{scr_flaggray}{white}}% colmeur de la flèche + \draw[ + \scr_arrowcolor, + line width=\scr_scale*1.5pt, + -{Triangle[length=\scr_scale*1.25ex,width=\scr_scale*1.5ex]}, + rounded corners=1pt + ] + (\scr_xoffset+\scr_xsep*2+\csname scr_txtloopwd\number\scr_loopnest\endcsname-\scr_ex*3.5,\scr_yoffset+\scr_linewidth+\scr_ysepinf)--++(\scr_loopblockheight,0)--++(0,\scr_loopblockheight+\scr_corner*0.5); + \fi + \xdef\scr_blockstop{\ifnum#4=1 1\else0\fi}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un ovale % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_ovalbox#1#2#3{% #1=selection (1) ou pas (0) #2=couleur remplissage et contour #3=texte + \begingroup + \ifnum\lastkern=\scr_ovalsentinel + \unkern\kern-.66667ex\relax + \fi + \scr_setcolors + \def\scr_current_blockcolor{#2}% + \begin{tikzpicture}[ + baseline=(x.base), + x=1ex, + y=1ex, + inner ysep=0.25ex, + inner xsep=0.1ex, + line width={\the\dimexpr\useKV[\scrname]{line width}\relax} + ] + \node[ + line width={\the\dimexpr\useKV[\scrname]{line width}\relax}, + rounded rectangle, + draw={\ifboolKV[\scrname]{print}{scr_linegray!\scr_contrast!black}{#2dd}}, + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray\if1#1!85!black\fi}{none}}{\scr_current_blockcolor\if1#1d\fi}}, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (x) + {% + \useKV[\scrname]{pre text}\relax\scr_ovalstrut\kern\scr_ovalsentinel sp + #3% + \if1#1% si triangle de sélection + \kern1ex + \scr_menuselectarrow + \fi + \ifnum\lastkern=\scr_ovalsentinel + \unkern\kern-.66667ex\relax + \fi + };% + \end{tikzpicture}% + \endgroup + \kern\scr_ovalsentinel sp +} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un triangle de sélection % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_menuselectarrow{% + \tikz[ + baseline=-1ex, + x=1.5ex, + y=1.5ex, + rounded corners=1.5pt + ] + \draw[ + fill=white, + draw={\ifboolKV[\scrname]{print}{scr_linegray}{\scr_current_blockcolor}} + ] + (0,0)--(1,0)--(0.5,-0.6)--cycle;% +} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un menu % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newcommand*\selectmenu[1]{% #1=texte du menu (sera composé et suivi du triangle de sélection) + \begin{tikzpicture}[ + anchor=base west, + baseline=(textmenu.base west), + outer sep=0pt, + inner sep=0pt, + minimum size=0pt + ] + \node[ + rectangle, + rounded corners=1.5pt, + draw={\ifboolKV[\scrname]{print}{scr_linegray}{\scr_current_blockcolor dd}}, + inner sep=0.2em, + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray!85!black}{none}}{\scr_current_blockcolor}}, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (textmenu) + {% + \useKV[\scrname]{pre text}% + #1% + \scr_ovalstrut + \hskip.6666em + \scr_menuselectarrow + }; + \end{tikzpicture}% +} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% dessine un losange % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_boolbox#1#2{% #1=couleur #2=texte + \begingroup + \scr_setcolors + \edef\scr_previouskern{\number\lastkern}% + \edef\scr_linewidth{\useKV[\scrname]{line width}}% + \edef\_{\the\dimexpr.53033\dimexpr \scr_linewidth\relax\relax}% + \def\scr_current_blockcolor{#1}% + \edef\scr_boolsep{\useKV[\scrname]{bool sep}}% + \begin{tikzpicture}[ + inner sep=0pt, + outer sep=0pt, + minimum size=0pt, + baseline=(x.base), + line width=\scr_linewidth + ] + \setbox\scr_box\hbox{% + \pgfinterruptpicture + \useKV[\scrname]{pre text}% + \scr_ovalstrut + \kern\scr_boolsentinel sp + #2% + \xdef\scr_endkern{\number\lastkern}% + \endpgfinterruptpicture + }% + \edef\scr_totheight{\the\dimexpr\ht\scr_box+\dp\scr_box\relax}\edef\scr_boxwd{\the\wd\scr_box}% + \edef\scr_retainedwd{\the\dimexpr\scr_boxwd+\_*2\ifnum\scr_endkern=\scr_boolsentinel\space-\scr_totheight/2+1.41421\dimexpr\scr_boolsep\relax\fi\relax}% + \draw[ + draw=none, + use as bounding box + ] + (\ifnum\scr_previouskern=\scr_boolsentinel-\scr_boolsep*.41421\else -\scr_totheight/2\fi,-\scr_boolsep)rectangle(\scr_retainedwd+\scr_totheight/2,\scr_totheight+\scr_boolsep);% + \draw[ + fill={\ifboolKV[\scrname]{print}{\ifboolKV[\scrname]{fill blocks}{scr_fillgray}{none}}{\scr_current_blockcolor}}, + draw={\ifboolKV[\scrname]{print}{scr_linegray}{#1dd}} + ] + (\scr_boolsep,-\scr_boolsep)--++(\scr_retainedwd-\scr_boolsep*2,0)--++(\scr_totheight/2+\scr_boolsep,\scr_totheight/2+\scr_boolsep)--++(-\scr_totheight/2-\scr_boolsep,\scr_totheight/2+\scr_boolsep)--++(-\scr_retainedwd+\scr_boolsep*2,0)--++(-\scr_totheight/2-\scr_boolsep,-\scr_totheight/2-\scr_boolsep)--cycle;% + \node[ + inner sep=0pt, + outer sep=0pt, + minimum size=0pt, + draw=none, + anchor=south west, + text={\ifboolKV[\scrname]{print}{\useKV[\scrname]{text color}}{white}} + ] + (x) + {% + \useKV[\scrname]{pre text}% + \scr_ovalstrut + \kern\_% + \kern\scr_boolsentinel sp + #2% + \kern\_% + };% + \end{tikzpicture}% + \endgroup + \kern\scr_boolsentinel sp +} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% environnement scratch % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\definecolor{scrmove} {HTML}{4c97ff}% +\definecolor{scrmoved} {HTML}{4280d7}% +\definecolor{scrmovedd} {HTML}{3373cc}% +\definecolor{scrlook} {HTML}{9966ff}% +\definecolor{scrlookd} {HTML}{865cd3}% +\definecolor{scrlookdd} {HTML}{774dcb}% +\definecolor{scrsound} {HTML}{cf63cf}% +\definecolor{scrsoundd} {HTML}{c94fc9}% +\definecolor{scrsounddd} {HTML}{bd42bd}% +\definecolor{scrpen} {HTML}{0fbd8c}% +\definecolor{scrpend} {HTML}{0da57a}% +\definecolor{scrpendd} {HTML}{0b8e69}% +\definecolor{scrvariable} {HTML}{ff8c1a}% +\definecolor{scrvariabled} {HTML}{ff0000}% il n'existe pas d'ovale avec triangle sélection pour variable +\definecolor{scrvariabledd} {HTML}{db6e00}% +\definecolor{scrlist} {HTML}{ff661a}% +\definecolor{scrlistd} {HTML}{ff0000}% idem +\definecolor{scrlistdd} {HTML}{f2590d}% +\definecolor{screvent} {HTML}{ffbf00}% +\definecolor{screventd} {HTML}{e6ac00}% +\definecolor{screventdd} {HTML}{cc9900}% +\definecolor{greenflag} {HTML}{4cbf56}% +\definecolor{flagcontour} {HTML}{45993d}% +\definecolor{scrcontrol} {HTML}{ffab19}% +\definecolor{scrcontrold} {HTML}{ec9b13}% +\definecolor{scrcontroldd} {HTML}{d08a17}% +\definecolor{scrsensing} {HTML}{5cb1d6}% +\definecolor{scrsensingd} {HTML}{47a8d1}% +\definecolor{scrsensingdd} {HTML}{2e8eb8}% +\definecolor{scroperator} {HTML}{59c059}% +\definecolor{scroperatord} {HTML}{ff0000}% idem +\definecolor{scroperatordd} {HTML}{389438}% +\definecolor{scrmoreblocks} {HTML}{ff6680}% +\definecolor{scrmoreblocksd} {HTML}{ff4d6a}% +\definecolor{scrmoreblocksdd} {HTML}{ff3355}% +\definecolor{penline} {HTML}{595e73}% +\definecolor{penblue} {HTML}{4c8eea}% +\definecolor{penvline} {HTML}{0da57a}% +\newenvironment{scratch}[1][] + {\skv_ifempty{#1}{}{\setscratch{#1}}% + \sffamily% pas de \normalsize ici, bugfix 1.4 + \edef\scr_ex{\the\dimexpr1ex\relax}% valeur d'1ex pour le tracé de la flèche + \edef\scr_em{\the\dimexpr1em\relax}% + \scr_normalizedim\scr_corner corner[\scr_ex/3,\scr_ex]% + \scr_normalizedim\scr_notch notch[\scr_em/3,\scr_em*3]% + \scr_normalizedec\scr_scale scale[0.2,5]% échelle + \scr_normalizedim\scr_xsep x sep[0pt,\scr_em]% + \scr_normalizedim\scr_ysepsup y sepsup[1pt,\scr_ex*3]% + \scr_normalizedim\scr_ysepinf y sepinf[1pt,\scr_ex*3]% + \scr_normalizedim\scr_linewidth line width[0pt,5pt]% épaisseur des lignes soumises à l'échelle + \scr_normalizedim\scr_loopblockwidth loop width[3pt,\scr_em*3]% + \scr_normalizedim\scr_loopblockheight loop height[3pt,\scr_ex*3]% + \scr_normalizedec\scr_initarcangle init arcangle[20,40]% + \scr_normalizedim\scr_initarclength init arclength[\scr_em*3,\scr_em*8]% + \scr_normalizedim\scr_numsep num sep[0pt,\scr_em*3/2]% + \scr_normalizedec\scr_contrast contrast[0,100]% + \edef\scr_contrast{\number\numexpr100-\scr_contrast}% + \edef\scr_minwd{\the\dimexpr\scr_corner*4+\scr_notch*3-\scr_xsep*2}% + \edef\scr_valign{\useKV[\scrname]{baseline}}% + \scr_blocknum\number\numexpr\useKV[\scrname]{num start}\relax\relax + \setbox\scr_box\hbox{\scr_blockstrut}\edef\scr_blockstruttotht{\the\dimexpr\ht\scr_box+\dp\scr_box\relax}% haut totale du strut + \def\turnleft{\turn_arrow{}}\def\turnright{\turn_arrow{xscale=-1}}% + \let\blockmove \scr_blockmove \let\blocklook \scr_blocklook + \let\blocksound \scr_blocksound \let\blocklist \scr_blocklist + \let\blockpen \scr_blockpen \let\blockvariable \scr_blockvariable + \let\blockevent \scr_blockevent \let\blockinit \scr_blockinit + \let\blockrepeat \scr_blockrepeat \let\blockinfloop \scr_blockinfloop + \let\blockifelse \scr_blockifelse \let\blockif \scr_blockif + \let\blockinitclone\scr_blockinitclone \let\blockcontrol \scr_blockcontrol + \let\blocksensing \scr_blocksensing \let\blockmoreblocks\scr_blockmoreblocks + \let\namemoreblocks\scr_namemoreblocks + \scr_xoffset0pt \scr_yoffset0pt + \catcode`\:12 \catcode`\;12 \catcode`\!12 \catcode`\?12 \catcode`\_12 + \csname skv_\if c\expandafter\scr_firsttonil\scr_valign c\_nil first\else second\fi\endcsname + {% + \def\scr_scratchend{\egroup\egroup$}% + $\vcenter\bgroup\hbox\bgroup\begin{tikzpicture}[% + } + {% + \let\scr_scratchend\relax + \begin{tikzpicture}[ + baseline=(txt\scr_valign.base), + }% + transform shape, + line width=\scr_linewidth, + inner sep=0pt, + outer sep=0pt, + minimum size=0pt, + line cap=round, + scale=\scr_scale + ] + \node[shape=coordinate](origin){};% origine + }% + {% + \end{tikzpicture}% + \scr_scratchend + } + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu mouvement % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_blockmove{\scr_normalblock{scrmove}} +\newcommand*\ovalmove{% + \scr_ifstar + {\scr_ovalbox1{scrmove}} + {\scr_ovalbox0{scrmove}}% +} +\def\ovalnum#1{% #1=selection (1) ou pas (0) #2=couleur contour #3=texte + \begingroup + \ifnum\lastkern=\scr_ovalsentinel + \unkern + \kern-.66667ex\relax + \fi + \edef\scr_linewidth{\the\dimexpr\useKV[\scrname]{line width}\relax}% + \ifdefined\scr_current_blockcolor\else + \def\scr_current_blockcolor{black}% + \fi + \begin{tikzpicture}[ + baseline=(x.base), + x=1ex, + y=1ex, + inner ysep=0.25ex, + inner xsep=0.1ex, + line width=\scr_linewidth + ] + \node[ + line width=\scr_linewidth, + rounded rectangle, + draw={\ifboolKV[\scrname]{print}{scr_linegray}{\scr_current_blockcolor dd}}, + fill=white, + text=black + ] + (x) + {% + \useKV[\scrname]{pre text}\relax + \scr_ovalstrut + \kern\scr_ovalsentinel sp + #1% + \ifnum\lastkern=\scr_ovalsentinel + \unkern\kern-.66667ex\relax + \fi + };% + \end{tikzpicture}% + \endgroup + \kern\scr_ovalsentinel sp +} +\def\turn_arrow#1{\tikz[baseline=.25ex,x=6.5ex,y=6.5ex,#1]\draw[-{Triangle[angle=45:0.5ex 0.5ex,flex]},line width=.3333ex](0,0) arc[start angle=-80,end angle=190,radius=1ex];} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu apparence % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_blocklook{\scr_normalblock{scrlook}} +\newcommand*\ovallook{% + \scr_ifstar + {\scr_ovalbox1{scrlook}} + {\scr_ovalbox0{scrlook}}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu son % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_blocksound{\scr_normalblock{scrsound}} +\newcommand*\ovalsound{% + \scr_ifstar + {\scr_ovalbox1{scrsound}} + {\scr_ovalbox0{scrsound}}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu stylo % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newif\if_pen +\def\scr_drawpen{% dessin du crayon + \begin{tikzpicture}[ + rotate=45, + rounded corners=.4pt, + line width=.5pt, + x=5ex, + y=5ex, + radius=5ex, + baseline=4.5, + inner sep=0pt, + outer sep=0pt + ] + \draw[ + penline, + fill={\ifboolKV[\scrname]{print}{scr_linegray}{penblue}} + ] + (0,0)--(22:0.1)..controls(0.13,0.04)and(0.13,-0.04)..(-22:0.1)[sharp corners]--cycle; + \draw[ + penline, + fill=white, + rounded corners=.2pt + ] + (22:0.1)--(22:0.2)[rounded corners=0.05pt]--(.56,.07492)..controls(.62,0.04)and(.62,-0.04)..(.56,-.07492)[rounded corners=2pt]--(-22:.2)[rounded corners=0.05pt]--(-22:0.1)..controls(0.13,-0.04)and(0.13,0.04)..(22:0.1); + \draw[ + penline, + fill={\ifboolKV[\scrname]{print}{scr_linegray}{penblue}}, + rounded corners=.2pt + ] + (.56,.07492)--(.88,.07492)..controls(.92,0.04)and(.92,-0.04)..(0.88,-.07492)[sharp corners]--(.56,-.07492)..controls(.62,-0.04)and(.62,0.04)..cycle; + \draw[penline](.84,0.07492)..controls(.7,.24)and(.58,0.02)..(.5,0.16); + \filldraw[penline](.535,.17) circle [radius=1pt]; + \end{tikzpicture}% +}% +\def\scr_blockpen{\_pentrue\scr_normalblock{scrpen}} +\newcommand*\ovalpen{% + \scr_ifstar + {\scr_ovalbox1{scrpen}} + {\scr_ovalbox0{scrpen}}% +} +\newcommand*\pencolor[1]{% #1 est la couleur + \begin{tikzpicture}[ + baseline=(x.base), + x=1ex, + y=1ex, + inner ysep=0.25ex, + inner xsep=0.1ex + ] + \node[ + fill=#1, + draw=white, + rounded rectangle + ] + (x) + {\vrule height1.66667ex depth0.33333ex width0pt\hskip1em\hskip0pt}; + \end{tikzpicture}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu données % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_blockvariable{\scr_normalblock{scrvariable}} +\def\scr_blocklist{\scr_normalblock{scrlist}} +\newcommand*\ovalvariable{% + \scr_ifstar + {\PackageError\scrname{Starred macro \string\ovalvariable* has no sense}{}% + \scr_ovalbox1{scrvariable}% + } + {\scr_ovalbox0{scrvariable}% + }% +} +\newcommand*\ovallist{% + \scr_ifstar + {\PackageError\scrname{Starred macro \string\ovallist* has no sense}{}% + \scr_ovalbox1{scrlist}% + } + {\scr_ovalbox0{scrlist}% + }% +} +\newcommand*\boollist{\scr_boolbox{scrlist}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu événement % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_blockevent{\scr_normalblock{screvent}} +\def\scr_blockinit{\scr_initblock{screvent}} +\newcommand*\greenflag{% + \kern0.2em\relax + \begin{tikzpicture}[ + baseline=3pt, + sharp corners, + scale=0.4 + ] + \draw[ + line width=\scr_linewidth, + draw={\ifboolKV[\scrname]{print}{scr_flaggray}{flagcontour}}, + fill={\ifboolKV[\scrname]{print}{scr_flaggray!85!white}{greenflag}} + ] + (0,0.95)..controls(.4,1.4) and (.7,.7)..(1,1)--(1,.4)..controls(.7,0.1)and(.4,.8)..(0,.4)--cycle; + \filldraw[{\ifboolKV[\scrname]{print}{scr_flaggray}{flagcontour}}] + (-.1,0)rectangle(0,1); + \end{tikzpicture}% + \kern0.2em\relax\space +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu contrôle % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\def\scr_blockrepeat#1#2{\scr_blockloop{#1}{#2}{}01} +\def\scr_blockinfloop#1#2{\scr_blockloop{#1}{#2}{}11}% 1= texte #2=instructions dans la boucle +\def\scr_blockifelse#1#2#3{\scr_blockloop{#1}{#2}{#3}00}% 1= texte #2=instructions dans la boucle +\def\scr_blockif#1#2{\scr_blockifelse{#1}{#2}{}} +\def\scr_blockinitclone{\scr_initblock{scrcontrol}} +\def\scr_blockcontrol{\scr_normalblock{scrcontrol}} +\newcommand*\ovalcontrol{% + \scr_ifstar + {\scr_ovalbox1{scrcontrol}} + {\scr_ovalbox0{scrcontrol}}% +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu capteur % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newcommand*\ovalsensing{% + \scr_ifstar + {\scr_ovalbox1{scrsensing}} + {\scr_ovalbox0{scrsensing}}% +} +\def\scr_blocksensing{\scr_normalblock{scrsensing}} +\newcommand*\boolsensing{\scr_boolbox{scrsensing}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu opérateur % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newcommand*\ovaloperator{% + \scr_ifstar + {\PackageError\scrname{Starred macro \string\ovaloperator* has no sense}{}% + \scr_ovalbox1{scroperator}% + } + {\scr_ovalbox0{scroperator}% + }% +} +\newcommand*\booloperator{\scr_boolbox{scroperator}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% menu ajouter bloc % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\newcommand*\ovalmoreblocks{% + \scr_ifstar + {\PackageError\scrname{Starred macro \string\ovalomoreblocks* has no sense}{}% + \scr_ovalbox1{scroperator}% + } + {\scr_ovalbox0{scrmoreblocks}% + }% +}% +\def\scr_blockmoreblocks{\scr_normalblock{scrmoreblocks}} +\newcommand*\boolmoreblocks{\scr_boolbox{scrmoreblocksaux}} +\scr_restorecatcode +\endinput + +Versions : + _____________________________________________________________________________ +| Version | Date | Changements | +|---------+------------+------------------------------------------------------| +| 0.1 | 19/02/2019 | Première version | +|---------+------------+------------------------------------------------------| -- cgit v1.2.3