Merge branch 'master' of melusine.eu.org:mp-solid
[mp-solid.git] / doc / figures / Banane.mp
1 input mp-solid
2
3   vardef Transform(expr PT)=
4   save $ ; color $ ;
5   Xpart($)=0.6*Xpart(PT);
6   Ypart($)=0.6*Ypart(PT);
7   Zpart($)=1.75*Zpart(PT);
8   $
9 enddef ;
10
11 figureespace(-4u,-4u,4u,4u);
12 fill feuillet;
13 Initialisation(1500,-60,10,25);
14 nb:=24;
15 subh:=12;
16 outcolor:=jaune;
17 Objetsphere1("R=2");
18 AffichageObjet1;
19 finespace;
20
21 %2
22
23 figureespace(-4u,-4u,4u,4u);
24 %traits:=false;
25 fill feuillet;
26 Initialisation(1500,-60,10,25);
27 nb:=24;
28 subh:=12;
29 outcolor:=jaune;
30 Objetsphere1("R=2");
31
32 transformation:=true;
33 ObjetDeplacement2(1);
34
35 vardef Transform(expr PT)=
36     save $ ; color $ ;
37   angy:=10*(Zpart(PT));
38   $=RotXYZ(PT);
39     $
40 enddef ;
41
42 outcolor:=jaune;
43 ObjetDeplacement3(2);
44 AffichageObjet3;
45 finespace;
46
47 end

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.