Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 16 lines (13 sloc) 0.536 kb
94344ab @slyrus moved stuff from opticl here into opticl-test
authored
1 (in-package :opticl)
2
3 (defun test-me2 (img)
4 (declare (optimize (speed 3) (safety 0)))
5 (let ((height 480) (width 640))
6 (let ((img (make-8-bit-rgb-image height width)))
7 (declare (type 8-bit-rgb-image img))
8 (time (loop for i below height
9 do (loop for j below width
10 do (setf (pixel img i j) (values
11 (ash i -2)
12 (ash j -2)
13 0)))))
14 img)))
15
Something went wrong with that request. Please try again.