4548
((3) 0 () 4 ((q lib "graphics/graphics.rkt") (q 756 . 5) (q 1238 . 6) (q lib "graphics/graphics-sig.rkt")) () (h ! (equal) ((c def c (c (? . 0) q draw-pixmap-posn)) q (8565 . 16)) ((c def c (c (? . 0) q posn-x)) c (? . 1)) ((c def c (c (? . 0) q graphics-open?)) q (75 . 2)) ((c def c (c (? . 0) q set-on-tick-event)) q (9663 . 7)) ((c def c (c (? . 0) q flip-solid-rectangle)) q (4555 . 9)) ((c def c (c (? . 0) q save-pixmap)) q (9387 . 5)) ((c def c (c (? . 0) q copy-viewport)) q (1909 . 4)) ((c def c (c (? . 0) q test-pixel)) q (1059 . 6)) ((c def c (c (? . 0) q flip-ellipse)) q (5419 . 6)) ((c def c (c (? . 0) q close-graphics)) q (37 . 2)) ((c def c (c (? . 0) q get-pixel)) q (861 . 4)) ((c def c (c (? . 0) q make-rgb)) c (? . 2)) ((c def c (c (? . 0) q viewport-buffer-dc)) q (10393 . 3)) ((c def c (c (? . 0) q set-on-key-event)) q (9960 . 4)) ((c def c (c (? . 0) q posn)) c (? . 1)) ((q def ((lib "graphics/graphics-posn-less-unit.rkt") graphics-posn-less@)) q (11655 . 2)) ((c def c (c (? . 0) q draw-solid-rectangle)) q (3743 . 13)) ((c def c (c (? . 0) q struct:posn)) c (? . 1)) ((c def c (c (? . 0) q stop-tick)) q (9888 . 3)) ((c def c (c (? . 0) q get-color-pixel)) q (963 . 4)) ((c def c (c (? . 0) q flip-polygon)) q (7147 . 5)) ((c def c (c (? . 0) q get-mouse-click)) q (10483 . 3)) ((c def c (c (? . 0) q viewport-dc)) q (10310 . 3)) ((c def c (c (? . 0) q key-value)) q (11385 . 3)) ((c def c (c (? . 0) q rgb?)) c (? . 2)) ((c def c (c (? . 0) q flip-solid-polygon)) q (7875 . 7)) ((c def c (c (? . 0) q draw-solid-ellipse)) q (5627 . 13)) ((c def c (c (? . 0) q clear-polygon)) q (7003 . 5)) ((c def c (c (? . 0) q right-mouse-click?)) q (11134 . 3)) ((c def c (c (? . 0) q draw-line)) q (2406 . 8)) ((c def c (c (? . 0) q draw-rectangle)) q (2870 . 13)) ((c def c (c (? . 0) q clear-pixel)) q (2221 . 4)) ((c def c (c (? . 0) q clear-line)) q (2641 . 5)) ((c def c (c (? . 0) q flip-rectangle)) q (3533 . 6)) ((c def c (c (? . 0) q flip-pixel)) q (2314 . 4)) ((c def c (c (? . 0) q rgb)) c (? . 2)) ((c def c (c (? . 0) q draw-pixel)) q (2008 . 7)) ((c def c (c (? . 0) q posn?)) c (? . 1)) ((c def c (c (? . 0) q rgb-blue)) c (? . 2)) ((c def c (c (? . 0) q open-pixmap)) q (373 . 8)) ((c def c (c (? . 0) q draw-viewport)) q (1559 . 6)) ((c def c (c (? . 0) q default-display-is-color?)) q (1507 . 2)) ((c def c (c (? . 0) q ready-mouse-release)) q (10668 . 3)) ((c def c (c (? . 0) q draw-pixmap)) q (9141 . 8)) ((c def c (c (? . 0) q clear-solid-ellipse)) q (6099 . 9)) ((c def c (c (? . 0) q close-viewport)) q (626 . 3)) ((c def c (c (? . 0) q open-viewport)) q (116 . 8)) ((c def c (c (? . 0) q flip-line)) q (2756 . 5)) ((c def c (c (? . 0) q draw-solid-polygon)) q (7290 . 11)) ((q def ((lib "graphics/graphics-unit.rkt") graphics@)) q (11629 . 2)) ((c def c (c (? . 0) q make-posn)) c (? . 1)) ((c def c (c (? . 0) q clear-ellipse)) q (5210 . 6)) ((c def c (c (? . 0) q posn-y)) c (? . 1)) ((c def c (c (? . 0) q draw-polygon)) q (6739 . 8)) ((c def c (c (? . 0) q draw-string)) q (8089 . 8)) ((c def c (c (? . 0) q get-key-press)) q (11225 . 3)) ((c def c (c (? . 0) q flip-viewport)) q (1833 . 3)) ((c def c (c (? . 0) q clear-rectangle)) q (3322 . 6)) ((c def c (c (? . 0) q rgb-red)) c (? . 2)) ((c def c (c (? . 0) q open-graphics)) q (0 . 2)) ((c def c (c (? . 0) q viewport->snip)) q (10224 . 3)) ((c def c (c (? . 0) q ready-key-press)) q (11304 . 3)) ((c def c (c (? . 0) q viewport?)) q (701 . 3)) ((c def c (c (? . 0) q clear-string)) q (8328 . 5)) ((c def c (c (? . 0) q flip-solid-ellipse)) q (6421 . 9)) ((c def c (c (? . 0) q middle-mouse-click?)) q (11042 . 3)) ((c def c (c (? . 0) q flip-string)) q (8447 . 5)) ((c def c (c (? . 0) q clear-solid-polygon)) q (7658 . 7)) ((c def c (c (? . 0) q clear-solid-rectangle)) q (4225 . 9)) ((c def c (c (? . 0) q draw-ellipse)) q (4881 . 9)) ((c form c (c (? . 3) q graphics:posn^)) q (11590 . 2)) ((c def c (c (? . 0) q clear-viewport)) q (1756 . 3)) ((c form c (c (? . 3) q graphics^)) q (11556 . 2)) ((c def c (c (? . 0) q viewport-flush-input)) q (11475 . 3)) ((c def c (c (? . 0) q struct:rgb)) c (? . 2)) ((c def c (c (? . 0) q init-world)) q (9571 . 4)) ((c def c (c (? . 0) q get-string-size)) q (10104 . 4)) ((c def c (c (? . 0) q ready-mouse-click)) q (10566 . 3)) ((c def c (c (? . 0) q mouse-click-posn)) q (10866 . 3)) ((c def c (c (? . 0) q rgb-green)) c (? . 2)) ((c def c (c (? . 0) q left-mouse-click?)) q (10952 . 3)) ((c def c (c (? . 0) q query-mouse-posn)) q (10772 . 3)) ((c def c (c (? . 0) q change-color)) q (1407 . 4))))
procedure
(open-graphics) -> void?
procedure
(close-graphics) -> void?
procedure
(graphics-open?) -> boolean?
procedure
(open-viewport name horiz vert) -> viewport?
  name : string?
  horiz : exact-nonnegative-integer?
  vert : exact-nonnegative-integer?
(open-viewport name dimensions) -> viewport?
  name : string?
  dimensions : posn?
procedure
(open-pixmap name horiz vert) -> viewport?
  name : string?
  horiz : exact-nonnegative-integer?
  vert : exact-nonnegative-integer?
(open-pixmap name dimensions) -> viewport?
  name : string?
  dimensions : posn?
procedure
(close-viewport viewport) -> void?
  viewport : viewport?
procedure
(viewport? v) -> boolean?
  v : any/c
struct
(struct posn (x y)
    #:extra-constructor-name make-posn)
  x : real?
  y : real?
procedure
((get-pixel viewport) p) -> (one-of/c 0 1)
  viewport : viewport?
  p : posn?
procedure
((get-color-pixel viewport) p) -> rgb?
  viewport : viewport?
  p : posn?
procedure
((test-pixel viewport) color) -> rgb?
  viewport : viewport?
  color : (or/c (integer-in 0 299)
                string?
                rgb?)
struct
(struct rgb (red green blue)
    #:extra-constructor-name make-rgb)
  red : (real-in 0 1)
  green : (real-in 0 1)
  blue : (real-in 0 1)
procedure
(change-color index rgb) -> void?
  index : (integer-in 0 299)
  rgb : rgb?
procedure
(default-display-is-color?) -> boolean?
procedure
((draw-viewport viewport) [color]) -> void?
  viewport : viewport?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-viewport viewport)) -> void?
  viewport : viewport?
procedure
((flip-viewport viewport)) -> void?
  viewport : viewport?
procedure
(copy-viewport source dest) -> void?
  source : viewport?
  dest : viewport?
procedure
((draw-pixel viewport) p [color]) -> void?
  viewport : viewport?
  p : posn?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-pixel viewport) p) -> void?
  viewport : viewport?
  p : posn?
procedure
((flip-pixel viewport) p) -> void?
  viewport : viewport?
  p : posn?
procedure
((draw-line viewport) p1 p2 [color]) -> void?
  viewport : viewport?
  p1 : posn?
  p2 : posn?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-line viewport) p1 p2) -> void?
  viewport : viewport?
  p1 : posn?
  p2 : posn?
procedure
((flip-line viewport) p1 p2) -> void?
  viewport : viewport?
  p1 : posn?
  p2 : posn?
procedure
((draw-rectangle viewport)     
 p                             
 width                         
 height                        
  [color])                 -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-rectangle viewport) p width height) -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((flip-rectangle viewport) p width height) -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((draw-solid-rectangle viewport)     
 p                                   
 width                               
 height                              
  [color])                       -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-solid-rectangle viewport)     
 p                                    
 width                                
 height)                          -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((flip-solid-rectangle viewport)     
 p                                   
 width                               
 height)                         -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((draw-ellipse viewport) p width height [color]) -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-ellipse viewport) p width height) -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((flip-ellipse viewport) p width height) -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((draw-solid-ellipse viewport)     
 p                                 
 width                             
 height                            
  [color])                     -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-solid-ellipse viewport)     
 p                                  
 width                              
 height)                        -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((flip-solid-ellipse viewport)     
 p                                 
 width                             
 height)                       -> void?
  viewport : viewport?
  p : posn?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
((draw-polygon viewport) points offset [color]) -> void?
  viewport : viewport?
  points : (listof posn?)
  offset : posn?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-polygon viewport) points offset) -> void?
  viewport : viewport?
  points : (listof posn?)
  offset : posn?
procedure
((flip-polygon viewport) points offset) -> void?
  viewport : viewport?
  points : (listof posn?)
  offset : posn?
procedure
((draw-solid-polygon viewport)     
 points                            
 offset                            
  [color])                     -> void?
  viewport : viewport?
  points : (listof posn?)
  offset : posn?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-solid-polygon viewport)     
 points                             
 offset)                        -> void?
  viewport : viewport?
  points : (listof posn?)
  offset : posn?
procedure
((flip-solid-polygon viewport)     
 points                            
 offset)                       -> void?
  viewport : viewport?
  points : (listof posn?)
  offset : posn?
procedure
((draw-string viewport) p str [color]) -> void?
  viewport : viewport?
  p : posn?
  str : string?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((clear-string viewport) p str) -> void?
  viewport : viewport?
  p : posn?
  str : string?
procedure
((flip-string viewport) p str) -> void?
  viewport : viewport?
  p : posn?
  str : string?
procedure
(((draw-pixmap-posn  file       
                    [type])     
 viewport)                      
 p                              
  [color])                  -> void?
  file : path-string?
  type : (one-of/c 'unknown 'unknown/mask
                   'gif 'gif/mask 'jpeg 'png 'png/mask
                   'xbm 'xpm 'bmp)
       = 'unknown/mask
  viewport : viewport?
  p : posn?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((draw-pixmap viewport) file p [color]) -> void?
  viewport : viewport?
  file : path-string?
  p : posn?
  color : (or/c (integer-in 0 299) = "black"
                string?
                rgb?)
procedure
((save-pixmap viewport) file [type]) -> void?
  viewport : viewport?
  file : path-string?
  type : (one-of/c 'gif 'jpeg 'png 'xbm 'xpm 'bmp) = 'xpm
procedure
((init-world viewport) v) -> void?
  viewport : viewport?
  v : any/c
procedure
((set-on-tick-event viewport)     
 secs                             
 update-callback)             -> void?
  viewport : viewport?
  secs : real?
  update-callback : (any/c . -> . any/c)
procedure
((stop-tick viewport)) -> void?
  viewport : viewport?
procedure
((set-on-key-event viewport) key-callback) -> void?
  viewport : viewport?
  key-callback : (any/c any/c . -> . any/c)
procedure
((get-string-size viewport) str) -> (list/c real? real?)
  viewport : viewport?
  str : string?
procedure
(viewport->snip viewport) -> (is-a?/c snip%)
  viewport : viewport?
procedure
(viewport-dc viewport) -> (is-a?/c dc<%>)
  viewport : viewport?
procedure
(viewport-buffer-dc viewport) -> (is-a?/c dc<%>)
  viewport : viewport?
procedure
(get-mouse-click viewport) -> mouse-click?
  viewport : viewport?
procedure
(ready-mouse-click viewport) -> (or/c mouse-click? false/c)
  viewport : viewport?
procedure
(ready-mouse-release viewport) -> (or/c mouse-click? false/c)
  viewport : viewport?
procedure
(query-mouse-posn viewport) -> (or/c posn? false/c)
  viewport : viewport?
procedure
(mouse-click-posn mouse-click) -> posn?
  mouse-click : mouse-click?
procedure
(left-mouse-click? mouse-click) -> boolean?
  mouse-click : mouse-click?
procedure
(middle-mouse-click? mouse-click) -> boolean?
  mouse-click : mouse-click?
procedure
(right-mouse-click? mouse-click) -> boolean?
  mouse-click : mouse-click?
procedure
(get-key-press viewport) -> key-press?
  viewport : viewport?
procedure
(ready-key-press viewport) -> key-press?
  viewport : viewport?
procedure
(key-value key-press) -> (or/c char? symbol?)
  key-press : key-press?
procedure
(viewport-flush-input viewport) -> void?
  viewport : viewport?
signature
graphics^ : signature
signature
graphics:posn^ : signature
value
graphics@ : unit?
value
graphics-posn-less@ : unit?
