12186
((3) 0 () 14 ((q lib "images/flomap.rkt") (q lib "images/icons/control.rkt") (q 37148 . 5) (q lib "images/icons/arrow.rkt") (q lib "images/icons/style.rkt") (q 26003 . 6) (q lib "images/icons/symbol.rkt") (q lib "images/icons/file.rkt") (q lib "images/logos.rkt") (q lib "images/icons/misc.rkt") (q lib "images/icons/tool.rkt") (q 38507 . 4) (q lib "images/icons/stickman.rkt") (q lib "images/compile-time.rkt")) () (h ! (equal) ((c def c (c (? . 0) q flomap-divide-alpha)) q (28550 . 3)) ((c def c (c (? . 12) q standing-stickman-icon)) q (21810 . 13)) ((c def c (c (? . 7) q floppy-disk-icon)) q (10080 . 8)) ((c def c (c (? . 0) q linear-projection)) q (38208 . 3)) ((c def c (c (? . 3) q left-under-arrow-icon)) q (4365 . 8)) ((c def c (c (? . 0) q stereographic-projection)) q (38416 . 3)) ((c def c (c (? . 0) q bitmap->flomap)) q (27676 . 3)) ((c def c (c (? . 0) q flomap-cc-superimpose)) q (34815 . 4)) ((c def c (c (? . 0) q flomap-lift)) q (29487 . 3)) ((c def c (c (? . 0) q flomap-gaussian-blur-y)) q (30953 . 4)) ((c def c (c (? . 1) q rewind-icon)) q (6252 . 8)) ((c def c (c (? . 0) q flomap-2d-mapping-fun)) c (? . 2)) ((c def c (c (? . 0) q flomap-rb-superimpose)) q (35203 . 4)) ((c def c (c (? . 0) q flomap-trim)) q (32005 . 4)) ((c def c (c (? . 1) q search-forward-icon)) q (9285 . 8)) ((c def c (c (? . 0) q flomap-blur-x)) q (31479 . 4)) ((c def c (c (? . 0) q flomap-extreme-values)) q (26817 . 3)) ((c def c (c (? . 4) q metal-icon-material)) q (1013 . 2)) ((c def c (c (? . 0) q unsafe-flomap-ref)) q (27253 . 9)) ((c def c (c (? . 0) q fm*)) q (29827 . 4)) ((c def c (c (? . 0) q flomap-gradient-x)) q (30476 . 3)) ((c def c (c (? . 0) q flomap-lc-superimpose)) q (34524 . 4)) ((c def c (c (? . 0) q flomap-2d-mapping?)) c (? . 2)) ((c def c (c (? . 3) q left-over-arrow-icon)) q (3561 . 8)) ((c def c (c (? . 0) q flomap-ccw-rotate)) q (36114 . 3)) ((c def c (c (? . 8) q planet-logo)) q (25398 . 3)) ((c def c (c (? . 0) q flomap-rotate)) q (36178 . 4)) ((c def c (c (? . 0) q flomap-scale-transform)) q (36492 . 4)) ((c def c (c (? . 1) q fast-forward-icon)) q (5862 . 8)) ((c def c (c (? . 0) q struct:flomap)) c (? . 5)) ((c def c (c (? . 0) q make-flomap-2d-mapping)) q (37365 . 5)) ((c def c (c (? . 0) q flomap-lt-superimpose)) q (34427 . 4)) ((c form c (c (? . 0) q inline-build-flomap)) q (28616 . 8)) ((c def c (c (? . 6) q recycle-icon)) q (13387 . 8)) ((c def c (c (? . 0) q flomap-box-blur-x)) q (31183 . 4)) ((c def c (c (? . 9) q stethoscope-icon)) q (20647 . 5)) ((c def c (c (? . 0) q flomap-2d-mapping-bounded-by)) c (? . 2)) ((c def c (c (? . 0) q flomap-transpose)) q (35988 . 3)) ((c def c (c (? . 0) q flomap-cw-rotate)) q (36051 . 3)) ((c form c (c (? . 0) q Projection)) q (38489 . 2)) ((c def c (c (? . 4) q halt-icon-color)) q (344 . 3)) ((c def c (c (? . 1) q continue-backward-icon)) q (8880 . 8)) ((c def c (c (? . 0) q flomap-values)) c (? . 5)) ((c def c (c (? . 0) q fmmin)) q (30023 . 4)) ((c def c (c (? . 0) q draw-flomap)) q (28370 . 5)) ((c def c (c (? . 0) q flomap-bilinear-ref*)) q (26588 . 5)) ((c def c (c (? . 1) q step-back-icon)) q (8097 . 8)) ((c def c (c (? . 0) q flomap-2d-mapping-inv)) c (? . 2)) ((c form c (c (? . 0) q inline-flomap-lift)) q (30342 . 4)) ((c def c (c (? . 0) q flomap-ct-superimpose)) q (34718 . 4)) ((c def c (c (? . 6) q hash-quote-icon)) q (14954 . 8)) ((c def c (c (? . 0) q equal-area-projection)) q (38346 . 3)) ((c def c (c (? . 7) q small-save-icon)) q (11557 . 11)) ((c def c (c (? . 0) q coords->index)) q (27110 . 7)) ((c def c (c (? . 0) q flomap-components)) c (? . 5)) ((c def c (c (? . 0) q flomap-drop-components)) q (29192 . 4)) ((c def c (c (? . 8) q plt-logo)) q (25282 . 3)) ((c def c (c (? . 9) q regular-polygon-icon)) q (15359 . 12)) ((c def c (c (? . 0) q flomap-ct-crop)) q (32934 . 5)) ((c def c (c (? . 1) q continue-forward-icon)) q (8478 . 8)) ((c def c (c (? . 0) q fmsqr)) q (29435 . 3)) ((c def c (c (? . 10) q small-macro-stepper-icon)) q (24088 . 7)) ((c def c (c (? . 0) q flomap-width)) c (? . 5)) ((c def c (c (? . 0) q flomap-pin*)) q (34101 . 13)) ((c def c (c (? . 0) q flomap-hb-append)) q (35760 . 4)) ((c def c (c (? . 7) q small-load-icon)) q (12118 . 11)) ((c def c (c (? . 0) q flomap-whirl-transform)) q (36336 . 3)) ((c def c (c (? . 0) q flomap-nonzero-rect)) q (26891 . 6)) ((c def c (c (? . 0) q flomap-projection-transform)) q (37887 . 7)) ((c def c (c (? . 0) q flomap->bitmap)) q (27618 . 3)) ((c def c (c (? . 9) q lock-icon)) q (21163 . 13)) ((c def c (c (? . 0) q build-flomap*)) q (28171 . 7)) ((c def c (c (? . 6) q x-icon)) q (13780 . 8)) ((c def c (c (? . 0) q flomap?)) c (? . 5)) ((c def c (c (? . 9) q clock-icon)) q (19463 . 12)) ((c def c (c (? . 4) q bitmap-render-icon)) q (1253 . 6)) ((c def c (c (? . 0) q fmmax)) q (30123 . 4)) ((c def c (c (? . 0) q flomap-box-blur)) q (31042 . 5)) ((c def c (c (? . 0) q flomap-box-blur-y)) q (31275 . 4)) ((c def c (c (? . 1) q step-icon)) q (7731 . 8)) ((c def c (c (? . 10) q macro-stepper-hash-color)) q (25058 . 3)) ((c def c (c (? . 0) q flomap-flip-horizontal)) q (35852 . 3)) ((c def c (c (? . 0) q flomap-pin)) q (33807 . 13)) ((c def c (c (? . 0) q flomap-scale)) q (33552 . 5)) ((c def c (c (? . 0) q fmsqrt)) q (29382 . 3)) ((c def c (c (? . 10) q macro-stepper-icon)) q (23799 . 6)) ((c def c (c (? . 0) q flomap-size)) q (26155 . 3)) ((c def c (c (? . 10) q small-check-syntax-icon)) q (23504 . 7)) ((c def c (c (? . 10) q small-debugger-icon)) q (24664 . 6)) ((c def c (c (? . 0) q flomap-ref-component)) q (29014 . 4)) ((c def c (c (? . 0) q flomap-crop)) q (32459 . 7)) ((c def c (c (? . 0) q flomap-gradient-normal)) q (30674 . 3)) ((c def c (c (? . 1) q back-icon)) q (5496 . 8)) ((c form c (c (? . 0) q inline-build-flomap*)) q (28823 . 8)) ((c def c (c (? . 8) q stepper-logo)) q (25516 . 3)) ((c def c (c (? . 0) q projection-mapping-inv)) c (? . 11)) ((c def c (c (? . 0) q fm/)) q (29925 . 4)) ((c def c (c (? . 0) q flomap-id-transform)) q (36623 . 2)) ((c form c (c (? . 13) q compiled-bitmap)) q (25760 . 5)) ((c def c (c (? . 0) q flomap-inset)) q (32103 . 14)) ((c def c (c (? . 0) q flomap-multiply-alpha)) q (28482 . 3)) ((c def c (c (? . 0) q flomap-transform)) q (36670 . 16)) ((c def c (c (? . 0) q fm+)) q (29631 . 4)) ((c def c (c (? . 8) q macro-stepper-logo)) q (25635 . 3)) ((c def c (c (? . 3) q left-arrow-icon)) q (2013 . 8)) ((c def c (c (? . 4) q default-icon-material)) q (1071 . 5)) ((c def c (c (? . 0) q flomap-2d-mapping)) c (? . 2)) ((c def c (c (? . 0) q flomap)) c (? . 5)) ((c def c (c (? . 4) q rubber-icon-material)) q (896 . 2)) ((c def c (c (? . 0) q make-flomap*)) q (27861 . 5)) ((c def c (c (? . 1) q record-icon)) q (6990 . 8)) ((c def c (c (? . 0) q flomap-fisheye-transform)) q (36413 . 3)) ((c def c (c (? . 0) q flomap-normalize)) q (29568 . 3)) ((c def c (c (? . 0) q flomap-rt-crop)) q (33243 . 5)) ((c def c (c (? . 0) q flomap-take-components)) q (29102 . 4)) ((c def c (c (? . 3) q down-arrow-icon)) q (2775 . 8)) ((c def c (c (? . 0) q flomap-ht-append)) q (35576 . 4)) ((c def c (c (? . 0) q build-flomap)) q (27987 . 6)) ((c def c (c (? . 0) q flomap-cb-crop)) q (33140 . 5)) ((c def c (c (? . 1) q stop-icon)) q (6624 . 8)) ((c def c (c (? . 0) q flomap-blur-y)) q (31561 . 4)) ((c def c (c (? . 4) q metal-icon-color)) q (79 . 3)) ((c form c (c (? . 0) q inline-flomap-lift2)) q (30405 . 4)) ((c def c (c (? . 0) q flomap-rt-superimpose)) q (35009 . 4)) ((c def c (c (? . 0) q flomap-outline)) q (38766 . 5)) ((c def c (c (? . 9) q stop-signs-icon)) q (16367 . 8)) ((c def c (c (? . 9) q left-bomb-icon)) q (18883 . 12)) ((c def c (c (? . 0) q projection-mapping)) c (? . 11)) ((c def c (c (? . 0) q flomap-lt-crop)) q (32625 . 5)) ((c def c (c (? . 4) q syntax-icon-color)) q (243 . 3)) ((c def c (c (? . 9) q magnifying-glass-icon)) q (17137 . 12)) ((c def c (c (? . 0) q flomap-gradient)) q (30604 . 3)) ((c def c (c (? . 0) q fm-)) q (29729 . 4)) ((c def c (c (? . 4) q dark-metal-icon-color)) q (161 . 3)) ((c def c (c (? . 0) q flomap-rb-crop)) q (33449 . 5)) ((c def c (c (? . 3) q up-arrow-icon)) q (2397 . 8)) ((c def c (c (? . 6) q check-icon)) q (14157 . 8)) ((c def c (c (? . 0) q flomap-vl-append)) q (35300 . 4)) ((c def c (c (? . 0) q projection-mapping-fun)) c (? . 11)) ((c def c (c (? . 0) q flomap-vc-append)) q (35392 . 4)) ((c def c (c (? . 4) q plastic-icon-material)) q (836 . 2)) ((c def c (c (? . 0) q flomap-cc-crop)) q (33037 . 5)) ((c def c (c (? . 1) q bar-icon)) q (4767 . 8)) ((c def c (c (? . 0) q flomap-lb-superimpose)) q (34621 . 4)) ((c def c (c (? . 7) q save-icon)) q (10483 . 11)) ((c def c (c (? . 9) q left-magnifying-glass-icon)) q (17720 . 12)) ((c def c (c (? . 0) q flomap-rc-superimpose)) q (35106 . 4)) ((c def c (c (? . 3) q right-arrow-icon)) q (1626 . 8)) ((c def c (c (? . 0) q projection-mapping?)) c (? . 11)) ((c def c (c (? . 0) q flomap-lc-crop)) q (32728 . 5)) ((c def c (c (? . 1) q search-backward-icon)) q (9681 . 8)) ((c def c (c (? . 10) q debugger-icon)) q (24385 . 6)) ((c def c (c (? . 0) q struct:projection-mapping)) c (? . 11)) ((c def c (c (? . 0) q flomap-ref*)) q (26364 . 5)) ((c def c (c (? . 9) q bomb-icon)) q (18323 . 12)) ((c def c (c (? . 4) q icon-color->outline-color)) q (1509 . 3)) ((c def c (c (? . 0) q flomap-transform-compose)) q (37616 . 4)) ((c def c (c (? . 9) q stopwatch-icon)) q (20045 . 12)) ((c def c (c (? . 0) q flomap-gaussian-blur)) q (30743 . 5)) ((c def c (c (? . 12) q running-stickman-icon)) q (22480 . 15)) ((c def c (c (? . 4) q default-icon-height)) q (518 . 5)) ((c def c (c (? . 0) q flomap-rc-crop)) q (33346 . 5)) ((c def c (c (? . 9) q short-stethoscope-icon)) q (20899 . 5)) ((c def c (c (? . 4) q run-icon-color)) q (443 . 3)) ((c def c (c (? . 0) q flomap-copy)) q (31643 . 7)) ((c def c (c (? . 0) q struct:flomap-2d-mapping)) c (? . 2)) ((c def c (c (? . 0) q flomap-flip-vertical)) q (35921 . 3)) ((c form c (c (? . 13) q compiled-bitmap-list)) q (25874 . 5)) ((c def c (c (? . 10) q small-macro-stepper-hash-color)) q (25166 . 3)) ((c def c (c (? . 0) q subflomap)) q (31825 . 7)) ((c def c (c (? . 0) q flomap-blur)) q (31367 . 5)) ((c def c (c (? . 0) q flomap-append-components)) q (29282 . 4)) ((c def c (c (? . 0) q flomap-gaussian-blur-x)) q (30864 . 4)) ((c def c (c (? . 0) q flomap-hc-append)) q (35668 . 4)) ((c def c (c (? . 0) q perspective-projection)) q (38137 . 3)) ((c def c (c (? . 4) q toolbar-icon-height)) q (677 . 5)) ((c def c (c (? . 0) q flomap-height)) c (? . 5)) ((c def c (c (? . 0) q flomap-gradient-y)) q (30540 . 3)) ((c def c (c (? . 7) q load-icon)) q (11020 . 11)) ((c def c (c (? . 0) q flomap-max-value)) q (26755 . 3)) ((c def c (c (? . 0) q flomap-cb-superimpose)) q (34912 . 4)) ((c def c (c (? . 10) q check-syntax-icon)) q (23217 . 6)) ((c def c (c (? . 0) q flomap-shadow)) q (38614 . 5)) ((c def c (c (? . 0) q flomap-transform-bounds)) q (37739 . 5)) ((c form c (c (? . 0) q Flomap-Transform)) q (37124 . 2)) ((c def c (c (? . 6) q text-icon)) q (12679 . 16)) ((c def c (c (? . 0) q flomap-ref)) q (26245 . 6)) ((c def c (c (? . 0) q flomap-min-value)) q (26693 . 3)) ((c def c (c (? . 0) q flomap-vr-append)) q (35484 . 4)) ((c def c (c (? . 1) q play-icon)) q (5130 . 8)) ((c def c (c (? . 0) q unsafe-flomap-ref*)) q (27444 . 8)) ((c def c (c (? . 10) q debugger-bomb-color)) q (24955 . 3)) ((c def c (c (? . 0) q flomap-lift2)) q (30223 . 3)) ((c def c (c (? . 0) q flomap-lb-crop)) q (32831 . 5)) ((c def c (c (? . 6) q lambda-icon)) q (14545 . 9)) ((c def c (c (? . 0) q flomap-bilinear-ref)) q (26466 . 6)) ((c def c (c (? . 0) q flomap-resize)) q (33685 . 5)) ((c def c (c (? . 3) q right-under-arrow-icon)) q (3960 . 8)) ((c def c (c (? . 4) q light-metal-icon-color)) q (0 . 3)) ((c def c (c (? . 1) q pause-icon)) q (7362 . 8)) ((c def c (c (? . 0) q flomap-rotate-transform)) q (36258 . 3)) ((c def c (c (? . 9) q foot-icon)) q (16771 . 8)) ((c def c (c (? . 3) q right-over-arrow-icon)) q (3159 . 8)) ((c def c (c (? . 0) q make-flomap)) q (27734 . 6)) ((c def c (c (? . 4) q glass-icon-material)) q (955 . 2)) ((c def c (c (? . 9) q stop-sign-icon)) q (15966 . 8)) ((c def c (c (? . 0) q orthographic-projection)) q (38274 . 3))))
value
light-metal-icon-color : (or/c string? (is-a?/c color%))
=  "azure"
value
metal-icon-color : (or/c string? (is-a?/c color%))
=  "lightsteelblue"
value
dark-metal-icon-color : (or/c string? (is-a?/c color%))
=  "steelblue"
value
syntax-icon-color : (or/c string? (is-a?/c color%))
=  (make-object color% 76 76 255)
value
halt-icon-color : (or/c string? (is-a?/c color%))
=  (make-object color% 255 32 24)
value
run-icon-color : (or/c string? (is-a?/c color%))
=  "lawngreen"
parameter
(default-icon-height) -> (and/c rational? (>=/c 0))
(default-icon-height height) -> void?
  height : (and/c rational? (>=/c 0))
=  24
parameter
(toolbar-icon-height) -> (and/c rational? (>=/c 0))
(toolbar-icon-height height) -> void?
  height : (and/c rational? (>=/c 0))
=  16
value
plastic-icon-material : deep-flomap-material-value?
value
rubber-icon-material : deep-flomap-material-value?
value
glass-icon-material : deep-flomap-material-value?
value
metal-icon-material : deep-flomap-material-value?
parameter
(default-icon-material) -> deep-flomap-material-value?
(default-icon-material material) -> void?
  material : deep-flomap-material-value?
=  plastic-icon-material
procedure
(bitmap-render-icon bitmap [z-ratio material]) -> (is-a?/c bitmap%)
  bitmap : (is-a?/c bitmap%)
  z-ratio : (and rational? (>=/c 0)) = 5/8
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(icon-color->outline-color color) -> (is-a?/c color%)
  color : (or/c string? (is-a?/c color%))
procedure
(right-arrow-icon  #:color color             
                  [#:height height           
                   #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(left-arrow-icon  #:color color             
                 [#:height height           
                  #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(up-arrow-icon  #:color color             
               [#:height height           
                #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(down-arrow-icon  #:color color             
                 [#:height height           
                  #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(right-over-arrow-icon  #:color color             
                       [#:height height           
                        #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(left-over-arrow-icon  #:color color             
                      [#:height height           
                       #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(right-under-arrow-icon  #:color color             
                        [#:height height           
                         #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(left-under-arrow-icon  #:color color             
                       [#:height height           
                        #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(bar-icon  #:color color             
          [#:height height           
           #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(play-icon  #:color color             
           [#:height height           
            #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(back-icon  #:color color             
           [#:height height           
            #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(fast-forward-icon  #:color color             
                   [#:height height           
                    #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(rewind-icon  #:color color             
             [#:height height           
              #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(stop-icon  #:color color             
           [#:height height           
            #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(record-icon  #:color color             
             [#:height height           
              #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(pause-icon  #:color color             
            [#:height height           
             #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(step-icon  #:color color             
           [#:height height           
            #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(step-back-icon  #:color color             
                [#:height height           
                 #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(continue-forward-icon  #:color color             
                       [#:height height           
                        #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(continue-backward-icon  #:color color             
                        [#:height height           
                         #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(search-forward-icon  #:color color             
                     [#:height height           
                      #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(search-backward-icon  #:color color             
                      [#:height height           
                       #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(floppy-disk-icon [#:color color             
                   #:height height           
                   #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = "slategray"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(save-icon [#:disk-color disk-color       
            #:arrow-color arrow-color     
            #:height height               
            #:material material])     -> (is-a?/cbitmap%)
  disk-color : (or/c string? (is-a?/c color%)) = "gold"
  arrow-color : (or/c string? (is-a?/c color%))
              = syntax-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(load-icon [#:disk-color disk-color       
            #:arrow-color arrow-color     
            #:height height               
            #:material material])     -> (is-a?/cbitmap%)
  disk-color : (or/c string? (is-a?/c color%)) = "gold"
  arrow-color : (or/c string? (is-a?/c color%))
              = syntax-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(small-save-icon [#:disk-color disk-color       
                  #:arrow-color arrow-color     
                  #:height height               
                  #:material material])     -> (is-a?/cbitmap%)
  disk-color : (or/c string? (is-a?/c color%)) = "gold"
  arrow-color : (or/c string? (is-a?/c color%))
              = syntax-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(small-load-icon [#:disk-color disk-color       
                  #:arrow-color arrow-color     
                  #:height height               
                  #:material material])     -> (is-a?/cbitmap%)
  disk-color : (or/c string? (is-a?/c color%)) = "gold"
  arrow-color : (or/c string? (is-a?/c color%))
              = syntax-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(text-icon  str                     
           [font                    
            #:trim? trim?           
            #:color color           
            #:height height         
            #:material material     
            #:outline outline]) -> (is-a?/cbitmap%)
  str : string?
  font : (is-a?/c font%) = (make-font)
  trim? : boolean? = #t
  color : (or/c string? (is-a?/c color%)) = "white"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
  outline : (and/c rational? (>=/c 0)) = (/ height 32)
procedure
(recycle-icon [#:color color             
               #:height height           
               #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = "forestgreen"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(x-icon [#:color color             
         #:height height           
         #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = halt-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(check-icon [#:color color             
             #:height height           
             #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = run-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(lambda-icon [#:color color             
              #:height height           
              #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
        = light-metal-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(hash-quote-icon [#:color color             
                  #:height height           
                  #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = "mediumseagreen"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(regular-polygon-icon  sides                     
                      [start]                    
                       #:color color             
                      [#:height height           
                       #:material material]) -> (is-a?/cbitmap%)
  sides : exact-positive-integer?
  start : real? = (- (/ pi sides) (* 1/2 pi))
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(stop-sign-icon [#:color color             
                 #:height height           
                 #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = halt-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(stop-signs-icon [#:color color             
                  #:height height           
                  #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = halt-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(foot-icon  #:color color             
           [#:height height           
            #:material material]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%))
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(magnifying-glass-icon [#:frame-color frame-color   
                        #:handle-color handle-color 
                        #:height height             
                        #:material material])       
 -> (is-a?/cbitmap%)
  frame-color : (or/c string? (is-a?/c color%))
              = light-metal-icon-color
  handle-color : (or/c string? (is-a?/c color%)) = "brown"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(left-magnifying-glass-icon [#:frame-color frame-color   
                             #:handle-color handle-color 
                             #:height height             
                             #:material material])       
 -> (is-a?/cbitmap%)
  frame-color : (or/c string? (is-a?/c color%))
              = light-metal-icon-color
  handle-color : (or/c string? (is-a?/c color%)) = "brown"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(bomb-icon [#:cap-color cap-color       
            #:bomb-color bomb-color     
            #:height height             
            #:material material])   -> (is-a?/cbitmap%)
  cap-color : (or/c string? (is-a?/c color%))
            = light-metal-icon-color
  bomb-color : (or/c string? (is-a?/c color%))
             = dark-metal-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(left-bomb-icon [#:cap-color cap-color       
                 #:bomb-color bomb-color     
                 #:height height             
                 #:material material])   -> (is-a?/cbitmap%)
  cap-color : (or/c string? (is-a?/c color%))
            = light-metal-icon-color
  bomb-color : (or/c string? (is-a?/c color%))
             = dark-metal-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(clock-icon [hours                       
             minutes                     
             #:face-color face-color     
             #:hand-color hand-color     
             #:height height])       -> (is-a?/cbitmap%)
  hours : (integer-in 0 11) = 0
  minutes : (real-in 0 60) = 47
  face-color : (or/c string? (is-a?/c color%))
             = light-metal-icon-color
  hand-color : (or/c string? (is-a?/c color%)) = "firebrick"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
procedure
(stopwatch-icon [hours                       
                 minutes                     
                 #:face-color face-color     
                 #:hand-color hand-color     
                 #:height height])       -> (is-a?/cbitmap%)
  hours : (integer-in 0 11) = 0
  minutes : (real-in 0 60) = 47
  face-color : (or/c string? (is-a?/c color%))
             = light-metal-icon-color
  hand-color : (or/c string? (is-a?/c color%)) = "firebrick"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
procedure
(stethoscope-icon [#:color color         
                   #:height height]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = "black"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
procedure
(short-stethoscope-icon [#:color color         
                         #:height height]) -> (is-a?/cbitmap%)
  color : (or/c string? (is-a?/c color%)) = "black"
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
procedure
(lock-icon [open?                             
            #:body-color body-color           
            #:shackle-color shackle-color     
            #:height height                   
            #:material material])         -> (is-a?/cbitmap%)
  open? : boolean? = #f
  body-color : (or/c string? (is-a?/c color%)) = "orange"
  shackle-color : (or/c string? (is-a?/c color%))
                = light-metal-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(standing-stickman-icon [#:body-color body-color 
                         #:arm-color arm-color   
                         #:head-color head-color 
                         #:height height         
                         #:material material])   
 -> (is-a?/cbitmap%)
  body-color : (or/c string? (is-a?/c color%)) = run-icon-color
  arm-color : (or/c string? (is-a?/c color%)) = "white"
  head-color : (or/c string? (is-a?/c color%)) = run-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(running-stickman-icon  t                       
                       [#:body-color body-color 
                        #:arm-color arm-color   
                        #:head-color head-color 
                        #:height height         
                        #:material material])   
 -> (is-a?/cbitmap%)
  t : rational?
  body-color : (or/c string? (is-a?/c color%)) = run-icon-color
  arm-color : (or/c string? (is-a?/c color%)) = "white"
  head-color : (or/c string? (is-a?/c color%)) = run-icon-color
  height : (and/c rational? (>=/c 0)) = (default-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(check-syntax-icon [#:height height           
                    #:material material]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = (toolbar-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(small-check-syntax-icon [#:height height       
                          #:material material]) 
 -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = (toolbar-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(macro-stepper-icon [#:height height           
                     #:material material]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = (toolbar-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(small-macro-stepper-icon [#:height height       
                           #:material material]) 
 -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = (toolbar-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(debugger-icon [#:height height           
                #:material material]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = (toolbar-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
procedure
(small-debugger-icon [#:height height           
                      #:material material]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = (toolbar-icon-height)
  material : deep-flomap-material-value?
           = (default-icon-material)
value
debugger-bomb-color : (or/c string? (is-a?/c color%))
=  (make-object color% 128 32 32)
value
macro-stepper-hash-color : (or/c string? (is-a?/c color%))
=  (make-object color% 60 192 60)
value
small-macro-stepper-hash-color : (or/c string? (is-a?/c color%))
=  (make-object color% 128 255 128)
procedure
(plt-logo [#:height height]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = 256
procedure
(planet-logo [#:height height]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = 96
procedure
(stepper-logo [#:height height]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = 96
procedure
(macro-stepper-logo [#:height height]) -> (is-a?/cbitmap%)
  height : (and/c rational? (>=/c 0)) = 96
syntax
(compiled-bitmap expr [quality])
 
  expr : (is-a?/c bitmap%)
  quality : (integer-in 0 100)
syntax
(compiled-bitmap-list expr [quality])
 
  expr : (listof (is-a?/c bitmap%))
  quality : (integer-in 0 100)
struct
(struct flomap (values components width height))
  values : FlVector
  components : Integer
  width : Integer
  height : Integer
procedure
(flomap-size fm) -> Nonnegative-Fixnum Nonnegative-Fixnum
  fm : flomap
procedure
(flomap-ref fm k x y) -> Float
  fm : flomap
  k : Integer
  x : Integer
  y : Integer
procedure
(flomap-ref* fm x y) -> FlVector
  fm : flomap
  x : Integer
  y : Integer
procedure
(flomap-bilinear-ref fm k x y) -> Float
  fm : flomap
  k : Integer
  x : Real
  y : Real
procedure
(flomap-bilinear-ref* fm x y) -> FlVector
  fm : flomap
  x : Real
  y : Real
procedure
(flomap-min-value fm) -> Float
  fm : flomap
procedure
(flomap-max-value fm) -> Float
  fm : flomap
procedure
(flomap-extreme-values fm) -> Float Float
  fm : flomap
procedure
(flomap-nonzero-rect fm) -> Nonnegative-Fixnum
                            Nonnegative-Fixnum
                            Nonnegative-Fixnum
                            Nonnegative-Fixnum
  fm : flomap
procedure
(coords->index c w k x y) -> Fixnum
  c : Integer
  w : Integer
  k : Integer
  x : Integer
  y : Integer
procedure
(unsafe-flomap-ref vs c w h k x y) -> Float
  vs : FlVector
  c : Integer
  w : Integer
  h : Integer
  k : Integer
  x : Integer
  y : Integer
procedure
(unsafe-flomap-ref* vs c w h x y) -> FlVector
  vs : FlVector
  c : Integer
  w : Integer
  h : Integer
  x : Integer
  y : Integer
procedure
(flomap->bitmap fm) -> Any
  fm : flomap
procedure
(bitmap->flomap bm) -> flomap
  bm : Any
procedure
(make-flomap c w h [v]) -> flomap
  c : Integer
  w : Integer
  h : Integer
  v : Real = 0.0
procedure
(make-flomap* w h vs) -> flomap
  w : Integer
  h : Integer
  vs : (U (Vectorof Real) FlVector)
procedure
(build-flomap c w h f) -> flomap
  c : Integer
  w : Integer
  h : Integer
  f : (Nonnegative-Fixnum Nonnegative-Fixnum Nonnegative-Fixnum -> Real)
procedure
(build-flomap* c w h f) -> flomap
  c : Integer
  w : Integer
  h : Integer
  f : (Nonnegative-Fixnum Nonnegative-Fixnum
       -> (U (Vectorof Real) FlVector))
procedure
(draw-flomap draw w h) -> flomap
  draw : (Any -> Any)
  w : Integer
  h : Integer
procedure
(flomap-multiply-alpha fm) -> flomap
  fm : flomap
procedure
(flomap-divide-alpha fm) -> flomap
  fm : flomap
syntax
(inline-build-flomap c w h f)
 
  c : Integer
  w : Integer
  h : Integer
  f : (Nonnegative-Fixnum Nonnegative-Fixnum Nonnegative-Fixnum
       Nonnegative-Fixnum -> Float)
syntax
(inline-build-flomap* c w h f)
 
  c : Integer
  w : Integer
  h : Integer
  f : (Nonnegative-Fixnum Nonnegative-Fixnum
       Nonnegative-Fixnum -> FlVector)
procedure
(flomap-ref-component fm k) -> flomap
  fm : flomap
  k : Integer
procedure
(flomap-take-components fm k) -> flomap
  fm : flomap
  k : Integer
procedure
(flomap-drop-components fm k) -> flomap
  fm : flomap
  k : Integer
procedure
(flomap-append-components fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(fmsqrt fm) -> flomap
  fm : flomap
procedure
(fmsqr fm) -> flomap
  fm : flomap
procedure
(flomap-lift f) -> (flomap -> flomap)
  f : (Float -> Real)
procedure
(flomap-normalize fm) -> flomap
  fm : flomap
procedure
(fm+ fm1 fm2) -> flomap
  fm1 : (U Real flomap)
  fm2 : (U Real flomap)
procedure
(fm- fm1 fm2) -> flomap
  fm1 : (U Real flomap)
  fm2 : (U Real flomap)
procedure
(fm* fm1 fm2) -> flomap
  fm1 : (U Real flomap)
  fm2 : (U Real flomap)
procedure
(fm/ fm1 fm2) -> flomap
  fm1 : (U Real flomap)
  fm2 : (U Real flomap)
procedure
(fmmin fm1 fm2) -> flomap
  fm1 : (U Real flomap)
  fm2 : (U Real flomap)
procedure
(fmmax fm1 fm2) -> flomap
  fm1 : (U Real flomap)
  fm2 : (U Real flomap)
procedure
(flomap-lift2 f) -> ((U Real flomap) (U Real flomap) -> flomap)
  f : (Float Float -> Real)
syntax
(inline-flomap-lift f)
 
  f : (Float -> Float)
syntax
(inline-flomap-lift2 f)
 
  f : (Float Float -> Float)
procedure
(flomap-gradient-x fm) -> flomap
  fm : flomap
procedure
(flomap-gradient-y fm) -> flomap
  fm : flomap
procedure
(flomap-gradient fm) -> flomap flomap
  fm : flomap
procedure
(flomap-gradient-normal fm) -> flomap
  fm : flomap
procedure
(flomap-gaussian-blur fm xσ [yσ]) -> flomap
  fm : flomap
  xσ : Real
  yσ : Real = xσ
procedure
(flomap-gaussian-blur-x fm σ) -> flomap
  fm : flomap
  σ : Real
procedure
(flomap-gaussian-blur-y fm σ) -> flomap
  fm : flomap
  σ : Real
procedure
(flomap-box-blur fm x-radius [y-radius]) -> flomap
  fm : flomap
  x-radius : Real
  y-radius : Real = x-radius
procedure
(flomap-box-blur-x fm radius) -> flomap
  fm : flomap
  radius : Real
procedure
(flomap-box-blur-y fm radius) -> flomap
  fm : flomap
  radius : Real
procedure
(flomap-blur fm xσ [yσ]) -> flomap
  fm : flomap
  xσ : Real
  yσ : Real = xσ
procedure
(flomap-blur-x fm xσ) -> flomap
  fm : flomap
  xσ : Real
procedure
(flomap-blur-y fm yσ) -> flomap
  fm : flomap
  yσ : Real
procedure
(flomap-copy fm x-start y-start x-end y-end) -> flomap
  fm : flomap
  x-start : Integer
  y-start : Integer
  x-end : Integer
  y-end : Integer
procedure
(subflomap fm x-start y-start x-end y-end) -> flomap
  fm : flomap
  x-start : Integer
  y-start : Integer
  x-end : Integer
  y-end : Integer
procedure
(flomap-trim fm [alpha?]) -> flomap
  fm : flomap
  alpha? : Boolean = #t
procedure
(flomap-inset fm amt) -> flomap
  fm : flomap
  amt : Integer
(flomap-inset fm h-amt v-amt) -> flomap
  fm : flomap
  h-amt : Integer
  v-amt : Integer
(flomap-inset fm l-amt t-amt r-amt b-amt) -> flomap
  fm : flomap
  l-amt : Integer
  t-amt : Integer
  r-amt : Integer
  b-amt : Integer
procedure
(flomap-crop fm w h left-frac top-frac) -> flomap
  fm : flomap
  w : Integer
  h : Integer
  left-frac : Real
  top-frac : Real
procedure
(flomap-lt-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-lc-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-lb-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-ct-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-cc-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-cb-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-rt-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-rc-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-rb-crop fm w h) -> flomap
  fm : flomap
  w : Integer
  h : Integer
procedure
(flomap-scale fm x-scale [y-scale]) -> flomap
  fm : flomap
  x-scale : Real
  y-scale : Real = x-scale
procedure
(flomap-resize fm w h) -> flomap
  fm : flomap
  w : (Option Integer)
  h : (Option Integer)
procedure
(flomap-pin fm1 x1 y1 fm2) -> flomap
  fm1 : flomap
  x1 : Integer
  y1 : Integer
  fm2 : flomap
(flomap-pin fm1 x1 y1 fm2 x2 y2) -> flomap
  fm1 : flomap
  x1 : Integer
  y1 : Integer
  fm2 : flomap
  x2 : Integer
  y2 : Integer
procedure
(flomap-pin* x1-frac     
             y1-frac     
             x2-frac     
             y2-frac     
             fm0         
             fm ...) -> flomap
  x1-frac : Real
  y1-frac : Real
  x2-frac : Real
  y2-frac : Real
  fm0 : flomap
  fm : flomap
procedure
(flomap-lt-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-lc-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-lb-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-ct-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-cc-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-cb-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-rt-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-rc-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-rb-superimpose fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-vl-append fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-vc-append fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-vr-append fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-ht-append fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-hc-append fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-hb-append fm0 fm ...) -> flomap
  fm0 : flomap
  fm : flomap
procedure
(flomap-flip-horizontal fm) -> flomap
  fm : flomap
procedure
(flomap-flip-vertical fm) -> flomap
  fm : flomap
procedure
(flomap-transpose fm) -> flomap
  fm : flomap
procedure
(flomap-cw-rotate fm) -> flomap
  fm : flomap
procedure
(flomap-ccw-rotate fm) -> flomap
  fm : flomap
procedure
(flomap-rotate fm θ) -> flomap
  fm : flomap
  θ : Real
procedure
(flomap-rotate-transform θ) -> Flomap-Transform
  θ : Real
procedure
(flomap-whirl-transform θ) -> Flomap-Transform
  θ : Real
procedure
(flomap-fisheye-transform α) -> Flomap-Transform
  α : Real
procedure
(flomap-scale-transform x-scale [y-scale]) -> Flomap-Transform
  x-scale : Real
  y-scale : Real = x-scale
value
flomap-id-transform : Flomap-Transform
procedure
(flomap-transform fm t) -> flomap
  fm : flomap
  t : Flomap-Transform
(flomap-transform fm          
                  t           
                  x-start     
                  y-start     
                  x-end       
                  y-end)  -> flomap
  fm : flomap
  t : Flomap-Transform
  x-start : Integer
  y-start : Integer
  x-end : Integer
  y-end : Integer
syntax
Flomap-Transform
struct
(struct flomap-2d-mapping (fun inv bounded-by))
  fun : (Float Float -> (values Float Float))
  inv : (Float Float -> (values Float Float))
  bounded-by : (U 'id 'corners 'edges 'all)
procedure
(make-flomap-2d-mapping fun inv [bounded-by]) -> flomap-2d-mapping
  fun : (Float Float -> (values Real Real))
  inv : (Float Float -> (values Real Real))
  bounded-by : (U 'id 'corners 'edges 'all) = 'edges
procedure
(flomap-transform-compose t2 t1) -> Flomap-Transform
  t2 : Flomap-Transform
  t1 : Flomap-Transform
procedure
(flomap-transform-bounds t w h) -> Integer Integer Integer Integer
  t : Flomap-Transform
  w : Integer
  h : Integer
procedure
(flomap-projection-transform to-proj       
                             from-proj     
                             crop?)    -> Flomap-Transform
  to-proj : Projection
  from-proj : Projection
  crop? : Boolean
procedure
(perspective-projection α) -> Projection
  α : Real
procedure
(linear-projection α) -> Projection
  α : Real
procedure
(orthographic-projection α) -> Projection
  α : Real
procedure
(equal-area-projection α) -> Projection
  α : Real
procedure
(stereographic-projection α) -> Projection
  α : Real
syntax
Projection
struct
(struct projection-mapping (fun inv))
  fun : (Float -> Float)
  inv : (Float -> Float)
procedure
(flomap-shadow fm σ [color]) -> flomap
  fm : flomap
  σ : Real
  color : (Option (U (Vectorof Real) FlVector)) = #f
procedure
(flomap-outline fm radius [color]) -> flomap
  fm : flomap
  radius : Real
  color : (Option (U (Vectorof Real) FlVector)) = #f
