Резво рисуем эллипс 23.02.2013 #

Таки замутил ОЧЕ резвую функцию построения эллипсов.

Результат на моём скромном ноуте:

(time (construct-ellipse 25 5 2 90
                         :step 0.1
                         :angle 10))
"Elapsed time: 0.250204 msecs"

(time (construct-ellipse 25 5 2 90
                         :step 0.001
                         :angle 10))
"Elapsed time: 1.043827 msecs"

Исходник здесь.