[plt-scheme] updating demo using SGL is teapot.ss, a rendering of the Newell Teapot.

Hi,
I've been fiddling with the opengl stuff and have got
teapost.ss [http://www.neilvandyke.org/opengl-plt/] going.

I'm still getting an error, and I'm not sure what I'm doing wrong?;

        [ladybird-bug] Scheme->C: expects argument of type <uint32>; given false
I'd appreciate any hints.

I've attached my conversion of the code, and here is the offending snip;
--
         (unless teapot-dl
           (set! teapot-dl (glGenLists 1))
           (printf "teapot-dl:~V~N" teapot-dl)
           (glNewList teapot-dl GL_COMPILE)
           (teapot 24 0.6 GL_FILL)
           (gl-end-list)))))

    (define/override (on-paint)
      (with-gl-context
       (lambda ()
         (gl-clear-color 0.0 0.0 0.0 0.0)
         (gl-clear 'color-buffer-bit 'depth-buffer-bit)

         (gl-push-matrix)
         (glRotatef view-rotx 1.0 0.0 0.0)
         (glRotatef view-roty 0.0 1.0 0.0)
         (glRotatef view-rotz 0.0 0.0 1.0)
         (glCallList teapot-dl)  ;;; error happens here
         (gl-pop-matrix)
--

[I hope it's ok to mix C and Scheme-style! sgl code- it seems to work]

Cheers,

Stephen

--
Stephen De Gabrielle
s.degabrielle at cs.ucl.ac.uk
Telephone +44 (0)20 7679 0693 (x30693)
Mobile 079 851 890 45
Project: Making Sense of Information (MaSI)
http://www.uclic.ucl.ac.uk/annb/MaSI.html

UCL Interaction Centre
MPEB 8th floor
University College London
Gower Street
London WC1E 6BT
-------------- next part --------------
A non-text attachment was scrubbed...
Name: teapot.scm
Type: application/octet-stream
Size: 11438 bytes
Desc: not available
URL: <http://lists.racket-lang.org/users/archive/attachments/20080609/8dbe1927/attachment.obj>