Как на паскале сделать анимацию


Как на паскале сделать анимацию

Как на паскале сделать анимацию

Как на паскале сделать анимацию


Старый 27.05.2015, 19:49   #

Пользователь

 

Регистрация: 24.12.2012

Сообщений: 25

Репутация: 10

ЛампочкаАнимация в Pascal ABC - закат солнца. (Очень нужна помощь, доделать программу) Помогите, пожалуйста, доделать программу. программу взяла отсюда же, немного доработала, но дальше не получается. Солнце опускается вниз(перерисовка) и останавливается посередине. Дальше нужно копированием сделать так, чтобы оно шло вправо до конца. Буду очень благодарна, так как нет возможности сейчас самой долго разбираться.
Вот код:

Код:

program abc; uses graphABC,PointRect; var y, x1, y1 , pic, i, j, k: integer; re:Rect; begin setwindowsize(900, 600); lockdrawing; y1 := 0; x1 := 450; for i := 1 to 25 do begin clearwindow; if y1 >= 400 then begin setpencolor(clBlack); setbrushcolor(clBlack); rectangle(0, 0, 900, 200); setpencolor(clBlack); setbrushcolor(clBlack); rectangle(0, 200, 900, 400); end else if y1 >= 300 then begin setpencolor(rgb(39, 33, 61)); setbrushcolor(rgb(39, 33, 61)); rectangle(0, 0, 900, 200); setpencolor(rgb(39, 33, 61)); setbrushcolor(rgb(39, 33, 61)); rectangle(0, 200, 900, 400); end else if y1 >= 200 then begin setpencolor(rgb(48, 43, 98)); setbrushcolor(rgb(48, 43, 98)); rectangle(0, 0, 900, 200); setpencolor(rgb(48, 43, 98)); setbrushcolor(rgb(48, 43, 98)); rectangle(0, 200, 900, 400); end else if y1 >= 100 then begin setpencolor(rgb(57, 49, 133)); setbrushcolor(rgb(57, 49, 133)); rectangle(0, 0, 900, 200); setpencolor(rgb(57, 49, 133)); setbrushcolor(rgb(57, 49, 133)); rectangle(0, 200, 900, 400); end else begin setpencolor(clAqua); setbrushcolor(clAqua); rectangle(0, 0, 900, 200); setpencolor(clAqua); setbrushcolor(clAqua); rectangle(0, 200, 900, 400); end; setpencolor(clyellow); setbrushcolor(clyellow); y1 := y1 + 8; circle(x1, y1, 50); setpencolor(clTeal); setbrushcolor(clTeal); rectangle(0, 400, 900, 600); if y1 <= 450 then begin y := 420; k := 20; for j := 1 to 15 do begin setpencolor(clYellow); setbrushcolor(Random(16777215)); ; Ellipse(440 - k, y, 465 + k, y + 10); y := y + 20; if j mod 2 = 0 then k := k - 5 else k := k + random(20); sleep(20); end; end else begin setpencolor(clTeal); setbrushcolor(clTeal); rectangle(0, 400, 900, 600); end; sleep(10); redraw; end; end. Господин Никто вне форума   Ответить с цитированием
Источник: http://www.programmersforum.ru/showthread.php?t=278507


Как на паскале сделать анимацию фото


Как на паскале сделать анимацию

Как на паскале сделать анимацию

Как на паскале сделать анимацию

Как на паскале сделать анимацию

Как на паскале сделать анимацию

Как на паскале сделать анимацию

Как на паскале сделать анимацию

Читать еще

Поздравления с днем рождения женщине красивые анимация

Вк как сделать чтобы музыка

Нч фильтр для сабвуфера своими руками