графика Опции

[Spaun]

Нарисовать 5 вложенных друг в друга ромбов и закрасить каждый из ни разным цветом.
Вот что есть:

program lab;
uses crt,graph;

var gd,gm:integer;
    x1,x2,x3,y1,y2,y3,i:integer;
begin
     gd:=VGA;
     gm:=VGAhi;
     initgraph (gd,gm,'C:\tp7\tp7\BGI');
if graphresult = grOk then
begin
x1:=320;
x2:=520;
x3:=120;
y1:=10;
y2:=210;
y3:=410;
for i:=1 to 5 do
begin
line (x1,y1,x2,y2);
line (x3,y2,x1,y1);
line (x2,y2,x1,y3);
line (x1,y3,x3,y2);
y1:=y1+20;
y3:=y3-20;
x3:=x3+20;
x2:=x2-20;
SetColor(i);
SetFillStyle(2,i);
end;

readln;
closegraph;
end;
end.

подскажите как залить эти ромбы.

[Lapp]

подскажите как залить эти ромбы.

Ответ найдешь в программе ниже. Заодно усвоишь еще несколько полезных вещей, если захочешь..

uses
  Graph;

procedure Rhomb(x,y,a,b:integer; f:real);
begin
  MoveTo(Round(x+a*Cos(f)),Round(y+a*Sin(f)));
  LineTo(Round(x+b*Cos(f+Pi/2)),Round(y+b*Sin(f+Pi/2)));
  LineTo(Round(x+a*Cos(f+Pi)),Round(y+a*Sin(f+Pi)));
  LineTo(Round(x+b*Cos(f+3*Pi/2)),Round(y+b*Sin(f+3*Pi/2)));
  LineTo(Round(x+a*Cos(f)),Round(y+a*Sin(f)));
end;

var
  GrDr,GrMo: integer;
  i,x0,y0,a,b,c1,c2: integer;
  f,d: real;

begin
  GrDr:=0;
  GrMo:=0;
  InitGraph(GrDr,GrMo,'');
  x0:=GetMaxX div 2;
  y0:=GetMaxY div 2;
  a:=x0;
  b:=y0;
  d:=0.1;
  f:=-0.2;
  c1:=8;
  c2:=1;
  for i:=1 to 14 do begin
    SetColor(c1);
    SetLineStyle(SolidLn,0,3);
    SetFillStyle(SolidFill,c2);
    Rhomb(x0,y0,a,b,f);
    FloodFill(x0,y0,c1);
    a:=a div 5*4;
    b:=b div 5*4;
    f:=f+d;
    c1:=(c1+1)mod 16;
    c2:=(c2+1)mod 16;
  end;
  ReadLn;
  CloseGraph;
end.