НЛО на звездном небе Опции

[Анастасия]

У меня вопрос по Visualpage. Cейчас рисую НЛО на фоне мерцающего неба. Проблема в том, что
когда с помощью putimage вставляю рандомайзом свой НЛО, затирается мое небо. Не уверена, поэтому хочу спросить,как мне сделать небо основным фоном(чтобы не затиралось). Наверное это связано с Visualpage.

[Анастасия]

Код

program ddd;
uses crt,graph;
var d,m,x,y:integer;
p:pointer;sz,x1,y1:word;i:integer;
begin
d:=detect;
initgraph( d,m,'d:\bp70\bgi' );
setviewport(0,0,640,80,true);
clearviewport;
setbkcolor(0);
        setcolor(15);
        setfillstyle(1,1);
       fillellipse(310,250,70,30);
       fillellipse(310,240,70,30);
        setfillstyle(1,14);
       fillellipse(270,270,20,20);
       fillellipse(350,270,20,20);
       fillellipse(370,250,20,20);
       fillellipse(250,250,20,20);
          arc(310,230,0,180,70);
        line(240,230,380,230);
        setfillstyle(1,5);
        floodfill(280,210,15);
         setfillstyle(1,12);
        floodfill(280,227,15);

         setcolor(0);

rectangle(200,150,400,300);
sz:=imagesize(200,150,400,300);
getmem(p,sz);
getimage(200,150,400,300,p^);

repeat
delay(5000);
    For i:=1 to 70 do
     begin
       PutPixel(Random(700),Random (500),White);end;
    putimage( random(640) ,random(400) ,p^,xorput);
delay(60000);
cleardevice;
until keypressed;

readln;
closegraph;
end.

Вот такая получилась программка, только не понятно, почему звезды просвечиваются через НЛО. Может и так сойдет... Вобщем не знаю.

Сообщение отредактировано: Анастасия - 4.03.2006 16:30