    scene :film "fleximage"
    (merge
     (get-in scene [:film "fleximage"])
-    {:xresolution [:int width]
+    {:__aspect (double (/ height width))
+     :xresolution [:int width]
      :yresolution [:int height]
-     :__aspect (double (/ height width))
      :gamma [:float gamma]
      :filename [:string suffix]
      :colorspace_white [:float-vec white]

       :__shape [(conf/mesh-types mesh-type) {:__mesh mesh :__basename (str "light-" id)}]
       :nsamples [:int samples]}))))

(defn shape-disk
  [scene id {:keys [z radius inner-radius phi tx material]
             :or {z 0 radius 1 inner-radius 0 phi 360}}]


(defn light-group
  [scene id {:keys [gain] :or {gain 1.0}}]
  (append scene :light-groups id {:__gain gain}))

(defn light-groups
  [scene groups]
  (reduce #(apply light-group % %2) scene groups))

(defn- light-common
  [scene {:keys [group color gain power efficacy importance tx material hidden?]
