[cl-opengl-devel] checker.lisp (Redbook example)

[raito]

Well, I was already working on porting the redbook examples to Lisp (at least the ones that hadn't been done yet). And as Luis pointed out, doing that is on the list. So here's the first one, ported from checker.c. It's a texture-mapping example. I have some others that need cleaning up, because prior to updating my stuff, I had to do things like code-char key in keyboard, because that's just how it worked on the Mac. I have noticed that some of the redbook examples can't currently be ported, because cl-opengl doesn't offer all the functions yet. I wasn't able to use '(64 64) when creating the texture map, because I get this error:

* (load "checker.lisp")
; in: LAMBDA NIL
;     (SETF (AREF RET-VAL (+ BASE 1)) 255)
; --> SB-KERNEL:%ASET
; ==>
;   RET-VAL
;
; note: deleting unreachable code

;     (SETF (AREF RET-VAL BASE) 255)
; ==>
;   (SB-KERNEL:%ASET RET-VAL BASE 255)
;
; caught WARNING:
;   Asserted type VECTOR conflicts with derived type

;     The SBCL Manual, Node "Handling of Types"


Neil Gilmore
[EMAIL PROTECTED]

; (VALUES (SIMPLE-ARRAY T (64 64)) &OPTIONAL). ; See also: And I haven't included an update to examples.lisp -- it's just adding it to the list of examples, and examples doesn't actually run the examples unless you've already loaded them (I might work on that for the future).

checker.lisp
Description: Binary data

_______________________________________________
cl-opengl-devel mailing list
cl-opengl-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-opengl-devel