16205
((3) 0 () 25 ((q lib "racket/draw.rkt") (c (? . 0) q dc<%>) (c (? . 0) q bitmap%) (c (? . 0) q region%) (c (? . 0) q font-name-directory<%>) (c (? . 0) q pen%) (c (? . 0) q gl-config%) (c (? . 0) q brush%) (c (? . 0) q dc-path%) (c (? . 0) q gl-context<%>) (c (? . 0) q ps-setup%) (c (? . 0) q color%) (c (? . 0) q font%) (c (? . 0) q brush-list%) (c (? . 0) q bitmap-dc%) (c (? . 0) q point%) (c (? . 0) q post-script-dc%) (c (? . 0) q linear-gradient%) (c (? . 0) q record-dc%) (c (? . 0) q radial-gradient%) (c (? . 0) q font-list%) (c (? . 0) q color-database<%>) (c (? . 0) q pdf-dc%) (c (? . 0) q pen-list%) (c (? . 0) q svg-dc%)) () (h ! (equal) ((c meth c (c (? . 15) q get-x)) q (40141 . 2)) ((c meth c (c (? . 11) q green)) q (11280 . 2)) ((c meth c (c (? . 7) q is-immutable?)) q (9038 . 2)) ((c meth c (c (? . 1) q draw-bitmap-section)) q (13351 . 22)) ((c constructor c (? . 3)) q (45358 . 3)) ((c meth c (c (? . 1) q draw-arc)) q (12345 . 13)) ((c def c (c (? . 0) q read-bitmap)) q (53476 . 15)) ((c meth c (c (? . 6) q set-stereo)) q (34639 . 3)) ((c meth c (c (? . 2) q has-alpha-channel?)) q (2244 . 2)) ((c meth c (c (? . 1) q get-origin)) q (17971 . 2)) ((c meth c (c (? . 2) q get-argb-pixels)) q (1246 . 15)) ((c meth c (c (? . 4) q get-post-script-name)) q (32189 . 8)) ((c meth c (c (? . 1) q set-font)) q (20990 . 3)) ((c meth c (c (? . 3) q is-empty?)) q (45769 . 2)) ((c meth c (c (? . 1) q set-alpha)) q (19540 . 3)) ((c def c (c (? . 0) q get-family-builtin-face)) q (49311 . 4)) ((c meth c (c (? . 8) q transform)) q (26416 . 3)) ((c meth c (c (? . 1) q transform)) q (23095 . 3)) ((c meth c (c (? . 10) q get-command)) q (41618 . 2)) ((c def c (? . 16)) q (40343 . 4)) ((c meth c (c (? . 1) q draw-text)) q (16626 . 13)) ((c meth c (c (? . 4) q set-post-script-name)) q (32856 . 10)) ((c meth c (c (? . 5) q set-color)) q (37849 . 9)) ((c meth c (c (? . 5) q is-immutable?)) q (37713 . 2)) ((c meth c (c (? . 3) q in-region?)) q (45599 . 4)) ((c constructor c (? . 6)) q (33725 . 2)) ((c meth c (c (? . 7) q set-stipple)) q (9364 . 8)) ((c meth c (c (? . 1) q set-text-mode)) q (22648 . 3)) ((c meth c (c (? . 1) q erase)) q (17126 . 2)) ((c meth c (c (? . 1) q set-clipping-rect)) q (20557 . 9)) ((c meth c (c (? . 8) q move-to)) q (25015 . 4)) ((c meth c (c (? . 2) q set-loaded-mask)) q (4000 . 3)) ((c meth c (c (? . 18) q get-recorded-datum)) q (45159 . 2)) ((c meth c (c (? . 3) q intersect)) q (45687 . 3)) ((c meth c (c (? . 6) q set-double-buffered)) q (34365 . 3)) ((c meth c (c (? . 12) q get-size-in-pixels)) q (28458 . 2)) ((c meth c (c (? . 3) q subtract)) q (48094 . 3)) ((c def c (c (? . 0) q make-brush)) q (49665 . 22)) ((c meth c (c (? . 8) q rectangle)) q (25144 . 6)) ((c constructor c (? . 17)) q (35209 . 13)) ((c meth c (c (? . 9) q ok?)) q (35050 . 2)) ((c meth c (c (? . 1) q draw-polygon)) q (15380 . 10)) ((c meth c (c (? . 9) q call-as-current)) q (34751 . 7)) ((c def c (? . 6)) q (33672 . 3)) ((c constructor c (? . 14)) q (4163 . 3)) ((c meth c (c (? . 6) q set-stencil-size)) q (34545 . 3)) ((c meth c (c (? . 5) q set-cap)) q (37763 . 3)) ((c meth c (c (? . 2) q set-argb-pixels)) q (3356 . 15)) ((c meth c (c (? . 10) q get-file)) q (41914 . 2)) ((c meth c (c (? . 4) q get-font-id)) q (31916 . 7)) ((c meth c (c (? . 5) q set-width)) q (38382 . 3)) ((c meth c (c (? . 1) q get-char-width)) q (17444 . 2)) ((c meth c (c (? . 10) q set-translation)) q (43934 . 4)) ((c meth c (c (? . 7) q set-style)) q (9825 . 3)) ((c meth c (c (? . 1) q get-pen)) q (18021 . 2)) ((c meth c (c (? . 1) q get-brush)) q (17313 . 2)) ((c def c (c (? . 0) q brush-style/c)) q (54839 . 2)) ((c meth c (c (? . 3) q set-rounded-rectangle)) q (47632 . 11)) ((c meth c (c (? . 3) q set-arc)) q (45818 . 13)) ((c def c (? . 9)) q (34712 . 2)) ((c meth c (c (? . 3) q union)) q (48175 . 3)) ((c meth c (c (? . 10) q get-editor-margin)) q (41670 . 5)) ((c meth c (c (? . 1) q set-text-background)) q (22298 . 5)) ((c meth c (c (? . 1) q set-background)) q (19623 . 5)) ((c meth c (c (? . 8) q open?)) q (25098 . 2)) ((c meth c (c (? . 8) q ellipse)) q (24355 . 6)) ((c meth c (c (? . 2) q make-dc)) q (3051 . 2)) ((c def c (c (? . 0) q make-font)) q (51096 . 21)) ((c meth c (c (? . 1) q clear)) q (12076 . 2)) ((c meth c (c (? . 1) q set-smoothing)) q (22192 . 3)) ((c meth c (c (? . 1) q get-text-background)) q (18376 . 2)) ((c meth c (c (? . 11) q blue)) q (11321 . 2)) ((c meth c (c (? . 12) q get-weight)) q (28676 . 2)) ((c meth c (c (? . 1) q set-clipping-region)) q (20890 . 3)) ((c def c (c (? . 0) q the-brush-list)) q (54257 . 2)) ((c constructor c (? . 7)) q (7426 . 18)) ((c meth c (c (? . 6) q get-stencil-size)) q (34057 . 2)) ((c meth c (c (? . 5) q set-join)) q (38117 . 3)) ((c meth c (c (? . 1) q get-char-height)) q (17367 . 2)) ((c meth c (c (? . 7) q get-transformation)) q (8836 . 4)) ((c def c (? . 13)) q (9905 . 3)) ((c meth c (c (? . 7) q get-color)) q (8397 . 2)) ((c meth c (c (? . 10) q set-preview-command)) q (43697 . 3)) ((c meth c (c (? . 1) q get-font)) q (17742 . 2)) ((c meth c (c (? . 2) q get-width)) q (2180 . 2)) ((c meth c (c (? . 1) q get-smoothing)) q (18294 . 3)) ((c def c (? . 11)) q (10884 . 3)) ((c meth c (c (? . 13) q find-or-create-brush)) q (10018 . 19)) ((c meth c (c (? . 4) q find-or-create-font-id)) q (31311 . 7)) ((c meth c (c (? . 10) q get-level-2)) q (41980 . 2)) ((c meth c (c (? . 12) q get-face)) q (28173 . 2)) ((c meth c (c (? . 14) q get-pixel)) q (6353 . 5)) ((c meth c (c (? . 14) q draw-bitmap-section-smooth)) q (4284 . 27)) ((c meth c (c (? . 1) q cache-font-metrics-key)) q (12012 . 2)) ((c meth c (c (? . 3) q set-ellipse)) q (46301 . 6)) ((c def c (? . 2)) q (0 . 3)) ((c def c (c (? . 0) q the-pen-list)) q (54477 . 2)) ((c def c (c (? . 0) q pen-style/c)) q (54719 . 2)) ((c meth c (c (? . 10) q get-margin)) q (42033 . 5)) ((c meth c (c (? . 1) q set-transformation)) q (22742 . 4)) ((c def c (c (? . 0) q recorded-datum->procedure)) q (54152 . 4)) ((c meth c (c (? . 10) q get-paper-name)) q (42417 . 2)) ((c meth c (c (? . 14) q set-argb-pixels)) q (6482 . 15)) ((c meth c (c (? . 19) q get-circles)) q (44650 . 3)) ((c meth c (c (? . 1) q get-transformation)) q (19053 . 4)) ((c meth c (c (? . 1) q end-page)) q (17085 . 2)) ((c meth c (c (? . 1) q set-pen)) q (21265 . 17)) ((c meth c (c (? . 5) q set-stipple)) q (38207 . 3)) ((c meth c (c (? . 1) q get-size)) q (18165 . 3)) ((c constructor c (? . 5)) q (36775 . 14)) ((c meth c (c (? . 7) q get-handle)) q (8649 . 2)) ((c def c (c (? . 0) q make-platform-bitmap)) q (53327 . 4)) ((c def c (? . 4)) q (31049 . 2)) ((c meth c (c (? . 12) q get-underlined)) q (28624 . 2)) ((c meth c (c (? . 5) q get-cap)) q (37380 . 2)) ((c def c (c (? . 0) q font-smoothing/c)) q (54637 . 2)) ((c meth c (c (? . 1) q get-background)) q (17254 . 2)) ((c meth c (c (? . 11) q alpha)) q (11361 . 2)) ((c meth c (c (? . 15) q get-y)) q (40182 . 2)) ((c meth c (c (? . 2) q save-file)) q (3141 . 5)) ((c meth c (c (? . 3) q set-path)) q (46501 . 9)) ((c meth c (c (? . 2) q get-handle)) q (1987 . 2)) ((c meth c (c (? . 11) q set)) q (11412 . 6)) ((c meth c (c (? . 2) q get-height)) q (2038 . 2)) ((c constructor c (? . 23)) q (38516 . 2)) ((c meth c (c (? . 4) q find-family-default-font-id)) q (31097 . 5)) ((c constructor c (? . 16)) q (40421 . 17)) ((c meth c (c (? . 10) q set-level-2)) q (43182 . 3)) ((c meth c (c (? . 14) q get-bitmap)) q (6278 . 2)) ((c def c (? . 7)) q (7377 . 3)) ((c def c (? . 17)) q (35150 . 3)) ((c meth c (c (? . 1) q copy)) q (12114 . 8)) ((c meth c (c (? . 3) q set-polygon)) q (46857 . 10)) ((c constructor c (? . 18)) q (44921 . 6)) ((c meth c (c (? . 21) q find-color)) q (11796 . 4)) ((c meth c (c (? . 10) q set-editor-margin)) q (42947 . 4)) ((c constructor c (? . 11)) q (10933 . 9)) ((c meth c (c (? . 8) q lines)) q (24710 . 8)) ((c meth c (c (? . 10) q get-preview-command)) q (42472 . 2)) ((c meth c (c (? . 8) q curve-to)) q (24183 . 8)) ((c meth c (c (? . 20) q find-or-create-font)) q (29017 . 41)) ((c constructor c (? . 24)) q (48399 . 12)) ((c meth c (c (? . 1) q draw-spline)) q (16456 . 8)) ((c meth c (c (? . 1) q get-text-extent)) q (18440 . 13)) ((c meth c (c (? . 6) q get-depth-size)) q (33851 . 2)) ((c meth c (c (? . 1) q get-scale)) q (18116 . 2)) ((c def c (? . 14)) q (4090 . 4)) ((c def c (? . 12)) q (26614 . 3)) ((c meth c (c (? . 8) q text-outline)) q (26034 . 11)) ((c def c (c (? . 0) q make-color)) q (50928 . 6)) ((c meth c (c (? . 12) q get-style)) q (28573 . 2)) ((c def c (c (? . 0) q the-font-name-directory)) q (54409 . 2)) ((c def c (? . 19)) q (44026 . 3)) ((c constructor c (? . 22)) q (35904 . 17)) ((c meth c (c (? . 1) q flush)) q (17164 . 2)) ((c meth c (c (? . 7) q get-gradient)) q (8454 . 4)) ((c meth c (c (? . 15) q set-x)) q (40223 . 3)) ((c def c (c (? . 0) q pen-cap-style/c)) q (54756 . 2)) ((c meth c (c (? . 1) q draw-bitmap)) q (12810 . 14)) ((c meth c (c (? . 7) q get-stipple)) q (8711 . 2)) ((c def c (? . 10)) q (41317 . 3)) ((c meth c (c (? . 1) q get-clipping-region)) q (17520 . 2)) ((c def c (c (? . 0) q the-font-list)) q (54363 . 2)) ((c meth c (c (? . 5) q get-width)) q (37658 . 2)) ((c meth c (c (? . 4) q get-face-name)) q (31606 . 4)) ((c meth c (c (? . 10) q get-mode)) q (42263 . 2)) ((c meth c (c (? . 10) q set-mode)) q (43400 . 3)) ((c meth c (c (? . 1) q draw-line)) q (14524 . 6)) ((c meth c (c (? . 12) q get-font-id)) q (28283 . 2)) ((c meth c (c (? . 1) q scale)) q (19440 . 4)) ((c meth c (c (? . 8) q scale)) q (25953 . 4)) ((c meth c (c (? . 8) q rotate)) q (25431 . 3)) ((c def c (? . 3)) q (45308 . 3)) ((c constructor c (? . 20)) q (28960 . 2)) ((c meth c (c (? . 1) q set-scale)) q (22088 . 4)) ((c meth c (c (? . 1) q set-rotation)) q (22016 . 3)) ((c meth c (c (? . 8) q translate)) q (26529 . 4)) ((c meth c (c (? . 10) q set-file)) q (43083 . 3)) ((c def c (? . 15)) q (39952 . 3)) ((c meth c (c (? . 1) q end-doc)) q (17045 . 2)) ((c meth c (c (? . 1) q draw-rounded-rectangle)) q (16009 . 11)) ((c meth c (c (? . 6) q set-depth-size)) q (34273 . 3)) ((c meth c (c (? . 1) q get-text-foreground)) q (18920 . 2)) ((c meth c (c (? . 10) q copy-from)) q (41424 . 5)) ((c meth c (c (? . 11) q red)) q (11241 . 2)) ((c meth c (c (? . 18) q get-recorded-procedure)) q (45217 . 3)) ((c meth c (c (? . 3) q get-bounding-box)) q (45459 . 2)) ((c constructor c (? . 13)) q (9959 . 2)) ((c meth c (c (? . 5) q get-join)) q (37486 . 2)) ((c meth c (c (? . 1) q get-alpha)) q (17202 . 2)) ((c constructor c (? . 8)) q (23456 . 2)) ((c def c (c (? . 0) q font-family/c)) q (54521 . 2)) ((c meth c (c (? . 1) q set-brush)) q (19788 . 17)) ((c meth c (c (? . 2) q load-file)) q (2351 . 14)) ((c meth c (c (? . 17) q get-line)) q (35652 . 2)) ((c meth c (c (? . 1) q get-device-scale)) q (17597 . 3)) ((c def c (? . 18)) q (44848 . 4)) ((c meth c (c (? . 1) q try-color)) q (23287 . 4)) ((c meth c (c (? . 10) q get-orientation)) q (42338 . 3)) ((c meth c (c (? . 8) q reset)) q (25343 . 2)) ((c meth c (c (? . 10) q get-scaling)) q (42532 . 4)) ((c meth c (c (? . 14) q set-bitmap)) q (7147 . 3)) ((c meth c (c (? . 12) q get-family)) q (28230 . 2)) ((c meth c (c (? . 8) q arc)) q (23592 . 15)) ((c meth c (c (? . 21) q get-names)) q (11915 . 2)) ((c meth c (c (? . 1) q glyph-exists?)) q (19222 . 3)) ((c meth c (c (? . 1) q set-origin)) q (21184 . 4)) ((c meth c (c (? . 10) q set-command)) q (42864 . 3)) ((c def c (c (? . 0) q font-weight/c)) q (54598 . 2)) ((c meth c (c (? . 9) q swap-buffers)) q (35097 . 2)) ((c meth c (c (? . 6) q get-double-buffered)) q (33920 . 2)) ((c meth c (c (? . 3) q xor)) q (48253 . 3)) ((c meth c (c (? . 6) q set-accum-size)) q (34181 . 3)) ((c def c (? . 8)) q (23405 . 3)) ((c def c (? . 5)) q (36728 . 3)) ((c meth c (c (? . 8) q line-to)) q (24627 . 4)) ((c meth c (c (? . 2) q get-depth)) q (1920 . 2)) ((c meth c (c (? . 1) q get-gl-context)) q (17794 . 2)) ((c meth c (c (? . 8) q append)) q (23509 . 3)) ((q def ((lib "racket/draw/draw-unit.rkt") draw@)) q (54878 . 2)) ((c constructor c (? . 2)) q (50 . 26)) ((c meth c (c (? . 1) q draw-path)) q (14955 . 9)) ((c meth c (c (? . 7) q set-color)) q (9090 . 9)) ((c meth c (c (? . 17) q get-stops)) q (35727 . 3)) ((c meth c (c (? . 12) q screen-glyph-exists?)) q (28729 . 5)) ((c def c (c (? . 0) q font-hinting/c)) q (54679 . 2)) ((c def c (c (? . 0) q make-monochrome-bitmap)) q (52214 . 5)) ((c def c (c (? . 0) q pen-join-style/c)) q (54797 . 2)) ((c meth c (c (? . 1) q suspend-flush)) q (23049 . 2)) ((c def c (c (? . 0) q make-pen)) q (52412 . 18)) ((c meth c (c (? . 10) q set-orientation)) q (43500 . 3)) ((c meth c (c (? . 10) q get-translation)) q (42696 . 4)) ((c meth c (c (? . 1) q ok?)) q (19290 . 2)) ((c meth c (c (? . 14) q set-pixel)) q (7251 . 5)) ((c meth c (c (? . 11) q copy-from)) q (11573 . 3)) ((c def c (? . 21)) q (11753 . 2)) ((c meth c (c (? . 1) q rotate)) q (19374 . 3)) ((c meth c (c (? . 8) q get-bounding-box)) q (24552 . 2)) ((c def c (? . 22)) q (35834 . 4)) ((c meth c (c (? . 12) q get-point-size)) q (28393 . 2)) ((c meth c (c (? . 5) q get-style)) q (37609 . 2)) ((c meth c (c (? . 6) q get-multisample-size)) q (33982 . 2)) ((c def c (c (? . 0) q get-face-list)) q (49096 . 6)) ((c meth c (c (? . 1) q draw-lines)) q (14650 . 8)) ((c constructor c (? . 10)) q (41369 . 2)) ((c meth c (c (? . 1) q draw-ellipse)) q (14327 . 6)) ((c def c (c (? . 0) q the-color-database)) q (54305 . 2)) ((c def c (? . 20)) q (28907 . 3)) ((c meth c (c (? . 2) q is-color?)) q (2302 . 2)) ((c meth c (c (? . 1) q get-rotation)) q (18071 . 2)) ((c meth c (c (? . 8) q reverse)) q (25386 . 2)) ((c meth c (c (? . 15) q set-y)) q (40283 . 3)) ((q def ((lib "racket/draw/unsafe/cairo-lib.rkt") cairo-lib)) q (55591 . 2)) ((c meth c (c (? . 4) q get-family)) q (31724 . 5)) ((c meth c (c (? . 5) q set-style)) q (38306 . 3)) ((c meth c (c (? . 23) q find-or-create-pen)) q (38571 . 28)) ((c constructor c (? . 19)) q (44085 . 17)) ((c meth c (c (? . 1) q translate)) q (23203 . 4)) ((c def c (? . 1)) q (11981 . 2)) ((c meth c (c (? . 7) q get-style)) q (8783 . 2)) ((c meth c (c (? . 1) q start-page)) q (23006 . 2)) ((c meth c (c (? . 10) q set-paper-name)) q (43617 . 3)) ((c meth c (c (? . 10) q set-margin)) q (43255 . 4)) ((c meth c (c (? . 6) q set-multisample-size)) q (34447 . 3)) ((c meth c (c (? . 5) q get-color)) q (37431 . 2)) ((c meth c (c (? . 11) q is-immutable?)) q (11665 . 2)) ((c constructor c (? . 15)) q (40001 . 5)) ((c meth c (c (? . 1) q get-text-mode)) q (18984 . 2)) ((c meth c (c (? . 1) q set-initial-matrix)) q (21067 . 3)) ((c meth c (c (? . 2) q ok?)) q (3098 . 2)) ((c meth c (c (? . 12) q get-hinting)) q (28338 . 2)) ((c constructor c (? . 12)) q (26662 . 36)) ((c meth c (c (? . 8) q rounded-rectangle)) q (25506 . 11)) ((c def c (? . 24)) q (48329 . 4)) ((c meth c (c (? . 1) q draw-point)) q (15299 . 4)) ((c meth c (c (? . 1) q set-text-foreground)) q (22473 . 5)) ((c meth c (c (? . 6) q get-accum-size)) q (33782 . 2)) ((c meth c (c (? . 2) q get-loaded-mask)) q (2103 . 2)) ((q def ((lib "racket/draw/unsafe/brush.rkt") make-handle-brush)) q (54930 . 13)) ((c meth c (c (? . 1) q get-initial-matrix)) q (17872 . 3)) ((c meth c (c (? . 4) q get-screen-name)) q (32530 . 8)) ((c meth c (c (? . 1) q draw-rectangle)) q (15810 . 6)) ((c meth c (c (? . 19) q get-stops)) q (44743 . 3)) ((c meth c (c (? . 3) q get-dc)) q (45533 . 2)) ((c def c (c (? . 0) q font-style/c)) q (54560 . 2)) ((q form ((lib "racket/draw/draw-sig.rkt") draw^)) q (54900 . 2)) ((c meth c (c (? . 1) q start-doc)) q (22931 . 3)) ((c def c (? . 23)) q (38464 . 3)) ((c def c (c (? . 0) q current-ps-setup)) q (48973 . 4)) ((c def c (c (? . 0) q make-bitmap)) q (49487 . 5)) ((c meth c (c (? . 10) q set-scaling)) q (43788 . 4)) ((c meth c (c (? . 4) q set-screen-name)) q (33265 . 9)) ((c meth c (c (? . 5) q get-stipple)) q (37539 . 2)) ((c meth c (c (? . 3) q set-rectangle)) q (47299 . 9)) ((c meth c (c (? . 11) q ok?)) q (11717 . 2)) ((c meth c (c (? . 1) q resume-flush)) q (19329 . 2)) ((c meth c (c (? . 8) q close)) q (24140 . 2)) ((c meth c (c (? . 14) q get-argb-pixels)) q (5583 . 15)) ((c meth c (c (? . 6) q get-stereo)) q (34128 . 2)) ((c meth c (c (? . 12) q get-smoothing)) q (28514 . 2))))
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 : brush-style/c = 'solid
  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) -> brush-style/c
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 : brush-style/c
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 : font-family/c
  style : font-style/c = 'normal
  weight : font-weight/c = 'normal
  underline? : any/c = #f
  smoothing : font-smoothing/c = 'default
  size-in-pixels? : any/c = #f
  hinting : font-hinting/c = '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 : font-family/c
  style : font-style/c = 'normal
  weight : font-weight/c = 'normal
  underline? : any/c = #f
  smoothing : font-smoothing/c = 'default
  size-in-pixels? : any/c = #f
  hinting : font-hinting/c = 'aligned
method
(send a-font get-face) -> (or/c string? #f)
method
(send a-font get-family) -> font-family/c
method
(send a-font get-font-id) -> exact-integer?
method
(send a-font get-hinting) -> font-hinting/c
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) -> font-smoothing/c
method
(send a-font get-style) -> font-style/c
method
(send a-font get-underlined) -> boolean?
method
(send a-font get-weight) -> font-weight/c
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 : pen-style/c = 'solid
  cap : pen-cap-style/c = 'round
  join : pen-join-style/c = 'round
  stipple : (or/c #f (is-a?/c bitmap%)) = #f
method
(send a-pen get-cap) -> pen-cap-style/c
method
(send a-pen get-color) -> (is-a?/c color%)
method
(send a-pen get-join) -> pen-join-style/c
method
(send a-pen get-stipple) -> (or/c (is-a?/c bitmap%) #f)
method
(send a-pen get-style) -> pen-style/c
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 : pen-cap-style/c
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 : pen-join-style/c
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 : pen-style/c
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
font-family/c : flat-contract?
value
font-style/c : flat-contract?
value
font-weight/c : flat-contract?
value
font-smoothing/c : flat-contract?
value
font-hinting/c : flat-contract?
value
pen-style/c : flat-contract?
value
pen-cap-style/c : flat-contract?
value
pen-join-style/c : flat-contract?
value
brush-style/c : flat-contract?
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)
