Нарисовать данный узор в PascalABC

Что вот такое (один уголок неточно попал)

uses GraphABC;

begin
  SetWindowSize(640,480);
  SetPenColor(clRed);
  SetPenWidth(3);
  Line(100,100,330,380);
  Line(170,40,400,310);
  Line(100,300,350,90);
  Line(150,370,400,160);
  SetPenColor(clYellow);
  MoveTo(220,220);
  LineTo(255,265);
  LineTo(305,225);
  LineTo(270,180);
  LineTo(220,220)
end.