Скачать: CL | DM;

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

← →
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 и подправил чуть-чуть:)

---

← →
vasIZmax ©   (2007-05-29 03:37) [2]

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

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

СПС.:-)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c