#reader(lib"read.ss""wxme")WXME0108 ## #| This file is in PLT Scheme editor format. Open this file in DrScheme version 370 or later to read it. Most likely, it was created by saving a program in DrScheme, and it probably contains a program with non-text elements (such as images or comment boxes). http://www.plt-scheme.org |# 32 7 #"wxtext\0" 3 1 6 #"wxtab\0" 1 1 8 #"wxmedia\0" 4 1 8 #"wximage\0" 2 0 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0" 1 0 16 #"drscheme:number\0" 3 0 44 #"(lib \"number-snip.ss\" \"drscheme\" \"private\")\0" 1 0 36 #"(lib \"comment-snip.ss\" \"framework\")\0" 1 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0" 0 0 19 #"drscheme:sexp-snip\0" 0 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0" 1 0 33 #"(lib \"bullet-snip.ss\" \"browser\")\0" 0 0 29 #"drscheme:bindings-snipclass%\0" 1 0 25 #"(lib \"matrix.ss\" \"htdp\")\0" 1 0 22 #"drscheme:lambda-snip%\0" 1 0 15 #"make-line-snip\0" 1 0 15 #"make-line-snip\0" 1 0 34 #"(lib \"tool.ss\" (\"gui-world\" 1 0))\0" 1 0 56 ( #"(lib \"hrule-snip.ss\" \"macro-debugger\" \"syntax-browse" #"r\")\0" ) 1 0 18 #"java-comment-box%\0" 1 0 23 #"java-interactions-box%\0" 1 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0" 1 0 26 #"drscheme:pict-value-snip%\0" 0 0 38 #"(lib \"pict-snipclass.ss\" \"slideshow\")\0" 2 0 55 ( #"(lib \"vertical-separator-snip.ss\" \"stepper\" \"private" #"\")\0" ) 1 0 18 #"drscheme:xml-snip\0" 1 0 31 #"(lib \"xml-snipclass.ss\" \"xml\")\0" 1 0 21 #"drscheme:scheme-snip\0" 2 0 34 #"(lib \"scheme-snipclass.ss\" \"xml\")\0" 1 0 10 #"text-box%\0" 1 0 32 #"(lib \"text-snipclass.ss\" \"xml\")\0" 1 0 15 #"test-case-box%\0" 2 0 1 6 #"wxloc\0" 00000000000 1 108 0 1 #"\0" 0 75 1 #"\0" 0 11 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 9 #"Standard\0" 0 75 26 #" Bitstream Vera Sans Mono\0" 0 9 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 24 #"framework:default-color\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 15 #"text:ports out\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 150 0 150 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 15 #"text:ports err\0" 0 -1 1 #"\0" 1 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 17 #"text:ports value\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 175 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 27 #"Matching Parenthesis Style\0" 0 -1 1 #"\0" 1 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 37 #"framework:syntax-color:scheme:symbol\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 38 #"framework:syntax-color:scheme:keyword\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 38 #"framework:syntax-color:scheme:comment\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 37 #"framework:syntax-color:scheme:string\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 39 #"framework:syntax-color:scheme:constant\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 42 #"framework:syntax-color:scheme:parenthesis\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36 #"framework:syntax-color:scheme:error\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 36 #"framework:syntax-color:scheme:other\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 38 #"drscheme:check-syntax:lexically-bound\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31 #"drscheme:check-syntax:imported\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 41 #"profj:syntax-colors:scheme:block-comment\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:keyword\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 37 #"profj:syntax-colors:scheme:prim-type\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 2 38 #"profj:syntax-colors:scheme:identifier\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 38 38 128 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 34 #"profj:syntax-colors:scheme:string\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:literal\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 34 139 34 0 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:comment\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 194 116 31 0 0 0 -1 -1 2 33 #"profj:syntax-colors:scheme:error\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:default\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 37 #"profj:syntax-colors:scheme:uncovered\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 35 #"profj:syntax-colors:scheme:covered\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 139 0 139 0 0 0 -1 -1 4 1 #"\0" 0 70 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 4 4 #"XML\0" 0 70 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 8 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 8 24 #"drscheme:text:ports err\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 4 1 #"\0" 0 71 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1 1 1 0 0 255 0 0 0 -1 -1 4 1 #"\0" 0 71 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1 1 1 0 0 255 0 0 0 -1 -1 4 1 #"\0" 0 71 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 100 0 0 0 0 -1 -1 0 1 #"\0" 0 75 26 #" Bitstream Vera Sans Mono\0" 0 9 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 200 0 0 0 0 0 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 255 255 0 -1 -1 2 1 #"\0" 0 71 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 71 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 100 0 0 0 0 -1 -1 0 1 #"\0" 0 75 26 #" Bitstream Vera Sans Mono\0" 0 11 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 22 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 15 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 14 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 24 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 20 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 22 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 14 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 20 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 19 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 0 1 #"\0" 0 75 11 #" Monospace\0" 0 11 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 1 #"\0" 0 75 1 #"\0" 0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 1 #"\0" 0 75 12 #"Courier New\0" 0 12 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 0 1 #"\0" 0 75 8 #"Courier\0" 0 16 90 -1 90 -1 3 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 17 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 15 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 17 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 17 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 22 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 15 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 14 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 20 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 178 34 34 255 255 255 -1 -1 24 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 24 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 24 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 178 34 34 255 255 255 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1 1 1 65 105 225 0 0 0 -1 -1 19 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 19 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 17 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 178 34 34 255 255 255 -1 -1 0 1 #"\0" 0 75 26 #" Bitstream Vera Sans Mono\0" 0 9 90 -1 90 -1 2 -1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 255 255 255 1 -1 22 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 14 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 20 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 17 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 22 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 15 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 14 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 20 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 19 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 19 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 0 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 0 -1 19 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 0 0 0 178 34 34 255 255 255 -1 -1 15 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 24 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 255 255 255 -1 -1 00000000002 0 00000000000 3 00000000000 4841 0 4 3 85 ( #";; The first three lines of this file were inserted by DrScheme. Th" #"ey record metadata" ) 0 0 4 29 1 #"\n" 0 0 4 3 85 ( #";; about the language level of this file in a form that our tools c" #"an easily process." ) 0 0 4 29 1 #"\n" 0 0 4 3 178 ( #"#reader(lib \"htdp-beginner-reader.ss\" \"lang\")((modname " #"spaceflight) (read-case-sensitive #t) (teachpacks ()) (htdp-setting" #"s #(#t constructor repeating-decimal #f #t none #f ())))" ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 7 #"require" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"lib" 0 0 4 3 1 #" " 0 0 19 3 10 #"\"world.ss\"" 0 0 4 3 1 #" " 0 0 19 3 6 #"\"moby\"" 0 0 4 3 1 #" " 0 0 19 3 6 #"\"stub\"" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 17 3 7 #";; DATA" 0 0 4 29 1 #"\n" 0 0 17 3 83 ( #";; world represents rocket, a list of theta of planets(not includin" #"g SUN) and trail" ) 0 0 4 29 1 #"\n" 0 0 17 3 50 #";; \"theta=0\" is the positive-y-coodinate direction" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 13 #"define-struct" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"rocket" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 56 #";; rocket's: posn, amount of fuel, velocity, orientation" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 13 #"define-struct" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"posn" 0 0 4 3 1 #" " 0 0 14 3 4 #"fuel" 0 0 4 3 1 #" " 0 0 14 3 8 #"velocity" 0 0 4 3 1 #" " 0 0 14 3 11 #"orientation" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 68 #";; velocity composes of velocity in up-direction and right-direction" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 13 #"define-struct" 0 0 4 3 1 #" " 0 0 14 3 8 #"velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 2 #"up" 0 0 4 3 1 #" " 0 0 14 3 5 #"right" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 26 #";; trail is a list of posn" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 11 109 ( #";; planet-constant composes of its angular velocity(w), oribt-radiu" #"s(orbit-r), gravity factor(g), radius and " ) 0 0 17 3 10 #"Image(img)" 0 0 4 29 1 #"\n" 0 0 17 3 40 #";; positive w corresponds to \"clockwise\"" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 13 #"define-struct" 0 0 4 3 1 #" " 0 0 14 3 15 #"planet-constant" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"w" 0 0 4 3 1 #" " 0 0 14 3 7 #"orbit-r" 0 0 4 3 1 #" " 0 0 14 3 1 #"g" 0 0 4 3 1 #" " 0 0 14 3 1 #"r" 0 0 4 3 1 #" " 0 0 14 3 3 #"img" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 69 #";; orientation: 0 means up, 1 means right, 2 means down, 3 means left" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 17 #"ROCKET-HEAD-RIGHT" 0 0 4 3 1 #" " 0 0 20 3 1 #"1" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-DOWN" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-LEFT" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 29 #";; WIDTH and HEIGHT of CANVAS" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 3 #"320" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 20 3 3 #"480" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 9 #"ROCKET-UP" 0 0 4 3 1 #" " 0 3 00000000019 4 1 #"\0" 2 -1 -1 0 0 0 00000000004 500 ( #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0\36\0\0\08\b\2\0\0" #"\0e\247\337\336\0\0\auIDATX\205\255\230Ml\\W\25\307\377\367" #"\276\257\371\360\e\317W2c\317\3041\215\23\a\343\226$\210V\"" #"\vR$\204\nb\201\324\252\v$\244\24\330 !\272\200\302\6" #"\220*V\250*{6Y\260\240\22\255BiU\t\32\241\220\217\226\222D)q" #"\342\244\216\35;\23\177\215\347\3333\357\373\335wY\314x\346\315" #"\263g\342\212\234\325\275\367\334\373{\347\236{\3179W\17|\337b\30" #"\255\267\336\372S\255V\334\347|\354s^\243Q>{\366\a\361x\374" #"\305\27\277\327j\325\236\30\3320\264W_\375Y>\237\237\232\232\2" #"\360\372\353\277a\314y\2h\306\234\327^\373y&\223\311\347\363" #"\361x<\36\217\38\177\376/O\0\375\356\273\357\0\0\220\311d\272" #"\215\251\251\251\365\365\302\377\205\336\332Z;u\352T\333\3446\272m5" #"\2007\336\370\375\360\265\"\206\t\277|\371o/\274\360u\316A)\217" #"F\225TjT\24C\262\34\r\205\204\253W?\272}\373\346\354\354\311A" #"\213\t\347|\220\256P\270\273\266v7\231\374\322\0=\273r\345\257g" #"\317\376\222RaO5\35b\362\375\373\377N$f\6O\20\246\247\217//\317" #"\17R\17D\227J\5QT\b!\376\301P#$\330=\e\323\351\231\207" #"\17o\0{\357{ za\341\306\330\330\211\300\240\255\332\211\271D\267K" #"\b\341\234\324\353\233\237\3mY\333\315f\221\363\240\23=\352" #"\231\23\246\272\241vG\362\371\23\213\213\267?\azqq~b\"hr[Z" #"\aZ\241r\3107\20\252T\26\1o\277\350\315\315\333\202\220\334S" #"\5\300\36\261eM\6@9\25\270 \313\261juc\367\264=\356\265aT\35" #"\207\265\333\4" ) 500 ( #"$u+\345V\\\250@\b\360\0\35B]\310\276\237eY\346\346\335\362s" #"\345|\376\351\225\225\205d2\367x\364\362\362\203\303\207\237i\2679x" #"\355xM\336\226i\203\302\5\b\20\2071m\210\31\261x\262\330Y\340" #")\265\332\22p\6\350\273N{\240\e\215\225Db\266\333e23\322\6" #"\322P4\305\212Z\355A]\323C\215\2209j\266\273\226\345ZVSQb~\316n_" #"{\315\346V\340:\267E}\240\222\35\273\264\234\26]\217vU\207\16" #"M\27\n\17\2\363\203h\333n\271\356\336\201\253e\265\310f\244" #"\363}\342Q\336[\253(c\325\352\352c\320\345r)\231\314\356\2116" #"\16\30\341J\270\333u$Gr\244v\233s\322l\256\6\3022\210\256V\253" #"\211D\37\232r\252\326:1\302\t\247;K\264I-\272\334\363\211\353" #"\302\266[\303\320\216cR\3329\r\301\23\0\310\232\314\215\2169z" #"V\17o\204{V3\251\2730\231\314\227JE?*xC\30\253z\336\301v[\235W" #"\243\363Q\276\315\371\30\247K\24\2\bH\264\20\225r\222h\213hB" #"]V\5S(\236(r\302\343\361C\225J1\227\233\32\210v\234^\310" #"\326g\353\365\331z\352^JO\352\314c2d\312)\34\350\307tH\340*\367" #"\226\275\306T\203\23\16\300\363\24]_\31f\265e\325\203\373" #"\240\3149\350\270pm\330\0\224\206bg\354\266\312\216\331rC6\22\6" #"\0B\210\256\227\375\v\203\276\246\224\5F\2\331\230\v\275" #"\276\225\262\224\252\3423\313\360\347\251 \332u\203\344\340\306|Y" #"\217\311\314_\318\27<\317\30\204\346\206a\a\321r\377\f\245g" #"\265\307=\"\364\3426\24\32i6\267\a\241\231 \3542[\352\3539" #"\324\361w\211\327C\217\214$\f\243\247\r\240=a\307\n\321\3558" #"\202K\334\237\350[\251\276" ) 500 ( #"\270\20\211\b\240\235[TU\255\327{'\31\274!\355\247\3" #"\1\211_\212\313U\231pB\f\22U\242\\\346\240\0\365%N\0060D\n" #"\221\361{\343\326\214U9Z\221\244\21\307\267\245 \332\363\0\200\203" #"\227\277\321\371\276b(\36\365<\352\301\353\277-\4\20p`\361\300" #"\346\361N\331eLq\34} \232\356\312\262V\330\n\16\371\304\345\376" #"\263!\256[\353\241\2S\a\277\245\6\210/\1\23B\374\211" #">\200\336\243\2\367\333\362" #"\326\255\235\3054P\352\b\351\5X\320\327##\303\320\212L~\361\225" #"\25{\376\275V\253\0\200q\346*}!\346\177\265v\321\373:>\"D\\" #".\235I\334X\272\366\16!\34\200\226\327\272\332\300{\272\213v" #"\1\30z}\356\277KC\320\243\243\311\212\243\22\256\37\321\256" #"\255?\272\1\300\226z9\207s\3568=z\27-\1\336?\316\3771'\364\345" #"\334\200d\263\23\313U\5\300\311\334\366\346\322'\301=\201\377" #"\363\303\v\214\231\0014\356/\314\315\30\177\247\315uI\332\225" #"\374v\304\363T\246\246\1P\342\206\315Z@K`D\213\327\357/\334\t" #"\242\227>\275x4\26666\2M\eb8\377\370>\266\335$\0\264j\242\330w" #"\206D\300d\322\335\\\371\264\17\355y\206\367\3502\270u8\326\\_" #"[\36\214\226^~\345'\227\314\257\2P\371\226i\226\372\265," #"\22\215\266\226n\0\36\340t\320\225J)C7\0\244\344\362Faa0\32\256" #"\e\241\231\231&\37?\222b\e\e\217\2Z\3072\234\255;\266\251" #"\1R\a],n\35\216\353\0.\257}AM\345\t\331\343)\336\225\211" #"\311\23\367\264|.\5\303\b\270[q!&T\332(=\3529\244\262" #"\271\232\212" ) 466 ( #"\30\206\e\301\354\367O\237\376\316\326N\274\355)\212r\240\356DDo" #"[o\224-k\265\\\276\263\266z\3234WM\263\312\344d&F-\210\350&Uw{" #"\215\300\272\2766q\342\333g\22\211\254i\256X\326B\253e\250\252\262" #"q\375\266\346\260\261\247\277\314vv\362p\356\263\255\205\3267\237s)" #"I\307b\343\205\371;c\177\376\340\303\323\247&\234\205\231\264\36" #"\247\245j\243\225?\324Ash\5\310h\204\216%\22\a\00129\371|\233r" #"\375?\227\274s\27\350\250\352\34}\366\331\257}\253\235\330>\273" #"\374;n\v\200\230\313\216ON\36\277\366\336\333\305|nT\"\6\311" #"N\217^\360\20^\251\26\273V\273\\\333\204\214pz\254/\1" #"\203'\323\361\310\37\336\214\252\243\351t\244\2330\277\373\303W" #"\256^\372\227\335\2327\265\6@^\372\351\257\333\343\e\253" #"\vW\316}\374\374\264&)J\a\355\272\\\260u\0T\f\24\35\362" #"\324S\317\354\366u,6~dj\246\361\211*\205\373\2161\233;\362\2214\1" #"\334mV\37v\216\221\20@\16\3p\rs\310\351\371%\252*u\246Z\255" #"\276\332F\b\215\36\234\2\267$B\272h\342X6\0\335\30V\6\3" #"\e\262tM\253\256\a*\361h&\a\300jl\243\355\20\306\370\275\252" #"\314\263?\222&\216q\356\0202,e\267\305u=\313v\4\241\0160\177\355f" #"\204\200\210D\224:hQ\224~\374\2537\303\341\344\320\37\r}\222\315" #"\216\335\24\277h\352\6c\236\340;\370\221\364\321\vs\23\312" #"\311\30\200\375\3761\333-\245\322\303\213\27?p\03430\2567\213\256" #"Y\347\234\377\17\253I'\214.\230\307\316\0\0\0\0IEND\256B`\202" ) 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 11 #"ROCKET-DOWN" 0 0 4 3 1 #" " 0 3 00000000021 4 1 #"\0" 2 -1 -1 0 0 0 00000000005 500 ( #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\0\36\0\0\08\b\2\0\0" #"\0e\247\337\336\0\0\a\251IDATX\205\255\230]l\\G\25\307\3773" #"\367{\357~\\\357\207\327\216\327\216\35\257\3354_-v\253$\264!" #"UU\250x\bRD\372\200\220\220\362\2O\210\202P\237*\20\225\20" #"\b\n\17HT\252@H\b\251\264T\250\212\4Qy\v\22\201\2\215" #"\352D\340&$Nl\327\353]\307\373\221\335\273\353\335\3735\303\303n" #"v\367^\333k\aq\236\366\316\234\363\233s\3179sf\356\202s\356" #"\266\36l\231\e\334/\216\323\272r\345\362\346\346\n\377_\205" #"\2\370\353\237\377p\365\347_Z\370\307e\364\t!$\377\267_\377" #"\345\255\357Z\326\3<\202\260f\263\3109\a@\18\365\332\vS\253" #"\365\342\355~\25A\240aM\30w?.\24\362\373Ar\356\\\276\374\356" #"\237\336\371\301/~\370-\327u:h\3568\340\256\300\271_Y\360\250\241" #"\310\222(\322\375\240\t\221\234\325\17^\304/\17\307mA \35" #"\264\22\213\2\250n\344\200~:\321\343\a\224\220\356\37\34$" #"!M\1 )r_@8\aQ\32\367\357p\316\372U\225\260b\bf\303\264" #"\366\211\0265\25\0\354f\373\375)\200H\374 \200\270\263Z\310-\365" #"\253:d(\246\230Kw\26k\265\365\356`\243QXY\271\273\370\257\217\356" #"\336\275\21x!\346\272\0<9$\212\4\200\b\300\261,\213i\317" #"\3164\336\372\355\317l16v\247\3208<\371\322\327_U\365\230\334l\336{" #"\377R\371\366\322\227\277\371*\0\200\377\373\372B\371\247o(U3\362" #"\375\357\35:D\372\310^\263\230G\32D\37icE\0\321x\272|\313+" #"\261C\232]\330\344\321\271\265\\\376\314\23\313\3137s\205u" #"\210.\221=\325\220?\374" ) 500 ( #"\360R\e \251`\347\236\242\222\0205*\327\256\375.\34\326\24%<9" #"\371\\\245r?\326\372\17\0\350\23\300C\257c\261\360\3\226Z\252" #"\352\217\177\341k\2171R\232?1\244\312\265\332:\343E@\314\316\206'" #"\237=\307X\257N\246O\35\6\3009\302a\0X[[P\325\345\217\257" #"\177pj\254\310\241\210\321\261N\350\1(p\357\324\230`\227U5\316" #"\230>\226\311t2\36K\272\255\250!mY\326\246$\245w\313\336\360" #"\360\211\253W\377\30_~_\313l\25\267\214\304\321\2169\5\20K\215" #"WL&\302\5|\305\240iC\271\22\16\353k\253\313\v\273q\1pN\315" #"\322\332\231\261{\0V\36\204\322\351\341.\332\221U]\32>*)Z\300f" #"tt|\251$D\310:\333X\24\305\255\1\364\321\211\331\222\235\4\260" #"\301F\23\211T\27-\0014<=\277\325h\0B\277\201\252\246L2\f\3403" #"\352?\337\371\325\e\200\263\e\372\300\330\324J-\2\242\320\361" #"3\224j\275\200\0\30\231|r\271,r\317g\340\272\"\302C\0\242b\371" #"\364\f\332y\337Qt=\231\257\343vml\372\311\347\272\203\35\364\314" #"\354\321F\372)\216`L\232\352\20\343\"\0\301,Rj\356\206v\34\231E" #"\16,j/\316\314\36\17\242\5A}\376\263/\360m~\215L\237\374(\27" #"\0050\25\267\n\205\325\335\320\0r^\362s\347\277\332N\236\17" #"\r@\222\b!=\264\354\310\0\16\214\317/\351Os\22JHf\265Z\36" #"\200>\376\304\264\0262\0\264\v\332\207\6\320\217\326\327t\0\234" #"\223\351\247\277x\2452/\22\207{\203\212\244\37\23D3\346K\242h" #"\211\2\21\0\204\303\23\362\221s?\2766i\331\203\272k\275\36\254" #"\37\261\373\213s\273\177\202s\316\320\351\261\311\341\23\27.\236" #"\330\303U\342\0^\177\371\366\274" ) 500 ( #"\26\204\220O\227\202\a\317\235A\"\b\0|\355\276?\326~\320\256" #"E<@|\204\36\272}\302\367f\374\333gO!\333\\\351\305Z\24\207" #"\372\227\25\211(\270\2\274\300y\tPPF)\243\226\346\353e\314\27" #"\f?Z\222DA\260\303Go\215\346\37\353\335@(\247\214t\34\23\231\250W\364j" #"\242\n@tE\16\276c@zk\31F\3224M\0mU\227\273\375z\341R\270\337" #"\2108\35\222+v\324<\217\a6`\357A\323\244z\275\322}\344\324\227n" #"\211I>\227\266\365W\317\23\3=\271\207\216D\242\255V\275\207\3668" #"%\275Yb\371_\330\267\275\332\236\311\201\202\355\31S\252\21\322" #"\2538O\366\4\273\317\213\226\237\344\" \242\30\34\351\217\16" #"U\372\3160+n)%\245\347\265\347\367z[\322\30\23\2#\276\265B" #"\241$\347\274\335\377\354\230\35\273\23\223\22\0221\t\34H\e" #"R4\26e\204\331\260\5*\b\333@\212b\354\201\246\324\342\\%\234" #"\244\256\247BWBt\212\"\2Wv\221\a\221\b\5U=U\257\351$O\306" #"n\2145\2164\36\34\353\334\276%)X\330>t\"\221\316\345n\306b3\234" #"\360\302\247\n)5U|\274\330\236r\362\16SX3\336\4\300\326\231{" #"\326m\205[]\337)e\202\20\17\240}K\245R\351ry\255\373\350" #"\b\216\344tj\2569\332\f\25:\255\221h\304\326m\0\36\355\244" #"\235\261\232$\251\203\320\262\34\356Otc\252\241/\353\35c0\302;" #"\2713\207\314\356\316lK\245R\210\307\az\r\220H$CHg\2638R\317k\0" #"\315DS\333\f\36\371m)\227\v\311dj0\32" ) 500 ( #"\361x\306\262z\255\203\21FyGgkdK/\350;\242E\321\223\345p`0\210\236" #"\2308\364\311'\267\272\217\215\3\r=\327\301qp\363\320\16W\21" #"\316y$2\274\35\25\334C\212\22Q\224\336`+\326\212\335\215\331\272" #"-\232\"Z\0\207(\212,\306\354\250\355\311\336Ct%\26\233\334\341U" #"\266\215\220\241\241iJ-\342\206\222\177O\212k\242P\20\302\ea\317" #"\360\20\2(`\2\253\320\23z\351D\251\335#WVn\234=\373\322~\320" #"\230\234\234\275~\375\312\370\350\311\315S\233\2140\271!k\367" #"\265\352Tu\273f[$I\320\264`y`{\200\0\304\343\243\266]\363\210" #"\327\2560[\267\345\272\274\e\327\363\312##\307v\234\332\361s" #"\223&\22\331\376^\327J\266\302\233\301\2h\313\352\352B6{d\377" #"hd\263\307\326\326z_\2\346\250\251\256\252\224\5\225\t\361" #"\"\221\264\242D\37\1m\30#\204\370\356\16\225\343\25\331\f" #"\206%\237_\230\235\235\337\221\260+\32 \a\17\316\27\213\213" #"\335gO\366Z1\337q\3009w]+\225\232xT4\246\246\216\334\272us\300M" #"\247RY\234\23195\340\226\265C\361u\326\244\302\311\223\237\177\363" #"\315\237<\363\314\247[-\317\266\e\256\333*\225\252\215\206\305" #"\30!\4ss\263\247O\237\337\315\34xx\37\333M^\177\375Gm5" #"\3030\0\244\323\351L&\223N\247\347\346\346\356\337\317\r\266\335" #"\3\275\276\276\232\315f\323\351\316\367h\367\307\245K\277\337\363" #"\17\242=\320\234\363\367\336{\267\355\265a\30m\227_y\345\333\236" #"\347\374\37\320\236\347\274\366\332w\0d\263\331L&\363\362\313\337h" #"6\e{Z\355\v\3159\257\327+\27.\2347\f\343\342\305\257T\253" #"\305\375\230\354\27\3159\257T6\336~\3737\315f}\237\372\234\363\377" #"\2P\351" ) 18 #"\337Z\223\336K\4\0\0\0\0IEND\256B`\202" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 11 #"ROCKET-LEFT" 0 0 4 3 1 #" " 0 3 00000000019 4 1 #"\0" 2 -1 -1 0 0 0 00000000004 500 ( #"\211PNG\r\n\32\n\0\0\0\rIHDR\0\0\08\0\0\0\36\b\2\0\0" #"\0\366\21Jb\0\0\aWIDATX\205\315\230Yl\e\307\31\307\377\263'" #"\271\334\370\344\353" #"PI\316\2046\215\366\f\fQB\372\16\216\5\303\233\376\233\255" #"\347\216S/\24\362\305b\276\321\320\e\r\335\266-\316\305@ \34" #"\16\307#\221\210,\207)U\1B\bi\e\3069\347\234\200\23XD\4@" #"\1\0j\263Y\372\327\231\337ZJ\362\3057~\232\34\332J\210\0\254\17" #"|T\217r\3336\26\27o\224J\267\r\343\266\347!\221H\307b\233" #"\25\2457\36\237\3500\245t\215\254s\226;\344\34\ng\353\215\214" #"\225\27\345m=\22I\245\267u\277\370!AY\251\224\273ys\246\\" #"\236\267mo\363\346\361x|4\26\e[\343hw\31\0\20\220\304l\2428" #"V|\270\371\1\240\250\27\16\376\355\237\371\364\220o\357\375A" ) 500 ( #"y\245\26227w\245X\234S\224h:\275+\24\32\\\203[g\342\204\223N" #"\247qp\365\232\212\261\207\347\204\32Pro\34\262\nU\337^\377" #"\30e\214.,\\\273uk\232s\222NO\2\1\221\213\340\240\2\3556N" #"^J\26\276QP\252\212ZREG$\"!\214HD\322>\324\314\227L\217{" #"\20\1\0160\20B<\3253\323\246#;\335\363\330\366\355htpddbChr\200" #"R\3128\347>\36\275r\345\322\305\213\37\216\217O\f\16>\267v\16" #"8x\377\305\376\374\276\374\232\231\354\312\241\205\220Le\355\274" #"\326\23\352q\242\216\2311\251B\331\335\270K]M\25F\vTj\255" #"\215\20\"@\240\274m\251\222\3445\233\205\\n\311\262\312\215" #"\252.\220\276\345\371\253M\263*\363\262]\267\315\322\262\310*u" #"\213\246\366\35m\3\315\345\226\336}\367\17\331\354\365\343\307" #"\177\6\210m>&L\272-\1\bT\3\241\345\220\300\5Wv\315-\246+" #"\273\374knl1\\\331m\271`M\"@\327\203\213sNA\1\20\302\227\227" #"\246W\346/\6\233e\324\313\21\276:\326K\207z!\3115\300\203.9\375\373\16J\0\212\251\210+\342\300" #"\245\201F\177\243\356y\17.\235\0H\207\17\177oj\352\354" #"\331\263\37\207\303aUU\1\24\213\255\233\254\331\323l\263\25\0" #"\16\325T#7\"f\322\324w\350\255\365@n\v\3315\261\215)\20\0v" #"\355~y\275\323o\304\335\365u\345\17@\b\4B\357\274s\352\265\327" #"^u]7\237\317\313\262l\232\235Q\330R\23\220`\207l}\227n\365" #"[\353\355\24\16|\356E0@\270\27\215\277D\1\377\370\373\224i" #"\256\370\200\2\210F{O\236\374\325\321\243?\4\340\272.c>\v\2" #"\0\3\254\247\315\17\221r$\274\34\16\325B\242 J\220\332\36&" #"\21\207\b\354\321Hs\227\277,\235\372\215\2567\272\273Z\327S \240" #"\235\355" #"\367\21!\327k\225x\242/\366\324S\273;\272:Sh\177\377\340+" ) 436 ( #"\257\34_\\\274>;\373\251$\251\251\324$\347\255\313\337\227Rd\242" #"\271\335\364}kw\245\362@\31\206\275g\357\1\237\373\342\36\325" #"\23\311d\236\316d&\n\205\305\231\231i\303\310g2\223\242\330\235y" #"\0\200\n\264\262\263\3423\257'9\t\277\23v_\205\303\301;\0>L" #"\17\254\360m\27367wme\345\212\353\322\341\341\335\204\304\311\275" #"\242\270c\352{\204\212\2771a\253\253_\245\323\233FF\16\372\e<" #"\374\247\210e\225\26\26nT\2537\rc\325\363\304D\"\31\217'\5" #"!\312\36\361\304\254I\226\35\323\324\227\263\v\271\305\231Ho" #"z\377\376\357&\223#\276\356|4\320\rb\216S\327\365B\251Tr\335&\245" #"%\327e\266]\21\4\352y\260,G\24=Q$\234\2031\bB\253\312\246" #"\24\234\313\341\260\f\340\362\227\363C\242.\30\313\2510\206\243" #"F\257\242_\310n\301\316\37L\356\375V<\276icI\304\271K\210\374\37" #"\203\336_\34\240@G\346!\200\260F`5*\37\275\377\273\355\326\324" #"X4\333\372,\6,O\373<\333W\rl\v\366\245\4I\362\254f\303\262" #"\345\314s\207\16\35\371?\201>\244\330\354\314\345\371/\316\263" #"\245\v\3Bn8\326\350\325,\202\316\2448\205\37\177\347\3657\1" #"\341\261\200r\300[\373\215\303\230U,\26\362\371\325\342\312m" #"\257\226\205\271\310\315\25\321i@\t\272\266s\275\244\34\373\371" #"\251`\260\357I\370\245\323!\16x\236\307\t\1!\204R.I2!" #"\344\t\4\365\327\277\1u\243\223\235Vv\311" #"\327A\21\35B6J\345\225J\267.\274\377\16\\\372\345d\367\215B" #"\313\274Y\325V,\340ZW\3063\307\16\16\0\200e9\2048\202\0\0@\bp" #"\16\224\2!\340y\350yLQ$\306\200sA\226uQ\244\202`\210b\3000" #"\f\323\214KR\b\200\336'\250\237a6\233\236\236\376C\255\260\324" #"\3317\334\325\235RU\323q\244\335k\1\0@)\347\274Z*e\213\305,c\236" #"\246uD\"{R\251\207\24\305\370OA\323\351?/-\335\352\3508\200\270" #"\323\267'@\260=\r\374\r\21\21K7o~(\212B29:88\"\313\341\373" #"\4\235\235}" ) 500 ( #"\v`x\207\210kf\276m\226?[v\231\273\253(\317+.,\\\320\264\304" #"\360\360D<\336\267]r3\277F\4 \226\265\32\n\355jF\220\212" #"\222/\245~I\257\215\324<\352\371F\t\202\221J\35&\304\233\231\231" #"v\335\267\207\206>\325\327\267o+\256\17\350G\37],\346\313a]" #"\336\355\236E\320_\fuF-\217\226}\3747\244\n\242\220LN b&3s\356" #"\334\273\223\223\307\343\361\256\215\316>\371\327lx\265o\275\260r" #"\356\322\256(\345U\231\254\222H!\242gu}Q\327\347u}V\327\257\351" #"\261\2531\254b\300\n\320\315\271.\264\204\330\207\261vtB\fc\377" #"\371\363\327\236x\342\3113g~\313\371\275\365\361\1U\265\210\35" #"\321\352\216\377Jmg\234r.\363z\264n%-\253\327\262\6,k\257e\r" #"[\r\243\201\235\310\252L-\253\e\375\245\252\344\26\374\263" #"\31\0212\231\314\211\23O\237>}\272\331\\/\344>Ko\232A\343\324" #"\327\305\200\275[P\224\320\245\355sSN\353\341\272\325e\265\267W(" #"h\376CQ\212\242(\2\300k\257\375\242\325r^|\361\333\341p\314OQ5" #"\371\211\317Ly|W\234\0\334\277\212K \201p\357\247r[1/\232r]" #"\6\27 \340?\222\252\312\216\343$\22\tQ\24\337x\3437\317?\177" #"\252\331\254\373\376\353\301\257F8\0\204\322Z6\273P\251\24\321k" #"\330-\34;\360\305{\375\350\17J\221\22 JQ\tf\203\4\311jl\2650" #"V@@F\30l\320\202r*\325\244f\244\t\0\261X$\227\313\1\200\256" #"\353\246i\276\371\346\231\251\251\243\333\201n2\306\32\277~\365'" #"\237\36\2\241\226O\31vL\2541\342\374\340o{6\201\2\0\1\2124T" #"\b\211\\$6\201&\20\217\2109\21V\300M\271\245\221\22\337\210" #"\26" ) 500 ( #"\0(\256?\206n\207\2\v\201\322X\351\316t\1]\327\313\3452\0" #"\314\315\315=\363\314SSS\307|@\253\325\345\267~\376j@\227\16<6l" #"\333\267\27\322\27xn\346\271\221\363aV\4eM\273\340;\305\211C_xr" #"k,'\274jV7\266HQ)H\203\365\316z\233\247\253\271\201r r#\"YR\323l" #"\346'\362\367B$\265\\.'\22\211\\.\367\322K\3379u\352\233\252" #"\2523\0\260\355r6\273\302\30\5\300z\315\236\237\233\251\314_\252" #"J^\332\276\242\213\215IuI\v-\257s \373{&<\257>:\360\350\323" #"\241P\337\277[\t\0\0\20\201\2656\311A\221\252\0315x;(_\227" #"\263\223\331J\252\322\26\21\b\b\0\240i\332+\257\374\350\370" #"\361/Q\312\0\200\345\363\v\177\371\325\v\275\356\25Y\22\345" #"\240\32\25jG\344\2324\271\n\340\0020\227\2063\5\370\240\20" #"\257\221\16\bEW\3\321\344\370'\307{'pkm'\0~\5\r5\204\32\0" #"\200\350\210jZ\25\35\221\23^\357\252\347zr\335s\335-\265\265%" #"\302\233\236~\357\345\227\277\177\362\344\227;;{\357\266\262\313" #"\227/7\e\253+\312\200\207\272*weC\262C\242\0015\222\311.s\314\a" #"#\2462\30\355\234\354\355\17\304]w]\230\265\35K \2\a~" #"\357\250 l\2\245\204\n-A.\310RU\n\337\b\223+\304\21\234z" #"\252\356\210\316]\37\267\307\245H9\341w\206\305|~fv\366\352\263" #"\317>7:\372p\273\16\216\323$\204\bB\333i\27\323\351\253\325\352" #"\262,\367l\25Ir$uIe6CD\240\353Z2\302\324?\252\215\3177\\t\221" #"\"z\350I\236m\330\255H+\376\217x\366\341\354\326q\4.\0\1\217x" #"\0\315\245\245\v\204`\177\377D*5B\251\260\325" ) 398 ( #"\331\377\364\364\372\17\277\253\304#\321\336\36\323\334\277\265w;" #"\353\372]\327\362\211e\2779\b\22\237Y(\265\227\226.\266Z\325X" #"lpppT\327\223\377\342^\340_\236\324\253\351\304\2372\225o|u\347" #"\224\0`\217\330\276G\322\215\224\204\240m\257,.\316\3122\213F\a" #"\16\36 trail" 0 0 4 29 1 #"\n" 0 0 17 3 34 #";; produces a trail with length l." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"init-trail" 0 0 4 3 1 #" " 0 0 14 3 1 #"l" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 5 #"zero?" 0 0 4 3 1 #" " 0 0 14 3 1 #"l" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 11 #"INIT-ROCKET" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"init-trail" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"sub1" 0 0 4 3 1 #" " 0 0 14 3 1 #"l" 0 0 22 3 6 #")))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 10 #"INIT-WORLD" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 11 #"INIT-ROCKET" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 19 #"INIT-L-THETA-PLANET" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"init-trail" 0 0 4 3 1 #" " 0 0 20 3 1 #"9" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 36 #";; get-posn-x-rocket: rocket -> num " 0 0 4 29 1 #"\n" 0 0 17 3 31 #";; produces posn-x of a-rocket." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"get-posn-x-rocket" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 34 #";; get-posn-y-rocket: world -> num" 0 0 4 29 1 #"\n" 0 0 17 3 31 #";; produces posn-y of a-rocket." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"get-posn-y-rocket" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #")))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 31 #";; theta->posn: num num -> posn" 0 0 4 29 1 #"\n" 0 0 17 3 101 ( #";; converts the posn in terms of (theta, orbit-r) into posn in term" #"s of (x-coordinate, y-coordinate)." ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"theta->posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"theta" 0 0 4 3 1 #" " 0 0 14 3 7 #"orbit-r" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 14 3 7 #"orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sin" 0 0 4 3 1 #" " 0 0 14 3 5 #"theta" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 14 3 7 #"orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"cos" 0 0 4 3 1 #" " 0 0 14 3 5 #"theta" 0 0 22 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 32 #";; get-earth-posn: world -> posn" 0 0 4 29 1 #"\n" 0 0 17 3 26 #";; produces posn of EARTH." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"get-earth-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"second" 0 0 4 3 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sin" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"second" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 11 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"second" 0 0 4 3 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"cos" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"second" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 11 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 7 #")))))))" 0 0 4 3 3 #" " 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 38 #";; get-moon-posn: num num posn -> posn" 0 0 4 29 1 #"\n" 0 0 17 3 25 #";; produces posn of MOON." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"get-moon-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"get-earth-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sin" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 11 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"get-earth-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"cos" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 11 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 7 #")))))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 46 #";; add-velocity: velocity velocity -> velocity" 0 0 4 29 1 #"\n" 0 0 17 3 35 #";; produce the sum of vel1 and vel2" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"add-velocity" 0 0 4 3 1 #" " 0 0 14 3 4 #"vel1" 0 0 4 3 1 #" " 0 0 14 3 4 #"vel2" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 4 #"vel1" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 4 #"vel2" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 17 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 4 #"vel1" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 4 #"vel2" 0 0 22 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 8 #";; TEST " 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"add-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 1 #"1" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 28 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"-3" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 14 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"-2" 0 0 4 3 1 #" " 0 0 20 3 1 #"6" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 97 ( #";; get-delta-velocity-gravity-from-bodies: posn (listof num) (listo" #"f planet-constant) -> velocity" ) 0 0 4 29 1 #"\n" 0 0 17 3 75 ( #";; produces the acceleration of ROCKET caused by the SUN and other " #"planets." ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 38 #"get-delta-velocity-gravity-from-bodies" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-planet-theta" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"empty?" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-planet-theta" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 36 #"get-delta-velocity-gravity-from-body" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 43 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 43 #" " 0 0 14 3 3 #"SUN" 0 0 22 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"add-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 36 #"get-delta-velocity-gravity-from-body" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 62 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"theta->posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-planet-theta" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 75 ( #" " #" " ) 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 76 ( #" " #" " ) 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 62 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 24 #" " 0 0 22 3 1 #"(" 0 0 14 3 38 #"get-delta-velocity-gravity-from-bodies" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 64 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-planet-theta" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 64 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 6 #")))]))" 0 0 4 3 6 #" " 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 78 ( #";; get-delta-velocity-gravity-from-body: posn posn planet-constant " #"-> velocity" ) 0 0 4 29 1 #"\n" 0 0 17 3 90 ( #";; produces the acceleration of ROCKET gained at rocket-posn caused" #" by one celestial body." ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 36 #"get-delta-velocity-gravity-from-body" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 11 #"planet-posn" 0 0 4 3 1 #" " 0 0 14 3 15 #"planet-constant" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-g" 0 0 4 3 1 #" " 0 0 14 3 15 #"planet-constant" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 23 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 8 #"distance" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 11 #"planet-posn" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 26 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 14 3 11 #"planet-posn" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 23 #" " 0 0 22 3 1 #"(" 0 0 14 3 8 #"distance" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 11 #"planet-posn" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 17 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-g" 0 0 4 3 1 #" " 0 0 14 3 15 #"planet-constant" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 23 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 8 #"distance" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 11 #"planet-posn" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 14 3 11 #"planet-posn" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 26 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 23 #" " 0 0 22 3 1 #"(" 0 0 14 3 8 #"distance" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 11 #"planet-posn" 0 0 22 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 76 ( #";; update-rocket-velocity-gravity-aux: velocity num (listof num) ->" #" velocity" ) 0 0 4 29 1 #"\n" 0 0 17 3 52 #";; updates the velocity of ROCKET caused by gravity." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 30 #"update-rocket-velocity-gravity" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 4 3 1 #" " 0 0 14 3 11 #"posn-rocket" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-planet-theta" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 38 #"get-delta-velocity-gravity-from-bodies" 0 0 4 3 1 #" " 0 0 14 3 11 #"posn-rocket" 0 0 4 29 1 #"\n" 0 0 4 3 73 ( #" " #" " ) 0 0 14 3 14 #"l-planet-theta" 0 0 4 29 1 #"\n" 0 0 4 3 73 ( #" " #" " ) 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 17 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 38 #"get-delta-velocity-gravity-from-bodies" 0 0 4 3 1 #" " 0 0 14 3 11 #"posn-rocket" 0 0 4 29 1 #"\n" 0 0 4 3 76 ( #" " #" " ) 0 0 14 3 14 #"l-planet-theta" 0 0 4 29 1 #"\n" 0 0 4 3 76 ( #" " #" " ) 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 43 #";; update-theta: num planet-constant -> num" 0 0 4 29 1 #"\n" 0 0 17 3 37 #";; produces the next theta of planet." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-theta" 0 0 4 3 1 #" " 0 0 14 3 5 #"theta" 0 0 4 3 1 #" " 0 0 14 3 2 #"pc" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 2 #">=" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 14 3 5 #"theta" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-w" 0 0 4 3 1 #" " 0 0 14 3 2 #"pc" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 14 3 5 #"theta" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-w" 0 0 4 3 1 #" " 0 0 14 3 2 #"pc" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 22 3 3 #"))]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 14 3 5 #"theta" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-w" 0 0 4 3 1 #" " 0 0 14 3 2 #"pc" 0 0 22 3 5 #"))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 7 #";; TEST" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-within" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-theta" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 3 #"360" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"make-planet-constant" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 2 #"30" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 3 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 20 3 1 #"0" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"circle" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 19 3 7 #"\"solid\"" 0 0 4 3 1 #" " 0 0 19 3 6 #"\"blue\"" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 3 #"360" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 2 #"30" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 20 3 1 #"1" 0 0 4 3 1 #" " 0 0 20 3 6 #"100000" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-within" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-theta" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"make-planet-constant" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 2 #"30" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 3 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 20 3 1 #"0" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"circle" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 19 3 7 #"\"solid\"" 0 0 4 3 1 #" " 0 0 19 3 6 #"\"blue\"" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 2 #"pi" 0 0 4 3 1 #" " 0 0 20 3 2 #"30" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 20 3 1 #"1" 0 0 4 3 1 #" " 0 0 20 3 6 #"100000" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 72 ( #";; update-l-theta: (listof num) (listof planet-constant) -> (listof" #" num)" ) 0 0 4 29 1 #"\n" 0 0 17 3 43 #";; produces a list of next theta of planet." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"update-l-theta" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"empty?" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-theta" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"update-l-theta" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 22 3 6 #")))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 47 #";; update-rocket: rocket (listof num) -> rocket" 0 0 4 29 1 #"\n" 0 0 17 3 28 #";; produces the next rocket." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"update-rocket" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-theta-planet" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 2 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"modulo" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"get-posn-x-rocket" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"get-velocity-right" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #")))" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"modulo" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"get-posn-y-rocket" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"get-velocity-up" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #")))" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-fuel" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 30 #"update-rocket-velocity-gravity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"rocket-velocity" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-theta-planet" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"rocket-orientation" 0 0 4 3 2 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 31 #";; update-world: world -> world" 0 0 4 29 1 #"\n" 0 0 17 3 58 #";; updates the posn of ROCKET and list of theta of planets" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-world" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"update-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"update-l-theta" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-trail" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"world-trail" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 4 #"))))" 0 0 4 3 5 #" " 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 8 #";; TEST " 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 10 #"world-test" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-world" 0 0 4 3 1 #" " 0 0 14 3 10 #"world-test" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 3 3 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"modulo" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"get-velocity-right" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 10 #"world-test" 0 0 22 3 4 #"))))" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"modulo" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"get-velocity-up" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 10 #"world-test" 0 0 22 3 4 #"))))" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 30 #"update-rocket-velocity-gravity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"rocket-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 10 #"world-test" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 11 1 #" " 0 0 14 3 10 #"world-test" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 33 #";; get-velocity-up: rocket -> num" 0 0 4 29 1 #"\n" 0 0 17 3 37 #";; produces the velocity-up of ROCKET" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"get-velocity-up" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"rocket-velocity" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 36 #";; get-velocity-right: rocket -> num" 0 0 4 29 1 #"\n" 0 0 17 3 42 #";; produces the velocity-right of a-rocket" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"get-velocity-right" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"rocket-velocity" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 32 #";; get-velocity: velocity -> num" 0 0 4 29 1 #"\n" 0 0 17 3 46 #";; produces the scalar length of the velocity." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"get-velocity" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"sqrt" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 29 1 #"\n" 0 0 4 3 9 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 9 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 5 #")))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 7 #";; TEST" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"get-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 20 3 1 #"5" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 56 #";; update-rocket-velocity-user: velocity num -> velocity" 0 0 4 29 1 #"\n" 0 0 17 3 77 ( #";; update the velocity of ROCKET caused by FORCE-FUEL in the direct" #"ion of ort" ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 27 #"update-rocket-velocity-user" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 3 4 #" " 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 10 #"FUEL-FORCE" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 3 #"))]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 17 #"ROCKET-HEAD-RIGHT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 10 #"FUEL-FORCE" 0 0 22 3 3 #"))]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-DOWN" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 10 #"FUEL-FORCE" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 3 #"))]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-LEFT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"velocity-up" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"velocity-right" 0 0 4 3 1 #" " 0 0 14 3 3 #"vel" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 10 #"FUEL-FORCE" 0 0 22 3 5 #"))]))" 0 0 4 3 4 #" " 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 6 #";;TEST" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 27 #"update-rocket-velocity-user" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"30" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"53" 0 0 4 3 1 #" " 0 0 20 3 2 #"30" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 27 #"update-rocket-velocity-user" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 20 3 2 #"-4" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 17 #"ROCKET-HEAD-RIGHT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 20 3 2 #"-4" 0 0 4 3 1 #" " 0 0 14 3 10 #"FUEL-FORCE" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 27 #"update-rocket-velocity-user" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 20 3 2 #"-4" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-DOWN" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 14 3 10 #"FUEL-FORCE" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 2 #"-4" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 27 #"update-rocket-velocity-user" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 20 3 2 #"-4" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-LEFT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 20 3 2 #"-4" 0 0 4 3 1 #" " 0 0 14 3 10 #"FUEL-FORCE" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 42 #";; process-key: world a-key-event -> world" 0 0 4 29 1 #"\n" 0 0 17 3 75 ( #";; a-key-event updates velocity or orientation and amount of fuel o" #"f ROCKET" ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"process-key" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 4 3 1 #" " 0 0 14 3 11 #"a-key-event" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"process-key-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 11 #"a-key-event" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"world-trail" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 44 #";; process-key: rocket a-key-event -> rocket" 0 0 4 29 1 #"\n" 0 0 17 3 75 ( #";; a-key-event updates velocity or orientation and amount of fuel o" #"f ROCKET" ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"process-key-rocket" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 4 3 1 #" " 0 0 14 3 11 #"a-key-event" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"<" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-fuel" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"FUEL-CONSUMPTION" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 5 #"key=?" 0 0 4 3 1 #" " 0 0 20 3 1 #"'" 0 0 14 3 2 #"up" 0 0 4 3 1 #" " 0 0 14 3 11 #"a-key-event" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-fuel" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"FUEL-CONSUMPTION" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 27 #"update-rocket-velocity-user" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"rocket-velocity" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"rocket-orientation" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"rocket-orientation" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #"))]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 5 #"key=?" 0 0 4 3 1 #" " 0 0 20 3 1 #"'" 0 0 14 3 5 #"right" 0 0 4 3 1 #" " 0 0 14 3 11 #"a-key-event" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-fuel" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"FUEL-CONSUMPTION" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"rocket-velocity" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"modulo" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"add1" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"rocket-orientation" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 3 #"))]" 0 0 4 3 4 #" " 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 5 #"key=?" 0 0 4 3 1 #" " 0 0 20 3 1 #"'" 0 0 14 3 4 #"left" 0 0 4 3 1 #" " 0 0 14 3 11 #"a-key-event" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-fuel" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"FUEL-CONSUMPTION" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 15 #"rocket-velocity" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"modulo" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"sub1" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"rocket-orientation" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 3 #"))]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 14 3 8 #"a-rocket" 0 0 22 3 3 #"]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 9 #";; TEST " 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"process-key" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 20 3 1 #"'" 0 0 14 3 2 #"up" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 14 3 16 #"FUEL-CONSUMPTION" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 27 #"update-rocket-velocity-user" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 22 3 1 #")" 0 0 4 11 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 14 3 5 #"empty" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"process-key" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 20 3 1 #"'" 0 0 14 3 4 #"left" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 14 3 16 #"FUEL-CONSUMPTION" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-LEFT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 14 3 5 #"empty" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"process-key" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-LEFT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 20 3 1 #"'" 0 0 14 3 5 #"right" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"make-world" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"make-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 20 3 2 #"50" 0 0 4 3 1 #" " 0 0 14 3 16 #"FUEL-CONSUMPTION" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"make-velocity" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 4 3 1 #" " 0 0 20 3 2 #"10" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 14 3 5 #"empty" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 14 3 5 #"empty" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 29 #";; distance: posn posn -> num" 0 0 4 29 1 #"\n" 0 0 17 3 49 #";; produces the distance between posn1 and posn2." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 8 #"distance" 0 0 4 3 1 #" " 0 0 14 3 5 #"posn1" 0 0 4 3 1 #" " 0 0 14 3 5 #"posn2" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"sqrt" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 14 3 5 #"posn1" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 14 3 5 #"posn2" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sqr" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 14 3 5 #"posn1" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 14 3 5 #"posn2" 0 0 22 3 6 #"))))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 51 #";; collide-posn-with-body? posn posn num -> boolean" 0 0 4 29 1 #"\n" 0 0 17 3 104 ( #";; determines whether ROCKET at posn-rocket collides with a celesti" #"al body at posn-planet with radius r." ) 0 0 4 29 1 #"\n" 0 0 17 3 69 #";; As a simplification, the hitbox is a small radius around the posn." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"collide-posn-with-body?" 0 0 4 3 1 #" " 0 0 14 3 11 #"posn-rocket" 0 0 4 3 1 #" " 0 0 14 3 9 #"posn-body" 0 0 4 3 1 #" " 0 0 14 3 1 #"r" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 2 #"<=" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 8 #"distance" 0 0 4 3 1 #" " 0 0 14 3 11 #"posn-rocket" 0 0 4 3 1 #" " 0 0 14 3 9 #"posn-body" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 14 3 1 #"r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"image-width" 0 0 4 3 1 #" " 0 0 14 3 9 #"ROCKET-UP" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 7 #";; TEST" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"collide-posn-with-body?" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 10 #"INIT-WORLD" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 11 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"false" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 86 ( #";; collide-all?: rocket (listof posn) (listof num) (listof planet-c" #"onstant) -> boolean" ) 0 0 4 29 1 #"\n" 0 0 17 3 84 ( #";; determine whether ROCKET at posn-rocket collides with at least o" #"ne of the planets" ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"collide-all?" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"empty?" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-theta-planet" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"false" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 2 #"or" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"collide-posn-with-body?" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 7 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 7 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"theta->posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-theta-planet" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 7 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 6 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"collide-all?" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 14 #"l-theta-planet" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 17 #"l-planet-constant" 0 0 22 3 6 #")))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 28 #";; game-ends?: world -> bool" 0 0 4 29 1 #"\n" 0 0 17 3 69 #";; determine whether ROCKET collides with at least one of the planets" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"game-ends?" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 2 #"or" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"collide-posn-with-body?" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"collide-posn-with-body?" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"get-moon-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 11 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 3 3 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"collide-all?" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 7 #";; TEST" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"game-ends?" 0 0 4 3 1 #" " 0 0 14 3 10 #"INIT-WORLD" 0 0 22 3 1 #")" 0 0 4 3 2 #" " 0 0 14 3 5 #"false" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 52 #";; update-trail: posn (listof posn) -> (listof posn)" 0 0 4 29 1 #"\n" 0 0 17 3 27 #";; produces the next trail." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-trail" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"empty?" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"without-trail-tail" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 5 #"))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 7 #";; TEST" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"update-trail" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 4 3 1 #" " 0 0 20 3 1 #"3" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 3 #")))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 14 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 53 #";; without-trail-tail: (listof posn) -> (listof posn)" 0 0 4 29 1 #"\n" 0 0 17 3 47 #";; produce a trail without the tail of a-trail." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"without-trail-tail" 0 0 4 3 1 #" " 0 0 14 3 7 #"a-trail" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"empty?" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 7 #"a-trail" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 7 #"a-trail" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"without-trail-tail" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 7 #"a-trail" 0 0 22 3 6 #")))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 7 #";; TEST" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"without-trail-tail" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 12 #"check-expect" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"without-trail-tail" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"1" 0 0 4 3 1 #" " 0 0 20 3 1 #"1" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 3 #")))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"cons" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"make-posn" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 22 3 1 #")" 0 0 4 11 1 #" " 0 0 14 3 5 #"empty" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 37 #";; draw-fuel-percentage: num -> Image" 0 0 4 29 1 #"\n" 0 0 17 3 68 #";; produce an image indicating the percentage of amount of fuel left" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"draw-fuel-percentage" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 2 #">=" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 3 #"0.6" 0 0 4 3 1 #" " 0 0 14 3 4 #"FUEL" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"text" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"number->string" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 7 #"ceiling" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 3 #"100" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 4 3 1 #" " 0 0 14 3 4 #"FUEL" 0 0 22 3 4 #"))))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 19 3 7 #"\"green\"" 0 0 22 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 2 #">=" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 3 #"0.3" 0 0 4 3 1 #" " 0 0 14 3 4 #"FUEL" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"text" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"number->string" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 7 #"ceiling" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 3 #"100" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 4 3 1 #" " 0 0 14 3 4 #"FUEL" 0 0 22 3 4 #"))))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 19 3 8 #"\"yellow\"" 0 0 22 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #">" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 4 3 1 #" " 0 0 20 3 1 #"0" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"text" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"number->string" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 7 #"ceiling" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 20 3 3 #"100" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 4 3 1 #" " 0 0 14 3 4 #"FUEL" 0 0 22 3 4 #"))))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 19 3 5 #"\"red\"" 0 0 22 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 6 #" " 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"text" 0 0 4 3 1 #" " 0 0 19 3 13 #"\"out of fuel\"" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"floor" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 10 #"SUN-RADIUS" 0 0 4 3 1 #" " 0 0 20 3 1 #"4" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 19 3 6 #"\"gray\"" 0 0 22 3 4 #")]))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 17 3 47 #";; place-fuel-percentage: number scene -> scene" 0 0 4 29 1 #"\n" 0 0 17 3 62 #";; produces a scene containing the fuel percentage at the top." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 21 #"place-fuel-percentage" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-image" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"draw-fuel-percentage" 0 0 4 3 1 #" " 0 0 14 3 11 #"fuel-amount" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 20 3 2 #"10" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 14 3 5 #"scene" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 30 #";; select-rocket: num -> Image" 0 0 4 29 1 #"\n" 0 0 17 3 41 #";; produce the Image with orientation ort" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"select-rocket" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 14 #"ROCKET-HEAD-UP" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 9 #"ROCKET-UP" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 17 #"ROCKET-HEAD-RIGHT" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 12 #"ROCKET-RIGHT" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-DOWN" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 11 #"ROCKET-DOWN" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 1 #"=" 0 0 4 3 1 #" " 0 0 14 3 3 #"ort" 0 0 4 3 1 #" " 0 0 14 3 16 #"ROCKET-HEAD-LEFT" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 11 #"ROCKET-LEFT" 0 0 22 3 3 #"]))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 32 #";; get-sun-image: world -> image" 0 0 4 29 1 #"\n" 0 0 17 3 61 #";; Given the world, returns a sun whose color depends on the " 0 0 4 29 1 #"\n" 0 0 17 3 19 #";; game conditions." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"get-sun-image" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 3 #"not" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"game-ends?" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 19 #"planet-constant-img" 0 0 4 3 1 #" " 0 0 14 3 3 #"SUN" 0 0 22 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 23 #"collide-posn-with-body?" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 30 #" " 0 0 22 3 1 #"(" 0 0 14 3 14 #"get-earth-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 30 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"planet-constant-r" 0 0 4 3 1 #" " 0 0 14 3 5 #"EARTH" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 14 3 7 #"SUN-WIN" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 14 3 8 #"SUN-LOSE" 0 0 22 3 3 #"]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 34 #";; place-sun: world scene -> Scene" 0 0 4 29 1 #"\n" 0 0 17 3 61 #";; Produces a scene with the sun in the middle. The sun may " 0 0 4 29 1 #"\n" 0 0 17 3 68 #";; be displayed in different ways, depending on the game conditions." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"place-sun" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-image" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"get-sun-image" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 14 3 5 #"scene" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 70 ( #";; place-planets: (listof num) (listof planet-constant) scene -> Sc" #"ene" ) 0 0 4 29 1 #"\n" 0 0 17 3 97 ( #";; produce a Scene putting all planets (except MOON) indicated by l" #"-theta and l-pc into the scene" ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"place-planets" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"empty?" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"place-planets" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 20 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-image" 0 0 4 29 1 #"\n" 0 0 4 3 21 #" " 0 0 22 3 1 #"(" 0 0 14 3 19 #"planet-constant-img" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 21 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"+" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"sin" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 22 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 3 21 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"-" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 20 3 1 #"2" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"*" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 23 #"planet-constant-orbit-r" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 4 #"l-pc" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 3 #"cos" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 7 #"l-theta" 0 0 22 3 4 #"))))" 0 0 4 29 1 #"\n" 0 0 4 3 21 #" " 0 0 14 3 5 #"scene" 0 0 22 3 5 #"))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 57 #";; place-trail: posn num (listof posn) num scene -> Scene" 0 0 4 29 1 #"\n" 0 0 17 3 105 ( #";; produce a Scene for trail when ROCKET is at rocket-posn. The big" #"ger the factor, the smaller the trail." ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-trail" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 4 3 1 #" " 0 0 14 3 6 #"factor" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 15 3 4 #"cond" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"empty?" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #"]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 2 #"[(" 0 0 14 3 6 #"equal?" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-trail" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"add1" 0 0 4 3 1 #" " 0 0 14 3 6 #"factor" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 2 #")]" 0 0 4 29 1 #"\n" 0 0 4 3 4 #" " 0 0 22 3 1 #"[" 0 0 14 3 4 #"else" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 5 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-trail" 0 0 4 3 1 #" " 0 0 14 3 11 #"rocket-posn" 0 0 4 29 1 #"\n" 0 0 4 3 18 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 18 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"add1" 0 0 4 3 1 #" " 0 0 14 3 6 #"factor" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 18 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-image" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"circle" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"image-width" 0 0 4 3 1 #" " 0 0 14 3 9 #"ROCKET-UP" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 6 #"factor" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 19 3 7 #"\"solid\"" 0 0 4 3 1 #" " 0 0 19 3 7 #"\"green\"" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 31 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 31 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 5 #"first" 0 0 4 3 1 #" " 0 0 14 3 5 #"trail" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 31 #" " 0 0 14 3 5 #"scene" 0 0 22 3 5 #"))]))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 38 #";; place-rocket: rocket scene -> scene" 0 0 4 29 1 #"\n" 0 0 17 3 75 ( #";; consumes a rocket and scene, and produces a scene with the rocke" #"t in it." ) 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"place-rocket" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-image" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"select-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 18 #"rocket-orientation" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"get-posn-x-rocket" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 22 3 1 #"(" 0 0 14 3 17 #"get-posn-y-rocket" 0 0 4 3 1 #" " 0 0 14 3 6 #"rocket" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 14 3 5 #"scene" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 34 #";; place-moon: posn scene -> scene" 0 0 4 29 1 #"\n" 0 0 17 3 40 #";; produces a scene with the moon in it." 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"place-moon" 0 0 4 3 1 #" " 0 0 14 3 8 #"moon-pos" 0 0 4 3 1 #" " 0 0 14 3 5 #"scene" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-image" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 19 #"planet-constant-img" 0 0 4 3 1 #" " 0 0 14 3 4 #"MOON" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-x" 0 0 4 3 1 #" " 0 0 14 3 8 #"moon-pos" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"posn-y" 0 0 4 3 1 #" " 0 0 14 3 8 #"moon-pos" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 15 #" " 0 0 14 3 5 #"scene" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 16 #";; CANVAS: scene" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 14 3 6 #"CANVAS" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-image" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"nw:rectangle" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 19 3 7 #"\"solid\"" 0 0 4 3 1 #" " 0 0 19 3 7 #"\"black\"" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 28 #" " 0 0 20 3 1 #"0" 0 0 4 29 1 #"\n" 0 0 4 3 28 #" " 0 0 20 3 1 #"0" 0 0 4 29 1 #"\n" 0 0 4 3 28 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"empty-scene" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 22 3 3 #")))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 30 #";;; draw-world: world -> Scene" 0 0 4 29 1 #"\n" 0 0 17 3 41 #";;; produce a Scene with ROCKET on CANVAS" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 15 3 6 #"define" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"draw-world" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 2 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"place-rocket" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 16 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"place-trail" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-posn" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 29 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"world-trail" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 29 #" " 0 0 20 3 1 #"3" 0 0 4 29 1 #"\n" 0 0 4 3 29 #" " 0 0 22 3 1 #"(" 0 0 14 3 10 #"place-moon" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"get-moon-posn" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 41 #" " 0 0 22 3 1 #"(" 0 0 14 3 13 #"place-planets" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 20 #"world-l-theta-planet" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 3 1 #" " 0 0 4 29 1 #"\n" 0 0 4 3 56 #" " 0 0 22 3 1 #"(" 0 0 14 3 4 #"rest" 0 0 4 3 1 #" " 0 0 14 3 17 #"L-PLANET-CONSTANT" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 56 #" " 0 0 22 3 1 #"(" 0 0 14 3 21 #"place-fuel-percentage" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 11 #"rocket-fuel" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 12 #"world-rocket" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 22 3 2 #"))" 0 0 4 29 1 #"\n" 0 0 4 3 50 #" " 0 0 4 3 29 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"place-sun" 0 0 4 3 1 #" " 0 0 14 3 5 #"world" 0 0 4 3 1 #" " 0 0 14 3 6 #"CANVAS" 0 0 22 3 7 #")))))))" 0 0 4 29 1 #"\n" 0 0 4 29 1 #"\n" 0 0 17 3 6 #";; RUN" 0 0 4 29 1 #"\n" 0 0 22 3 1 #"(" 0 0 14 3 8 #"big-bang" 0 0 4 3 1 #" " 0 0 14 3 5 #"WIDTH" 0 0 4 3 1 #" " 0 0 14 3 6 #"HEIGHT" 0 0 4 3 1 #" " 0 0 14 3 10 #"INIT-WORLD" 0 0 4 29 1 #"\n" 0 0 4 3 10 #" " 0 0 22 3 1 #"(" 0 0 14 3 6 #"on-key" 0 0 4 3 1 #" " 0 0 14 3 11 #"process-key" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 10 #" " 0 0 22 3 1 #"(" 0 0 14 3 7 #"on-tick" 0 0 4 3 1 #" " 0 0 22 3 1 #"(" 0 0 14 3 1 #"/" 0 0 4 3 1 #" " 0 0 20 3 1 #"1" 0 0 4 3 1 #" " 0 0 20 3 2 #"20" 0 0 22 3 1 #")" 0 0 4 3 1 #" " 0 0 14 3 12 #"update-world" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 10 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"stop-when" 0 0 4 3 1 #" " 0 0 14 3 10 #"game-ends?" 0 0 22 3 1 #")" 0 0 4 29 1 #"\n" 0 0 4 3 10 #" " 0 0 22 3 1 #"(" 0 0 14 3 9 #"on-redraw" 0 0 4 3 1 #" " 0 0 14 3 10 #"draw-world" 0 0 22 3 2 #"))" 0 00000000000