Копирование областей экрана

[DRAgon™]

Может подскажите,как сделать цикл с repeat, чтобы вышло на экран 10 снеговиков с помощью Копирования,например, есть 1 снеговик и надо его скопировать чтобы получить 10 снеговиков
че-т не получается сделать цикл
вот программка моя с циклом,

(USES  	Graph;
VAR		device, mode,x,y	: Integer;
			P			: pointer;
			Size		: Word;
BEGIN
	device := 0;
  InitGraph(device, mode, 'egavga.bgi');
			{Рисуем снеговика}

  Circle(35,40,5);
  Circle(35,70,10);
  Circle(35,100,15);
  Rectangle(20,50,30,60);
  Rectangle(40,50,50,60);

 {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}

	repeat
 size:=ImageSize(18,20,50,120);
	GetMem(P, Size);
	GetImage(18,20,50,120,P^);
	ReadLn;
	x:=85;
	PutImage(x,70, P^,2);
	x:=x+30;
	until x>400;


	ReadLn;
	CloseGraph
END.)

но когда я ее запускаю , то выходят только 2 снеговика,а когда много жму на клавиши у меня эти снеговики слепливаюся в одно целое,и получается какае-то фигня.
А вот программка без цикла ,но надо 10 раз скопировать и изменить в каждом 85 на 100 на 130 и.т.д

size:=ImageSize(18,20,50,120);
	GetMem(P, Size);
	GetImage(18,20,50,120,P^);
	ReadLn;
	PutImage(85,70, P^,2);

и тогда снеговиков 10 штук.
Подскажите please как сделать с циклом

[_-Re@l-_]

А тебе обязательно надо с помощью копирования?
Просто можно сделать одну процедуру рисования снеговика, а потом 10 раз её вызвать.

[DRAgon™]

Сообщение от _-Re@l-_

А тебе обязательно надо с помощью копирования?
Просто можно сделать одну процедуру рисования снеговика, а потом 10 раз её вызвать.

вот я тормоз,СпасЫбо

Сообщение от _-Re@l-_

А тебе обязательно надо с помощью копирования?
Просто можно сделать одну процедуру рисования снеговика, а потом 10 раз её вызвать.

стоп,так там же каждый раз должны быть другие координаты на снеговика(X)

[zumm]

Процедуру с аргументами пиши

[eoln]

Для этого рисование снеговика надо сделать в отдельной процедуре типа

procedure ris(x, y);
...
  Circle(x+35,y+40,5);
  Circle(x+35,y+70,10);
  Circle(x+35,y+100,15);
  Rectangle(x+20,y+50,x+30,y+60);
  Rectangle(x+40,y+50,x+50,y+60);

Теперь вызывать с разными значениями x и y. При этом уменьшается скорость работы, появляется больше мерцаний (если анимация используется).

В первоначальном варианте, хорошо что не вылетала. В цикле много раз выделять память, но не освобождалась - это плохо (особенно для Паскаля), да ещё и цикл бесконечный.

{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
 size:=ImageSize(18,20,50,120);
	GetMem(P, Size);
	GetImage(18,20,50,120,P^);
	x:=85;
  repeat
	PutImage(x,70, P^,2);
	x:=x+35;
  until x>400;
  freemem(P, Size);
	ReadLn;
	CloseGraph

[DRAgon™]

Ясно,еще раз спасибо

Щас начал делать игру (шашки) нарисовал пока доску, копирую 1 шашку просто посмотреть как прост скопируется ,и тут опс не в том месте ,все перепроверил ,всеравно не в том месте стоит,должна стоять в квадратике а она что-то выходит из-за него.Дапамагите кали ласка
вот программка ,черным цветом выделил,где копирую шашку

uses
  graph;
  Var i,j,x,y,x1,y1,device,mode:Integer;
  p:pointer;
  size:Word;
  begin
  device:=0;
  initgraph(device,mode,'egavga.bgi');
  y:=80;
  repeat
    Line(160,y,480,y);
    y:=y+40;
    until y>400;
     x:=160;
     repeat
     Line(x,80,x,400);
     x:=x+40;
     until x>480;
     rectangle(155,75,485,405);
     setfillstyle(1,yellow);
     y:=100;
     for i:=1 to 4 do begin
     x:=180;
     for j:=1 to 4 do begin
     floodfill(x,y,white);
     x:=x+80;
     end;
     y:=y+40;
     x:=220;
     for j:=1 to 4 do begin
     floodfill(x,y,white);
     x:=x+80;
     end;
     y:=y+40;
     end;

     setcolor(white);
     circle(220,300,20);
     setfillstyle(1,green);
     floodfill(220,300,white);
     setcolor(black);
     circle(220,300,16);
 size:=ImageSize(200,280,240,320);
     GetMem(P,size);
     GetImage(200,280,240,320,P^);
     x1:=300;
     repeat

     PutImage(x1,300,P^,2);
     x1:=x1+80;                                   {перескакиваем через клетку}
     until x1>480;
     freeMem(P,size);
    
     readln;
     closegraph
     end.

vse sdelal otboy

[_-Re@l-_]

Щас начал делать игру (шашки)

Ууууу....С искусственным интеллектом сложновато будет...

[Smitt&Wesson]

Сообщение от _-Re@l-_

Ууууу....С искусственным интеллектом сложновато будет...

Ну почему? Может человек создаёт просто шашечное поле, а играть будут люди, например по сети. Никакого интеллекта не надо.

[_-Re@l-_]

а играть будут люди, например по сети.

Это на паскале-то?По сети?

[DRAgon™]

Сообщение от Smitt&Wesson

Ну почему? Может человек создаёт просто шашечное поле, а играть будут люди, например по сети. Никакого интеллекта не надо.

Нет,играть будет человек с компом ,и в каждом раунде комп будет себя вести по-разному,не тупо подставлять шашки а смотреть куда их поставил человек и.т.д