koperfield

Помогите написать программу. Нужно нарисовать рыбу и сделать так, чтобы она плыла слева направо. Рыбу я нарисовал:
uses GraphABC;
begin
arc(110,360,100,45,160);
arc(110,220,100,200,315);
line(15,256,15,325);
circle(148,288,3);
line(180,290,165,290);
readln;
end.
Теперь нужно заставить её двигаться. А как?

Vladimir_S

К сожалению (для Вас - для меня "к счастью") с этим ужасом, именуемым PascalABC, дела никогда не имел и не собираюсь. Но в Turbo я решал бы эту задачу так: запихнул бы Вашу рыбку в процедуру с двумя параметрами: опорной горизонтальной координатой, к которой привязаны все прочие горизонтальные отсчеты, и цветом линий рыбки. А дальше организовал бы цикл: рисование рыбки, пауза, рисование той же рыбки цветом фона (рыбка исчезнет), сдвиг горизонтальной координаты, рисование рыбки и т.п.
Не знаю, можно ли так в этом... ну, в общем, в Паскале АВС.

AlexZir

Я бы реализовал движение через обращение к памяти, сначала зарезервировал память для хранения изображения, скопировал бы первое изображение в этот блок памяти, потом выводил бы последовательно через паузу с изменением координат рисунок сначала в режиме рисования, затем в режиме исключения. Это позволит избежать лишнего мерцания и существенно ускорит вывод, но, к сожалению, вряд ли заработает на PascalABC.

Но, чувствую, что мое предложение сейчас вызовет ужас в глазах топикстартера и мелкую дрожь во всех членах его тела

jax

а я предложил бы так даный код запустить,появится рыбка,сделать снимок экрана, уменьшить в редактори картинку,потом просто через фаил добавить в паскаль эту рыбку,соответствено с циклом,чтобы движение было. Я раньше так выкручивался))