File canvas-draw/racket/cgm.rkt artifact 450ed8492b part of check-in b1dcd0ebc6
#lang racket/base (require ffi/unsafe "base.rkt") (define libcd (case (system-type 'os) [(windows) (ffi-lib "cd")] [else (ffi-lib "libcd")])) ;; {{{ Context types (define context:cgm ((get-ffi-obj "cdContextCGM" libcd (_fun -> [context : _context])))) (provide context:cgm) ;; }}}