File canvas-draw/racket/metafile.rkt artifact 7c81a9e55c 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:metafile
  ((get-ffi-obj "cdContextMetafile" libcd (_fun -> [context : _context]))))

(provide
 context:metafile)

;; }}}