pict3d
pict3d copied to clipboard
White box and error message in OS X.
I am running the latest version of OS X (El Capitan), and I try to make the following pict3d program:
#lang racket
(require pict3d)
(sphere origin 1/2)
When I run this program, i get a white box, and the following error message pops up in the DrRacket GUI error box.
OpenGL error in procedure glClear: Error code 1286.
context...:
/Users/leif/rsrc/pict3d/typed/opengl/untyped.rkt:106:11: self-mutating-fun
...private/memo.rkt:101:34
/Users/leif/rsrc/pict3d/pict3d/private/memo.rkt:63:2
/Users/leif/rsrc/pict3d/pict3d/private/engine/draw/draw-passes.rkt:429:0: draw-draw-passes*
...e/gl/context.rkt:20:24
/Users/leif/racket/racket/collects/racket/contract/private/arrow-higher-order.rkt:378:33
/Users/leif/racket/racket/collects/racket/contract/private/arrow-higher-order.rkt:378:33
/Users/leif/rsrc/pict3d/pict3d/private/gui/pict3d-snip.rkt:112:2: render-thread-loop
Same for me, just a white box with all controls, but even no error.

Mac OS Sierra 10.12. The result of:
#lang racket
(require racket/gui
sgl/gl)
(define (get-graphics-info legacy?)
(define config (new gl-config%))
(send config set-legacy? legacy?)
(define frame (new frame% [label "Test"] [width 100] [height 100]))
(define canvas (new canvas%
[parent frame]
[style '(gl no-autoclear)]
[gl-config config]))
(send frame show #t)
(sleep 1)
(begin0
(send (send (send canvas get-dc) get-gl-context)
call-as-current
(λ ()
(list (glGetString GL_VENDOR)
(glGetString GL_RENDERER)
(glGetString GL_VERSION))))
(send frame show #f)))
(get-graphics-info #t)
(get-graphics-info #f)
Is:
'("Intel Inc." "Intel Iris Pro OpenGL Engine" "2.1 INTEL-10.24.45")
'("Intel Inc." "Intel Iris Pro OpenGL Engine" "4.1 INTEL-10.24.45")