нарисовать Улитку Паскаля

[AFA]

Уравнение Улитки Паскаля: p = 2r cos(f) +- l
форма зависит от соотношения между параметрами r и l:
1) l < 2r, 2) l = 2r, 3) l > 2r.
Заранее благодарен!

[VadikV]

    t := 0;
    a := 3;

    While t <= 6.28 do begin
        x := a * cos(t-o) * (1 + cos(t+o));
        y := a * sin(t-o) * (1 + cos(t+o));
        PutPixel(round(dx + (x*(15+sc))) + 320, round(dy + (y*(15+sy))) + 240,color);
        t := t + 0.01;
    end;

[AFA]

VadikV
Спасибо, счас попробую!
вопрос: почему там 6.28?