Source : generationcone.mp

prologues:=2;
input geometriesyr16
vues:=20;
marque_p:="plein";
for vue=0 upto vues:
  figureespace(-5u,-2.5u,5u,7u);
  trace feuillet withcolor blanc;
  Initialisation(5,10,40,350);
  color A,B,E,F,C[],D[];
  B=(0,0,0);
  A-B=(0,0,1.75);
  E-B=(1,0,0);
  F-B=(0,1,0);
  drawarrow cercles(A+(0,0,0.5),(0.2,0,0)+A+(0,0,0.5),A+(0,0,0.5),(0.2,0,0)+A+(0,0,0.5),(0,0.2,0)+A+(0,0,0.5)) dashed evenly;
  trace droite(A,B) dashed dashpattern(on12bp off6bp on3bp off6bp) withcolor gris;
    drawoptions(withcolor orange);
  for l=0 step 5 until (vue*360/vues):
    C[l div 5]-B=Distance(B,E)*((E-B)*cosd(l)/Distance(B,E)+(F-B)*sind(l)/Distance(B,F));
    trace polygone(A,B,C[l div 5]) dashed evenly;
    %trace codeperp(A,B,C[l div 5],5);
  endfor;
  drawoptions();
  trace Projette(C[0])
  for l=5 step 5 until (vue*360/vues):
    ..Projette(C[l div 5])
  endfor;
  transparence polygone(A,B,C[(vue*360/vues) div 5]);
  trace polygone(A,B,C[(vue*360/vues) div 5]);
  finespace;
endfor;
end