Очень нужно сделать новый или отредактировать уже существующий рисунок PascalABC:GraphABC

[LibKing]

PascalABC:GraphABC
Помогите сделать рисунок в окне с разрешением 1280x720
Надо сделать домик и снеговика рядом с домиком,рисунок не маленький
Я сам попытался сделать рисунок,у меня получилось,но нужно сделать рисунок крупнее и с размером окна указанным выше. Помогите pls,буду благодарен.
Вот то, что получилось у меня,можно как то увеличить рисунок?

Код Pascal

program home;
uses GraphABC;
begin
floodfill(228,228,clskyblue);
setbrushcolor(clbrown);
rectangle(50,300,250,500);
line(50,300,151,200);
line(250,300,149,200);
floodfill(150,220,clmaroon);
setbrushcolor(clsilver);
rectangle(100,400,150,450);
rectangle(150,400,200,450);
rectangle(100,350,150,400);
rectangle(150,350,200,400);
SetBrushcolor(clsilver);
circle (600,50,40);
FloodFill (600,50,clyellow);
circle (400,330,20);
circle (400,380,30);
circle (400,450,40);
SetPixel(395,325,clblack);
SetPixel(405,325,clblack);
line(395,340,405,340);
end.

[FPaul]

Можно определить в самом начале масштабный коэффициент Mxy как соотношение 1280 к 480 (или в каком окне ваша прога). Далее все линейные размеры умножать на Mxy с округлением прямо по ходу программы.