заливка граней тетраэдра Опции

[18192123]

Объясните пожалуйста, как на основании ниже приведённой программы закрасить грани тетраэдра ( обычным способом, с помощью FloodFill или SetFillStyle или что-то в этом роде..)?

uses Graph,crt;
const tetr: array[0..11] of real =
       (1,0,0, 0,1,0, 0,0,1, -0.5,-0.5,-0.5);
     line_: array[0..11] of integer = (0,1, 0,2, 0,3, 1,2, 1,3, 2,3);
       var    xt,yt,zt:real;
    x,y,z:real;
    sx,sy,sx1,sy1,p,zoom: integer;

procedure draw(color:byte);
begin
 for p:=0 to 5 do begin
  sx:=round(zoom*tetr[line_[p*2]*3])+260;
  sy:=round(zoom*tetr[line_[p*2]*3+1])+300;
    sx1:=round(zoom*tetr[line_[p*2+1]*3])+260;
  sy1:=round(zoom*tetr[line_[p*2+1]*3+1])+300;
  setcolor(color);
  line(SX,SY,sx1,sy1);
 end;
end;

procedure calc;
begin
 for p:=0 to 3 do begin
  Yt := tetr[p*3+1] * COS(X) - tetr[p*3+2] * SIN(X);
  Zt := tetr[p*3+1] * SIN(X) + tetr[p*3+2] * COS(X);
  tetr[p*3+1] := Yt;
  tetr[p*3+2] := Zt;

  Xt := tetr[p*3] * COS(Y) - tetr[p*3+2] * SIN(Y);
  Zt := tetr[p*3] * SIN(Y) + tetr[p*3+2] * COS(Y);
  tetr[p*3] := Xt;
  tetr[p*3+2] := Zt;

  Xt := tetr[p*3] * COS(Z) - tetr[p*3+1] * SIN(Z);
  Yt := tetr[p*3] * SIN(Z) + tetr[p*3+1] * COS(Z);
  tetr[p*3] := Xt;
  tetr[p*3+1] := Yt;
 end;
end;


var
 gd,gm:integer;
 t:char;
begin
 gd:=detect; initgraph(gd,gm,'');
 Z :=  0.1;
 Y :=  0.1;
 X :=  0.1;
 zoom:=70;

 repeat
  draw(15);
  delay(20000);
  draw(0);
  calc;
  if keypressed then begin
   t:=readkey;
   case t of
    '=':zoom:=zoom+1; {+}
    '-': zoom:=zoom-1;{-}
   end;
  end
 until t=#13;;
 closegraph;
end.

Сообщение отредактировано: 18192123 - 25.04.2007 21:24

[klem4]

FloodFill'ом не получится, у тебя линии не соединены, между ними есть промежутки ... Собственно эту проблему я думаю и надо решить, а залить-то уже не сложно.

Например вот такой код:

SetFillStyle(SolidFill, Red);
FloodFill(260, 295, white);

Должен заливать только верхнюю грань, но так как какая-то из пар линий принадлежащих этому ребру пересекаются не в одной точке, точнее говоря отрезки эти не пересекаются, по этому не создают замкнутого пространства которое можно залить, этого не происходит