      :__type :spot-light
      :from [:point-vec [from]]
      :to [:point-vec [to]]
-     :coneangle [:float (->degrees cone-angle)]
-     :conedeltaangle [:float (->degrees cone-delta)]})))
+     :coneangle [:float (/ (->degrees cone-angle) 2.0)]
+     :conedeltaangle [:float (/ (->degrees cone-delta) 2)]})))
 
 (def light-types
   {:area area-light

  (append-singleton
   scene :sampler "sobol"
   {:noiseaware [:bool (optional-bool noise-aware? true)]}))

(defn- integrator-common
  [{:keys [shadow-rays light-strategy] :or {shadow-rays 1 light-strategy :auto}}]


(defn spot-light
  [scene id {:keys [from to cone-angle cone-delta tx]
             :or {cone-angle 30 cone-delta 5 from [0 0 0] to [0 0 1]}
             :as opts}]
  (append
   scene :lights id
