3d, 3d пирамида-тень Опции

[stefi78]

Помогите пожалуйста , пирамиду нарисовала она вертится ,но должна отбрасывать тень и с тенью проблемы

Program laba1;
uses
	Graph,Crt;

type
  pyram=array[1..5] of record x,y,z,v:real end;

{verts-Є®®а¤Ё­ вл (xyz) ўҐаиЁ­ дЁЈгал}
const
 verts:pyram=(
 (x: 0 ; y:   0; z:  40; v:1),  {1-п ўҐаиЁ­ }
 (x: 40; y:   0; z:   0; v:1),  {2}
 (x: 0 ; y:   0; z: -40; v:1),  {3}
 (x:-40; y:   0; z:   0; v:1),   {4}
 (x:  0; y: - 90; z:   0; v:1) );{5}
 var
       c: char;
 Gd, Gm,i,yt : Integer;  {ѓа дЁЄ }

procedure DrawPyrS(c,xt,yt:Integer);
var
   i,midX,midY:Integer;
   c1: byte;
   ver:array[1..5] of PointType;
begin
   midX:= GetMaxX div 2;
   midY:= GetMaxY div 2;
   for i:=1 to 5 do
   begin
        ver[i].x:=round(verts[i].x)+Xt+midX;
        ver[i].y:=round(verts[i].y)+Yt+midY;
   end;
   SetColor( c );
   Line(ver[1].x, ver[1].y , ver[2].x, ver[2].y);
   Line(ver[1].x, ver[1].y , ver[4].x, ver[4].y);
   Line(ver[1].x, ver[1].y , ver[5].x, ver[5].y);
   Line(ver[2].x, ver[2].y , ver[3].x, ver[3].y);
   Line(ver[2].x, ver[2].y , ver[5].x, ver[5].y);
   Line(ver[3].x, ver[3].y , ver[4].x, ver[4].y);
   Line(ver[3].x, ver[3].y , ver[5].x, ver[5].y);
   Line(ver[4].x, ver[4].y , ver[ 5].x, ver[5].y);

end;


Procedure rotTxYz(a: Real; S: Real);{ўа 饭ЁҐ ў®ЄагЈ XYZ + Zoom}
Var
   ca,sa,y1,x1,z1: Real;
                i: Integer;
begin
     for i:=1 to 5 do
         begin
              ca:=cos(a);
              sa:=sin(a);
              x1:= verts[i].x*ca*ca +               verts[i].y*sa*ca +               verts[i].z*sa;
              y1:= verts[i].x*((-sa)*ca-ca*sa*sa) + verts[i].y*(ca*ca-sa*sa*sa) +    verts[i].z*ca*sa;
              z1:= verts[i].x*(sa*sa-ca*sa*ca) +    verts[i].y*((-ca)*sa-sa*sa*ca) + verts[i].z*ca*ca;
              verts[i].x:=x1*S;
              verts[i].y:=y1*S;
              verts[i].z:=z1*S;
         end
end;

begin
   {€­ЁжЁ «Ё§ жЁп Ја дЁЄЁ}
	   Gd:= Detect;
	   InitGraph(Gd, Gm, 'D:\progra~1\tp\BGI'); { Џгвм Є BGI ¤а ©ўҐа ¬ }
	   if GraphResult <> grOk then
			Halt;
   {ђЁб®ў ­ЁҐ}
      yt:=-170;
      repeat
             for i:=1 to 50
             do begin
             drawpyrS(2,0,yt);
             Delay(10000);
             drawpyrS(0,0,yt);
             rotTxYz(0.05,1.015);
             yt:=yt+6
                end;
             for i:=1 to 50
             do begin
             drawpyrS(2,0,yt);
             Delay(10000);
             drawpyrS(0,0,yt);
             rotTxYz(0.05,0.985);
             yt:=yt-6
                end


      until Keypressed;
      CloseGraph;
end.

выход esc когда пирамида находится в верхней точке

stefi78, с тегами лучше смотрится, правда?

Сообщение отредактировано: volvo - 2.11.2006 16:34

[Бравый генерал]

А, точно! Просто у меня там в корне и Vesa.tpu, и Vesa2.tpu, и Vesa256.tpu - уже не помню что к чему))) Вот, пожалуйста.