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
; (VALUES (SIMPLE-ARRAY T (64 64)) &OPTIONAL).
; See also:
; The SBCL Manual, Node "Handling of Types"
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).
Neil Gilmore
raito(a)raito.com