Анімація в Delphi 7.0, Детальна інформація

Анімація в Delphi 7.0
Тип документу: Реферат
Сторінок: 8
Предмет: Комп`ютерні науки
Автор: Олексій
Розмір: 46
Скачувань: 1911
moveto(500,30);

if z=1 then

lineto(500-x*2,30+x*2);

moveto(480,10);

if z=1 then

lineto(480-x*2,10+x*2);

moveto(520,40);

if z=1 then

lineto(520-x*2,40+x*2);

ellipse (197+s,150-4*dy+n,202+s,150-3*dy+n);

moveto(200+s,150+n);

lineto(200+s,150-3*dy+n);

moveto(200+s,150+n);

if (z=1) then

lineto(200+x+s,150+y+n);

if (z=0) then

lineto(200-x+s,150+y+n);

moveto(200+s,150+n);

if (z=1) then

lineto(200-x+s,150+y+n);

if (z=0) then

lineto(200+x+s,150+y+n);

moveto(200+s,137+n);

if (z=1) then

lineto(200+x+s,137+y+n);

if (z=0) then

lineto(200-x+s,137+y+n);

moveto(200+s,137+n);

if (z=1) then

lineto(200-x+s,137+y+n);

The online video editor trusted by teams to make professional video in minutes