избушка ( Графика, Paskal)

[aiktz]

у меня такое задание..нарисовать избушку в зимний вечер...избушку я нарисовала, а как нарисовать зимний вечер???? помогите плиз!(очень срочно!)

  program privet;
uses graph;
var
gd,gm,i,A,B,x,y:integer;
xx,yy,t:real;
begin
gd:=detect;
initgraph(gd,gm,'C:\TP7\BGI');
for i:=1 to 1000 do
begin
line(125,200,205,125);
line(205,125,290,200);
line(125,200,290,200);

line(125,200,125,325);
line(290,200,290,325);

line(125,325,290,325);
circle(205,175,13);
rectangle(245,270,170,225);
line(207,225,207,270);
line(170,247,245,247);
line(290,290,305,290);
line(305,290,305,305);

line(305,306,320,306);
line(320,325,320,307);
line(290,325,320,325);
line(160,325,160,420);

line(160,400,190,415);
line(160,400,135,415);


line(250,325,250,420);
line(250,400,220,415);
line(250,400,280,415);

Putpixel(x,y,red);

readln;
closegraph;
end;

[Sazary]

Во-первых, не поделитесь, зачем вам 1000 раз вырисовывать один и тот же домик? ))
Во-вторых, так устроит?

  program privet;
uses graph;
var
i,j,A,B,x,y:integer;
gd,gm : integer;
xx,yy,t:real;
begin
gd:=detect;
randomize;
initgraph(gd,gm,'C:\TP7\BGI');

 line(125,200,205,125);
 line(205,125,290,200);
 line(125,200,290,200);

 line(125,200,125,325);
 line(290,200,290,325);

 line(125,325,290,325);
 circle(205,175,13);
 rectangle(245,270,170,225);
 line(207,225,207,270);
 line(170,247,245,247);
 line(290,290,305,290);
 line(305,290,305,305);

 line(305,306,320,306);
 line(320,325,320,307);
 line(290,325,320,325);
 line(160,325,160,420);

 line(160,400,190,415);
 line(160,400,135,415);


 line(250,325,250,420);
 line(250,400,220,415);
 line(250,400,280,415);

for i:=1 to getmaxx do
 begin
 A := random(15);
 for j:=getmaxy downto 400-A do
  begin
  PutPixel(i,j,15);
  end;

 end;

readln;
closegraph;
end.

[aiktz]

очень мило..... а можно еще снежинки сверху?????

[Sazary]

а можно еще снежинки сверху?????

Например, так?

  program privet;
uses graph;
var
i,j,A,B,x,y:integer;
gd,gm : smallint;
xx,yy,t:real;
begin
//gd:=detect;
randomize;
initgraph(gd,gm,'');

 line(125,200,205,125);
 line(205,125,290,200);
 line(125,200,290,200);

 line(125,200,125,325);
 line(290,200,290,325);

 line(125,325,290,325);
 circle(205,175,13);
 rectangle(245,270,170,225);
 line(207,225,207,270);
 line(170,247,245,247);
 line(290,290,305,290);
 line(305,290,305,305);

 line(305,306,320,306);
 line(320,325,320,307);
 line(290,325,320,325);
 line(160,325,160,420);

 line(160,400,190,415);
 line(160,400,135,415);


 line(250,325,250,420);
 line(250,400,220,415);
 line(250,400,280,415);

for i:=1 to getmaxx do
 begin
 A := random(15);
 for j:=getmaxy downto 400-A do
  begin
  PutPixel(i,j,15);
  end;
 end;

for i:=1 to getmaxx do
 begin
 j := 1;
 while j<=getmaxy do
  begin
  PutPixel(i,j,15);
  A := random(40);
  inc(j,A);
  end;

 end;

readln;
closegraph;
end.

[aiktz]

спасибо вам!!!