6 lines
222 B
Common Lisp
6 lines
222 B
Common Lisp
|
CL-USER> (let ((buffer (make-array '(30 30)
|
||
|
|
:element-type 'bit)))
|
||
|
|
(draw-circle (lambda (x y)
|
||
|
|
(setf (bit buffer x y) 1)) 15 15 10)
|
||
|
|
buffer)
|