Modification des pages de gardes de la documentation.
[mp-solid.git] / doc / figures / fuseetintin.mp
1 input mp-solid;
2
3 vardef Transform(expr PT)=RotX(RotY(RotZ(PT)))
4 enddef;
5
6 transformation:=true;
7
8 %30"
9 figureespace(-10u,-10u,10u,10u);
10 fill feuillet;
11 for k=1 upto 100:
12   fill fullcircle scaled (2*uniformdeviate(1)*mm) shifted((uniformdeviate(1))[coinbg,coinbd]+uniformdeviate(1)*(coinhg-coinbg)) withcolor jaune;
13 endfor;
14
15 Initialisation(500,-50,20,50);
16 unit:=0.2;
17 traits:=false;
18 angx:=-80;
19 angy:=20;
20 outcolor:=rouge;
21 path rocket[];
22 rocket1=(0,4.6)--(-0.8,4.6)--(-0.85,5.6)--(-0.95,6.6)--(-1.05,7.6)--(-1.1,8.6)--(-1.2,9.6);
23 rocket2=(-1.2,9.6)--(-1.25,10.6)--(-1.3,11.6)--(-1.35,12.6)--(-1.4,13.6)--(-1.4,14.6)--(-1.375,15.6)--(-1.27,16.6)--(-1.2,17.6)--(-1.05,18.6);
24 rocket3=(-1.05,18.6)--(-0.85,19.6)--(-0.65,20.6)--(-0.35,21.6)--(-0.1,22.2)--(-0.1,23.75)--(0,23.75);
25 subh:=24;
26 path propulsion;
27 propulsion=(0,4.6)--(-0.8,4.6)--(0,0);
28 perso1:=true;
29 Ferme1:=false;
30 string couleurperso;
31 couleurperso="if ((tapj mod 48)=0) or ((tapj mod 48)=1) or ((tapj mod 48)=2) or ((tapj mod 48)=6) or ((tapj mod 48)=7) or ((tapj mod 48)=8) or ((tapj mod 48)=12) or ((tapj mod 48)=13) or ((tapj mod 48)=14) or ((tapj mod 48)=18) or ((tapj mod 48)=19) or ((tapj mod 48)=20) or ((tapj mod 48)=27) or ((tapj mod 48)=28) or ((tapj mod 48)=29) or ((tapj mod 48)=33) or ((tapj mod 48)=34) or ((tapj mod 48)=35) or ((tapj mod 48)=39) or ((tapj mod 48)=40) or ((tapj mod 48)=41) or ((tapj mod 48)=45) or ((tapj mod 48)=46) or ((tapj mod 48)=47):red else: white fi;";
32 ObjetAnneau1("nbp=10",rocket2);
33 outcolor:=rouge;
34 for k=3 upto 6:
35   Ferme[k]:=true;
36 endfor;
37 incolor:=0.5[jaune,orange];
38 Ferme2:=false;
39 ObjetAnneau2("nbp=7",rocket1);
40 ObjetAnneau3("nbp=7",rocket3);
41 Ferme10:=true;
42 outcolor:=0.5[jaune,orange];
43 ObjetAnneau10("nbp=3",propulsion);
44 outcolor:=rouge;
45 path amortisseur;
46 amortisseur=for k=-90 step 10 until 0:(cosd(k),sind(k)+1)--endfor for k=0 step 2 until 22:(cosd(k)*11.78-10.78,11.78*sind(k)+1)-- endfor (0,5.75);
47 TR:=Image((0,-5,0));
48 ObjetAnneau4("nbp=22",amortisseur);
49 angz:=120;
50 TR:=(0,0,0);
51 TR:=Image((0,-5,0));
52 ObjetAnneau5("nbp=22",amortisseur);
53 angz:=-120;
54 TR:=(0,0,0);
55 TR:=Image((0,-5,0));
56 ObjetAnneau6("nbp=22",amortisseur);
57 TR:=(0,0,0);
58 angz:=0;
59 subh:=1;
60 ObjetBiface7((0,-0.8,4.6),(0,-0.85,5.6),(0,-0.95,6.6),(0,-1.05,7.6),(0,-1.1,8.6),(0,-1.2,9.6),(0,-2,9.2),(0,-3,8.3),(0,-4,7.2),(0,-5,5.75),(0,-4.5765,4.6402),(0,-4.35,3.8498),(0,-4.1789,3.0456),(0,-4.0645,2.2313),(0,-4.0072,1.4111),(0,-4,1),(0,-3.2,2.2),(0,-2.5,3),(0,-1.6,4));
61 angz:=120;
62 ObjetBiface8((0,-0.8,4.6),(0,-0.85,5.6),(0,-0.95,6.6),(0,-1.05,7.6),(0,-1.1,8.6),(0,-1.2,9.6),(0,-2,9.2),(0,-3,8.3),(0,-4,7.2),(0,-5,5.75),(0,-4.5765,4.6402),(0,-4.35,3.8498),(0,-4.1789,3.0456),(0,-4.0645,2.2313),(0,-4.0072,1.4111),(0,-4,1),(0,-3.2,2.2),(0,-2.5,3),(0,-1.6,4));
63 angz:=-120;
64 ObjetBiface9((0,-0.8,4.6),(0,-0.85,5.6),(0,-0.95,6.6),(0,-1.05,7.6),(0,-1.1,8.6),(0,-1.2,9.6),(0,-2,9.2),(0,-3,8.3),(0,-4,7.2),(0,-5,5.75),(0,-4.5765,4.6402),(0,-4.35,3.8498),(0,-4.1789,3.0456),(0,-4.0645,2.2313),(0,-4.0072,1.4111),(0,-4,1),(0,-3.2,2.2),(0,-2.5,3),(0,-1.6,4));
65 nbobj:=10;
66 DessineFusion;
67 clip currentpicture to (fullcircle scaled 16cm);
68 finespace;
69 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.