      :__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

         (fn [_] @state)))))

(defn lux-scene
  []
  (-> {}
      (configure-mesh-streamer lio/file-mesh-stream)

    :filmindex [:float (resolve-ior film-ior)]}
   opts))

(defn material-glass2
  [scene id {:keys [arch? dispersion?] :as opts}]
  (material-common
   scene id "glass2"
   {:architectural [:bool arch?]
    :dispersion [:bool dispersion?]}
   opts))

(defn volume
  [scene id {:keys [type ior absorb absorb-hsb abs-scale abs-depth]
             :or {type :clear absorb [1.0 1.0 1.0]
