   [scene id {:keys [z radius inner-radius phi tx material]
              :or {z 0 radius 1 inner-radius 0 phi 360}}]
   (append
-   scene :geometry id
+   scene :geometry (name id)
    (merge
     (when tx (transform-common scene tx))
     {:__type :disk

     :__mesh mesh
     :__export-path (or export-path path)
     :name [:string id]
     :filename [:string (or path (str id ".stl"))]})))

(defn lux-scene
  []

             :or {samples 1 size 1.0 mesh-type :inline} :as opts}]
  (let [mesh (if mesh
               mesh
               (g/as-mesh
                (pl/plane-with-p (g/vec3 (or p [0 0 0])) (g/vec3 (or n [0 0 -1])))
                (if (sequential? size)
                  {:width (first size) :height (second size)}
                  {:size size})))]
    (append
     scene :lights (name id)
     (merge
      (when tx (transform-common scene tx))
      (light-common scene opts)
