File canvas-draw/racket/gl.rkt artifact b2f08fa5b6 part of check-in b89c5d2520
#lang racket/base (require ffi/unsafe "base.rkt") (define libcd-gl (case (system-type 'os) [(windows) (ffi-lib "cdgl")] [else (ffi-lib "libcdgl")])) ;; {{{ Context types (define context:gl ((get-ffi-obj "cdContextGL" libcd-gl (_fun -> [context : _context])))) (provide context:gl) ;; }}}