X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;ds=sidebyside;f=gacela.lisp;h=dcbddde6836162300ffa5a89af9c8512c9da1975;hb=31db8863bd1281f94f426aac5936fb897351362f;hp=5cb515a136798f745a03e9ba27dcabab65cf0556;hpb=e1ff0e053ac905d71ed73cc7b0cefae3120cb0d1;p=gacela.git diff --git a/gacela.lisp b/gacela.lisp index 5cb515a..dcbddde 100644 --- a/gacela.lisp +++ b/gacela.lisp @@ -126,6 +126,14 @@ (glLoadIdentity) t)) +(let ((current-color '(1 1 1 1))) + (defun get-color () + current-color) + + (defun set-color (red green blue (&optional (alpha 1))) + (setq current-color color) + (glColor4f red green blue alpha))) + (defun copy-surface (source) (cond ((surface-p source) (let ((new-surface