Author: Not specified Language: lisp
Description: Not specified Timestamp: 2018-04-17 09:58:56 +0000
View raw paste Reply
(define
  (center img)
  (place-image/align img
                     (image-width img)
                     (image-height img)
                     "center"
                     "center"
                     (empty-scene
                      (* (image-width img) 2)
                      (* (image-height img) 2))))
View raw paste Reply