21.06.2012, 23:05
|
#2
|
Нуждающийся
Регистрация: 24.04.2012
Сообщений: 57
Написано 7 полезных сообщений (для 10 пользователей)
|
Ответ: Анимация "салют"
Попробывал переписать готовый код с байсика, но устественно ничего не из этого не вышло:
Program cube; var i,dir1,ix,iy,vel,rnd:integer; x: array[0..50] of integer; y: array[0..50] of integer; xv: array[0..50] of integer; yv: array[0..50] of integer; ox: array[0..50] of integer; oy: array[0..50] of integer; procedure main; Begin For i:= 0 to 50 do begin x[i]:= 0; y[i]:= 0; dir1:=trunc(Rnd * 6.28); vel:=trunc(Rnd * 5 + 1); xv[i]:= trunc(Sin(dir1) * vel); yv[i]:= trunc(Cos(dir1) * vel); end; ix:=Rnd * 320; iy:=Rnd * 200; For i:= 0 to 50 do begin drawLine(ox[i] + ix, oy[i] + iy,x[i] + ix, y[i] + iy); ox[i]:= x[i]; oy[i]:= y[i]; x[i]:= x[i] + xv[i]; y[i]:= y[i] + yv[i]; drawLine(x[i] + ix, y[i] + iy,x[i] + ix, y[i] + iy); repaint; delay(100); end; end; begin repeat SetColor(0, 0, 0); FillRect(0, 0, GetWidth, GetHeight); setcolor(255,255,255); main; repaint; delay(100); until keyToAction(getKeyClicked) <> GA_NONE; End.
|
(Offline)
|
|