Салют на Canvas

[ZvEr_HaCkEr]

Добрых всем суток.Помогите плз нарисовать салют на канве.Хотелось бы что-нибудь типа как в пасьянсе.За ранние спасибо!

[Dj_smart]

Не знаю за какие ранние или ранения ты там говоришь, но в чем помочь?

[ZvEr_HaCkEr]

Создать анимацию салюта напрямую на канве.Сразу скажу что использование Animate не устраивает.

[ZvEr_HaCkEr]

Спят все чтоли?так день вроде

[Selestis]

Делайте отрисовку n-ного количества точек на канве Pixels[x,y] (один из вариантов), положение каждой высчитываете по каким-нибудь синусам и косинусам, зависящим от индекса, а длину отрезка до них от точки взрыва увеличиваете со временем.

[ZvEr_HaCkEr]

положение каждой высчитываете по каким-нибудь синусам и косинусам, зависящим от индекса

а пример можно?а то что-то не соображу никак.

[Selestis]

Ладно... Не проверял, так что могут быть ошибки, но суть должна быть понятна:

t: integer;//время
x,y: integer;
BX,BY: integer;//координаты взрыва
n: integer;//кол-во точек
...
for i:=1 to n do begin
x:=BX + Round(cos(i*6)*t);//х - координата точки #i
y:=BY + Round(sin(i*6)*t);//y - координата точки #i
Canvas.Pixels[x,y]:=RGB(i*200 mod 255,(i+500)mod 255,(i+10)*120 mod 255);//псевдослучайный цвет
end;

Что-то вроде этого.

[Arigato]

Делал как-то фейерверк.
Что-то такое нужно или именно, как в пасьянсе?

[ZvEr_HaCkEr]

хотелось бы как в пасьянсе,но думаю что тяжко будет подобное сделать.По этому какой-нибудь упрошенный вариант.Ваш вариант очень хорош.Почти то что нужно

[Somebody]

Вот я сейчас простенький написал