23152
#hash(((def ((lib "2htdp/universe.rkt") iworld3)) . ((42496 . 2))) ((form ((lib "2htdp/universe.rkt") pad-handler)) . ((39523 . 9))) ((def ((lib "2htdp/image.rkt") color-red)) . ((35096 . 7))) ((def ((lib "2htdp/planetcute.rkt") yellow-star)) . ((45224 . 2))) ((def ((lib "htdp/big-draw.rkt") clear-all)) . ((8558 . 2))) ((def ((lib "teachpack/2htdp/image.rkt") stop-with-w)) . ((40716 . 3))) ((def ((lib "2htdp/planetcute.rkt") stone-block)) . ((44737 . 2))) ((def ((lib "2htdp/image.rkt") pen?)) . ((35736 . 8))) ((def ((lib "2htdp/image.rkt") add-line)) . ((15851 . 8))) ((def ((lib "htdp/dir.rkt") make-file)) . ((10471 . 6))) ((def ((lib "htdp/gui.rkt") show-window)) . ((11031 . 3))) ((def ((lib "htdp/image.rkt") star)) . ((1005 . 7))) ((form ((lib "2htdp/universe.rkt") register)) . ((42090 . 4))) ((def ((lib "2htdp/batch-io.rkt") read-file)) . ((14112 . 3))) ((def ((lib "2htdp/image.rkt") pinhole-x)) . ((36313 . 3))) ((def ((lib "htdp/image.rkt") color-blue)) . ((126 . 6))) ((def ((lib "2htdp/batch-io.rkt") read-1strings)) . ((14191 . 3))) ((def ((lib "htdp/big-draw.rkt") clear-solid-disk)) . ((8122 . 5))) ((def ((lib "2htdp/planetcute.rkt") heart)) . ((45050 . 2))) ((def ((lib "2htdp/batch-io.rkt") read-words)) . ((14375 . 3))) ((def ((lib "htdp/master-play.rkt") go)) . ((7163 . 3))) ((def ((lib "htdp/arrow-gui.rkt") view)) . ((11704 . 3))) ((def ((lib "2htdp/universe.rkt") key=?)) . ((39036 . 4))) ((def ((lib "htdp/world.rkt") on-redraw)) . ((5967 . 3))) ((def ((lib "2htdp/batch-io.rkt") read-words/line)) . ((14465 . 3))) ((def ((lib "2htdp/planetcute.rkt") character-horn-girl)) . ((44415 . 2))) ((def ((lib "htdp/gui.rkt") make-choice)) . ((11521 . 3))) ((def ((lib "2htdp/image.rkt") image-height)) . ((34741 . 3))) ((def ((lib "htdp/gui.rkt") make-message)) . ((11257 . 3))) ((def ((lib "htdp/convert.rkt") convert-repl)) . ((6495 . 3))) ((def ((lib "2htdp/image.rkt") freeze)) . ((34223 . 13))) ((def ((lib "htdp/big-draw.rkt") clear-solid-string)) . ((8477 . 4))) ((def ((lib "2htdp/universe.rkt") sexp?)) . ((41025 . 3))) ((def ((lib "htdp/image.rkt") alpha-color?)) . ((4312 . 7))) ((def ((lib "htdp/image.rkt") overlay)) . ((2174 . 5))) ((def ((lib "2htdp/image.rkt") rotate)) . ((32975 . 4))) ((def ((lib "2htdp/image.rkt") struct:pen)) . ((35736 . 8))) ((def ((lib "htdp/guess.rkt") guess-with-gui-3)) . ((6811 . 3))) ((def ((lib "htdp/world.rkt") on-tick-event)) . ((5545 . 3))) ((form ((lib "2htdp/universe.rkt") check-with)) . ((40767 . 4))) ((def ((lib "htdp/matrix.rkt") make-matrix)) . ((12815 . 5))) ((def ((lib "htdp/docs.rkt") annotation?)) . ((10121 . 3))) ((def ((lib "2htdp/planetcute.rkt") shadow-south)) . ((45933 . 2))) ((def ((lib "htdp/big-draw.rkt") clear-solid-line)) . ((8367 . 5))) ((def ((lib "htdp/image.rkt") shrink-br)) . ((2972 . 5))) ((def ((lib "htdp/convert.rkt") convert-gui)) . ((6413 . 3))) ((def ((lib "2htdp/planetcute.rkt") door-tall-closed)) . ((45363 . 2))) ((def ((lib "htdp/image.rkt") image-height)) . ((1618 . 3))) ((def ((lib "htdp/image.rkt") scene+line)) . ((3836 . 8))) ((def ((lib "2htdp/planetcute.rkt") gem-blue)) . ((44969 . 2))) ((def ((lib "2htdp/image.rkt") color-list->bitmap)) . ((34020 . 5))) ((form ((lib "2htdp/universe.rkt") on-release)) . ((39203 . 4))) ((form ((lib "2htdp/universe.rkt") to-draw)) . ((38324 . 4))) ((def ((lib "2htdp/planetcute.rkt") tree-short)) . ((45142 . 2))) ((def ((lib "2htdp/planetcute.rkt") character-boy)) . ((44348 . 2))) ((def ((lib "2htdp/image.rkt") angle?)) . ((35507 . 3))) ((form ((lib "2htdp/universe.rkt") on-pad)) . ((39436 . 4))) ((def ((lib "htdp/big-draw.rkt") clear-solid-rect)) . ((8224 . 6))) ((form ((lib "2htdp/universe.rkt") on-new)) . ((43239 . 4))) ((def ((lib "2htdp/planetcute.rkt") enemy-bug)) . ((44530 . 2))) ((def ((lib "htdp/world.rkt") big-bang)) . ((5191 . 12))) ((def ((lib "2htdp/image.rkt") empty-scene)) . ((31426 . 8))) ((def ((lib "2htdp/planetcute.rkt") shadow-east)) . ((45700 . 2))) ((def ((lib "2htdp/image.rkt") overlay/offset)) . ((29422 . 6))) ((def ((lib "2htdp/image.rkt") rectangle)) . ((25227 . 14))) ((def ((lib "2htdp/image.rkt") pen-color)) . ((35736 . 8))) ((def ((lib "2htdp/image.rkt") make-color)) . ((35096 . 7))) ((def ((lib "2htdp/image.rkt") center-pinhole)) . ((36138 . 3))) ((def ((lib "htdp/dir.rkt") struct:dir)) . ((10307 . 6))) ((def ((lib "2htdp/universe.rkt") pad-event?)) . ((39302 . 3))) ((def ((lib "2htdp/planetcute.rkt") roof-north-east)) . ((45456 . 2))) ((def ((lib "htdp/image.rkt") struct:alpha-color)) . ((4312 . 7))) ((def ((lib "2htdp/image.rkt") underlay/align/offset)) . ((30440 . 13))) ((def ((lib "2htdp/batch-io.rkt") write-file)) . ((14788 . 4))) ((def ((lib "htdp/big-draw.rkt") get-key-event)) . ((8634 . 2))) ((def ((lib "2htdp/planetcute.rkt") brown-block)) . ((44588 . 2))) ((def ((lib "htdp/gui.rkt") choice-index)) . ((11602 . 3))) ((def ((lib "htdp/dir.rkt") file?)) . ((10471 . 6))) ((def ((lib "2htdp/image.rkt") overlay)) . ((29142 . 5))) ((def ((lib "htdp/image.rkt") place-image)) . ((3425 . 6))) ((def ((lib "2htdp/planetcute.rkt") wood-block)) . ((44856 . 2))) ((def ((lib "htdp/image.rkt") color-red)) . ((126 . 6))) ((def ((lib "2htdp/image.rkt") scale)) . ((33062 . 4))) ((def ((lib "htdp/matrix.rkt") matrix-ref)) . ((13160 . 5))) ((def ((lib "htdp/arrow-gui.rkt") connect)) . ((11769 . 6))) ((def ((lib "2htdp/image.rkt") pen-join?)) . ((36083 . 3))) ((def ((lib "htdp/image.rkt") alpha-color-green)) . ((4312 . 7))) ((def ((lib "2htdp/planetcute.rkt") ramp-west)) . ((45336 . 2))) ((def ((lib "htdp/image.rkt") struct:color)) . ((126 . 6))) ((def ((lib "2htdp/image.rkt") triangle/sas)) . ((20966 . 21))) ((form ((lib "2htdp/universe.rkt") up)) . ((39741 . 4))) ((def ((lib "2htdp/image.rkt") triangle/ass)) . ((20145 . 21))) ((def ((lib "2htdp/image.rkt") color-green)) . ((35096 . 7))) ((def ((lib "htdp/image.rkt") overlay/xy)) . ((2287 . 6))) ((def ((lib "htdp/gui.rkt") window?)) . ((10978 . 3))) ((def ((lib "htdp/convert.rkt") convert-file)) . ((6578 . 5))) ((def ((lib "htdp/gui.rkt") make-button)) . ((11139 . 4))) ((def ((lib "2htdp/image.rkt") make-pen)) . ((35736 . 8))) ((def ((lib "htdp/big-draw.rkt") wait-for-mouse-click)) . ((8590 . 2))) ((def ((lib "htdp/image.rkt") nw:rectangle)) . ((3547 . 9))) ((def ((lib "2htdp/planetcute.rkt") shadow-north-east)) . ((45729 . 2))) ((def ((lib "2htdp/planetcute.rkt") dirt-block)) . ((44617 . 2))) ((def ((lib "2htdp/image.rkt") save-svg-image)) . ((37037 . 7))) ((def ((lib "htdp/gui.rkt") draw-message)) . ((11321 . 4))) ((def ((lib "2htdp/universe.rkt") LOCALHOST)) . ((42062 . 2))) ((def ((lib "2htdp/image.rkt") put-pinhole)) . ((36205 . 5))) ((def ((lib "2htdp/planetcute.rkt") roof-north)) . ((45522 . 2))) ((def ((lib "2htdp/image.rkt") triangle/aas)) . ((22608 . 21))) ((def ((lib "2htdp/image.rkt") underlay/xy)) . ((30822 . 6))) ((def ((lib "2htdp/universe.rkt") make-mail)) . ((42762 . 4))) ((def ((lib "2htdp/planetcute.rkt") tree-tall)) . ((45170 . 2))) ((def ((lib "2htdp/image.rkt") save-image)) . ((36754 . 7))) ((def ((lib "htdp/big-draw.rkt") sleep-for-a-while)) . ((7963 . 3))) ((def ((lib "htdp/world.rkt") on-mouse-event)) . ((5842 . 3))) ((def ((lib "htdp/lkup-gui.rkt") control)) . ((11943 . 3))) ((def ((lib "htdp/dir.rkt") dir)) . ((10307 . 6))) ((def ((lib "htdp/guess.rkt") guess-with-gui-list)) . ((6930 . 3))) ((def ((lib "2htdp/image.rkt") image-width)) . ((34646 . 3))) ((def ((lib "2htdp/universe.rkt") run-simulation)) . ((37429 . 3))) ((def ((lib "htdp/big-draw.rkt") start)) . ((7215 . 4))) ((def ((lib "2htdp/image.rkt") text/font)) . ((16808 . 17))) ((def ((lib "htdp/hangman.rkt") hangman)) . ((8988 . 5))) ((def ((lib "htdp/hangman.rkt") hangman-list)) . ((9194 . 6))) ((def ((lib "htdp/dir.rkt") dir-dirs)) . ((10307 . 6))) ((def ((lib "2htdp/image.rkt") right-triangle)) . ((17890 . 17))) ((def ((lib "htdp/matrix.rkt") matrix-cols)) . ((12616 . 3))) ((def ((lib "htdp/image.rkt") regular-polygon)) . ((1210 . 7))) ((def ((lib "2htdp/planetcute.rkt") roof-west)) . ((45644 . 2))) ((def ((lib "2htdp/universe.rkt") key-event?)) . ((38982 . 3))) ((def ((lib "htdp/image.rkt") triangle)) . ((914 . 5))) ((def ((lib "htdp/arrow.rkt") control-up-down)) . ((9679 . 6))) ((def ((lib "2htdp/batch-io.rkt") read-lines)) . ((14285 . 3))) ((def ((lib "htdp/dir.rkt") create-dir)) . ((10635 . 3))) ((def ((lib "htdp/big-draw.rkt") stop)) . ((7407 . 2))) ((def ((lib "teachpack/2htdp/image.rkt") stop-with?)) . ((40716 . 3))) ((form ((lib "2htdp/universe.rkt") shift)) . ((40116 . 4))) ((def ((lib "htdp/matrix.rkt") matrix-where?)) . ((13547 . 4))) ((form ((lib "2htdp/universe.rkt") on-disconnect)) . ((43806 . 4))) ((def ((lib "htdp/docs.rkt") end-annotation)) . ((10178 . 3))) ((def ((lib "2htdp/image.rkt") underlay/pinhole)) . ((36642 . 5))) ((form ((lib "2htdp/universe.rkt") on-mouse)) . ((40335 . 6))) ((def ((lib "2htdp/image.rkt") bitmap/file)) . ((33876 . 3))) ((def ((lib "2htdp/image.rkt") color?)) . ((35096 . 7))) ((def ((lib "htdp/dir.rkt") make-dir)) . ((10307 . 6))) ((def ((lib "2htdp/universe.rkt") stop-with)) . ((40716 . 3))) ((def ((lib "2htdp/image.rkt") x-place?)) . ((35453 . 3))) ((def ((lib "htdp/show-queen.rkt") show-queen)) . ((12411 . 3))) ((form ((lib "2htdp/universe.rkt") state)) . ((40892 . 4))) ((def ((lib "2htdp/universe.rkt") make-bundle)) . ((42575 . 5))) ((def ((lib "2htdp/planetcute.rkt") ramp-north)) . ((45280 . 2))) ((def ((lib "htdp/guess-gui.rkt") connect)) . ((12324 . 3))) ((def ((lib "2htdp/image.rkt") side-count?)) . ((35559 . 3))) ((def ((lib "htdp/matrix.rkt") build-matrix)) . ((12937 . 7))) ((def ((lib "htdp/image.rkt") text)) . ((1451 . 5))) ((def ((lib "2htdp/image.rkt") pen-style)) . ((35736 . 8))) ((def ((lib "2htdp/image.rkt") above)) . ((31184 . 5))) ((def ((lib "htdp/image.rkt") image->alpha-color-list)) . ((4627 . 3))) ((def ((lib "2htdp/universe.rkt") pad=?)) . ((39356 . 4))) ((def ((lib "2htdp/universe.rkt") iworld=?)) . ((42309 . 4))) ((def ((lib "2htdp/image.rkt") flip-horizontal)) . ((33336 . 3))) ((def ((lib "2htdp/planetcute.rkt") chest-lid)) . ((44914 . 2))) ((def ((lib "htdp/image.rkt") image?)) . ((0 . 3))) ((def ((lib "2htdp/image.rkt") underlay/offset)) . ((30318 . 6))) ((def ((lib "2htdp/planetcute.rkt") gem-orange)) . ((45022 . 2))) ((def ((lib "2htdp/planetcute.rkt") roof-south)) . ((45616 . 2))) ((def ((lib "2htdp/planetcute.rkt") shadow-west)) . ((45963 . 2))) ((def ((lib "htdp/big-draw.rkt") start/cartesian-plane)) . ((7303 . 4))) ((def ((lib "htdp/arrow.rkt") control-left-right)) . ((9506 . 6))) ((def ((lib "2htdp/planetcute.rkt") character-cat-girl)) . ((44379 . 2))) ((def ((lib "2htdp/image.rkt") place-image/align)) . ((31880 . 13))) ((def ((lib "2htdp/image.rkt") image->color-list)) . ((33940 . 3))) ((def ((lib "2htdp/planetcute.rkt") speech-bubble)) . ((44557 . 2))) ((def ((lib "2htdp/image.rkt") struct:color)) . ((35096 . 7))) ((def ((lib "2htdp/planetcute.rkt") key)) . ((45073 . 2))) ((def ((lib "2htdp/universe.rkt") package?)) . ((41076 . 3))) ((def ((lib "2htdp/image.rkt") real-valued-posn?)) . ((35673 . 3))) ((def ((lib "2htdp/image.rkt") regular-polygon)) . ((28137 . 17))) ((def ((lib "htdp/image.rkt") ellipse)) . ((733 . 6))) ((def ((lib "htdp/image.rkt") image=?)) . ((52 . 4))) ((form ((lib "2htdp/universe.rkt") on-msg)) . ((43323 . 4))) ((def ((lib "htdp/big-draw.rkt") draw-circle)) . ((7434 . 5))) ((def ((lib "htdp/image.rkt") make-alpha-color)) . ((4312 . 7))) ((def ((lib "htdp/gui.rkt") make-text)) . ((11399 . 3))) ((def ((lib "htdp/world.rkt") key=?)) . ((5673 . 4))) ((def ((lib "2htdp/image.rkt") star-polygon)) . ((26512 . 21))) ((def ((lib "htdp/image.rkt") shrink-tr)) . ((2736 . 5))) ((def ((lib "htdp/guess.rkt") guess-with-gui)) . ((6709 . 3))) ((form ((lib "2htdp/batch-io.rkt") simulate-file)) . ((14874 . 2))) ((def ((lib "2htdp/planetcute.rkt") ramp-south)) . ((45308 . 2))) ((def ((lib "htdp/dir.rkt") struct:file)) . ((10471 . 6))) ((def ((lib "2htdp/planetcute.rkt") shadow-south-east)) . ((45863 . 2))) ((form ((lib "2htdp/universe.rkt") universe)) . ((42849 . 12))) ((def ((lib "2htdp/universe.rkt") iworld?)) . ((42256 . 3))) ((def ((lib "htdp/image.rkt") color)) . ((126 . 6))) ((def ((lib "2htdp/image.rkt") empty-image)) . ((17442 . 2))) ((def ((lib "htdp/image.rkt") alpha-color-red)) . ((4312 . 7))) ((def ((lib "htdp/dir.rkt") file-name)) . ((10471 . 6))) ((def ((lib "htdp/matrix.rkt") matrix-set)) . ((13343 . 6))) ((def ((lib "2htdp/image.rkt") triangle/sss)) . ((19256 . 21))) ((def ((lib "2htdp/planetcute.rkt") door-tall-open)) . ((45397 . 2))) ((def ((lib "2htdp/image.rkt") image-color?)) . ((35038 . 3))) ((def ((lib "2htdp/planetcute.rkt") gem-green)) . ((44995 . 2))) ((form ((lib "2htdp/universe.rkt") name)) . ((40954 . 4))) ((def ((lib "htdp/image.rkt") line)) . ((1361 . 5))) ((def ((lib "2htdp/universe.rkt") iworld-name)) . ((42386 . 3))) ((def ((lib "htdp/matrix.rkt") matrix-set!)) . ((13907 . 6))) ((def ((lib "htdp/gui.rkt") hide-window)) . ((11085 . 3))) ((def ((lib "2htdp/image.rkt") radial-star)) . ((27283 . 21))) ((def ((lib "htdp/image.rkt") pinhole-y)) . ((1733 . 3))) ((def ((lib "htdp/image.rkt") shrink)) . ((3090 . 7))) ((def ((lib "htdp/big-draw.rkt") draw-solid-disk)) . ((7531 . 5))) ((def ((lib "htdp/world.rkt") run-simulation)) . ((5008 . 6))) ((form ((lib "2htdp/universe.rkt") space)) . ((40039 . 4))) ((def ((lib "htdp/elevator.rkt") run)) . ((11879 . 3))) ((def ((lib "htdp/dir.rkt") file-size)) . ((10471 . 6))) ((def ((lib "htdp/lkup-gui.rkt") connect)) . ((12084 . 3))) ((form ((lib "2htdp/universe.rkt") left)) . ((39887 . 4))) ((def ((lib "2htdp/planetcute.rkt") shadow-north-west)) . ((45764 . 2))) ((def ((lib "htdp/matrix.rkt") rectangle->matrix)) . ((12683 . 3))) ((def ((lib "2htdp/universe.rkt") animate)) . ((37321 . 3))) ((def ((lib "2htdp/planetcute.rkt") selector)) . ((45116 . 2))) ((def ((lib "2htdp/planetcute.rkt") plain-block)) . ((44674 . 2))) ((def ((lib "2htdp/image.rkt") isosceles-triangle)) . ((18595 . 17))) ((def ((lib "htdp/image.rkt") add-line)) . ((2010 . 8))) ((def ((lib "2htdp/image.rkt") color)) . ((35096 . 7))) ((form ((lib "2htdp/universe.rkt") stop-when)) . ((40492 . 4))) ((form ((lib "2htdp/universe.rkt") big-bang)) . ((37633 . 20))) ((def ((lib "htdp/image.rkt") shrink-tl)) . ((2618 . 5))) ((def ((lib "2htdp/image.rkt") rhombus)) . ((25660 . 14))) ((def ((lib "2htdp/image.rkt") overlay/pinhole)) . ((36531 . 5))) ((def ((lib "2htdp/universe.rkt") mail?)) . ((42711 . 3))) ((def ((lib "2htdp/image.rkt") image-baseline)) . ((34837 . 3))) ((form ((lib "2htdp/universe.rkt") on-key)) . ((39116 . 4))) ((def ((lib "htdp/arrow-gui.rkt") control)) . ((11671 . 2))) ((def ((lib "2htdp/batch-io.rkt") read-csv-file)) . ((14560 . 3))) ((def ((lib "2htdp/planetcute.rkt") window-tall)) . ((45671 . 2))) ((def ((lib "htdp/image.rkt") rectangle)) . ((426 . 6))) ((def ((lib "2htdp/batch-io.rkt") read-csv-file/rows)) . ((14661 . 4))) ((def ((lib "2htdp/universe.rkt") bundle?)) . ((42522 . 3))) ((def ((lib "2htdp/universe.rkt") iworld1)) . ((42444 . 2))) ((def ((lib "2htdp/image.rkt") y-place?)) . ((35399 . 3))) ((def ((lib "htdp/image.rkt") empty-scene)) . ((3311 . 4))) ((def ((lib "2htdp/universe.rkt") run-movie)) . ((37532 . 4))) ((def ((lib "2htdp/image.rkt") image?)) . ((34935 . 3))) ((def ((lib "2htdp/image.rkt") square)) . ((24867 . 9))) ((def ((lib "2htdp/image.rkt") pen-join)) . ((35736 . 8))) ((def ((lib "2htdp/image.rkt") beside/align)) . ((31042 . 6))) ((def ((lib "2htdp/planetcute.rkt") stone-block-tall)) . ((44703 . 2))) ((def ((lib "htdp/matrix.rkt") matrix-render)) . ((13658 . 3))) ((def ((lib "2htdp/image.rkt") clear-pinhole)) . ((36465 . 3))) ((def ((lib "htdp/gui.rkt") create-window)) . ((10898 . 3))) ((def ((lib "htdp/big-draw.rkt") draw-solid-rect)) . ((7632 . 6))) ((def ((lib "2htdp/image.rkt") ellipse)) . ((15268 . 11))) ((def ((lib "2htdp/image.rkt") place-image)) . ((31750 . 6))) ((def ((lib "htdp/dir.rkt") file-content)) . ((10471 . 6))) ((def ((lib "htdp/docs.rkt") atom?)) . ((10070 . 3))) ((def ((lib "htdp/image.rkt") circle)) . ((609 . 5))) ((def ((lib "2htdp/image.rkt") color-alpha)) . ((35096 . 7))) ((def ((lib "2htdp/image.rkt") bitmap/url)) . ((33816 . 3))) ((def ((lib "2htdp/planetcute.rkt") wall-block)) . ((44799 . 2))) ((def ((lib "htdp/dir.rkt") file)) . ((10471 . 6))) ((form ((lib "2htdp/universe.rkt") record?)) . ((40843 . 4))) ((def ((lib "htdp/matrix.rkt") matrix-rows)) . ((12549 . 3))) ((def ((lib "2htdp/image.rkt") triangle/asa)) . ((23361 . 21))) ((def ((lib "htdp/image.rkt") color-list->image)) . ((4105 . 7))) ((def ((lib "teachpack/2htdp/image.rkt") struct:stop-with)) . ((40716 . 3))) ((def ((lib "htdp/big-draw.rkt") on-tick-event)) . ((8867 . 3))) ((def ((lib "htdp/image.rkt") image->color-list)) . ((4032 . 3))) ((def ((lib "2htdp/image.rkt") underlay)) . ((30036 . 5))) ((def ((lib "2htdp/universe.rkt") launch-many-worlds/proc)) . ((44170 . 4))) ((def ((lib "htdp/gui.rkt") text-contents)) . ((11460 . 3))) ((def ((lib "htdp/arrow.rkt") control)) . ((9849 . 7))) ((def ((lib "2htdp/planetcute.rkt") rock)) . ((45094 . 2))) ((def ((lib "2htdp/image.rkt") triangle/ssa)) . ((21787 . 21))) ((def ((lib "htdp/image.rkt") image-color?)) . ((370 . 3))) ((def ((lib "2htdp/image.rkt") mode?)) . ((34987 . 3))) ((form ((lib "2htdp/universe.rkt") to-string)) . ((43897 . 4))) ((def ((lib "2htdp/planetcute.rkt") character-pink-girl)) . ((44452 . 2))) ((def ((lib "2htdp/universe.rkt") make-package)) . ((41130 . 4))) ((def ((lib "2htdp/universe.rkt") iworld2)) . ((42470 . 2))) ((def ((lib "2htdp/planetcute.rkt") character-princess-girl)) . ((44489 . 2))) ((def ((lib "htdp/big-draw.rkt") clear-circle)) . ((8024 . 5))) ((def ((lib "2htdp/universe.rkt") mouse-event?)) . ((40193 . 3))) ((form ((lib "2htdp/image.rkt") bitmap)) . ((33737 . 5))) ((def ((lib "2htdp/image.rkt") pen-cap?)) . ((36029 . 3))) ((def ((lib "2htdp/image.rkt") overlay/xy)) . ((29919 . 6))) ((def ((lib "htdp/image.rkt") alpha-color)) . ((4312 . 7))) ((def ((lib "htdp/world.rkt") on-key-event)) . ((5753 . 3))) ((def ((lib "2htdp/image.rkt") pinhole-y)) . ((36389 . 3))) ((def ((lib "htdp/image.rkt") scene?)) . ((3259 . 3))) ((def ((lib "2htdp/image.rkt") triangle/saa)) . ((24114 . 21))) ((def ((lib "htdp/big-draw.rkt") draw-solid-string)) . ((7883 . 4))) ((def ((lib "htdp/dir.rkt") dir-name)) . ((10307 . 6))) ((def ((lib "2htdp/planetcute.rkt") wall-block-tall)) . ((44766 . 2))) ((def ((lib "htdp/lkup-gui.rkt") view)) . ((12013 . 3))) ((def ((lib "2htdp/planetcute.rkt") ramp-east)) . ((45253 . 2))) ((def ((lib "2htdp/planetcute.rkt") shadow-south-west)) . ((45898 . 2))) ((def ((lib "htdp/graphing.rkt") graph-fun)) . ((10695 . 4))) ((def ((lib "2htdp/image.rkt") star)) . ((26158 . 9))) ((def ((lib "htdp/image.rkt") alpha-color-alpha)) . ((4312 . 7))) ((form ((lib "2htdp/universe.rkt") on-tick)) . ((38578 . 4))) ((def ((lib "htdp/guess-gui.rkt") control)) . ((12183 . 3))) ((def ((lib "2htdp/image.rkt") add-curve)) . ((16058 . 21))) ((def ((lib "2htdp/image.rkt") frame)) . ((33679 . 3))) ((def ((lib "2htdp/image.rkt") crop)) . ((33470 . 7))) ((def ((lib "2htdp/planetcute.rkt") roof-east)) . ((45429 . 2))) ((def ((lib "htdp/image.rkt") List-of-color)) . ((4002 . 2))) ((def ((lib "htdp/image.rkt") image-width)) . ((1560 . 3))) ((def ((lib "2htdp/planetcute.rkt") chest-open)) . ((44941 . 2))) ((def ((lib "2htdp/image.rkt") triangle)) . ((17471 . 11))) ((def ((lib "htdp/big-draw.rkt") draw-solid-line)) . ((7774 . 5))) ((def ((lib "2htdp/image.rkt") pen-width)) . ((35736 . 8))) ((def ((lib "htdp/graphing.rkt") graph-line)) . ((10794 . 4))) ((def ((lib "2htdp/image.rkt") text)) . ((16651 . 5))) ((def ((lib "htdp/dir.rkt") dir-files)) . ((10307 . 6))) ((def ((lib "htdp/image.rkt") put-pinhole)) . ((1789 . 5))) ((def ((lib "2htdp/planetcute.rkt") chest-closed)) . ((44884 . 2))) ((form ((lib "2htdp/universe.rkt") launch-many-worlds)) . ((44125 . 2))) ((def ((lib "htdp/world.rkt") stop-when)) . ((6045 . 3))) ((def ((lib "2htdp/image.rkt") pen-style?)) . ((35973 . 3))) ((def ((lib "htdp/matrix.rkt") matrix?)) . ((12496 . 3))) ((def ((lib "2htdp/planetcute.rkt") shadow-north)) . ((45799 . 2))) ((def ((lib "2htdp/universe.rkt") mouse=?)) . ((40249 . 4))) ((def ((lib "2htdp/planetcute.rkt") grass-block)) . ((44645 . 2))) ((def ((lib "2htdp/image.rkt") pen)) . ((35736 . 8))) ((def ((lib "2htdp/image.rkt") scene+curve)) . ((32453 . 21))) ((def ((lib "2htdp/planetcute.rkt") roof-north-west)) . ((45489 . 2))) ((form ((lib "2htdp/universe.rkt") down)) . ((39812 . 4))) ((def ((lib "2htdp/image.rkt") scale/xy)) . ((33169 . 5))) ((def ((lib "2htdp/planetcute.rkt") tree-ugly)) . ((45197 . 2))) ((def ((lib "htdp/image.rkt") alpha-color-list->image)) . ((4716 . 7))) ((def ((lib "htdp/big-draw.rkt") end-of-time)) . ((8949 . 2))) ((def ((lib "2htdp/image.rkt") pen-cap)) . ((35736 . 8))) ((def ((lib "2htdp/planetcute.rkt") water-block)) . ((44827 . 2))) ((def ((lib "htdp/image.rkt") shrink-bl)) . ((2854 . 5))) ((def ((lib "htdp/world.rkt") key-event?)) . ((5619 . 3))) ((def ((lib "htdp/image.rkt") color-green)) . ((126 . 6))) ((def ((lib "2htdp/planetcute.rkt") shadow-side-west)) . ((45829 . 2))) ((def ((lib "2htdp/image.rkt") step-count?)) . ((35616 . 3))) ((def ((lib "htdp/hangman-play.rkt") go)) . ((9454 . 3))) ((def ((lib "htdp/dir.rkt") dir?)) . ((10307 . 6))) ((def ((lib "2htdp/image.rkt") above/align)) . ((31285 . 6))) ((def ((lib "htdp/image.rkt") alpha-color-blue)) . ((4312 . 7))) ((def ((lib "2htdp/image.rkt") flip-vertical)) . ((33404 . 3))) ((def ((lib "htdp/image.rkt") move-pinhole)) . ((1887 . 5))) ((def ((lib "htdp/master.rkt") master)) . ((7047 . 3))) ((def ((lib "htdp/world.rkt") run-movie)) . ((4907 . 4))) ((def ((lib "2htdp/image.rkt") overlay/align/offset)) . ((29543 . 13))) ((def ((lib "2htdp/planetcute.rkt") roof-south-west)) . ((45583 . 2))) ((def ((lib "htdp/big-draw.rkt") big-bang)) . ((8693 . 4))) ((def ((lib "htdp/image.rkt") image-inside?)) . ((2440 . 4))) ((def ((lib "2htdp/image.rkt") color-blue)) . ((35096 . 7))) ((def ((lib "htdp/matrix.rkt") matrix->rectangle)) . ((12749 . 3))) ((def ((lib "htdp/image.rkt") pinhole-x)) . ((1677 . 3))) ((def ((lib "2htdp/image.rkt") circle)) . ((14916 . 9))) ((def ((lib "2htdp/image.rkt") scene+line)) . ((32244 . 8))) ((def ((lib "2htdp/image.rkt") polygon)) . ((28794 . 9))) ((def ((lib "htdp/big-draw.rkt") on-key-event)) . ((8768 . 3))) ((def ((lib "2htdp/image.rkt") line)) . ((15718 . 5))) ((def ((lib "htdp/image.rkt") find-image)) . ((2532 . 4))) ((def ((lib "2htdp/image.rkt") beside)) . ((30940 . 5))) ((form ((lib "2htdp/universe.rkt") on-receive)) . ((42144 . 4))) ((def ((lib "htdp/guess-gui.rkt") view)) . ((12253 . 3))) ((def ((lib "htdp/image.rkt") make-color)) . ((126 . 6))) ((form ((lib "2htdp/universe.rkt") right)) . ((39962 . 4))) ((def ((lib "2htdp/image.rkt") overlay/align)) . ((29245 . 7))) ((def ((lib "htdp/matrix.rkt") matrix-minor)) . ((13720 . 5))) ((def ((lib "2htdp/image.rkt") underlay/align)) . ((30140 . 7))) ((def ((lib "htdp/docs.rkt") write-file)) . ((10245 . 3))) ((def ((lib "2htdp/planetcute.rkt") roof-south-east)) . ((45550 . 2))) ((def ((lib "htdp/image.rkt") color?)) . ((126 . 6))))
procedure
(image? x) -> boolean?
  x : any/c
procedure
(image=? x y) -> boolean?
  x : image?
  y : image?
struct
(struct color (red green blue)
        #:extra-constructor-name make-color)
  red : (and/c natural-number/c (<=/c 255))
  green : (and/c natural-number/c (<=/c 255))
  blue : (and/c natural-number/c (<=/c 255))
procedure
(image-color? x) -> boolean?
  x : any
procedure
(rectangle w h m c) -> image?
  w : (and/c number? (or/c zero? positive?))
  h : (and/c number? (or/c zero? positive?))
  m : Mode
  c : Color
procedure
(circle r m c) -> image?
  r : (and/c number? (or/c zero? positive?))
  m : Mode
  c : Color
procedure
(ellipse w h m c) -> image?
  w : (and/c number? (or/c zero? positive?))
  h : (and/c number? (or/c zero? positive?))
  m : Mode
  c : Color
procedure
(triangle s m c) -> image?
  s : number?
  m : Mode
  c : Color
procedure
(star n outer inner m c) -> image?
  n : (and/c number? (>=/c 2))
  outer : (and/c number? (>=/c 1))
  inner : (and/c number? (>=/c 1))
  m : Mode
  c : Color
procedure
(regular-polygon s r m c [angle]) -> image?
  s : side
  r : number?
  m : Mode
  c : Color
  angle : real? = 0
procedure
(line x y c) -> image?
  x : number?
  y : number?
  c : Color
procedure
(text s f c) -> Image
  s : string?
  f : (and/c number? positive?)
  c : Color
procedure
(image-width i) -> integer?
  i : image?
procedure
(image-height i) -> integer?
  i : image?
procedure
(pinhole-x i) -> integer?
  i : image?
procedure
(pinhole-y i) -> integer?
  i : image?
procedure
(put-pinhole i x y) -> image?
  i : image?
  x : number?
  y : number?
procedure
(move-pinhole i delta-x delta-y) -> image?
  i : image?
  delta-x : number?
  delta-y : number?
procedure
(add-line i x1 y1 x2 y2 c) -> image?
  i : image?
  x1 : number?
  y1 : number?
  x2 : number?
  y2 : number?
  c : Color
procedure
(overlay img img2 img* ...) -> image?
  img : image?
  img2 : image?
  img* : image?
procedure
(overlay/xy img delta-x delta-y other) -> image?
  img : image?
  delta-x : number?
  delta-y : number?
  other : image?
procedure
(image-inside? img other) -> boolean?
  img : image?
  other : image?
procedure
(find-image img other) -> posn?
  img : image?
  other : image?
procedure
(shrink-tl img width height) -> image?
  img : image?
  width : number?
  height : number?
procedure
(shrink-tr img width height) -> image?
  img : image?
  width : number?
  height : number?
procedure
(shrink-bl img width height) -> image?
  img : image?
  width : number?
  height : number?
procedure
(shrink-br img width height) -> image?
  img : image?
  width : number?
  height : number?
procedure
(shrink img left above right below) -> image?
  img : image?
  left : number?
  above : number?
  right : number?
  below : number?
procedure
(scene? x) -> boolean?
  x : any/c
procedure
(empty-scene width height) -> scene?
  width : natural-number/c
  height : natural-number/c
procedure
(place-image img x y s) -> scene?
  img : image?
  x : number?
  y : number?
  s : scene?
procedure
(nw:rectangle width                
              height               
              solid-or-outline     
              c)               -> image?
  width : natural-number/c
  height : natural-number/c
  solid-or-outline : Mode
  c : Color
procedure
(scene+line s x0 y0 x1 y1 c) -> scene?
  s : scene?
  x0 : number?
  y0 : number?
  x1 : number?
  y1 : number?
  c : Color
value
List-of-color : list?
procedure
(image->color-list img) -> List-of-color
  img : image?
procedure
(color-list->image l width height x y) -> image?
  l : List-of-color
  width : natural-number/c
  height : natural-number/c
  x : natural-number/c
  y : natural-number/c
struct
(struct alpha-color (alpha red green blue)
        #:extra-constructor-name make-alpha-color)
  alpha : (and/c natural-number/c (<=/c 255))
  red : (and/c natural-number/c (<=/c 255))
  green : (and/c natural-number/c (<=/c 255))
  blue : (and/c natural-number/c (<=/c 255))
procedure
(image->alpha-color-list img) -> (list-of alpha-color?)
  img : image?
procedure
(alpha-color-list->image l width height x y) -> image?
  l : (list-of alpha-color?)
  width : integer?
  height : integer?
  x : integer?
  y : integer?
procedure
(run-movie r m) -> true
  r : (and/c real? positive?)
  m : [Listof image?]
procedure
(run-simulation w h r create-image) -> true
  w : natural-number/c
  h : natural-number/c
  r : number?
  create-image : (-> natural-number/c scene)
procedure
(big-bang width height r world0) -> true
  width : natural-number/c
  height : natural-number/c
  r : number?
  world0 : World
(big-bang width height r world0 animated-gif?) -> true
  width : natural-number/c
  height : natural-number/c
  r : number?
  world0 : World
  animated-gif? : boolean?
procedure
(on-tick-event tock) -> true
  tock : (-> World World)
procedure
(key-event? x) -> boolean?
  x : any
procedure
(key=? x y) -> boolean?
  x : key-event?
  y : key-event?
procedure
(on-key-event change) -> true
  change : (-> World key-event? World)
procedure
(on-mouse-event clack) -> true
  clack : (-> World natural-number/c natural-number/c MouseEvent World)
procedure
(on-redraw to-scene) -> true
  to-scene : (-> World Scene)
procedure
(stop-when last-world?) -> true
  last-world? : (-> World boolean?)

given statedesired state
’locked    ’locked
’closed    ’closed
’open      ’closed

given stategiven keyeventdesired state
’locked    #\u           ’closed
’closed    #\l           ’locked
’closed    #\space       ’open
’open      —             ’open
procedure
(convert-gui convert) -> true
  convert : (-> number? number?)
procedure
(convert-repl convert) -> true
  convert : (-> number? number?)
procedure
(convert-file in convert out) -> true
  in : string?
  convert : (-> number? number?)
  out : string?
procedure
(guess-with-gui check-guess) -> true
  check-guess : (-> number? number? symbol?)
procedure
(guess-with-gui-3 check-guess) -> true
  check-guess : (-> digit? digit? digit? number? symbol?)
procedure
(guess-with-gui-list check-guess) -> true
  check-guess : (-> (list-of digit?) number? symbol?)
procedure
(master check-guess) -> symbol?
  check-guess : (-> symbol? symbol? symbol? symbol? boolean?)
procedure
(go name) -> true
  name : symbol?
procedure
(start width height) -> true
  width : number?
  height : number?
procedure
(start/cartesian-plane width height) -> true
  width : number?
  height : number?
procedure
(stop) -> true
procedure
(draw-circle p r c) -> true
  p : posn?
  r : number?
  c : DrawColor
procedure
(draw-solid-disk p r c) -> true
  p : posn?
  r : number?
  c : DrawColor
procedure
(draw-solid-rect ul width height c) -> true
  ul : posn?
  width : number?
  height : number?
  c : DrawColor
procedure
(draw-solid-line strt end c) -> true
  strt : posn?
  end : posn?
  c : DrawColor
procedure
(draw-solid-string p s) -> true
  p : posn?
  s : string?
procedure
(sleep-for-a-while s) -> true
  s : number?
procedure
(clear-circle p r c) -> true
  p : posn?
  r : number?
  c : DrawColor
procedure
(clear-solid-disk p r c) -> true
  p : posn?
  r : number?
  c : DrawColor
procedure
(clear-solid-rect ul width height c) -> true
  ul : posn?
  width : number?
  height : number?
  c : DrawColor
procedure
(clear-solid-line strt end c) -> true
  strt : posn?
  end : posn?
  c : DrawColor
procedure
(clear-solid-string p s) -> true
  p : posn?
  s : string?
procedure
(clear-all) -> true
procedure
(wait-for-mouse-click) -> posn?
procedure
(get-key-event) -> (or/c false DrawKeyEvent)
procedure
(big-bang n w) -> true
  n : number?
  w : DrawWorld
procedure
(on-key-event change) -> true
  change : (-> DrawKeyEvent DrawWorld DrawWorld)
procedure
(on-tick-event tock) -> true
  tock : (-> DrawWorld DrawWorld)
procedure
(end-of-time) -> DrawWorld
procedure
(hangman make-word reveal draw-next-part) -> true
  make-word : (-> symbol? symbol? symbol? word?)
  reveal : (-> word? word? word?)
  draw-next-part : (-> symbol? true)
procedure
(hangman-list reveal-for-list     
              draw-next-part) -> true
  reveal-for-list : (-> symbol? (list-of symbol?) (list-of symbol?)
                        (list-of symbol?))
  draw-next-part : (-> symbol? true)
procedure
(go name) -> true
  name : symbol?
procedure
(control-left-right shape n move draw) -> true
  shape : Shape
  n : number?
  move : (-> number? Shape Shape)
  draw : (-> Shape true)
procedure
(control-up-down shape n move draw) -> true
  shape : Shape
  n : number?
  move : (-> number? Shape Shape)
  draw : (-> Shape true)
procedure
(control shape n move-lr move-ud draw) -> true
  shape : Shape
  n : number?
  move-lr : (-> number? Shape Shape)
  move-ud : (-> number? Shape Shape)
  draw : (-> Shape true)
procedure
(atom? x) -> boolean?
  x : any/c
procedure
(annotation? x) -> boolean?
  x : any/c
procedure
(end-annotation x) -> Annotation
  x : Annotation
procedure
(write-file l) -> true
  l : (list-of atom)
struct
(struct dir (name dirs files)
        #:extra-constructor-name make-dir)
  name : symbol?
  dirs : (listof dir?)
  files : (listof file?)
struct
(struct file (name size content)
        #:extra-constructor-name make-file)
  name : symbol?
  size : integer?
  content : (listof char?)
procedure
(create-dir path) -> dir?
  path : symbol?
procedure
(graph-fun f color) -> true
  f : (-> number?  number?)
  color : symbol?
procedure
(graph-line line color) -> true
  line : (-> number? number?)
  color : symbol?
procedure
(create-window g) -> Window
  g : (listof (listof GUI-ITEM))
procedure
(window? x) -> boolean?
  x : any/c
procedure
(show-window w) -> true
  w : Window
procedure
(hide-window w) -> true
  w : window
procedure
(make-button label callback) -> GUI-ITEM
  label : string>
  callback : (-> event%  boolean)
procedure
(make-message msg) -> GUI-ITEM
  msg : string?
procedure
(draw-message g m) -> true
  g : GUI-ITEM
  m : string?
procedure
(make-text txt) -> GUI-ITEM
  txt : string?
procedure
(text-contents g) -> string?
  g : GUI-ITEM
procedure
(make-choice choices) -> GUI-ITEM
  choices : (listof string?)
procedure
(choice-index g) -> natural-number/c
  g : GUI-ITEM
procedure
(control) -> symbol?
procedure
(view s) -> true
  s : (or/c string? symbol?)
procedure
(connect l r u d) -> true
  l : modelT
  r : modelT
  u : modelT
  d : modelT
procedure
(run NextFloor) -> any/c
  NextFloor : number?
procedure
(control index) -> symbol?
  index : natural-number?
procedure
(view msg) -> true/c
  msg : (or/c string? symbol?)
procedure
(connect event-handler) -> true/c
  event-handler : (-> button% event% true/c)
procedure
(control index) -> symbol?
  index : natural-number?
procedure
(view msg) -> true/c
  msg : (or/c string? symbol?)
procedure
(connect handler) -> true/c
  handler : (-> button% event% true/c)
procedure
(show-queen board) -> true
  board : (list-of (list-of boolean?))
procedure
(matrix? o) -> boolean?
  o : any/c
procedure
(matrix-rows m) -> natural-number/c
  m : matrix?
procedure
(matrix-cols m) -> natural-number/c
  m : matrix?
procedure
(rectangle->matrix r) -> matrix?
  r : Rectangle
procedure
(matrix->rectangle m) -> Rectangle
  m : matrix?
procedure
(make-matrix n m l) -> matrix?
  n : natural-number/c
  m : natural-number/c
  l : (Listof X)
procedure
(build-matrix n m f) -> matrix?
  n : natural-number/c
  m : natural-number/c
  f : (-> (and/c natural-number/c (</c m))
          (and/c natural-number/c (</c n))
          any/c)
procedure
(matrix-ref m i j) -> any/c
  m : matrix?
  i : (and/c natural-number/c (</c (matrix-rows m)))
  j : (and/c natural-number/c (</c (matrix-rows m)))
procedure
(matrix-set m i j x) -> matrix?
  m : matrix?
  i : (and/c natural-number/c (</c (matrix-rows m)))
  j : (and/c natural-number/c (</c (matrix-rows m)))
  x : any/c
procedure
(matrix-where? m pred?) -> (listof posn?)
  m : matrix?
  pred? : (-> any/c boolean?)
procedure
(matrix-render m) -> Rectangle
  m : matrix?
procedure
(matrix-minor m i j) -> matrix?
  m : matrix?
  i : (and/c natural-number/c (</c (matrix-rows m)))
  j : (and/c natural-number/c (</c (matrix-rows m)))
procedure
(matrix-set! m i j x) -> matrix?
  m : matrix?
  i : (and/c natural-number/c (</c (matrix-rows m)))
  j : (and/c natural-number/c (</c (matrix-rows m)))
  x : any/c
procedure
(read-file f) -> string?
  f : (and/c string? file-exists?)
procedure
(read-1strings f) -> (listof 1string?)
  f : (and/c string? file-exists?)
procedure
(read-lines f) -> (listof string?)
  f : (and/c string? file-exists?)
procedure
(read-words f) -> (listof string?)
  f : (and/c string? file-exists?)
procedure
(read-words/line f) -> (listof string?)
  f : (and/c string? file-exists?)
procedure
(read-csv-file f) -> (listof (listof any/c))
  f : (and/c string? file-exists?)
procedure
(read-csv-file/rows f s) -> (listof X?)
  f : (and/c string? exists?)
  s : (-> (listof any/c) X?)
procedure
(write-file f cntnt) -> string?
  f : string?
  cntnt : string?
syntax
(simulate-file process str ...)
procedure
(circle radius mode color) -> image?
  radius : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(circle radius outline-mode pen-or-color) -> image?
  radius : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(ellipse width height mode color) -> image?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(ellipse width height mode pen-or-color) -> image?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  mode : (or/c 'outline "outline")
  pen-or-color : (or/c image-color? pen?)
procedure
(line x1 y1 pen-or-color) -> image?
  x1 : real?
  y1 : real?
  pen-or-color : (or/c pen? image-color?)
procedure
(add-line image x1 y1 x2 y2 pen-or-color) -> image?
  image : image?
  x1 : real?
  y1 : real?
  x2 : real?
  y2 : real?
  pen-or-color : (or/c pen? image-color?)
procedure
(add-curve image             
           x1                
           y1                
           angle1            
           pull1             
           x2                
           y2                
           angle2            
           pull2             
           pen-or-color) -> image?
  image : image?
  x1 : real?
  y1 : real?
  angle1 : angle?
  pull1 : real?
  x2 : real?
  y2 : real?
  angle2 : angle?
  pull2 : real?
  pen-or-color : (or/c pen? image-color?)
procedure
(text string font-size color) -> image?
  string : string?
  font-size : (and/c integer? (<=/c 1 255))
  color : image-color?
procedure
(text/font string          
           font-size       
           color           
           face            
           family          
           style           
           weight          
           underline?) -> image?
  string : string?
  font-size : (and/c integer? (<=/c 1 255))
  color : image-color?
  face : (or/c string? #f)
  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
value
empty-image : image?
procedure
(triangle side-length mode color) -> image?
  side-length : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(triangle side-length       
          outline-mode      
          pen-or-color) -> image?
  side-length : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(right-triangle side-length1     
                side-length2     
                mode             
                color)       -> image?
  side-length1 : (and/c real? (not/c negative?))
  side-length2 : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(right-triangle side-length1      
                side-length2      
                outline-mode      
                pen-or-color) -> image?
  side-length1 : (and/c real? (not/c negative?))
  side-length2 : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(isosceles-triangle side-length     
                    angle           
                    mode            
                    color)      -> image?
  side-length : (and/c real? (not/c negative?))
  angle : angle?
  mode : mode?
  color : image-color?
(isosceles-triangle side-length       
                    angle             
                    outline-mode      
                    pen-or-color) -> image?
  side-length : (and/c real? (not/c negative?))
  angle : angle?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(triangle/sss side-length-a     
              side-length-b     
              side-length-c     
              mode              
              color)        -> image?
  side-length-a : (and/c real? (not/c negative?))
  side-length-b : (and/c real? (not/c negative?))
  side-length-c : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(triangle/sss side-length-a     
              side-length-b     
              side-length-c     
              outline-mode      
              pen-or-color) -> image?
  side-length-a : (and/c real? (not/c negative?))
  side-length-b : (and/c real? (not/c negative?))
  side-length-c : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(triangle/ass angle-a           
              side-length-b     
              side-length-c     
              mode              
              color)        -> image?
  angle-a : angle?
  side-length-b : (and/c real? (not/c negative?))
  side-length-c : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(triangle/ass angle-a           
              side-length-b     
              side-length-c     
              outline-mode      
              pen-or-color) -> image?
  angle-a : angle?
  side-length-b : (and/c real? (not/c negative?))
  side-length-c : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(triangle/sas side-length-a     
              angle-b           
              side-length-c     
              mode              
              color)        -> image?
  side-length-a : (and/c real? (not/c negative?))
  angle-b : angle?
  side-length-c : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(triangle/sas side-length-a     
              angle-b           
              side-length-c     
              outline-mode      
              pen-or-color) -> image?
  side-length-a : (and/c real? (not/c negative?))
  angle-b : angle?
  side-length-c : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(triangle/ssa side-length-a     
              side-length-b     
              angle-c           
              mode              
              color)        -> image?
  side-length-a : (and/c real? (not/c negative?))
  side-length-b : (and/c real? (not/c negative?))
  angle-c : angle?
  mode : mode?
  color : image-color?
(triangle/ssa side-length-a     
              side-length-b     
              angle-c           
              outline-mode      
              pen-or-color) -> image?
  side-length-a : (and/c real? (not/c negative?))
  side-length-b : (and/c real? (not/c negative?))
  angle-c : angle?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(triangle/aas angle-a           
              angle-b           
              side-length-c     
              mode              
              color)        -> image?
  angle-a : angle?
  angle-b : angle?
  side-length-c : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(triangle/aas angle-a           
              angle-b           
              side-length-c     
              outline-mode      
              pen-or-color) -> image?
  angle-a : angle?
  angle-b : angle?
  side-length-c : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(triangle/asa angle-a           
              side-length-b     
              angle-c           
              mode              
              color)        -> image?
  angle-a : angle?
  side-length-b : (and/c real? (not/c negative?))
  angle-c : angle?
  mode : mode?
  color : image-color?
(triangle/asa angle-a           
              side-length-b     
              angle-c           
              outline-mode      
              pen-or-color) -> image?
  angle-a : angle?
  side-length-b : (and/c real? (not/c negative?))
  angle-c : angle?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(triangle/saa side-length-a     
              angle-b           
              angle-c           
              mode              
              color)        -> image?
  side-length-a : (and/c real? (not/c negative?))
  angle-b : angle?
  angle-c : angle?
  mode : mode?
  color : image-color?
(triangle/saa side-length-a     
              angle-b           
              angle-c           
              outline-mode      
              pen-or-color) -> image?
  side-length-a : (and/c real? (not/c negative?))
  angle-b : angle?
  angle-c : angle?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(square side-len mode color) -> image?
  side-len : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(square side-len outline-mode pen-or-color) -> image?
  side-len : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(rectangle width height mode color) -> image?
  width : real?
  height : real?
  mode : mode?
  color : image-color?
(rectangle width             
           height            
           outline-mode      
           pen-or-color) -> image?
  width : real?
  height : real?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(rhombus side-length angle mode color) -> image?
  side-length : (and/c real? (not/c negative?))
  angle : angle?
  mode : mode?
  color : image-color?
(rhombus side-length       
         angle             
         outline-mode      
         pen-or-color) -> image?
  side-length : (and/c real? (not/c negative?))
  angle : angle?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(star side-length mode color) -> image?
  side-length : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(star side-length outline-mode color) -> image?
  side-length : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  color : (or/c pen? image-color?)
procedure
(star-polygon side-length     
              side-count      
              step-count      
              mode            
              color)      -> image?
  side-length : (and/c real? (not/c negative?))
  side-count : side-count?
  step-count : step-count?
  mode : mode?
  color : image-color?
(star-polygon side-length       
              side-count        
              step-count        
              outline-mode      
              pen-or-color) -> image?
  side-length : (and/c real? (not/c negative?))
  side-count : side-count?
  step-count : step-count?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(radial-star point-count      
             inner-radius     
             outer-radius     
             mode             
             color)       -> image?
  point-count : (and/c integer? (>=/c 2))
  inner-radius : (and/c real? (not/c negative?))
  outer-radius : (and/c real? (not/c negative?))
  mode : mode?
  color : image-color?
(radial-star point-count       
             inner-radius      
             outer-radius      
             outline-mode      
             pen-or-color) -> image?
  point-count : (and/c integer? (>=/c 2))
  inner-radius : (and/c real? (not/c negative?))
  outer-radius : (and/c real? (not/c negative?))
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(regular-polygon side-length     
                 side-count      
                 mode            
                 color)      -> image?
  side-length : (and/c real? (not/c negative?))
  side-count : side-count?
  mode : mode?
  color : image-color?
(regular-polygon side-length       
                 side-count        
                 outline-mode      
                 pen-or-color) -> image?
  side-length : (and/c real? (not/c negative?))
  side-count : side-count?
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(polygon vertices mode color) -> image?
  vertices : (listof real-valued-posn?)
  mode : mode?
  color : image-color?
(polygon vertices outline-mode pen-or-color) -> image?
  vertices : (listof real-valued-posn?)
  outline-mode : (or/c 'outline "outline")
  pen-or-color : (or/c pen? image-color?)
procedure
(overlay i1 i2 is ...) -> image?
  i1 : image?
  i2 : image?
  is : image?
procedure
(overlay/align x-place y-place i1 i2 is ...) -> image?
  x-place : x-place?
  y-place : y-place?
  i1 : image?
  i2 : image?
  is : image?
procedure
(overlay/offset i1 x y i2) -> image?
  i1 : image?
  x : real?
  y : real?
  i2 : image?
procedure
(overlay/align/offset x-place     
                      y-place     
                      i1          
                      x           
                      y           
                      i2)     -> image?
  x-place : x-place?
  y-place : y-place?
  i1 : image?
  x : real?
  y : real?
  i2 : image?
procedure
(overlay/xy i1 x y i2) -> image?
  i1 : image?
  x : real?
  y : real?
  i2 : image?
procedure
(underlay i1 i2 is ...) -> image?
  i1 : image?
  i2 : image?
  is : image?
procedure
(underlay/align x-place y-place i1 i2 is ...) -> image?
  x-place : x-place?
  y-place : y-place?
  i1 : image?
  i2 : image?
  is : image?
procedure
(underlay/offset i1 x y i2) -> image?
  i1 : image?
  x : real?
  y : real?
  i2 : image?
procedure
(underlay/align/offset x-place     
                       y-place     
                       i1          
                       x           
                       y           
                       i2)     -> image?
  x-place : x-place?
  y-place : y-place?
  i1 : image?
  x : real?
  y : real?
  i2 : image?
procedure
(underlay/xy i1 x y i2) -> image?
  i1 : image?
  x : real?
  y : real?
  i2 : image?
procedure
(beside i1 i2 is ...) -> image?
  i1 : image?
  i2 : image?
  is : image?
procedure
(beside/align y-place i1 i2 is ...) -> image?
  y-place : y-place?
  i1 : image?
  i2 : image?
  is : image?
procedure
(above i1 i2 is ...) -> image?
  i1 : image?
  i2 : image?
  is : image?
procedure
(above/align x-place i1 i2 is ...) -> image?
  x-place : x-place?
  i1 : image?
  i2 : image?
  is : image?
procedure
(empty-scene width height) -> image?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
(empty-scene width height color) -> image?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  color : image-color?
procedure
(place-image image x y scene) -> image?
  image : image?
  x : real?
  y : real?
  scene : image?
procedure
(place-image/align image       
                   x           
                   y           
                   x-place     
                   y-place     
                   scene)  -> image?
  image : image?
  x : real?
  y : real?
  x-place : x-place?
  y-place : y-place?
  scene : image?
procedure
(scene+line image x1 y1 x2 y2 pen-or-color) -> image?
  image : image?
  x1 : real?
  y1 : real?
  x2 : real?
  y2 : real?
  pen-or-color : (or/c pen? image-color?)
procedure
(scene+curve scene      
             x1         
             y1         
             angle1     
             pull1      
             x2         
             y2         
             angle2     
             pull2      
             color) -> image?
  scene : image?
  x1 : real?
  y1 : real?
  angle1 : angle?
  pull1 : real?
  x2 : real?
  y2 : real?
  angle2 : angle?
  pull2 : real?
  color : image-color?
procedure
(rotate angle image) -> image?
  angle : angle?
  image : image?
procedure
(scale factor image) -> image?
  factor : (and/c real? positive?)
  image : image?
procedure
(scale/xy x-factor y-factor image) -> image?
  x-factor : (and/c real? positive?)
  y-factor : (and/c real? positive?)
  image : image?
procedure
(flip-horizontal image) -> image?
  image : image?
procedure
(flip-vertical image) -> image?
  image : image?
procedure
(crop x y width height image) -> image?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  image : image?
procedure
(frame image) -> image?
  image : image?
syntax
(bitmap bitmap-spec)
 
bitmap-spec = rel-string
            | id
procedure
(bitmap/url url) -> image?
  url : string?
procedure
(bitmap/file ps) -> image?
  ps : path-string?
procedure
(image->color-list image) -> (listof color?)
  image : image?
procedure
(color-list->bitmap colors width height) -> image?
  colors : (listof image-color?)
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
procedure
(freeze image) -> image?
  image : image?
(freeze width height image) -> image?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  image : image?
(freeze x y width height image) -> image?
  x : real?
  y : real?
  width : (and/c real? (not/c negative?))
  height : (and/c real? (not/c negative?))
  image : image?
procedure
(image-width i) -> (and/c integer? (not/c negative?) exact?)
  i : image?
procedure
(image-height i) -> (and/c integer? (not/c negative?) exact?)
  i : image?
procedure
(image-baseline i) -> (and/c integer? (not/c negative?) exact?)
  i : image?
procedure
(image? x) -> boolean?
  x : any/c
procedure
(mode? x) -> boolean?
  x : any/c
procedure
(image-color? x) -> boolean?
  x : any/c
struct
(struct color (red green blue alpha)
        #:extra-constructor-name make-color)
  red : (and/c natural-number/c (<=/c 255))
  green : (and/c natural-number/c (<=/c 255))
  blue : (and/c natural-number/c (<=/c 255))
  alpha : (and/c natural-number/c (<=/c 255))
procedure
(y-place? x) -> boolean?
  x : any/c
procedure
(x-place? x) -> boolean?
  x : any/c
procedure
(angle? x) -> boolean?
  x : any/c
procedure
(side-count? x) -> boolean?
  x : any/c
procedure
(step-count? x) -> boolean?
  x : any/c
procedure
(real-valued-posn? x) -> boolean?
  x : any/c
struct
(struct pen (color width style cap join)
        #:extra-constructor-name make-pen)
  color : image-color?
  width : (and/c real? (<=/c 0 255))
  style : pen-style?
  cap : pen-cap?
  join : pen-join?
procedure
(pen-style? x) -> boolean?
  x : any/c
procedure
(pen-cap? x) -> boolean?
  x : any/c
procedure
(pen-join? x) -> boolean?
  x : any/c
procedure
(center-pinhole image) -> image?
  image : image?
procedure
(put-pinhole x y image) -> image?
  x : integer?
  y : integer?
  image : image?
procedure
(pinhole-x image) -> (or/c integer? #f)
  image : image?
procedure
(pinhole-y image) -> (or/c integer? #f)
  image : image?
procedure
(clear-pinhole image) -> image?
  image : image?
procedure
(overlay/pinhole i1 i2 is ...) -> image?
  i1 : image?
  i2 : image?
  is : image?
procedure
(underlay/pinhole i1 i2 is ...) -> image?
  i1 : image?
  i2 : image?
  is : image?
procedure
(save-image image filename [width height]) -> boolean?
  image : image?
  filename : path-string?
  width : (and/c real? (not/c negative?)) = (image-width image)
  height : (and/c real? (not/c negative?))
         = (image-height image)
procedure
(save-svg-image image filename [width height]) -> void?
  image : image?
  filename : path-string?
  width : (and/c real? (not/c negative?)) = (image-width image)
  height : (and/c real? (not/c negative?))
         = (image-height image)
procedure
(animate create-image) -> natural-number/c
  create-image : (-> natural-number/c scene?)
procedure
(run-simulation create-image) -> true
  create-image : (-> natural-number/c scene?)
procedure
(run-movie r m) -> true
  r : (and/c real? positive?)
  m : [Listof image?]
syntax
(big-bang state-expr clause ...)
 
clause = (on-tick tick-expr)
       | (on-tick tick-expr rate-expr)
       | (on-tick tick-expr rate-expr limit-expr)
       | (on-key key-expr)
       | (on-pad pad-expr)
       | (on-release release-expr)
       | (on-mouse mouse-expr)
       | (to-draw draw-expr)
       | (to-draw draw-expr width-expr height-expr)
       | (stop-when stop-expr)
       | (stop-when stop-expr last-scene-expr)
       | (check-with world?-expr)
       | (record? r-expr)
       | (state boolean-expr)
       | (on-receive rec-expr)
       | (register IP-expr)
       | (name name-expr)
syntax
(to-draw render-expr)
 
  render-expr : (-> WorldState scene?)
syntax
(to-draw render-expr width-expr height-expr)
 
  render-expr : (-> WorldState scene?)
  width-expr : natural-number/c
  height-expr : natural-number/c
syntax
(on-tick tick-expr)
 
  tick-expr : (-> WorldState WorldState)
syntax
(on-tick tick-expr rate-expr)
 
  tick-expr : (-> WorldState WorldState)
  rate-expr : (and/c real? positive?)
syntax
(on-tick tick-expr rate-expr limit-expr)
 
  tick-expr : (-> WorldState WorldState)
  rate-expr : (and/c real? positive?)
  limit-expr : (and/c integer? positive?)
procedure
(key-event? x) -> boolean?
  x : any
procedure
(key=? x y) -> boolean?
  x : key-event?
  y : key-event?
syntax
(on-key key-expr)
 
  key-expr : (-> WorldState key-event? WorldState)
syntax
(on-release release-expr)
 
  release-expr : (-> WorldState key-event? WorldState)
procedure
(pad-event? x) -> boolean?
  x : any
procedure
(pad=? x y) -> boolean?
  x : pad-event?
  y : pad-event?
syntax
(on-pad pad-expr)
 
  pad-expr : (-> WorldState pad-event? WorldState)
syntax
(pad-handler clause ...)
 
clause = (up up-expr)
       | (down down-expr)
       | (left left-expr)
       | (right right-expr)
       | (space space-expr)
       | (shift shift-expr)
syntax
(up up-expr)
 
  tick-expr : (-> WorldState WorldState)
syntax
(down down-expr)
 
  tick-expr : (-> WorldState WorldState)
syntax
(left left-expr)
 
  tick-expr : (-> WorldState WorldState)
syntax
(right right-expr)
 
  tick-expr : (-> WorldState WorldState)
syntax
(space space-expr)
 
  tick-expr : (-> WorldState WorldState)
syntax
(shift shift-expr)
 
  tick-expr : (-> WorldState WorldState)
procedure
(mouse-event? x) -> boolean?
  x : any
procedure
(mouse=? x y) -> boolean?
  x : mouse-event?
  y : mouse-event?
syntax
(on-mouse mouse-expr)
 
  mouse-expr : (-> WorldState
                   integer? integer? MouseEvent
                   WorldState)
syntax
(stop-when last-world?)
 
  last-world? : (-> WorldState boolean?)
syntax
(stop-when last-world? last-picture)
 
  last-world? : (-> WorldState boolean?)
  last-picture : (-> WorldState scene?)
struct
(struct stop-with (w))
  w : WorldState
syntax
(check-with world-expr?)
 
  world-expr? : (-> Any boolean?)
syntax
(record? r-expr)
 
  r-expr : any/c
syntax
(state boolean-expr)
 
  boolean-expr : boolean?
syntax
(name name-expr)
 
  name-expr : (or/c symbol? string?)
procedure
(sexp? x) -> boolean?
  x : any/c
procedure
(package? x) -> boolean?
  x : any/c
procedure
(make-package w m) -> package?
  w : any/c
  m : sexp?
syntax
(on-tick tick-expr)
 
  tick-expr : (-> WorldState (or/c WorldState package?))
syntax
(on-tick tick-expr rate-expr)
 
  tick-expr : (-> WorldState (or/c WorldState package?))
  rate-expr : (and/c real? positive?)
syntax
(on-tick tick-expr rate-expr limit-expr)
 
  tick-expr : (-> WorldState (or/c WorldState package?))
  rate-expr : (and/c real? positive?)
  limit-expr : (and/c integer? positive?)
syntax
(on-key key-expr)
 
  key-expr : (-> WorldState key-event? (or/c WorldState package?))
syntax
(on-release release-expr)
 
  release-expr : (-> WorldState key-event? (or/c WorldState package?))
syntax
(on-mouse mouse-expr)
 
  mouse-expr : (-> WorldState
                   integer? integer? MouseEvent
                   (or/c WorldState package?))
value
LOCALHOST : string?
syntax
(register ip-expr)
 
  ip-expr : string?
syntax
(on-receive receive-expr)
 
  receive-expr : (-> WorldState sexp? (or/c WorldState package?))
procedure
(iworld? x) -> boolean?
  x : any/c
procedure
(iworld=? u v) -> boolean?
  u : iworld?
  v : iworld?
procedure
(iworld-name w) -> string?
  w : iworld?
value
iworld1 : iworld?
value
iworld2 : iworld?
value
iworld3 : iworld?
procedure
(bundle? x) -> boolean?
  x : any/c
procedure
(make-bundle state mails low) -> bundle?
  state : any/c
  mails : (listof mail?)
  low : (listof iworld?)
procedure
(mail? x) -> boolean?
  x : any/c
procedure
(make-mail to content) -> mail?
  to : iworld?
  content : sexp?
syntax
(universe state-expr clause ...)
 
clause = (on-new new-expr)
       | (on-msg msg-expr)
       | (on-tick tick-expr)
       | (on-tick tick-expr rate-expr)
       | (on-tick tick-expr rate-expr limit-expr)
       | (on-disconnect dis-expr)
       | (state boolean-expr)
       | (to-string render-expr)
       | (check-with universe?-expr)
syntax
(on-new new-expr)
 
  new-expr : (-> UniverseState iworld? bundle?)
syntax
(on-msg msg-expr)
 
  msg-expr : (-> UniverseState iworld? sexp? bundle?)
syntax
(on-tick tick-expr)
 
  tick-expr : (-> UniverseState bundle?)
syntax
(on-tick tick-expr rate-expr)
 
  tick-expr : (-> UniverseState bundle?)
  rate-expr : (and/c real? positive?)
syntax
(on-tick tick-expr rate-expr)
 
  tick-expr : (-> UniverseState bundle?)
  rate-expr : (and/c real? positive?)
  limit-expr : (and/c integer? positive?)
syntax
(on-disconnect dis-expr)
 
  dis-expr : (-> UniverseState iworld? bundle?)
syntax
(to-string render-expr)
 
  render-expr : (-> UniverseState string?)
syntax
(check-with universe?-expr)
 
  universe?-expr : (-> Any boolean?)
syntax
(state boolean-expr)
 
  boolean-expr : boolean?
syntax
(launch-many-worlds expression ...)
procedure
(launch-many-worlds/proc thunk-that-runs-a-world     
                         ...)                    -> any ...
  thunk-that-runs-a-world : (-> any/c)
value
character-boy : image?
value
character-cat-girl : image?
value
character-horn-girl : image?
value
character-pink-girl : image?
value
character-princess-girl : image?
value
enemy-bug : image?
value
speech-bubble : image?
value
brown-block : image?
value
dirt-block : image?
value
grass-block : image?
value
plain-block : image?
value
stone-block-tall : image?
value
stone-block : image?
value
wall-block-tall : image?
value
wall-block : image?
value
water-block : image?
value
wood-block : image?
value
chest-closed : image?
value
chest-lid : image?
value
chest-open : image?
value
gem-blue : image?
value
gem-green : image?
value
gem-orange : image?
value
heart : image?
value
key : image?
value
rock : image?
value
selector : image?
value
tree-short : image?
value
tree-tall : image?
value
tree-ugly : image?
value
yellow-star : image?
value
ramp-east : image?
value
ramp-north : image?
value
ramp-south : image?
value
ramp-west : image?
value
door-tall-closed : image?
value
door-tall-open : image?
value
roof-east : image?
value
roof-north-east : image?
value
roof-north-west : image?
value
roof-north : image?
value
roof-south-east : image?
value
roof-south-west : image?
value
roof-south : image?
value
roof-west : image?
value
window-tall : image?
value
shadow-east : image?
value
shadow-north-east : image?
value
shadow-north-west : image?
value
shadow-north : image?
value
shadow-side-west : image?
value
shadow-south-east : image?
value
shadow-south-west : image?
value
shadow-south : image?
value
shadow-west : image?

World Style           Universe Style
  (require htdp/world)  (require 2htdp/universe)
                        (require htdp/image)

World Style           Universe Style
  (require htdp/world)  (require 2htdp/universe)
                        (require htdp/image)

World Style                        Universe Style
  ; Number -> Scene                  ; Number -> Scene
  (define (create-UFO-scene height)  (define (create-UFO-scene height)
    (htdp:place-image                  (htdp:place-image
      UFO                                UFO
      50 height                          50 height
      (htdp:empty-scene 100 100)))       (htdp:empty-scene 100 100)))

World Style               Universe Style
  ; Scene                   ; Scene
  (define UFO               (define UFO
    (htdp:overlay             (htdp:overlay
      (htdp:circle              (htdp:circle
       10 'solid 'red)           10 "solid" "red")
      (htdp:rectangle           (htdp:rectangle
       40 4 'solid 'red)))       40 4 "solid" "red")))

World Style                        Universe Style
  (htdp:big-bang 100 100 (/1 28) 0)  (2htdp:big-bang
  (htdp:on-tick-event add1)            0
  (htdp:on-redraw create-UFO-scene)    (on-tick add1)
                                       (on-draw create-UFO-scene))

World Style                      Universe Style
  (define (change w a-key-event)   (define (change w a-key-event)
    (cond                            (cond
      [(key=? a-key-event 'left)       [(key=? a-key-event "left")
       (world-go w -DELTA)]             (world-go w -DELTA)]
      [(key=? a-key-event 'right)      [(key=? a-key-event "right")
       (world-go w +DELTA)]             (world-go w +DELTA)]
      [(char? a-key-event)             [(= (string-length a-key-event) 1)
       w]                               w]
      [(key=? a-key-event 'up)         [(key=? a-key-event "up")
       (world-go w -DELTA)]             (world-go w -DELTA)]
      [(key=? a-key-event 'down)       [(key=? a-key-event "down")
       (world-go w +DELTA)]             (world-go w +DELTA)]
      [else                            [else
       w]))                             w]))

World Style           Universe Style
  (require htdp/image)  (require 2htdp/image)

World Style           Universe Style
  (require htdp/world)  (require 2htdp/universe)
                        (require 2htdp/image)

World Style               Universe Style
  (htdp:overlay             (2htdp:underlay
   (htdp:rectangle           (2htdp:rectangle
    10 20 "solid" "red")      10 20 "solid" "red")
   (htdp:rectangle           (2htdp:rectangle
    20 10 "solid" "blue"))    20 10 "solid" "blue"))

World Style                              Universe Style
  (htdp:overlay                            (2htdp:underlay/align
   (htdp:put-pinhole                        "left"
    (htdp:rectangle 10 20 "solid" "red")    "top"
    0 0)                                    (2htdp:rectangle
   (htdp:put-pinhole                         10 20 "solid" "red")
    (htdp:rectangle 20 10 "solid" "blue")   (2htdp:rectangle
    0 0))                                    20 10 "solid" "blue"))

World Style                Universe Style
  (htdp:rectangle            (2htdp:rectangle
   11 11 "outline" "black")   10 10 "outline" "black")
