Графика на Paskal

[aiktz]

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

[Sazary]

как нарисовать веревочку к шарику??????.

Например, провести прямую линию от низа шарика.

можете сказать как придать движение объекту?

В цикле изменять координаты с задержкой.

[aiktz]

мне нужна волнистая веревка

[Sazary]

мне нужна волнистая веревка

Тогда выводите ее попиксельно. В качестве функции подойдет синусоида.
Можно еще рандомно получать смещение по горизонтали относительно предыдущей точки.

[aiktz]

вы не могли бы написать код для такой линии? а то я не знаю как ее нарисовать(((

[Sazary]

uses graph;
var
gd,gm : smallint; // для TP 7 заменить тип на integer
y,x,a : integer;
begin
randomize;
initgraph(gd,gm,'');
x := getmaxx div 2;
for y:=200 to 500 do
 begin
 x := x + random(3)-1;
 PutPixel(x,y,15);
 end;

readln;
closegraph;
end.

[aiktz]

спасибо!!!!!