Pascal-rysunek

kajtek603 [ International Level ]

Pascal-rysunek

Witam
Mam problem już nie wyrabiam z tym pascalem. O to program:

program grafka;
uses crt,graph;
var x,y:integer;
begin
clrscr;
detectgraph(x,y);
initgraph(x,y,' ');
rectangle(200,200,1050,800);
setcolor(green);
rectangle(200,780,1050,800);
setcolor(blue);
rectangle(250,580,450,780);
setcolor(green);
line(230,780,230,750);
line(210,780,210,750);
line(460,780,460,750);
line(480,780,480,750);
line(500,780,500,750);
line(520,780,520,750);
line(580,780,580,750);
line(600,780,600,750);
line(620,780,620,750);
line(640,780,640,750);
line(660,780,660,750);
line(680,780,680,750);
line(700,780,700,750);
line(740,780,740,750);
line(760,780,760,750);
line(780,780,780,750);
line(800,780,800,750);
line(820,780,820,750);
line(840,780,840,750);
line(860,780,860,750);
line(880,780,880,750);
line(900,780,900,750);
line(1000,780,1000,750);
line(1020,780,1020,750);
line(1040,780,1040,750);


setcolor(yellow);
rectangle(270,650,310,600);
rectangle(390,650,430,600);
rectangle(320,780,370,700);
line(230,600,350,450);
line(470,600,350,450);
line(410,520,410,470);
line(410,470,440,470);
line(440,560,440,470);

setcolor(brown);
circle(450,430,20);
circle(500,390,20);
circle(550,350,20);

setcolor(brown);
rectangle(700,600,720,780);
setcolor(green);
circle(710,540,60);

setfillstyle(2,blue);
fillellipse(350,270,80,50);
fillellipse(600,270,80,50);
fillellipse(850,270,80,50);

setcolor(white);
line(290,340,290,391);
line(250,400,250,450);
line(230,300,230,350);
line(360,350,360,400);
line(400,360,400,410);
line(450,350,450,310);
line(500,500,500,450);
line(550,430,550,490);
line(600,350,600,390);
line(650,320,650,350);
line(630,400,630,450);
line(780,450,780,400);
line(720,350,720,400);
line(690,400,690,450);
line(850,340,850,400);
line(880,440,880,490);
line(930,400,930,450);
line(900,320,900,350);
line(980,260,980,300);
line(990,350,990,400);
line(1000,400,1000,450);

setfillstyle(1,white);
fillellipse(950,730,40,50);
circle(950,650,30);
circle(940,640,5);
circle(960,640,5);
line(900,700,950,660);
line(950,650,950,660);
line(950,650,900,700);
setcolor(brown);
rectangle(1000,590,900,620);
rectangle(980,550,920,590);

setfillstyle(1,green);
fillellipse(550,740,20,40);
setcolor(blue);
setfillstyle(2,brown);
circle(550,680,20);
setcolor(blue);
line(600,700,550,750);
setfillstyle(1,brown);
circle(530,660,10);
circle(570,660,10);
circle(560,675,5);
circle(540,675,5);


setlinestyle(1,1,1);
setcolor(white);
line(540,690,510,691);
line(540,684,510,685);
line(560,690,590,691);
line(560,684,590,685);

repeat until keypressed;
closegraph;
end.


Otóż chcę wypełnić dom i daje red a to mi tylko kontur koloruje i jeszcze na niebiesko tak samo mam z bałwanem i kotem, o co chodzi bo już nie wyrabiam. Proszę o pomoc :)

grabas [ Pretorianin ]

ale tobie sie nudzi