doc/figures/rubansinus.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 Initialisation(500,60,20,25);
   5 nb:=10; subh:=26;
   6 eclairage:=false;
   7 outcolor:=blanc;
   8 Objetgrille1("am=-5","an=5","bm=-13","bn=13");
   9 AffichageObjet1;
  10 eclairage:=true;
  11 outcolor:=0.5[rouge,blanc];
  12 incolor:=0.5[vert,blanc];
  13 subh:=3;
  14 ObjetRuban2("h=2")(for t=-4*pi step (pi/12) until 47*pi/12:(2*sin(t),t,0), endfor(0,4*pi,0));
  15 AffichageObjet2;
  16 TraceAxes;
  17 finespace;
  18 end