Quil утверждает, что моя функция рисования имеет 0 аргументов

Question

Я пытаюсь написать свое первое простое графическое приложение, используя Quil. Прямо сейчас я просто пытаюсь нарисовать точку, которая движется по диагонали по экрану.

(ns quil-test.quil-first
 (:require [quil.core :as q])

 (:gen-class))

(defn setup-state []
  (q/frame-rate 60)
  {:x 0})

(defn update-state [s]
  (assoc s :x (q/frame-count)))

(defn draw-state [state]
  (let [x (:x state)]
    (q/stroke-weight 100)
    (q/point x x)))

(q/defsketch quil-first
             :size [500 500]
             :setup setup-state
             :update update-state
             :draw draw-state)

Проблема в том, что при запуске этого процесса точка не отображается, и следующая ошибка неоднократно выводится на консоль:

Exception in  :draw  function:  #error {
 :cause Wrong number of args (0) passed to: quil-first/draw-state
 :via
 [{:type clojure.lang.ArityException
   :message Wrong number of args (0) passed to: quil-first/draw-state
   :at [clojure.lang.AFn throwArity AFn.java 429]}]
 :trace
 [[clojure.lang.AFn throwArity AFn.java 429]
  [clojure.lang.AFn invoke AFn.java 28]
  [clojure.lang.Var invoke Var.java 375]
  [quil.middlewares.safe_fns$wrap_fn$fn__114 invoke safe_fns.clj 9]
  [quil.middlewares.bind_output$bind_output$iter__148__152$fn__153$fn__164 invoke bind_output.clj 21]
  [quil.applet$_draw invoke applet.clj 220]
  [quil.Applet draw nil -1]
  [processing.core.PApplet handleDraw PApplet.java 2402]
  [quil.Applet handleDraw nil -1]
  [processing.awt.PSurfaceAWT$12 callDraw PSurfaceAWT.java 1527]
  [processing.core.PSurfaceNone$AnimationThread run PSurfaceNone.java 316]]} 
stacktrace:  clojure.lang.ArityException: Wrong number of args (0) passed to: quil-first/draw-state
 at clojure.lang.AFn.throwArity (AFn.java:429)
    clojure.lang.AFn.invoke (AFn.java:28)
    clojure.lang.Var.invoke (Var.java:375)
    quil.middlewares.safe_fns$wrap_fn$fn__114.invoke (safe_fns.clj:9)
    quil.middlewares.bind_output$bind_output$iter__148__152$fn__153$fn__164.invoke (bind_output.clj:21)
    quil.applet$_draw.invoke (applet.clj:220)
    quil.Applet.draw (:-1)
    processing.core.PApplet.handleDraw (PApplet.java:2402)
    quil.Applet.handleDraw (:-1)
    processing.awt.PSurfaceAWT$12.callDraw (PSurfaceAWT.java:1527)
    processing.core.PSurfaceNone$AnimationThread.run (PSurfaceNone.java:316)

Это говорит о том, что мой draw-state Функция принимает 0 аргументов, когда она должна принимать 1. draw-state явно принимает 1 аргумент, хотя.

Я не понимаю почему draw-state каким-то образом "конвертируется" в функцию 0-арности.

Answer 1

Проблема в том, что я не активировал "забавный (условный) режим", поэтому функция рисования должна принимать 0 аргументов, поскольку по умолчанию состояние управляется глобально.

Это работает:

(ns quil-test.quil-first
 (:require [helpers.general-helpers :as g]
           [quil.core :as q]
           [quil.middleware :as m])

 (:gen-class))

(defn setup-state []
  (q/frame-rate 60)
  {:x 0})

(defn update-state [s]
  (g/update-with s :x (fn [_] (q/frame-count))))

(defn draw-state [state]
  (let [x (:x state)]
    (q/stroke-weight 100)
    (q/point x x)))

(q/defsketch quil-first
             :size [500 500]
             :setup setup-state
             :update update-state
             :draw draw-state
             :middleware [m/fun-mode]) ; Activate functional mode