blob: 3f1e8679d27340b20e425197cbcff6ee55d19316 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
%%%%
% Scratch
%%%%
\newlength{\longbarreheight}
\setlength{\longbarreheight}{2.1ex+3pt}
\newlength{\longbarredepth}
\setlength{\longbarredepth}{0.9ex+3pt}
\def\longbarre{\vrule height\longbarreheight depth\longbarredepth width0pt}%
\def\barre{\vrule height2.1ex depth.9ex width0pt}%
\def\demibarre{\vrule height1.4ex depth.6ex width0pt}%
\setKVdefault[Scratch]{Impression=false,Numerotation=false,Echelle=1,Naturel=false}%
\ifluatex
\NewDocumentEnvironment{Scratch}{o +b}{%
\useKVdefault[Scratch]%
\setKV[Scratch]{#1}%
\mplibforcehmode%
\ifboolKV[Scratch]{Naturel}{}{\myfontScratch}%
\begin{mplibcode}%
boolean Naturel;
Naturel=\useKV[Scratch]{Naturel};
if Naturel: input PfCPseudo; print:=true; else: input PfCScratch; print:=\useKV[Scratch]{Impression}; fi;
NumeroteLignes:=\useKV[Scratch]{Numerotation};%
#2%
picture recap;%
recap:=currentpicture scaled \useKV[Scratch]{Echelle};%
currentpicture:=nullpicture;%
draw recap;%
\end{mplibcode}%
}{}
\else%
\NewDocumentEnvironment{Scratch}{o +b}{%
\setKV[Scratch]{#1}%
\begin{mpost}[mpsettings={boolean Naturel;Naturel=\useKV[Scratch]{Naturel};if Naturel: input PfCPseudo; print:=true; else: input PfCScratchpdf; print:=\useKV[Scratch]{Impression}; fi;NumeroteLignes:=\useKV[Scratch]{Numerotation};Echelle:=\useKV[Scratch]{Echelle};}]%
#2%
picture recap;%
recap:=currentpicture scaled Echelle;%
currentpicture:=nullpicture;%
draw recap;%
\end{mpost}
}{}%
\fi%
|