(dolist (pathname (directory #P"/home/mgr/daten/coding/lisp/opengl/cube-modeller/data/**/*.data"))
        (let ((raw-pathname (merge-pathnames
                             (make-pathname :directory '(:relative "looper")
                                            :type "raw")
                             pathname)))
          (format t "~&Creating ~a." raw-pathname)
          (force-output)
          (load-animation-file pathname)
          (ignore-errors (save-animation-file raw-pathname :type :raw))))