Как нарисовать пружину?))

← →
vasIZmax © (2007-05-29 03:18) [0]

Никак не могу сообразить. Стандартными средствами: ну эллипс - ellipse, n-угольник(точнее "замкнутая") - poligon, а вот пружину (спираль) - ну, не могу придумать(((.
Примитив какой-то скорее всего, аж стыдно спрашивать, но любопытство не дает покоя))).
Хоть намекните))

← →
{RASkov} © (2007-05-29 03:25) [1]

procedure Spiral(Cnv: TCanvas; const X, Y: Integer); var Theta: Single; begin Theta := 0; Cnv.MoveTo(X, Y); while Theta < 15 * 3.1415926535 do begin Cnv.LineTo(Round(X + Cos(Theta) * Theta), Round(Y + Sin(Theta) * Theta)); Theta := Theta + 0.2; end; end;
Вызов
Spiral(Canvas, 100, 100);
Выдернул из Graphics32 и подправил чуть-чуть:)

> {RASkov} © (29.05.07 03:25) [1]

Вот так и думал)))... Чего-то должно быть простое.
Правда извратиться хотел реализовывая через polyline, в цикле. Но сначала думаю спрошу, не охота велосипед изобретать.

СПС.:-)

Как нарисовать пружину?)) Найти похожие ветки