Turbo Pascal (Borland Pascal) 7.0. Руководство пользователя


Создание иллюзии движения - часть 4


Repeat {цикл: повторять, пока не нажата любая клавиша}

PutImage(x, y, sauser^, XorPut); {изображаем объект}

Delay (Pause);{ задержка}

PutImage(x, y, sauser^, XorPut); {после паузы стираем объект}

{перемещаем объект}

If (x xm) Or (y+Height +1> ym) Then

begin {если объект смещается влево-вверх за границы окна, изменить координаты так, чтобы он оставался в окне}

If (x- Dx< xmin) then x:= xmin else x := x- Dx;

If (y- Dy< ymin) then y:= ymin else y := y- Dy;

Dx:= GetmaxX div 10 -





- Начало -  - Назад -  - Вперед -