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

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

Вообще-то я и не спорил с тобой (и ни с кем-либо еще). (По-моему ты придираешься ко мне). А слово "прямоугольно" я употребил вот почему. Ты сказал:

источник света - НАД пирамидой

На каком расстоянии? Слишком маленьким это расстояние быть не может, потому что источнику света пришлось бы постоянно двигаться за пирамидой, чтобы быть над ней. Значит ты имел ввиду "довольно высоко над пирамидой", а это - ПОЧТИ (если пренебречь маленьким углом) прямоугольная проекция. Ну что ж - я исправил предыдущий свой пост, раз это имело такое большое значение.