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

From: Stephen De Gabrielle (spdegabrielle at gmail.com)
Date: Mon Jun 9 14:13:59 EDT 2008

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)

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

         (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

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



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)

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>

Posted on the users mailing list.