Графика Паскаля

[ErnurN]

Вообще не понел как делать. Помогите кто сможет
Заштриховать экран линиями паралельными одной и его диагоналей.

[OCTAGRAM]

Диагональный отрезок рисуется как Line(0, 0, GetMaxX, GetMaxY);

Параллельные ей отрезки рисуются в цикле, смещая Y начала и конца на одно и то же значение. Минимальное смещение -GetMaxY, максимальное +GetMaxY.

[Stilet]

Все еще проще:

uses graph,crt;
const rad=50;

var b,a:Double;k,x,y,cx,cy,i:integer;s:string;
begin
 i:=detect;
 initgraph(i,x,'');
  setfillstyle(3,white);
  floodfill(10,10,2);
 readln;
  closegraph;
end.

[OCTAGRAM]

Это не параллельно диагонали экрана