Додекаэдр

[lDrakonl]

Всем доброго времени суток.
Есть задача на паскале:
Нарисовать матовый цветной освещенный солнцем додекаэдр.
Собственно вопрос как нарисовать этот самый додекаэдр.

Додека́эдр — правильный многогранник, составленный из двенадцати правильных пятиугольников. Каждая вершина додекаэдра является вершиной трёх правильных пятиугольников.

Нашел что-то похожее на координаты, но разобратся с ними так и не смог(ресурс англоязычный) - http://www.scienceu.com/geometry/fac...ds/dodeca.html

[lDrakonl]

Додекаедр побежден.

Додекаедр стрится вокруг куба. Более подробно тут - http://www.slidefinder.net/М/МОУ_Ела..._школа/3373334

Освещенность гранией определяется по формуле:
I= kр *Iр + kн* Iн*cos ,

где I - яркость поверхности;
kр - коэффициент отражения рассеянного света (kд<1);
kн - коэффициент отражения направленного света;
Iр - интенсивность рассеянного света;
Iн - интенсивность падающего света;
 - угол между направлением света и нормалью к поверхности.

Для построения исспользуется изометрическая проекция.
Закрашиваются только видимые грани. Названия процедур помоему досточно говорящие чтобы можно было разобратся.
{------------------------------------------------}

PHP код:

program Dodik;
uses
   Graph, crt;
type
   t3Dpoint = record
      X, Y, Z: real;
   end;
   t2DPoint = record
      X, Y: integer;
   end;
   tPlane = record
      A, B, C, D: real;
      P: array [0..4] of t3DPoint;
   end;
   tPlanes = array [1..12] of tPlane;

Const
   Sx =  1000;
   Sy =  500;
   Sz =  1000  ;
   Kp =  0.9;
   Ip =   15;
   Kn =  0.8;
   Inn = 60;
var
   D: array [1..20] of t3DPoint;
   Pl: tPlanes;


{----------------------------------------------}
procedure CreatePlane(P1, P2, P3, P4, P5: t3DPoint; var Pl: tPlane);
var
   p, q: t3DPoint;
begin
   Pl.P[0] := P1;
   Pl.P[1] := P2;
   Pl.P[2] := P3;
   Pl.P[3] := P4;
   Pl.P[4] := P5;
   p.X := P2.X - P1.X; p.Y := P2.Y - P1.Y; p.Z := P2.Z - P1.Z;
   q.X := P3.X - P1.X; q.Y := P3.Y - P1.Y; q.Z := P3.Z - P1.Z;
   Pl.A :=  p.Y*q.Z - q.Y*p.Z;
   Pl.B := -p.X*q.Z + q.X*p.Z;
   Pl.C :=  p.X*q.Y - q.X*p.Y;
   Pl.D := -Pl.A*P1.X - Pl.B*P1.Y - Pl.C*P1.Z;
   if Pl.D >= 0 then begin
      Pl.A := -Pl.A; Pl.B := -Pl.B; Pl.C := - Pl.C;
      Pl.D := -Pl.A*P1.X - Pl.B*P1.Y - Pl.C*P1.Z;
   end;
end;
{----------------------------------------------}
procedure Proection(P3: t3DPoint; var P2: t2DPoint);
begin
   P2.X := round(sqrt(3)*(P3.Y - P3.X)/2);
   P2.Y := round(P3.Z - (P3.X + P3.Y)/2);
end;
{----------------------------------------------}
procedure Scale(var P: t2DPoint);
begin
   P.X := P.X + GetMaxX div 2;
   P.Y := GetMaxY div 2 - P.Y;
end;
{----------------------------------------------}
Function Intensity(u, v, w : real): integer;
Var
   CosA : real;
   x, y, z : real;
Begin
   x:= sx - u;
   y:= sy - v;
   z:= sz - w;
   CosA:= (x*u + y*v + z*w) /
           ((Sqrt(u*u + v*v +w*w)*sqrt(x*x + y*y + z*z)));
   if CosA < 0 then
      CosA:= 0;
   intensity := trunc(Kp*Ip + Kn *Inn*cosA);
end;
{----------------------------------------------}
Procedure drawPlane(j : integer);
Var
   P    : t2DPoint;
   P3   : t3DPoint;
   a    : array[0..4] of t2DPoint;
   i    : integer;
   x, y, z : real;
   c    : integer;
Begin
   x:= 0;
   y:= 0;
   z:= 0;
   for i:= 0 to 4 do begin
         x:= x + Pl[j].P[i].x;
         y:= y + Pl[j].P[i].y;
         z:= z + Pl[j].P[i].z;
         Proection(Pl[j].P[i], P);
         Scale(P);
         a[i].x:= p.x;
         a[i].y:= p.y;
    end;
   x:= x/5;
   y:= y/5;
   z:= z/5;
   c:= Intensity(x, y, z);
   SetColor(c);
   SetFillStyle(1, c);
   FillPoly(5, a);
end;
{----------------------------------------------}
procedure Draw(a: real);
var
   P    : t2DPoint;
   i, j : integer;
   P3   : t3DPoint;
begin
   P3.Z := a; P3.X := a; P3.Y := a;
   for j := 1 to 12 do
      if Pl[j].A*P3.X + Pl[j].B*P3.Y + Pl[j].C*P3.Z > 0 then begin
         drawPlane(j);
      end;
end;
{----------------------------------------------} 


[lDrakonl]

PHP код:

{----------------------------------------------}
procedure CreateDod(a: real);
var
   b, h, h1: real;
   i: integer;
begin
   b := a*sin(108*pi/180)/sin(36*pi/180);
   h := sqrt(3/4*a*a - b*b/2 + a*b/2);
   h1 := (b - a)/2;
   D[1].X :=  b/2; D[1].Y :=      b/2; D[1].Z :=     b/2;
   D[2].X :=    0; D[2].Y := b/2 - h1; D[2].Z := b/2 + h;
   D[3].X := -b/2; D[3].Y :=      b/2; D[3].Z :=     b/2;
   for i := 1 to 3 do begin
      D[6-i+1].X := D[i].X; D[6-i+1].Y := -D[i].Y; D[6-i+1].Z := D[i].Z;
   end;
   for i := 1 to 6 do begin
      D[12-i+1].X := D[i].X; D[12-i+1].Y := D[i].Y; D[12-i+1].Z := -D[i].Z;
   end;
   D[13].X :=  D[2].Z; D[13].Y := D[2].X; D[13].Z := D[2].Y;
   D[14].X :=  D[5].Z; D[14].Y := D[5].X; D[14].Z := D[5].Y;
   D[15].X := -D[2].Z; D[15].Y := D[2].X; D[15].Z := D[2].Y;
   D[16].X := -D[5].Z; D[16].Y := D[5].X; D[16].Z := D[5].Y;

   D[17].X := D[2].Y; D[17].Y :=  D[2].Z; D[17].Z := D[2].X;
   D[18].X := D[5].Y; D[18].Y :=  D[5].Z; D[18].Z := D[5].X;
   D[19].X := D[2].Y; D[19].Y := -D[2].Z; D[19].Z := D[2].X;
   D[20].X := D[5].Y; D[20].Y := -D[5].Z; D[20].Z := D[5].X;
end;
{----------------------------------------------}
procedure CreatePlanes(dang: real);
begin
   CreatePlane(D[ 1], D[ 2], D[ 5], D[ 6], D[13], Pl[ 1]);
   CreatePlane(D[ 3], D[ 2], D[ 5], D[ 4], D[15], Pl[ 2]);
   CreatePlane(D[16], D[ 9], D[ 8], D[11], D[10], Pl[ 3]);
   CreatePlane(D[ 8], D[11], D[12], D[14], D[ 7], Pl[ 4]);
   CreatePlane(D[ 1], D[13], D[14], D[12], D[17], Pl[ 5]);
   CreatePlane(D[13], D[14], D[ 7], D[19], D[ 6], Pl[ 6]);
   CreatePlane(D[16], D[15], D[ 3], D[18], D[10], Pl[ 7]);
   CreatePlane(D[16], D[15], D[ 4], D[20], D[ 9], Pl[ 8]);
   CreatePlane(D[17], D[18], D[ 3], D[ 2], D[ 1], Pl[ 9]);
   CreatePlane(D[17], D[18], D[10], D[11], D[12], Pl[10]);
   CreatePlane(D[19], D[20], D[ 4], D[ 5], D[ 6], Pl[11]);
   CreatePlane(D[19], D[20], D[ 9], D[ 8], D[ 7], Pl[12]);
end;
{----------------------------------------------}
procedure GraphInit;
var
   GD, GM: integer;
   i : integer;
begin
   GD := installUserDriver('svga256', nil);
    GM := 2;
   InitGraph(GD, GM, '');
   if GraphResult <> grOK then begin
      writeln('ќв® ®зҐ*м *Ґ е®а®иЁ© Є®¬ЇмовҐа, ** *с¬ Ја*дЁЄ* *Ґ а*Ў®в*Ґв...');
      readln;
      halt(1);
   end
   else
      for i:= 0 to 255 do
         SetRgbPalette(i, i, 0, i);
end;
{----------------------------------------------}
var
   a, ang: real;
begin
   writeln('‡*¤*©вҐ ¤«Ё*г аҐЎа* ЄгЎ*');
   readln(a);
   GraphInit;
   CreateDod(a);
   CreatePlanes(pi/180);
   Draw(a);
   readln;
   CloseGraph;
end. 


ЗЫ
Всем поколениям ПриМата и Дяде Сереж привет!