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

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

Ага, т.е. тень вроде как на стену падает, да? Если тебе не срочно, то я напишу или сегодня ночью или завтра утром эту прогу, только немного по-другому, по своему (у тебя код немного неудобный)! (Мне самому интересно)

P.S. Здесь прямоугольную проекцию сделать легче всего, но она будет полезной (и то, совсем немного, так как тень будет лишь немного отступать от изображения пирамиды) только при наличии перспективы. Так что нужно брать за источник света точку, коей является центр экрана и оттуда проводить во все вершины лучи до пересечения со стеной.

[stefi78]

если сделаешь буду благодарна
в паскале я еще тот спец
если питерский с меня пиво