doc/figures/hyperboloiderayonconstant.mp

   1 input mp-solid
   2
   3 outcolor:=0.5[jaune,white];
   4 incolor:=0.5[vert,white];
   5
   6 figureespace(-10u,-10u,10u,10u);
   7 Initialisation(500,30,20,25);
   8 a=20;b=36;h=8;
   9 zz=-h/2;
  10 ObjetNew1((sqrt(1+((zz+h)**2)/4),0,zz+h)
  11   for m=a downto 0:
  12     for n=if m=a:b-1 else:b fi downto 1:%if k=a:b-1 else:b fi downto 0:
  13       ,(sqrt(1+((zz+h*m/a)**2)/4)*cosd(n*(360 div b)),sqrt(1+((zz+h*m/a)**2)/4)*sind(n*(360 div b)),zz+h*m/a)
  14     endfor
  15   endfor
  16   )(4,a*b,b+a*b,b-1+a*b,a*b-1
  17   for m=a downto 1:
  18     for n=if m=a:m*b-1 else: m*b fi downto (m-1)*b+2:
  19       ,4,n,b+n,(b-1)+n,n-1
  20     endfor
  21     ,4,m*b+1,(m+1)*b,m*b,(m-1)*b+1
  22   endfor
  23   );
  24 Ferme1:=false;
  25 AffichageObjet1;
  26 finespace;
  27 end