blob: dc1fd8e9937d44db63c1322d9d5eb0a1d3bc0260 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
%%%
% Geometrie
%%%
\setKVdefault[Geometrie]{CoinBG={(0,0)},CoinHD={(10u,10u)},TypeTrace="Instruments"}%
\ifluatex
\NewDocumentEnvironment{Geometrie}{o +b}{%
\useKVdefault[Geometrie]%
\setKV[Geometrie]{#1}%
\mplibforcehmode
\begin{mplibcode}
% input PfCMPFr;
pair Coinbg,Coinhd;
Coinbg=\useKV[Geometrie]{CoinBG};
Coinhd=\useKV[Geometrie]{CoinHD};
if \useKV[Geometrie]{TypeTrace}="Instruments":
typetrace:="normal";
elseif \useKV[Geometrie]{TypeTrace}="MainLevee":
typetrace:="mainlevee";
elseif \useKV[Geometrie]{TypeTrace}="Espace":
typetrace:="3D";
typerepre:="persp";
fi;
xa=xpart(Coinbg);
xb=xpart(Coinhd);
ya=ypart(Coinbg);
yb=ypart(Coinhd);
feuille(xa,ya,xb,yb);
_tfig:=if (xb-xa)>(yb-ya): (xb-xa) else: (yb-ya) fi;
_tfig:=2*_tfig;
#2%
\end{mplibcode}
}{}
\else
\NewDocumentEnvironment{Geometrie}{o +b}{%
\useKVdefault[Geometrie]%
\setKV[Geometrie]{#1}%
\begin{mpost}[mpsettings={
pair Coinbg,Coinhd;
Coinbg=\useKV[Geometrie]{CoinBG};
Coinhd=\useKV[Geometrie]{CoinHD};
if \useKV[Geometrie]{TypeTrace}="Instruments":
typetrace:="normal";
elseif \useKV[Geometrie]{TypeTrace}="MainLevee":
typetrace:="mainlevee";
elseif \useKV[Geometrie]{TypeTrace}="Espace":
typetrace:="3D";
typerepre:="persp";
fi;}
]%
xa=xpart(Coinbg);
xb=xpart(Coinhd);;
ya=ypart(Coinbg);
yb=ypart(Coinhd);
feuille(xa,ya,xb,yb);
_tfig:=if (xb-xa)>(yb-ya): (xb-xa) else: (yb-ya) fi;
_tfig:=2*_tfig;
#2%
\end{mpost}
}{}
\fi%
|