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 20:34

[stefi78]

ИСТОЧНИК СВЕТА ПЕРЕД ПИРАМИДОЙ

Т.Е. ГЛАЗА (ЧЕЛОВЕКА КОТОРЫЙ СМОТРИТ НА ЭКРАН) ЯВЛЯЮТСЯ ЛАМПОЙ

[Lapp]

ИСТОЧНИК СВЕТА ПЕРЕД ПИРАМИДОЙ

Т.Е. ГЛАЗА (ЧЕЛОВЕКА КОТОРЫЙ СМОТРИТ НА ЭКРАН) ЯВЛЯЮТСЯ ЛАМПОЙ

stefi78, если источник света действительно находится в точке, из которой смотрят (предполагается, по-видимому, что глаз один), то смотрящий никогда не увидит тени. Независимо от того, какая поверхность сзади - стена, лес - тень всегда будет загорожена самим предметом. Нужно это пояснять или понятно и так?
Кроме того, обычно проще (по крайней мере для начала) иметь бесконечно удаленный источник света. Тогда лучи от него будут параллельны друг другу, и нужно задать только угол их падения. Такая ситуация совершенно реальна - например, именно так устроена тень в солнечном свете.

Далее, кроме источника света, нужно задать поверхность, на которую падает тень. Если такой поверхностью является, грубо говоря, земля (пол), и Солнце светит точно из зенита, то тенью будет являться простая проекция пирамиды на плоскость z=0, то есть достаточно занулить вертикальную координату, и ты получишь тень. Но тут есть одно "но", про которое уже упоминал Бравый генерал. А именно: вся тень выродится в линию, так как горизонтальная плоскость строго перпендикулярна экрану и все ее изображение есть одна линия. Чтобы увидеть ее - Бравый генерал прав - надо вводить перспективу. Но это тема для отдельного разговора..

Мудрено я выражаюсь?.. Спрашивай, если что непонятно.