 (defn ply-mesh
   [scene id {:keys [mesh path export-path tx material smooth]}]
   (append
-   scene :geometry id
+   scene :geometry (name id)
    (merge
     (when tx (transform-common scene tx))
     {:__type :plymesh

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

(defn stl-mesh
  [scene id {:keys [mesh path export-path tx material]}]
  (append
   scene :geometry id
   (merge
    (when tx (transform-common scene tx))
    {:__type :stlmesh

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