Использование quil.core/ellipse для рисования 8 шаблонов в clojure

Question

Я хочу нарисовать эскиз с восьмёркой. Теперь я знаю, как рисовать круги в направлении против часовой стрелки и по часовой стрелке. Но я не знаю, как их объединить.

(defn draw-state [state]
   (let [x (* 150 (quil.core/cos angle))
         y (* 150 (quil.core/sin angle))]
      (quil.core/ellipse x y 100 100)
      (quil.core/ellipse y x 100 100)))

Эта функция нарисует два круга в противоположных направлениях. Но как нарисовать эскиз с 8 рисунком?

Answer 1

Полярное уравнение для кривой 8-типа =

r ^ 2 = Cos [2t] (Sec [t]) ^ 4

где r = радиус, t = угол

Вы могли бы начать с этого.