mempcy-slow-1.lisp

(defun cocoa-build-sprite (sprite image mask size)
  (declare #.*optimize*
           (type fixnum size))
  (let ((sp (fli:copy-pointer sprite))
        (ip (fli:copy-pointer image))
        (mp (fli:copy-pointer mask)))
    (loop for i fixnum from 0 below size do
       ;; copy red
         (setf (fli:dereference sp)
               (the fixnum (fli:dereference ip)))
         (fli:incf-pointer sp)
         (fli:incf-pointer ip)
       ;; copy green
         (setf (fli:dereference sp)
               (the fixnum (fli:dereference ip)))
         (fli:incf-pointer sp)
         (fli:incf-pointer ip)
       ;; copy blue
         (setf (fli:dereference sp)
               (the fixnum (fli:dereference ip)))
         (fli:incf-pointer sp)
         (fli:incf-pointer ip)
       ;; our mask image is a 3 component JPEG
         (setf (fli:dereference sp)
               (the fixnum (fli:dereference mp)))
         (fli:incf-pointer sp)
         (fli:incf-pointer mp)
         (fli:incf-pointer mp)
         (fli:incf-pointer mp))))