Затухающая линия

[hiho]

Здравствуйте. Появилась необходимость нарисовать пульс человека, не используя DirectX. То есть стандартными возможностями дельфи. Сам алгоритм уже реализовал, осталось доделать только красивости. Чтобы линия рисовалась не сплошным цветом, а меняла прозрачность. Примерно так. Никто не поможет кодом, а то я уже всю голову сломал.

PS: Также хотелось бы и светящуюся точку в начале текущей линии. Это не обязательно, но желательно =)

[Rin]

Если правильно понял, то тебе нужно рисовать методами Canvas.
Вот накидал по шустрому. Использован таймер с интервалом в 100 милисекунд.
Тут рисуется прямая линия с изменением прозрачности. Подгоняй под свою формулу отрисовки пульса.

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=clBlack;
x:=-70;
y:=30;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
// закрашиваем нарисованное ранее
  canvas.Pen.Color:=$000000; // черный
  canvas.Brush.Color:=$000000; // черный
  canvas.Ellipse(x+69,y-1,x+71,y+1);// рисуем круг чёрного цвета
 for I := 0 to  50 do
  canvas.Pixels[x+i,y]:=clBlack;

  x:=x+11; // чем больше прибавишь, тем быстреее будет бегать

// рисуем на новом месте
 for I := 0 to  70 do
  canvas.Pixels[x+i,y]:= (i*256*2);
  {  разъяснение. Все цвета, как ты знаешь, получаются смешением
   цветов RGB. 00ff00 в 16-ричной СС соответствует зелёному цвету.
   Чтобы получить градиент от черного к зелёному нам нужны числа
   от 000000 до 00ff00.  256 в 10-чной СС = 100 или 000100 в 16-чной СС.
   Умножая 256 на i мы как раз и будем получать этот градиент.
   Множитель 2 в формуле (i*256*2) использован для бОльшего интервала чисел зелёного цвета.
   Если множитель убрать, то получишь более тусклые оттенки зелёного.
   }
  canvas.Pen.Color:=$00ffff;// жёлтый
  canvas.Brush.Color:=$00ffff; // жёлтый
  canvas.Ellipse(x+69,y-1,x+71,y+1); // рисуем круг жёлтого цвета
  if x>form1.width then x:=-70;
end;