20955
#hash(((meth (((lib "racket/draw.rkt") pen%) set-stipple)) . ((39978 . 3))) ((meth (((lib "racket/draw.rkt") pen%) set-style)) . ((40077 . 6))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-preview-command)) . ((45663 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) get-alpha)) . ((17891 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) set-stereo)) . ((35931 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) ok?)) . ((19979 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) translate)) . ((23892 . 4))) ((meth (((lib "racket/draw.rkt") gl-context<%>) call-as-current)) . ((36043 . 7))) ((meth (((lib "racket/draw.rkt") dc<%>) copy)) . ((12803 . 8))) ((meth (((lib "racket/draw.rkt") dc<%>) set-rotation)) . ((22705 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) get-clipping-region)) . ((18209 . 2))) ((meth (((lib "racket/draw.rkt") region%) set-ellipse)) . ((48267 . 6))) ((constructor ((lib "racket/draw.rkt") pdf-dc%)) . ((37196 . 17))) ((meth (((lib "racket/draw.rkt") dc-path%) translate)) . ((27218 . 4))) ((meth (((lib "racket/draw.rkt") bitmap-dc%) get-pixel)) . ((6353 . 5))) ((meth (((lib "racket/draw.rkt") region%) in-region?)) . ((47565 . 4))) ((meth (((lib "racket/draw.rkt") dc-path%) rotate)) . ((26120 . 3))) ((meth (((lib "racket/draw.rkt") dc-path%) append)) . ((24198 . 3))) ((def ((lib "racket/draw.rkt") brush%)) . ((7377 . 3))) ((meth (((lib "racket/draw.rkt") bitmap%) get-loaded-mask)) . ((2103 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-text)) . ((17315 . 13))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-point)) . ((15988 . 4))) ((meth (((lib "racket/draw.rkt") pen%) get-width)) . ((39396 . 2))) ((meth (((lib "racket/draw.rkt") bitmap%) make-dc)) . ((3051 . 2))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) get-face-name)) . ((32898 . 4))) ((meth (((lib "racket/draw.rkt") pen%) get-style)) . ((39169 . 6))) ((def ((lib "racket/draw.rkt") current-ps-setup)) . ((50939 . 4))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-preview-command)) . ((44438 . 2))) ((def ((lib "racket/draw.rkt") color-database<%>)) . ((12442 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) get-scale)) . ((18805 . 2))) ((meth (((lib "racket/draw.rkt") pen%) set-cap)) . ((39501 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) get-transformation)) . ((19742 . 4))) ((meth (((lib "racket/draw.rkt") font-list%) find-or-create-font)) . ((30309 . 41))) ((meth (((lib "racket/draw.rkt") dc<%>) get-brush)) . ((18002 . 2))) ((meth (((lib "racket/draw.rkt") bitmap%) ok?)) . ((3098 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) get-text-mode)) . ((19673 . 2))) ((meth (((lib "racket/draw.rkt") linear-gradient%) get-stops)) . ((37019 . 3))) ((def ((lib "racket/draw.rkt") the-color-database)) . ((56271 . 2))) ((def ((lib "racket/draw.rkt") dc<%>)) . ((12670 . 2))) ((meth (((lib "racket/draw.rkt") font%) get-point-size)) . ((29605 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) set-depth-size)) . ((35565 . 3))) ((meth (((lib "racket/draw.rkt") color%) blue)) . ((12010 . 2))) ((meth (((lib "racket/draw.rkt") brush%) set-style)) . ((10279 . 7))) ((def ((lib "racket/draw.rkt") gl-config%)) . ((34964 . 3))) ((constructor ((lib "racket/draw.rkt") brush-list%)) . ((10648 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-paper-name)) . ((45583 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) set-clipping-region)) . ((21579 . 3))) ((def ((lib "racket/draw.rkt") dc-path%)) . ((24094 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) set-scale)) . ((22777 . 4))) ((meth (((lib "racket/draw.rkt") dc<%>) get-device-scale)) . ((18286 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) set-clipping-rect)) . ((21246 . 9))) ((constructor ((lib "racket/draw.rkt") record-dc%)) . ((46887 . 6))) ((def ((lib "racket/draw.rkt") pen-list%)) . ((40430 . 3))) ((meth (((lib "racket/draw.rkt") pen%) set-color)) . ((39606 . 9))) ((meth (((lib "racket/draw.rkt") bitmap-dc%) set-bitmap)) . ((7147 . 3))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-translation)) . ((45900 . 4))) ((def ((lib "racket/draw.rkt") ps-setup%)) . ((43283 . 3))) ((meth (((lib "racket/draw.rkt") dc-path%) reverse)) . ((26075 . 2))) ((meth (((lib "racket/draw.rkt") bitmap%) is-color?)) . ((2302 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-ellipse)) . ((15016 . 6))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-bitmap-section)) . ((14040 . 22))) ((def ((lib "racket/draw.rkt") pdf-dc%)) . ((37126 . 4))) ((meth (((lib "racket/draw.rkt") region%) set-rounded-rectangle)) . ((49598 . 11))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-paper-name)) . ((44383 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) get-rotation)) . ((18760 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) try-color)) . ((23976 . 4))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-file)) . ((43880 . 2))) ((def ((lib "racket/draw.rkt") point%)) . ((41918 . 3))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) find-family-default-font-id)) . ((32389 . 5))) ((meth (((lib "racket/draw.rkt") bitmap%) get-argb-pixels)) . ((1246 . 15))) ((def ((lib "racket/draw.rkt") the-font-list)) . ((56329 . 2))) ((meth (((lib "racket/draw.rkt") linear-gradient%) get-line)) . ((36944 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) set-transformation)) . ((23431 . 4))) ((meth (((lib "racket/draw.rkt") dc<%>) set-smoothing)) . ((22881 . 3))) ((form ((lib "racket/draw/draw-sig.rkt") draw^)) . ((56509 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) get-depth-size)) . ((35143 . 2))) ((meth (((lib "racket/draw.rkt") color%) red)) . ((11930 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) rotate)) . ((20063 . 3))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-orientation)) . ((45466 . 3))) ((meth (((lib "racket/draw.rkt") bitmap%) save-file)) . ((3141 . 5))) ((constructor ((lib "racket/draw.rkt") ps-setup%)) . ((43335 . 2))) ((def ((lib "racket/draw.rkt") the-font-name-directory)) . ((56375 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) get-char-height)) . ((18056 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) set-initial-matrix)) . ((21756 . 3))) ((def ((lib "racket/draw.rkt") linear-gradient%)) . ((36442 . 3))) ((meth (((lib "racket/draw.rkt") brush-list%) find-or-create-brush)) . ((10707 . 19))) ((meth (((lib "racket/draw.rkt") pen%) get-stipple)) . ((39099 . 2))) ((meth (((lib "racket/draw.rkt") bitmap-dc%) get-bitmap)) . ((6278 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-scaling)) . ((45754 . 4))) ((meth (((lib "racket/draw.rkt") dc-path%) move-to)) . ((25704 . 4))) ((meth (((lib "racket/draw.rkt") dc<%>) get-origin)) . ((18660 . 2))) ((constructor ((lib "racket/draw.rkt") svg-dc%)) . ((50365 . 12))) ((meth (((lib "racket/draw.rkt") brush%) is-immutable?)) . ((9492 . 2))) ((meth (((lib "racket/draw.rkt") bitmap%) set-loaded-mask)) . ((4000 . 3))) ((meth (((lib "racket/draw.rkt") font%) get-style)) . ((29828 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) clear)) . ((12765 . 2))) ((meth (((lib "racket/draw.rkt") region%) get-dc)) . ((47499 . 2))) ((constructor ((lib "racket/draw.rkt") color%)) . ((11622 . 9))) ((meth (((lib "racket/draw.rkt") region%) set-rectangle)) . ((49265 . 9))) ((def ((lib "racket/draw.rkt") font%)) . ((27303 . 3))) ((meth (((lib "racket/draw.rkt") record-dc%) get-recorded-procedure)) . ((47183 . 3))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-orientation)) . ((44304 . 3))) ((constructor ((lib "racket/draw.rkt") region%)) . ((47324 . 3))) ((meth (((lib "racket/draw.rkt") color%) alpha)) . ((12050 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-spline)) . ((17145 . 8))) ((meth (((lib "racket/draw.rkt") pen%) get-join)) . ((39032 . 2))) ((meth (((lib "racket/draw.rkt") color%) ok?)) . ((12406 . 2))) ((constructor ((lib "racket/draw.rkt") font-list%)) . ((30252 . 2))) ((def ((lib "racket/draw.rkt") make-color)) . ((52894 . 6))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) find-or-create-font-id)) . ((32603 . 7))) ((meth (((lib "racket/draw.rkt") dc<%>) glyph-exists?)) . ((19911 . 3))) ((def ((lib "racket/draw/unsafe/cairo-lib.rkt") cairo-lib)) . ((57200 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) start-doc)) . ((23620 . 3))) ((constructor ((lib "racket/draw.rkt") radial-gradient%)) . ((46051 . 17))) ((meth (((lib "racket/draw.rkt") font%) get-size-in-pixels)) . ((29670 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) get-multisample-size)) . ((35274 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) rounded-rectangle)) . ((26195 . 11))) ((meth (((lib "racket/draw.rkt") dc-path%) arc)) . ((24281 . 15))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-bitmap)) . ((13499 . 14))) ((meth (((lib "racket/draw.rkt") dc-path%) transform)) . ((27105 . 3))) ((meth (((lib "racket/draw.rkt") gl-config%) get-double-buffered)) . ((35212 . 2))) ((meth (((lib "racket/draw.rkt") bitmap%) get-handle)) . ((1987 . 2))) ((constructor ((lib "racket/draw.rkt") linear-gradient%)) . ((36501 . 13))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) set-post-script-name)) . ((34148 . 10))) ((meth (((lib "racket/draw.rkt") dc<%>) set-origin)) . ((21873 . 4))) ((meth (((lib "racket/draw.rkt") region%) xor)) . ((50219 . 3))) ((meth (((lib "racket/draw.rkt") dc-path%) line-to)) . ((25316 . 4))) ((meth (((lib "racket/draw.rkt") pen%) get-color)) . ((38977 . 2))) ((meth (((lib "racket/draw.rkt") bitmap-dc%) set-pixel)) . ((7251 . 5))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-mode)) . ((45366 . 3))) ((meth (((lib "racket/draw.rkt") dc-path%) close)) . ((24829 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) get-gl-context)) . ((18483 . 2))) ((meth (((lib "racket/draw.rkt") font%) get-weight)) . ((29951 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-margin)) . ((45221 . 4))) ((def ((lib "racket/draw.rkt") gl-context<%>)) . ((36004 . 2))) ((meth (((lib "racket/draw.rkt") region%) set-polygon)) . ((48823 . 10))) ((meth (((lib "racket/draw.rkt") dc<%>) erase)) . ((17815 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-mode)) . ((44229 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) end-doc)) . ((17734 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) scale)) . ((26642 . 4))) ((meth (((lib "racket/draw.rkt") dc-path%) open?)) . ((25787 . 2))) ((def ((lib "racket/draw.rkt") bitmap%)) . ((0 . 3))) ((meth (((lib "racket/draw.rkt") bitmap%) set-argb-pixels)) . ((3356 . 15))) ((def ((lib "racket/draw.rkt") the-brush-list)) . ((56223 . 2))) ((def ((lib "racket/draw.rkt") read-bitmap)) . ((55442 . 15))) ((meth (((lib "racket/draw.rkt") dc<%>) start-page)) . ((23695 . 2))) ((meth (((lib "racket/draw.rkt") font%) get-smoothing)) . ((29726 . 3))) ((meth (((lib "racket/draw.rkt") record-dc%) get-recorded-datum)) . ((47125 . 2))) ((meth (((lib "racket/draw.rkt") pen%) is-immutable?)) . ((39451 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) text-outline)) . ((26723 . 11))) ((def ((lib "racket/draw.rkt") get-face-list)) . ((51062 . 6))) ((constructor ((lib "racket/draw.rkt") point%)) . ((41967 . 5))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-path)) . ((15644 . 9))) ((meth (((lib "racket/draw.rkt") gl-config%) get-stereo)) . ((35420 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) get-accum-size)) . ((35074 . 2))) ((def ((lib "racket/draw.rkt") pen%)) . ((38020 . 3))) ((meth (((lib "racket/draw.rkt") radial-gradient%) get-stops)) . ((46709 . 3))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) set-screen-name)) . ((34557 . 9))) ((meth (((lib "racket/draw.rkt") dc<%>) set-background)) . ((20312 . 5))) ((meth (((lib "racket/draw.rkt") brush%) set-color)) . ((9544 . 9))) ((constructor ((lib "racket/draw.rkt") pen-list%)) . ((40482 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-translation)) . ((44662 . 4))) ((meth (((lib "racket/draw.rkt") dc<%>) get-initial-matrix)) . ((18561 . 3))) ((meth (((lib "racket/draw.rkt") font%) get-hinting)) . ((29536 . 2))) ((meth (((lib "racket/draw.rkt") pen-list%) find-or-create-pen)) . ((40537 . 28))) ((meth (((lib "racket/draw.rkt") brush%) get-transformation)) . ((9290 . 4))) ((meth (((lib "racket/draw.rkt") pen%) set-join)) . ((39874 . 3))) ((def ((lib "racket/draw.rkt") make-monochrome-bitmap)) . ((54180 . 5))) ((meth (((lib "racket/draw.rkt") dc<%>) get-pen)) . ((18710 . 2))) ((def ((lib "racket/draw/draw-unit.rkt") draw@)) . ((56487 . 2))) ((constructor ((lib "racket/draw.rkt") brush%)) . ((7426 . 22))) ((meth (((lib "racket/draw.rkt") pen%) get-cap)) . ((38907 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) get-bounding-box)) . ((25241 . 2))) ((meth (((lib "racket/draw.rkt") point%) set-y)) . ((42249 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) get-text-foreground)) . ((19609 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) suspend-flush)) . ((23738 . 2))) ((meth (((lib "racket/draw.rkt") region%) set-path)) . ((48467 . 9))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-line)) . ((15213 . 6))) ((meth (((lib "racket/draw.rkt") bitmap-dc%) set-argb-pixels)) . ((6482 . 15))) ((meth (((lib "racket/draw.rkt") dc<%>) end-page)) . ((17774 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) lines)) . ((25399 . 8))) ((constructor ((lib "racket/draw.rkt") bitmap-dc%)) . ((4163 . 3))) ((constructor ((lib "racket/draw.rkt") bitmap%)) . ((50 . 26))) ((meth (((lib "racket/draw.rkt") color-database<%>) find-color)) . ((12485 . 4))) ((def ((lib "racket/draw.rkt") get-family-builtin-face)) . ((51277 . 4))) ((meth (((lib "racket/draw.rkt") gl-config%) set-double-buffered)) . ((35657 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) get-text-extent)) . ((19129 . 13))) ((def ((lib "racket/draw.rkt") make-bitmap)) . ((51453 . 5))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) get-screen-name)) . ((33822 . 8))) ((meth (((lib "racket/draw.rkt") color-database<%>) get-names)) . ((12604 . 2))) ((meth (((lib "racket/draw.rkt") brush%) get-color)) . ((8639 . 2))) ((constructor ((lib "racket/draw.rkt") post-script-dc%)) . ((42387 . 17))) ((meth (((lib "racket/draw.rkt") dc<%>) set-brush)) . ((20477 . 17))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-level-2)) . ((45148 . 3))) ((meth (((lib "racket/draw.rkt") region%) intersect)) . ((47653 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) get-font)) . ((18431 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) get-smoothing)) . ((18983 . 3))) ((def ((lib "racket/draw.rkt") brush-list%)) . ((10594 . 3))) ((def ((lib "racket/draw.rkt") font-list%)) . ((30199 . 3))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) get-family)) . ((33016 . 5))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-editor-margin)) . ((44913 . 4))) ((meth (((lib "racket/draw.rkt") font%) get-family)) . ((29344 . 4))) ((meth (((lib "racket/draw.rkt") brush%) get-gradient)) . ((8696 . 4))) ((meth (((lib "racket/draw.rkt") bitmap%) get-height)) . ((2038 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) set-multisample-size)) . ((35739 . 3))) ((constructor ((lib "racket/draw.rkt") font%)) . ((27351 . 40))) ((meth (((lib "racket/draw.rkt") color%) is-immutable?)) . ((12354 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-rounded-rectangle)) . ((16698 . 11))) ((meth (((lib "racket/draw.rkt") gl-context<%>) ok?)) . ((36342 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) reset)) . ((26032 . 2))) ((meth (((lib "racket/draw.rkt") point%) set-x)) . ((42189 . 3))) ((def ((lib "racket/draw.rkt") font-name-directory<%>)) . ((32341 . 2))) ((def ((lib "racket/draw.rkt") recorded-datum->procedure)) . ((56118 . 4))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-level-2)) . ((43946 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) copy-from)) . ((43390 . 5))) ((meth (((lib "racket/draw.rkt") bitmap-dc%) get-argb-pixels)) . ((5583 . 15))) ((meth (((lib "racket/draw.rkt") dc<%>) get-background)) . ((17943 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) rectangle)) . ((25833 . 6))) ((meth (((lib "racket/draw.rkt") region%) union)) . ((50141 . 3))) ((meth (((lib "racket/draw.rkt") brush%) get-handle)) . ((8891 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) set-text-background)) . ((22987 . 5))) ((meth (((lib "racket/draw.rkt") dc<%>) cache-font-metrics-key)) . ((12701 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) get-stencil-size)) . ((35349 . 2))) ((def ((lib "racket/draw.rkt") make-font)) . ((53062 . 21))) ((def ((lib "racket/draw.rkt") color%)) . ((11573 . 3))) ((constructor ((lib "racket/draw.rkt") gl-config%)) . ((35017 . 2))) ((meth (((lib "racket/draw.rkt") region%) set-arc)) . ((47784 . 13))) ((meth (((lib "racket/draw.rkt") brush%) get-stipple)) . ((8953 . 2))) ((meth (((lib "racket/draw.rkt") font%) get-underlined)) . ((29899 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-file)) . ((45049 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) scale)) . ((20129 . 4))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) get-font-id)) . ((33208 . 7))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-scaling)) . ((44498 . 4))) ((def ((lib "racket/draw.rkt") radial-gradient%)) . ((45992 . 3))) ((def ((lib "racket/draw.rkt") post-script-dc%)) . ((42309 . 4))) ((meth (((lib "racket/draw.rkt") font%) get-font-id)) . ((29481 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) get-text-background)) . ((19065 . 2))) ((meth (((lib "racket/draw.rkt") bitmap%) get-depth)) . ((1920 . 2))) ((meth (((lib "racket/draw.rkt") dc-path%) ellipse)) . ((25044 . 6))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-arc)) . ((13034 . 13))) ((meth (((lib "racket/draw.rkt") color%) copy-from)) . ((12262 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) set-font)) . ((21679 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-polygon)) . ((16069 . 10))) ((def ((lib "racket/draw.rkt") make-brush)) . ((51631 . 22))) ((meth (((lib "racket/draw.rkt") bitmap-dc%) draw-bitmap-section-smooth)) . ((4284 . 27))) ((meth (((lib "racket/draw.rkt") dc<%>) set-alpha)) . ((20229 . 3))) ((meth (((lib "racket/draw.rkt") point%) get-y)) . ((42148 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) resume-flush)) . ((20018 . 2))) ((def ((lib "racket/draw.rkt") the-pen-list)) . ((56443 . 2))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-editor-margin)) . ((43636 . 5))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-command)) . ((43584 . 2))) ((meth (((lib "racket/draw.rkt") color%) set)) . ((12101 . 6))) ((meth (((lib "racket/draw.rkt") pen%) set-width)) . ((40348 . 3))) ((meth (((lib "racket/draw.rkt") radial-gradient%) get-circles)) . ((46616 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) flush)) . ((17853 . 2))) ((meth (((lib "racket/draw.rkt") region%) subtract)) . ((50060 . 3))) ((meth (((lib "racket/draw.rkt") gl-context<%>) swap-buffers)) . ((36389 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-rectangle)) . ((16499 . 6))) ((meth (((lib "racket/draw.rkt") dc<%>) set-text-mode)) . ((23337 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) get-char-width)) . ((18133 . 2))) ((meth (((lib "racket/draw.rkt") gl-config%) set-stencil-size)) . ((35837 . 3))) ((constructor ((lib "racket/draw.rkt") pen%)) . ((38067 . 17))) ((meth (((lib "racket/draw.rkt") region%) is-empty?)) . ((47735 . 2))) ((constructor ((lib "racket/draw.rkt") dc-path%)) . ((24145 . 2))) ((def ((lib "racket/draw.rkt") make-platform-bitmap)) . ((55293 . 4))) ((def ((lib "racket/draw.rkt") make-pen)) . ((54378 . 18))) ((meth (((lib "racket/draw.rkt") bitmap%) has-alpha-channel?)) . ((2244 . 2))) ((meth (((lib "racket/draw.rkt") dc<%>) set-pen)) . ((21954 . 17))) ((meth (((lib "racket/draw.rkt") ps-setup%) set-command)) . ((44830 . 3))) ((meth (((lib "racket/draw.rkt") dc<%>) draw-lines)) . ((15339 . 8))) ((meth (((lib "racket/draw.rkt") dc<%>) transform)) . ((23784 . 3))) ((meth (((lib "racket/draw.rkt") brush%) set-stipple)) . ((9818 . 8))) ((def ((lib "racket/draw.rkt") record-dc%)) . ((46814 . 4))) ((meth (((lib "racket/draw.rkt") bitmap%) load-file)) . ((2351 . 14))) ((meth (((lib "racket/draw.rkt") font-name-directory<%>) get-post-script-name)) . ((33481 . 8))) ((meth (((lib "racket/draw.rkt") ps-setup%) get-margin)) . ((43999 . 5))) ((meth (((lib "racket/draw.rkt") dc<%>) get-size)) . ((18854 . 3))) ((meth (((lib "racket/draw.rkt") bitmap%) get-width)) . ((2180 . 2))) ((meth (((lib "racket/draw.rkt") region%) get-bounding-box)) . ((47425 . 2))) ((meth (((lib "racket/draw.rkt") font%) screen-glyph-exists?)) . ((30021 . 5))) ((meth (((lib "racket/draw.rkt") brush%) get-style)) . ((9025 . 7))) ((def ((lib "racket/draw.rkt") bitmap-dc%)) . ((4090 . 4))) ((meth (((lib "racket/draw.rkt") dc<%>) set-text-foreground)) . ((23162 . 5))) ((meth (((lib "racket/draw.rkt") point%) get-x)) . ((42107 . 2))) ((def ((lib "racket/draw/unsafe/brush.rkt") make-handle-brush)) . ((56539 . 13))) ((meth (((lib "racket/draw.rkt") font%) get-face)) . ((29287 . 2))) ((def ((lib "racket/draw.rkt") region%)) . ((47274 . 3))) ((meth (((lib "racket/draw.rkt") gl-config%) set-accum-size)) . ((35473 . 3))) ((meth (((lib "racket/draw.rkt") color%) green)) . ((11969 . 2))) ((def ((lib "racket/draw.rkt") svg-dc%)) . ((50295 . 4))) ((meth (((lib "racket/draw.rkt") dc-path%) curve-to)) . ((24872 . 8))))
class
bitmap% : class?
  superclass: object%
constructor
(make-object bitmap%  width           
                      height          
                     [monochrome?     
                      alpha?])    -> (is-a?/c bitmap%)
  width : exact-positive-integer?
  height : exact-positive-integer?
  monochrome? : any/c = #f
  alpha? : any/c = #f
(make-object bitmap%  in                         
                     [kind                       
                      bg-color                   
                      complain-on-failure?]) -> (is-a?/c bitmap%)
  in : (or/c path-string? input-port?)
  kind : (or/c 'unknown 'unknown/mask 'unknown/alpha = 'unknown
               'gif 'gif/mask 'gif/alpha
               'jpeg 'jpeg/alpha
               'png 'png/mask 'png/alpha
               'xbm 'xbm/alpha 'xpm 'xpm/alpha
               'bmp 'bmp/alpha)
  bg-color : (or/c (is-a?/c color%) #f) = #f
  complain-on-failure? : any/c = #f
(make-object bitmap% bits width height) -> (is-a?/c bitmap%)
  bits : bytes?
  width : exact-positive-integer?
  height : exact-positive-integer?
method
(send a-bitmap get-argb-pixels  x                     
                                y                     
                                width                 
                                height                
                                pixels                
                               [just-alpha?           
                                pre-multiplied?]) -> void?
  x : real?
  y : real?
  width : exact-nonnegative-integer?
  height : exact-nonnegative-integer?
  pixels : (and/c bytes? (not/c immutable?))
  just-alpha? : any/c = #f
  pre-multiplied? : any/c = #f
method
(send a-bitmap get-depth) -> exact-nonnegative-integer?
method
(send a-bitmap get-handle) -> cpointer?
method
(send a-bitmap get-height) -> exact-positive-integer?
method
(send a-bitmap get-loaded-mask) -> (or/c (is-a?/c bitmap%) #f)
method
(send a-bitmap get-width) -> exact-positive-integer?
method
(send a-bitmap has-alpha-channel?) -> boolean?
method
(send a-bitmap is-color?) -> boolean?
method
(send a-bitmap load-file  in                         
                         [kind                       
                          bg-color                   
                          complain-on-failure?]) -> boolean?
  in : (or/c path-string? input-port?)
  kind : (or/c 'unknown 'unknown/mask 'unknown/alpha = 'unknown
               'gif 'gif/mask 'gif/alpha
               'jpeg 'jpeg/alpha
               'png 'png/mask 'png/alpha
               'xbm 'xbm/alpha 'xpm 'xpm/alpha
               'bmp 'bmp/alpha)
  bg-color : (or/c (is-a?/c color%) #f) = #f
  complain-on-failure? : any/c = #f
method
(send a-bitmap make-dc) -> boolean?
method
(send a-bitmap ok?) -> boolean?
method
(send a-bitmap save-file name kind [quality]) -> boolean?
  name : (or/c path-string? output-port?)
  kind : (or/c 'png 'jpeg 'xbm 'xpm 'bmp)
  quality : (integer-in 0 100) = 75
method
(send a-bitmap set-argb-pixels  x                     
                                y                     
                                width                 
                                height                
                                pixels                
                               [just-alpha?           
                                pre-multiplied?]) -> void?
  x : real?
  y : real?
  width : exact-nonnegative-integer?
  height : exact-nonnegative-integer?
  pixels : bytes?
  just-alpha? : any/c = #f
  pre-multiplied? : any/c = #f
method
(send a-bitmap set-loaded-mask mask) -> void?
  mask : (is-a?/c bitmap%)
class
bitmap-dc% : class?
  superclass: object%
  extends: dc<%>
constructor
(new bitmap-dc% [bitmap bitmap]) -> (is-a?/c bitmap-dc%)
  bitmap : (or/c (is-a?/c bitmap%) #f)
method
(send a-bitmap-dc draw-bitmap-section-smooth  source      
                                              dest-x      
                                              dest-y      
                                              dest-width  
                                              dest-height 
                                              src-x       
                                              src-y       
                                              src-width   
                                              src-height  
                                             [style       
                                              color       
                                              mask])      
 -> boolean?
  source : (is-a?/c bitmap%)
  dest-x : real?
  dest-y : real?
  dest-width : (and/c real? (not/c negative?))
  dest-height : (and/c real? (not/c negative?))
  src-x : real?
  src-y : real?
  src-width : (and/c real? (not/c negative?))
  src-height : (and/c real? (not/c negative?))
  style : (or/c 'solid 'opaque 'xor) = 'solid
  color : (is-a?/c color%)
        = (send the-color-database find-color "black")
  mask : (or/c (is-a?/c bitmap%) #f) = #f
method
(send a-bitmap-dc get-argb-pixels  x                     
                                   y                     
                                   width                 
                                   height                
                                   pixels                
                                  [just-alpha?           
                                   pre-multiplied?]) -> void?
  x : real?
  y : real?
  width : exact-nonnegative-integer?
  height : exact-nonnegative-integer?
  pixels : (and/c bytes? (not/c immutable?))
  just-alpha? : any/c = #f
  pre-multiplied? : any/c = #f
method
(send a-bitmap-dc get-bitmap) -> (or/c (is-a?/c bitmap%) #f)
method
(send a-bitmap-dc get-pixel x y color) -> boolean?
  x : real?
  y : real?
  color : (is-a?/c color%)
method
(send a-bitmap-dc set-argb-pixels  x                     
                                   y                     
                                   width                 
                                   height                
                                   pixels                
                                  [just-alpha?           
                                   pre-multiplied?]) -> void?
  x : real?
  y : real?
  width : exact-nonnegative-integer?
  height : exact-nonnegative-integer?
  pixels : bytes?
  just-alpha? : any/c = #f
  pre-multiplied? : any/c = #f
method
(send a-bitmap-dc set-bitmap bitmap) -> void?
  bitmap : (or/c (is-a?/c bitmap%) #f)
method
(send a-bitmap-dc set-pixel x y color) -> void?
  x : real?
  y : real?
  color : (is-a?/c color%)
class
brush% : class?
  superclass: object%
constructor
(new brush%                                    
            [[color color]                     
             [style style]                     
             [stipple stipple]                 
             [gradient gradient]               
             [transformation transformation]]) 
 -> (is-a?/c brush%)
  color : (or/c string? (is-a?/c color%)) = "black"
  style : (or/c 'transparent 'solid 'opaque        = 'solid
                'xor 'hilite 'panel
                'bdiagonal-hatch 'crossdiag-hatch
                'fdiagonal-hatch 'cross-hatch
                'horizontal-hatch 'vertical-hatch)
  stipple : (or/c #f (is-a?/c bitmap%)) = #f
  gradient : (or/c #f                          = #f
                   (is-a?/c linear-gradient%)
                   (is-a?/c radial-gradient%))
  transformation : (or/c #f (vector/c (vector/c real? real? real?
                                                real? real? real?)
                                       real? real? real? real? real?))
                 = #f
method
(send a-brush get-color) -> (is-a?/c color%)
method
(send a-brush get-gradient) -> (or/c (is-a?/c linear-gradient%)
                                     (is-a?/c radial-gradient%)
                                     #f)
method
(send a-brush get-handle) -> (or/c cpointer? #f)
method
(send a-brush get-stipple) -> (or/c (is-a?/c bitmap%) #f)
method
(send a-brush get-style)
 -> (or/c 'transparent 'solid 'opaque
          'xor 'hilite 'panel
          'bdiagonal-hatch 'crossdiag-hatch
          'fdiagonal-hatch 'cross-hatch
          'horizontal-hatch 'vertical-hatch)
method
(send a-brush get-transformation)
 -> (or/c #f (vector/c (vector/c real? real? real? real? real? real?)
                       real? real? real? real? real?))
method
(send a-brush is-immutable?) -> boolean?
method
(send a-brush set-color color) -> void?
  color : (is-a?/c color%)
(send a-brush set-color color-name) -> void?
  color-name : string?
(send a-brush set-color red green blue) -> void?
  red : byte?
  green : byte?
  blue : byte?
method
(send a-brush set-stipple  bitmap               
                          [transformation]) -> void?
  bitmap : (or/c (is-a?/c bitmap%) #f)
  transformation : (or/c #f (vector/c (vector/c real? real? real?
                                                real? real? real?)
                                       real? real? real? real? real?))
                 = #f
method
(send a-brush set-style style) -> void?
  style : (or/c 'transparent 'solid 'opaque
                'xor 'hilite 'panel
                'bdiagonal-hatch 'crossdiag-hatch
                'fdiagonal-hatch 'cross-hatch
                'horizontal-hatch 'vertical-hatch)
class
brush-list% : class?
  superclass: object%
constructor
(new brush-list%) -> (is-a?/c brush-list%)
method
(send a-brush-list find-or-create-brush color  
                                        style) 
 -> (is-a?/c brush%)
  color : (is-a?/c color%)
  style : (or/c 'transparent 'solid 'opaque
                'xor 'hilite 'panel
                'bdiagonal-hatch 'crossdiag-hatch
                'fdiagonal-hatch 'cross-hatch
                'horizontal-hatch 'vertical-hatch)
(send a-brush-list find-or-create-brush color-name 
                                        style)     
 -> (or/c (is-a?/c brush%) #f)
  color-name : string?
  style : (or/c 'transparent 'solid 'opaque
                'xor 'hilite 'panel
                'bdiagonal-hatch 'crossdiag-hatch
                'fdiagonal-hatch 'cross-hatch
                'horizontal-hatch 'vertical-hatch)
class
color% : class?
  superclass: object%
constructor
(make-object color%) -> (is-a?/c color%)
(make-object color% red green blue [alpha]) -> (is-a?/c color%)
  red : byte?
  green : byte?
  blue : byte?
  alpha : (real-in 0 1) = 1.0
(make-object color% color-name) -> (is-a?/c color%)
  color-name : string?
method
(send a-color red) -> byte?
method
(send a-color green) -> byte?
method
(send a-color blue) -> byte?
method
(send a-color alpha) -> (real-in 0 1)
method
(send a-color set red green blue [alpha]) -> void?
  red : byte?
  green : byte?
  blue : byte?
  alpha : (real-in 0 1) = 1.0
method
(send a-color copy-from src) -> (is-a?/c color%)
  src : (is-a?/c color%)
method
(send a-color is-immutable?) -> boolean?
method
(send a-color ok?) -> #t
interface
color-database<%> : interface?
method
(send a-color-database find-color color-name)
 -> (or/c (is-a?/c color%) #f)
  color-name : string?
method
(send a-color-database get-names) -> (listof string?)
interface
dc<%> : interface?
method
(send a-dc cache-font-metrics-key) -> exact-integer?
method
(send a-dc clear) -> void?
method
(send a-dc copy x y width height x2 y2) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  x2 : real?
  y2 : real?
method
(send a-dc draw-arc x                 
                    y                 
                    width             
                    height            
                    start-radians     
                    end-radians)  -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  start-radians : real?
  end-radians : real?
method
(send a-dc draw-bitmap  source     
                        dest-x     
                        dest-y     
                       [style      
                        color      
                        mask]) -> boolean?
  source : (is-a?/c bitmap%)
  dest-x : real?
  dest-y : real?
  style : (or/c 'solid 'opaque 'xor) = 'solid
  color : (is-a?/c color%)
        = (send the-color-database find-color "black")
  mask : (or/c (is-a?/c bitmap%) #f) = #f
method
(send a-dc draw-bitmap-section  source         
                                dest-x         
                                dest-y         
                                src-x          
                                src-y          
                                src-width      
                                src-height     
                               [style          
                                color          
                                mask])     -> boolean?
  source : (is-a?/c bitmap%)
  dest-x : real?
  dest-y : real?
  src-x : real?
  src-y : real?
  src-width : (and/c real? (not/c negative?))
  src-height : (and/c real? (not/c negative?))
  style : (or/c 'solid 'opaque 'xor) = 'solid
  color : (is-a?/c color%)
        = (send the-color-database find-color "black")
  mask : (or/c (is-a?/c bitmap%) #f) = #f
method
(send a-dc draw-ellipse x y width height) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
method
(send a-dc draw-line x1 y1 x2 y2) -> void?
  x1 : real?
  y1 : real?
  x2 : real?
  y2 : real?
method
(send a-dc draw-lines  points        
                      [xoffset       
                       yoffset]) -> void?
  points : (or/c (listof (is-a?/c point%))
                 (listof (cons/c real? real?)))
  xoffset : real? = 0
  yoffset : real? = 0
method
(send a-dc draw-path  path             
                     [xoffset          
                      yoffset          
                      fill-style]) -> void?
  path : (is-a?/c dc-path%)
  xoffset : real? = 0
  yoffset : real? = 0
  fill-style : (or/c 'odd-even 'winding) = 'odd-even
method
(send a-dc draw-point x y) -> void?
  x : real?
  y : real?
method
(send a-dc draw-polygon  points           
                        [xoffset          
                         yoffset          
                         fill-style]) -> void?
  points : (or/c (listof (is-a?/c point%))
                 (listof (cons/c real? real?)))
  xoffset : real? = 0
  yoffset : real? = 0
  fill-style : (or/c 'odd-even 'winding) = 'odd-even
method
(send a-dc draw-rectangle x y width height) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
method
(send a-dc draw-rounded-rectangle  x            
                                   y            
                                   width        
                                   height       
                                  [radius]) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  radius : real? = -0.25
method
(send a-dc draw-spline x1 y1 x2 y2 x3 y3) -> void?
  x1 : real?
  y1 : real?
  x2 : real?
  y2 : real?
  x3 : real?
  y3 : real?
method
(send a-dc draw-text  text         
                      x            
                      y            
                     [combine?     
                      offset       
                      angle])  -> void?
  text : string?
  x : real?
  y : real?
  combine? : any/c = #f
  offset : exact-nonnegative-integer? = 0
  angle : real? = 0
method
(send a-dc end-doc) -> void?
method
(send a-dc end-page) -> void?
method
(send a-dc erase) -> void?
method
(send a-dc flush) -> void?
method
(send a-dc get-alpha) -> (real-in 0 1)
method
(send a-dc get-background) -> (is-a?/c color%)
method
(send a-dc get-brush) -> (is-a?/c brush%)
method
(send a-dc get-char-height) -> (and/c real? (not/c negative?))
method
(send a-dc get-char-width) -> (and/c real? (not/c negative?))
method
(send a-dc get-clipping-region) -> (or/c (is-a?/c region%) #f)
method
(send a-dc get-device-scale) -> (and/c real? (not/c negative?))
                                (and/c real? (not/c negative?))
method
(send a-dc get-font) -> (is-a?/c font%)
method
(send a-dc get-gl-context) -> (or/c (is-a?/c gl-context<%>) #f)
method
(send a-dc get-initial-matrix)
 -> (vector/c real? real? real? real? real? real?)
method
(send a-dc get-origin) -> real? real?
method
(send a-dc get-pen) -> (is-a?/c pen%)
method
(send a-dc get-rotation) -> real?
method
(send a-dc get-scale) -> real? real?
method
(send a-dc get-size) -> (and/c real? (not/c negative?))
                        (and/c real? (not/c negative?))
method
(send a-dc get-smoothing)
 -> (or/c 'unsmoothed 'smoothed 'aligned)
method
(send a-dc get-text-background) -> (is-a?/c color%)
method
(send a-dc get-text-extent  string   
                           [font     
                            combine? 
                            offset]) 
 -> (and/c real? (not/c negative?))
    (and/c real? (not/c negative?))
    (and/c real? (not/c negative?))
    (and/c real? (not/c negative?))
  string : string?
  font : (or/c (is-a?/c font%) #f) = #f
  combine? : any/c = #f
  offset : exact-nonnegative-integer? = 0
method
(send a-dc get-text-foreground) -> (is-a?/c color%)
method
(send a-dc get-text-mode) -> (or/c 'solid 'transparent)
method
(send a-dc get-transformation)
 -> (vector/c (vector/c real? real? real? real? real? real?)
              real? real? real? real? real?)
method
(send a-dc glyph-exists? c) -> boolean?
  c : char?
method
(send a-dc ok?) -> boolean?
method
(send a-dc resume-flush) -> void?
method
(send a-dc rotate angle) -> void?
  angle : real?
method
(send a-dc scale x-scale y-scale) -> void?
  x-scale : real?
  y-scale : real?
method
(send a-dc set-alpha opacity) -> void?
  opacity : (real-in 0 1)
method
(send a-dc set-background color) -> void?
  color : (is-a?/c color%)
(send a-dc set-background color-name) -> void?
  color-name : string?
method
(send a-dc set-brush brush) -> void?
  brush : (is-a?/c brush%)
(send a-dc set-brush color style) -> void?
  color : (is-a?/c color%)
  style : (or/c 'transparent 'solid 'opaque
                'xor 'hilite 'panel
                'bdiagonal-hatch 'crossdiag-hatch
                'fdiagonal-hatch 'cross-hatch
                'horizontal-hatch 'vertical-hatch)
(send a-dc set-brush color-name style) -> void?
  color-name : string?
  style : (or/c 'transparent 'solid 'opaque
                'xor 'hilite 'panel
                'bdiagonal-hatch 'crossdiag-hatch
                'fdiagonal-hatch 'cross-hatch
                'horizontal-hatch 'vertical-hatch)
method
(send a-dc set-clipping-rect x           
                             y           
                             width       
                             height) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
method
(send a-dc set-clipping-region rgn) -> void?
  rgn : (or/c (is-a?/c region%) #f)
method
(send a-dc set-font font) -> void?
  font : (is-a?/c font%)
method
(send a-dc set-initial-matrix m) -> void?
  m : (vector/c real? real? real? real? real? real?)
method
(send a-dc set-origin x y) -> void?
  x : real?
  y : real?
method
(send a-dc set-pen pen) -> void?
  pen : (is-a?/c pen%)
(send a-dc set-pen color width style) -> void?
  color : (is-a?/c color%)
  width : (real-in 0 255)
  style : (or/c 'transparent 'solid 'xor 'hilite
                'dot 'long-dash 'short-dash 'dot-dash
                'xor-dot 'xor-long-dash 'xor-short-dash
                'xor-dot-dash)
(send a-dc set-pen color-name width style) -> void?
  color-name : string?
  width : (real-in 0 255)
  style : (or/c 'transparent 'solid 'xor 'hilite
                'dot 'long-dash 'short-dash 'dot-dash
                'xor-dot 'xor-long-dash 'xor-short-dash
                'xor-dot-dash)
method
(send a-dc set-rotation angle) -> void?
  angle : real?
method
(send a-dc set-scale x-scale y-scale) -> void?
  x-scale : real?
  y-scale : real?
method
(send a-dc set-smoothing mode) -> void?
  mode : (or/c 'unsmoothed 'smoothed 'aligned)
method
(send a-dc set-text-background color) -> void?
  color : (is-a?/c color%)
(send a-dc set-text-background color-name) -> void?
  color-name : string?
method
(send a-dc set-text-foreground color) -> void?
  color : (is-a?/c color%)
(send a-dc set-text-foreground color-name) -> void?
  color-name : string?
method
(send a-dc set-text-mode mode) -> void?
  mode : (or/c 'solid 'transparent)
method
(send a-dc set-transformation t) -> void?
  t : (vector/c (vector/c real? real? real? real? real? real?)
                real? real? real? real? real?)
method
(send a-dc start-doc message) -> void?
  message : string?
method
(send a-dc start-page) -> void?
method
(send a-dc suspend-flush) -> void?
method
(send a-dc transform m) -> void?
  m : (vector/c real? real? real? real? real? real?)
method
(send a-dc translate dx dy) -> void?
  dx : real?
  dy : real?
method
(send a-dc try-color try result) -> void?
  try : (is-a?/c color%)
  result : (is-a?/c color%)
class
dc-path% : class?
  superclass: object%
constructor
(new dc-path%) -> (is-a?/c dc-path%)
method
(send a-dc-path append path) -> void?
  path : (is-a?/c dc-path%)
method
(send a-dc-path arc  x                        
                     y                        
                     width                    
                     height                   
                     start-radians            
                     end-radians              
                    [counter-clockwise?]) -> void?
  x : real?
  y : real?
  width : real?
  height : real?
  start-radians : real?
  end-radians : real?
  counter-clockwise? : any/c = #t
method
(send a-dc-path close) -> void?
method
(send a-dc-path curve-to x1 y1 x2 y2 x3 y3) -> void?
  x1 : real?
  y1 : real?
  x2 : real?
  y2 : real?
  x3 : real?
  y3 : real?
method
(send a-dc-path ellipse x y width height) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
method
(send a-dc-path get-bounding-box) -> real? real? real? real?
method
(send a-dc-path line-to x y) -> void?
  x : real?
  y : real?
method
(send a-dc-path lines  points        
                      [xoffset       
                       yoffset]) -> void?
  points : (or/c (listof (is-a?/c point%))
                 (listof (cons/c real? real?)))
  xoffset : real? = 0
  yoffset : real? = 0
method
(send a-dc-path move-to x y) -> void?
  x : real?
  y : real?
method
(send a-dc-path open?) -> boolean?
method
(send a-dc-path rectangle x y width height) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
method
(send a-dc-path reset) -> void?
method
(send a-dc-path reverse) -> void?
method
(send a-dc-path rotate radians) -> void?
  radians : real?
method
(send a-dc-path rounded-rectangle  x            
                                   y            
                                   width        
                                   height       
                                  [radius]) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  radius : real? = -0.25
method
(send a-dc-path scale x y) -> void?
  x : real?
  y : real?
method
(send a-dc-path text-outline  font           
                              str            
                              x              
                              y              
                             [combine?]) -> void?
  font : (is-a?/c font%)
  str : string?
  x : real?
  y : real?
  combine? : any/c = #f
method
(send a-dc-path transform m) -> void?
  m : (vector/c real? real? real? real? real? real?)
method
(send a-dc-path translate x y) -> void?
  x : real?
  y : real?
class
font% : class?
  superclass: object%
constructor
(make-object font%) -> (is-a?/c font%)
(make-object font%  size                
                    family              
                   [style               
                    weight              
                    underline?          
                    smoothing           
                    size-in-pixels?     
                    hinting])       -> (is-a?/c font%)
  size : (integer-in 1 1024)
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
  style : (or/c 'normal 'italic 'slant) = 'normal
  weight : (or/c 'normal 'bold 'light) = 'normal
  underline? : any/c = #f
  smoothing : (or/c 'default 'partly-smoothed  = 'default
                        'smoothed 'unsmoothed)
  size-in-pixels? : any/c = #f
  hinting : (or/c 'aligned 'unaligned) = 'aligned
(make-object font%  size                
                    face                
                    family              
                   [style               
                    weight              
                    underline?          
                    smoothing           
                    size-in-pixels?     
                    hinting])       -> (is-a?/c font%)
  size : (integer-in 1 1024)
  face : string?
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
  style : (or/c 'normal 'italic 'slant) = 'normal
  weight : (or/c 'normal 'bold 'light) = 'normal
  underline? : any/c = #f
  smoothing : (or/c 'default 'partly-smoothed = 'default
                    'smoothed 'unsmoothed)
  size-in-pixels? : any/c = #f
  hinting : (or/c 'aligned 'unaligned) = 'aligned
method
(send a-font get-face) -> (or/c string? #f)
method
(send a-font get-family)
 -> (or/c 'default 'decorative 'roman 'script
          'swiss 'modern 'symbol 'system)
method
(send a-font get-font-id) -> exact-integer?
method
(send a-font get-hinting) -> (or/c 'aligned 'unaligned)
method
(send a-font get-point-size) -> (integer-in 1 1024)
method
(send a-font get-size-in-pixels) -> boolean?
method
(send a-font get-smoothing)
 -> (or/c 'default 'partly-smoothed 'smoothed 'unsmoothed)
method
(send a-font get-style) -> (or/c 'normal 'italic 'slant)
method
(send a-font get-underlined) -> boolean?
method
(send a-font get-weight) -> (or/c 'normal 'bold 'light)
method
(send a-font screen-glyph-exists?  c                
                                  [for-label?]) -> boolean?
  c : char
  for-label? : any/c = #f
class
font-list% : class?
  superclass: object%
constructor
(new font-list%) -> (is-a?/c font-list%)
method
(send a-font-list find-or-create-font  size            
                                       family          
                                       style           
                                       weight          
                                      [underline?      
                                       smoothing       
                                       size-in-pixels? 
                                       hinting])       
 -> (is-a?/c font%)
  size : (integer-in 1 255)
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
  style : (or/c 'normal 'italic 'slant)
  weight : (or/c 'normal 'bold 'light)
  underline? : any/c = #f
  smoothing : (or/c 'default 'partly-smoothed 'smoothed 'unsmoothed)
            = 'default
  size-in-pixels? : any/c = #f
  hinting : (or/c 'aligned 'unaligned) = 'aligned
(send a-font-list find-or-create-font  size            
                                       face            
                                       family          
                                       style           
                                       weight          
                                      [underline       
                                       smoothing       
                                       size-in-pixels? 
                                       hinting])       
 -> (is-a?/c font%)
  size : (integer-in 1 255)
  face : string?
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
  style : (or/c 'normal 'italic 'slant)
  weight : (or/c 'normal 'bold 'light)
  underline : any/c = #f
  smoothing : (or/c 'default 'partly-smoothed 'smoothed 'unsmoothed)
            = 'default
  size-in-pixels? : any/c = #f
  hinting : (or/c 'aligned 'unaligned) = 'aligned
interface
font-name-directory<%> : interface?
method
(send a-font-name-directory find-family-default-font-id family)
 -> exact-integer?
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
method
(send a-font-name-directory find-or-create-font-id name    
                                                   family) 
 -> exact-integer?
  name : string?
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
method
(send a-font-name-directory get-face-name font-id)
 -> (or/c string? #f)
  font-id : exact-integer?
method
(send a-font-name-directory get-family font-id)
 -> (or/c 'default 'decorative 'roman 'script
          'swiss 'modern 'symbol 'system)
  font-id : exact-integer?
method
(send a-font-name-directory get-font-id name    
                                        family) 
 -> exact-integer?
  name : string?
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
method
(send a-font-name-directory get-post-script-name font-id 
                                                 weight  
                                                 style)  
 -> (or/c string? #f)
  font-id : exact-integer?
  weight : (or/c 'normal 'bold 'light)
  style : (or/c 'normal 'italic 'slant)
method
(send a-font-name-directory get-screen-name font-id 
                                            weight  
                                            style)  
 -> (or/c string? #f)
  font-id : exact-integer?
  weight : (or/c 'normal 'bold 'light)
  style : (or/c 'normal 'italic 'slant)
method
(send a-font-name-directory set-post-script-name font-id 
                                                 weight  
                                                 style   
                                                 name)   
 -> void?
  font-id : exact-integer?
  weight : (or/c 'normal 'bold 'light)
  style : (or/c 'normal 'italic 'slant)
  name : string?
method
(send a-font-name-directory set-screen-name font-id     
                                            weight      
                                            style       
                                            name)   -> void?
  font-id : exact-integer?
  weight : (or/c 'normal 'bold 'light)
  style : (or/c 'normal 'italic 'slant)
  name : string?
class
gl-config% : class?
  superclass: object%
constructor
(new gl-config%) -> (is-a?/c gl-config%)
method
(send a-gl-config get-accum-size) -> (integer-in 0 256)
method
(send a-gl-config get-depth-size) -> (integer-in 0 256)
method
(send a-gl-config get-double-buffered) -> boolean?
method
(send a-gl-config get-multisample-size) -> (integer-in 0 256)
method
(send a-gl-config get-stencil-size) -> (integer-in 0 256)
method
(send a-gl-config get-stereo) -> boolean?
method
(send a-gl-config set-accum-size on?) -> void?
  on? : (integer-in 0 256)
method
(send a-gl-config set-depth-size on?) -> void?
  on? : (integer-in 0 256)
method
(send a-gl-config set-double-buffered on?) -> void?
  on? : any/c
method
(send a-gl-config set-multisample-size on?) -> void?
  on? : (integer-in 0 256)
method
(send a-gl-config set-stencil-size on?) -> void?
  on? : (integer-in 0 256)
method
(send a-gl-config set-stereo on?) -> void?
  on? : any/c
interface
gl-context<%> : interface?
method
(send a-gl-context call-as-current  thunk                
                                   [alternate            
                                    enable-breaks?]) -> any/c
  thunk : (-> any)
  alternate : evt? = never-evt
  enable-breaks? : any/c = #f
method
(send a-gl-context ok?) -> boolean?
method
(send a-gl-context swap-buffers) -> void?
class
linear-gradient% : class?
  superclass: object%
constructor
(new linear-gradient%                
                      [x0 x0]        
                      [y0 y0]        
                      [x1 x1]        
                      [y1 y1]        
                      [stops stops]) 
 -> (is-a?/c linear-gradient%)
  x0 : real?
  y0 : real?
  x1 : real?
  y1 : real?
  stops : (listof (list/c (real-in 0 1) (is-a?/c color%)))
method
(send a-linear-gradient get-line) -> real? real? real? real?
method
(send a-linear-gradient get-stops)
 -> (listof (list/c (real-in/c 0 1) (is-a?/c color%)))
class
pdf-dc% : class?
  superclass: object%
  extends: dc<%>
constructor
(new pdf-dc%                                  
             [[interactive interactive]       
              [parent parent]                 
              [use-paper-bbox use-paper-bbox] 
              [as-eps as-eps]                 
              [width width]                   
              [height height]                 
              [output output]])               
 -> (is-a?/c pdf-dc%)
  interactive : any/c = #t
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  use-paper-bbox : any/c = #f
  as-eps : any/c = #t
  width : (or/c (and/c real? (not/c negative?)) #f) = #f
  height : (or/c (and/c real? (not/c negative?)) #f) = #f
  output : (or/c path-string? output-port? #f) = #f
class
pen% : class?
  superclass: object%
constructor
(new pen%                          
          [[color color]           
           [width width]           
           [style style]           
           [cap cap]               
           [join join]             
           [stipple stipple]]) -> (is-a?/c pen%)
  color : (or/c string? (is-a?/c color%)) = "black"
  width : (real-in 0 255) = 0
  style : (or/c 'transparent 'solid 'xor 'hilite        = 'solid
                'dot 'long-dash 'short-dash 'dot-dash
                'xor-dot 'xor-long-dash 'xor-short-dash
                'xor-dot-dash)
  cap : (or/c 'round 'projecting 'butt) = 'round
  join : (or/c 'round 'bevel 'miter) = 'round
  stipple : (or/c #f (is-a?/c bitmap%)) = #f
method
(send a-pen get-cap) -> (or/c 'round 'projecting 'butt)
method
(send a-pen get-color) -> (is-a?/c color%)
method
(send a-pen get-join) -> (or/c 'round 'bevel 'miter)
method
(send a-pen get-stipple) -> (or/c (is-a?/c bitmap%) #f)
method
(send a-pen get-style)
 -> (or/c 'transparent 'solid 'xor 'hilite
          'dot 'long-dash 'short-dash 'dot-dash
          'xor-dot 'xor-long-dash 'xor-short-dash
          'xor-dot-dash)
method
(send a-pen get-width) -> (real-in 0 255)
method
(send a-pen is-immutable?) -> boolean?
method
(send a-pen set-cap cap-style) -> void?
  cap-style : (or/c 'round 'projecting 'butt)
method
(send a-pen set-color color) -> void?
  color : (is-a?/c color%)
(send a-pen set-color color-name) -> void?
  color-name : string?
(send a-pen set-color red green blue) -> void?
  red : byte?
  green : byte?
  blue : byte?
method
(send a-pen set-join join-style) -> void?
  join-style : (or/c 'round 'bevel 'miter)
method
(send a-pen set-stipple bitmap) -> void?
  bitmap : (or/c (is-a?/c bitmap%) #f)
method
(send a-pen set-style style) -> void?
  style : (or/c 'transparent 'solid 'xor 'hilite
                'dot 'long-dash 'short-dash 'dot-dash
                'xor-dot 'xor-long-dash 'xor-short-dash
                'xor-dot-dash)
method
(send a-pen set-width width) -> void?
  width : (real-in 0 255)
class
pen-list% : class?
  superclass: object%
constructor
(new pen-list%) -> (is-a?/c pen-list%)
method
(send a-pen-list find-or-create-pen  color      
                                     width      
                                     style      
                                    [cap        
                                     join]) -> (is-a?/c pen%)
  color : (is-a?/c color%)
  width : (real-in 0 255)
  style : (or/c 'transparent 'solid 'xor 'hilite
                'dot 'long-dash 'short-dash 'dot-dash
                'xor-dot 'xor-long-dash 'xor-short-dash
                'xor-dot-dash)
  cap : (or/c 'round 'projecting 'butt) = 'round
  join : (or/c 'round 'bevel 'miter) = 'round
(send a-pen-list find-or-create-pen  color-name 
                                     width      
                                     style      
                                    [cap        
                                     join])     
 -> (or/c (is-a?/c pen%) #f)
  color-name : string?
  width : (real-in 0 255)
  style : (or/c 'transparent 'solid 'xor 'hilite
                'dot 'long-dash 'short-dash 'dot-dash
                'xor-dot 'xor-long-dash 'xor-short-dash
                'xor-dot-dash)
  cap : (or/c 'round 'projecting 'butt) = 'round
  join : (or/c 'round 'bevel 'miter) = 'round
class
point% : class?
  superclass: object%
constructor
(make-object point%) -> (is-a?/c point%)
(make-object point% x y) -> (is-a?/c point%)
  x : real?
  y : real?
method
(send a-point get-x) -> real?
method
(send a-point get-y) -> real?
method
(send a-point set-x x) -> void?
  x : real?
method
(send a-point set-y y) -> void?
  y : real?
class
post-script-dc% : class?
  superclass: object%
  extends: dc<%>
constructor
(new post-script-dc%                                  
                     [[interactive interactive]       
                      [parent parent]                 
                      [use-paper-bbox use-paper-bbox] 
                      [as-eps as-eps]                 
                      [width width]                   
                      [height height]                 
                      [output output]])               
 -> (is-a?/c post-script-dc%)
  interactive : any/c = #t
  parent : (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) = #f
  use-paper-bbox : any/c = #f
  as-eps : any/c = #t
  width : (or/c (and/c real? (not/c negative?)) #f) = #f
  height : (or/c (and/c real? (not/c negative?)) #f) = #f
  output : (or/c path-string? output-port? #f) = #f
class
ps-setup% : class?
  superclass: object%
constructor
(new ps-setup%) -> (is-a?/c ps-setup%)
method
(send a-ps-setup copy-from  source               
                           [copy-filename?]) -> void?
  source : (is-a?/c ps-setup%)
  copy-filename? : any/c = #f
method
(send a-ps-setup get-command) -> string?
method
(send a-ps-setup get-editor-margin h-margin      
                                   v-margin) -> void?
  h-margin : (box/c (and/c real? (not/c negative?)))
  v-margin : (box/c (and/c real? (not/c negative?)))
method
(send a-ps-setup get-file) -> (or/c path-string? #f)
method
(send a-ps-setup get-level-2) -> boolean?
method
(send a-ps-setup get-margin h-margin      
                            v-margin) -> void?
  h-margin : (box/c (and/c real? (not/c negative?)))
  v-margin : (box/c (and/c real? (not/c negative?)))
method
(send a-ps-setup get-mode) -> (or/c 'preview 'file 'printer)
method
(send a-ps-setup get-orientation)
 -> (or/c 'portrait 'landscape)
method
(send a-ps-setup get-paper-name) -> string?
method
(send a-ps-setup get-preview-command) -> string?
method
(send a-ps-setup get-scaling x y) -> void?
  x : (box/c (and/c real? (not/c negative?)))
  y : (box/c (and/c real? (not/c negative?)))
method
(send a-ps-setup get-translation x y) -> void?
  x : (box/c (and/c real? (not/c negative?)))
  y : (box/c (and/c real? (not/c negative?)))
method
(send a-ps-setup set-command command) -> void?
  command : string?
method
(send a-ps-setup set-editor-margin h v) -> void?
  h : exact-nonnegative-integer?
  v : exact-nonnegative-integer?
method
(send a-ps-setup set-file filename) -> void?
  filename : (or/c path-string? #f)
method
(send a-ps-setup set-level-2 on?) -> void?
  on? : any/c
method
(send a-ps-setup set-margin h v) -> void?
  h : (and/c real? (not/c negative?))
  v : (and/c real? (not/c negative?))
method
(send a-ps-setup set-mode mode) -> void?
  mode : (or/c 'preview 'file 'printer)
method
(send a-ps-setup set-orientation orientation) -> void?
  orientation : (or/c 'portrait 'landscape)
method
(send a-ps-setup set-paper-name type) -> void?
  type : string?
method
(send a-ps-setup set-preview-command command) -> void?
  command : string?
method
(send a-ps-setup set-scaling x y) -> void?
  x : (and/c real? (not/c negative?))
  y : (and/c real? (not/c negative?))
method
(send a-ps-setup set-translation x y) -> void?
  x : real?
  y : real?
class
radial-gradient% : class?
  superclass: object%
constructor
(new radial-gradient%                
                      [x0 x0]        
                      [y0 y0]        
                      [r0 r0]        
                      [x1 x1]        
                      [y1 y1]        
                      [r1 r1]        
                      [stops stops]) 
 -> (is-a?/c radial-gradient%)
  x0 : real?
  y0 : real?
  r0 : real?
  x1 : real?
  y1 : real?
  r1 : real?
  stops : (listof (list/c (real-in 0 1) (is-a?/c color%)))
method
(send a-radial-gradient get-circles)
 -> real? real? real? real? real? real?
method
(send a-radial-gradient get-stops)
 -> (listof (list/c (real-in 0 1) (is-a?/c color%)))
class
record-dc% : class?
  superclass: object%
  extends: dc<%>
constructor
(new record-dc%                        
                [[width width]         
                 [height height]]) -> (is-a?/c record-dc%)
  width : (>=/c 0) = 640
  height : (>=/c 0) = 480
method
(send a-record-dc get-recorded-datum) -> any/c
method
(send a-record-dc get-recorded-procedure)
 -> ((is-a?/c dc<%>) . -> . void?)
class
region% : class?
  superclass: object%
constructor
(new region% [dc dc]) -> (is-a?/c region%)
  dc : (or/c (is-a?/c dc<%>) #f)
method
(send a-region get-bounding-box) -> real? real? real? real?
method
(send a-region get-dc) -> (or/c (is-a?/c dc<%>) #f)
method
(send a-region in-region? x y) -> boolean?
  x : real?
  y : real?
method
(send a-region intersect rgn) -> void?
  rgn : (is-a?/c region%)
method
(send a-region is-empty?) -> boolean?
method
(send a-region set-arc x                 
                       y                 
                       width             
                       height            
                       start-radians     
                       end-radians)  -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  start-radians : real?
  end-radians : real?
method
(send a-region set-ellipse x y width height) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
method
(send a-region set-path  path             
                        [xoffset          
                         yoffset          
                         fill-style]) -> void?
  path : (is-a?/c dc-path%)
  xoffset : real? = 0
  yoffset : real? = 0
  fill-style : (or/c 'odd-even 'winding) = 'odd-even
method
(send a-region set-polygon  points           
                           [xoffset          
                            yoffset          
                            fill-style]) -> void?
  points : (or/c (listof (is-a?/c point%))
                 (listof (cons/c real? real?)))
  xoffset : real? = 0
  yoffset : real? = 0
  fill-style : (or/c 'odd-even 'winding) = 'odd-even
method
(send a-region set-rectangle x           
                             y           
                             width       
                             height) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
method
(send a-region set-rounded-rectangle  x            
                                      y            
                                      width        
                                      height       
                                     [radius]) -> void?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  radius : real? = -0.25
method
(send a-region subtract rgn) -> void?
  rgn : (is-a?/c region%)
method
(send a-region union rgn) -> void?
  rgn : (is-a?/c region%)
method
(send a-region xor rgn) -> void?
  rgn : (is-a?/c region%)
class
svg-dc% : class?
  superclass: object%
  extends: dc<%>
constructor
(new svg-dc%                        
              [width width]         
              [height height]       
              [output output]       
             [[exists exists]]) -> (is-a?/c svg-dc%)
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  output : (or/c path-string? output-port?)
  exists : (or/c 'error 'append 'update 'can-update = 'error
                 'replace 'truncate
                 'must-truncate 'truncate/replace)
parameter
(current-ps-setup) -> (is-a?/c ps-setup%)
(current-ps-setup pss) -> void?
  pss : (is-a?/c ps-setup%)
procedure
(get-face-list [kind                            
                #:all-variants? all-variants?]) 
 -> (listof string?)
  kind : (or/c 'mono 'all) = 'all
  all-variants? : any/c = #f
procedure
(get-family-builtin-face family) -> string?
  family : (or/c 'default 'decorative 'roman 'script
                 'swiss 'modern 'symbol 'system)
procedure
(make-bitmap width height [alpha?]) -> (is-a?/c bitmap%)
  width : exact-positive-integer?
  height : exact-positive-integer?
  alpha? : any/c = #t
procedure
(make-brush [#:color color                       
             #:style style                       
             #:stipple stipple                   
             #:gradient gradient                 
             #:transformation transformation     
             #:immutable? immutable?])       -> (is-a?/c brush%)
  color : (or/c string? (is-a?/c color%)) = (make-color 0 0 0)
  style : (or/c 'transparent 'solid 'opaque        = 'solid
                'xor 'hilite 'panel
                'bdiagonal-hatch 'crossdiag-hatch
                'fdiagonal-hatch 'cross-hatch
                'horizontal-hatch 'vertical-hatch)
  stipple : (or/c #f (is-a?/c bitmap%)) = #f
  gradient : (or/c #f                         = #f
                  (is-a?/c linear-gradient%)
                  (is-a?/c radial-gradient%))
  transformation : (or/c #f (vector/c (vector/c real? real? real?
                                                real? real? real?)
                                       real? real? real? real? real?))
                 = #f
  immutable? : any/c = #t
procedure
(make-color red green blue [alpha]) -> (is-a?/c color%)
  red : byte?
  green : byte?
  blue : byte?
  alpha : (real-in 0 1) = 1.0
procedure
(make-font [#:size size                           
            #:face face                           
            #:family family                       
            #:style style                         
            #:weight weight                       
            #:underlined? underlined?             
            #:smoothing smoothing                 
            #:size-in-pixels? size-in-pixels?     
            #:hinting hinting])               -> (is-a?/c font%)
  size : (integer-in 1 1024) = 12
  face : (or/c string? #f) = #f
  family : (or/c 'default 'decorative 'roman 'script = 'default
                 'swiss 'modern 'symbol 'system)
  style : (or/c 'normal 'italic 'slant) = 'normal
  weight : (or/c 'normal 'bold 'light) = 'normal
  underlined? : any/c = #f
  smoothing : (or/c 'default 'partly-smoothed = 'default
                    'smoothed 'unsmoothed)
  size-in-pixels? : any/c = #f
  hinting : (or/c 'aligned 'unaligned) = 'aligned
procedure
(make-monochrome-bitmap width height [bits]) -> (is-a?/c bitmap%)
  width : exact-positive-integer?
  height : exact-positive-integer?
  bits : (or/c bytes? #f) = #f
procedure
(make-pen [#:color color                 
           #:width width                 
           #:style style                 
           #:cap cap                     
           #:join join                   
           #:stipple stipple             
           #:immutable? immutable?]) -> (is-a?/c pen%)
  color : (or/c string? (is-a?/c color%)) = (make-color 0 0 0)
  width : (real-in 0 255) = 0
  style : (or/c 'transparent 'solid 'xor 'hilite        = 'solid
                'dot 'long-dash 'short-dash 'dot-dash
                'xor-dot 'xor-long-dash 'xor-short-dash
                'xor-dot-dash)
  cap : (or/c 'round 'projecting 'butt) = 'round
  join : (or/c 'round 'bevel 'miter) = 'round
  stipple : (or/c #f (is-a?/c bitmap%)) = #f
  immutable? : any/c = #t
procedure
(make-platform-bitmap width height) -> (is-a?/c bitmap%)
  width : exact-positive-integer?
  height : exact-positive-integer?
procedure
(read-bitmap  in                         
             [kind                       
              bg-color                   
              complain-on-failure?]) -> (is-a?/c bitmap%)
  in : (or path-string? input-port?)
  kind : (or/c 'unknown 'unknown/mask 'unknown/alpha
               'gif 'gif/mask 'gif/alpha
               'jpeg 'jpeg/alpha
               'png 'png/mask 'png/alpha
               'xbm 'xbm/alpha 'xpm 'xpm/alpha
               'bmp 'bmp/alpha)
       = 'unknown/alpha
  bg-color : (or/c (is-a?/c color%) #f) = #f
  complain-on-failure? : any/c = #t
procedure
(recorded-datum->procedure datum)
 -> ((is-a?/c dc<%>) . -> . void?)
  datum : any/c
value
the-brush-list : (is-a?/c brush-list%)
value
the-color-database : (is-a?/c color-database<%>)
value
the-font-list : (is-a?/c font-list%)
value
the-font-name-directory : (is-a?/c font-name-directory<%>)
value
the-pen-list : (is-a?/c pen-list%)
value
draw@ : unit?
signature
draw^ : signature
procedure
(make-handle-brush  handle              
                    width               
                    height              
                    transformation      
                   [#:copy? copy?]) -> (is-a?/c brush%)
  handle : cpointer?
  width : exact-nonnegative-integer?
  height : exact-nonnegative-integer?
  transformation : (or/c #f (vector/c (vector/c real? real? real?
                                                real? real? real?)
                                      real? real? real? real? real?))
  copy? : any/c = #t
value
cairo-lib : (or/c ffi-lib? #f)
