ASY-Forum

import graph;
import geometry;
 
usepackage("babel","french");
 
unitsize(1cm);
 
 
pair   u=(3*Cos(45),3*Sin(45)),
       v=(4,0),
       A=(-2.5,-1),
       B=shift(u)*A,
       C=shift(v)*B,
       D=shift(v)*A,
       O=(A+C)/2,
       S=O+(0,5);
 
//-- Définition de h, l'homothétie de centre S et de rapport 1.5 ---
transform h=scale(0.5,S);
//------------------------------------------------------------------
 
 
pen  couleur1=rgb(0.5,1,0.9),
     couleur2=rgb(0.10,0.55,0.17),
     couleur3=rgb(0.98,0.98,0.65), //Jaune clair
     couleur4=rgb(0.82,0.91,0.85), //Vert clair
     couleur5=rgb(0.7,0.84,0.77); //Vert plus foncé
 
 
path  plan=A--B--C--D--cycle;
 
 
fill(plan,couleur4);
fill(h*plan,couleur3);
 
 
draw(B--D,0.5bp+dashed);
draw(A--C,0.5bp+dashed);
 
draw(S--O,0.5bp+dashed);
 
draw(A--B,0.5bp+dashed);
draw(B--C,0.5bp+dashed);
draw(C--D,0.5bp+black);
draw(A--D,0.5bp+black);
 
draw(B--S,0.5bp+dashed);
draw(A--S,0.5bp+black);
draw(C--S,0.5bp+black);
draw(D--S,0.5bp+black);
 
 
draw(h*(A--B),0.5bp+dashed);
draw(h*(B--C),0.5bp+dashed);
draw(h*(C--D),0.5bp+black);
draw(h*(A--D),0.5bp+black);
 
 
 
dot("O",O,W);
dot("O1",O,E);
dot("O2",O,S);
dot("O3",O,N);
 
dot("S",S,N);
dot("A",A,W);
dot("D",D,SE);
dot("B",B,NW);
dot("C",C,SE);
dot("H",h*O,W);

size(100);
pair pairspredefinis[]={N,S,E,W,I,NE,NW,SE,SW,NNE,NNW,SSE,SSW,ENE,ESE,WNW,WSW};
for(pair p:pairspredefinis) dot(p);