Анимация в Pascal.

program animation;

uses crt,graph;

var x,y,z,ax,ay,bx,by,step,gd,gm : integer;



begin



{inicializacia grafiki,drivera}

gd:=detect;

initGraph(gd,gm,'C:\BP\BGI\'); {pascal doljen bit' ustanovlen v C:\BP\}



{Doroga}

line (0,200,640,200);

line (0,300,640,300);

... И так далее

Цель работы состоит в том, чтобы изобразить движение двух автомобилей на встречу друг другу, на фоне дороги и домов.



Анимация выполнена, путем по кадровой прорисовки каждого положения автомобилей, выполнение задержки, стирание кадра, и прорисовки нового и т.д.

Поляков Д.Б., Круглов И.Ю. Программирование в среде Турбо Паскаль 7. - М:., МАИ, 1992. - 576 с.