Picture frame

... based on Piet Hein's superellipse

A simple picture frame based on Piet Hein's superellipse.

; INVALID LISP CODE

using a simple ELISP hack:

(defun make-scad-muse (directory sub-directory)
  (let ((scad-file (caar (directory-files-and-attributes (concat directory sub-directory "/")
                                                         () ".scad$")))
        (desc-file (caar(directory-files-and-attributes (concat directory sub-directory "/")
                                                        () ".txt$")))
        (img-file (caar(directory-files-and-attributes (concat directory sub-directory "/")
                                                       () ".png$"))))

    (shell-command
     (concat "openscad-nightly -o "
             (concat directory sub-directory "/") scad-file ".png "
             (concat directory sub-directory "/") scad-file " --imgsize=500,500"))
    (insert (concat "[[./openscad/" sub-directory "/" img-file "]]\n\n\n"))
    (insert (concat "Files: [[./openscad/" sub-directory "/" scad-file "][" scad-file "]]\n\n"))))

with

(make-scad-muse "~/public_html/openscad/" "picframe")

Note: For Emacs Muse: http://mwolson.org/projects/EmacsMuse.html

Palavras chave/keywords: Piet Hein, superellipse

Criado/Created: 15-01-2015 [22:33]

Última actualização/Last updated: 10-10-2022 [14:26]

Voltar à página inicial.