#reader(lib"read.ss""wxme")WXME0109 ## #| This file uses the GRacket editor format. Open this file in DrRacket version 7.9.0.17 or later to read it. Most likely, it was created by saving a program in DrRacket, and it probably contains a program with non-text elements (such as images or comment boxes). http://racket-lang.org/ |# 34 7 #"wxtext\0" 3 1 6 #"wxtab\0" 1 1 8 #"wximage\0" 2 0 8 #"wxmedia\0" 4 1 34 #"(lib \"syntax-browser.ss\" \"mrlib\")\0" 1 0 36 #"(lib \"cache-image-snip.ss\" \"mrlib\")\0" 1 0 68 (0 #"((lib \"image-core.ss\" \"mrlib\") (lib \"image-core-wxme.rkt\" \"mrl" #"ib\"))\x00" ) 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 79 (1 #"((lib \"srcloc-snip.rkt\" \"framework\") (lib \"wxme-srcloc-snip.rkt" #"\" \"framework\"))\x00" ) 1 0 93 (2 #"((lib \"collapsed-snipclass.ss\" \"framework\") (lib \"collapsed-snip" #"class-wxme.ss\" \"framework\"))\x00" ) 0 0 43 #"(lib \"collapsed-snipclass.ss\" \"framework\")\0" 0 0 19 #"drscheme:sexp-snip\0" 0 0 29 #"drscheme:bindings-snipclass%\0" 1 0 101 (3 #"((lib \"ellipsis-snip.rkt\" \"drracket\" \"private\") (lib \"ellipsis" #"-snip-wxme.rkt\" \"drracket\" \"private\"))\x00" ) 2 0 88 (4 #"((lib \"pict-snip.rkt\" \"drracket\" \"private\") (lib \"pict-snip.rk" #"t\" \"drracket\" \"private\"))\x00" ) 0 0 55 #"((lib \"snip.rkt\" \"pict\") (lib \"snip-wxme.rkt\" \"pict\"))\0" 1 0 34 #"(lib \"bullet-snip.rkt\" \"browser\")\0" 0 0 25 #"(lib \"matrix.ss\" \"htdp\")\0" 1 0 22 #"drscheme:lambda-snip%\0" 1 0 29 #"drclickable-string-snipclass\0" 0 0 26 #"drracket:spacer-snipclass\0" 0 0 57 #"(lib \"hrule-snip.rkt\" \"macro-debugger\" \"syntax-browser\")\0" 1 0 26 #"drscheme:pict-value-snip%\0" 0 0 45 #"(lib \"image-snipr.ss\" \"slideshow\" \"private\")\0" 1 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 1 6 #"wxloc\0" 0 0 83 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 9 #"Standard\0" 0 75 7 #"Monaco\0" 0 20 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 93 -1 -1 0 1 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 0 -1 -1 93 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 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 1 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 93 -1 -1 0 1 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 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1 -1 2 27 #"Matching Parenthesis Style\0" 0 -1 1 #"\0" 1.0 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 34 139 34 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 37 #"framework:syntax-color:scheme:symbol\0" 0 -1 1 #"\0" 1 0 -1 92 -1 93 -1 -1 0 1 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 92 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 255 0 0 0 -1 -1 2 38 #"framework:syntax-color:scheme:keyword\0" 0 -1 1 #"\0" 1 0 92 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 255 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 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 93 -1 -1 0 1 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 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 41 128 38 0 0 0 -1 -1 2 35 #"framework:syntax-color:scheme:text\0" 0 -1 1 #"\0" 1 0 -1 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 39 #"framework:syntax-color:scheme:constant\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 132 60 36 0 0 0 -1 -1 2 49 #"framework:syntax-color:scheme:hash-colon-keyword\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 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 92 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 42 #"framework:syntax-color:scheme:parenthesis\0" 0 -1 1 #"\0" 1 0 -1 92 -1 93 -1 -1 0 1 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 92 -1 93 -1 -1 -1 0 1 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 92 -1 93 -1 -1 -1 0 1 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 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 16 #"Misspelled Text\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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 81 112 203 0 0 0 -1 -1 2 38 #"drracket:check-syntax:lexically-bound\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 28 #"drracket:check-syntax:set!d\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 37 #"drracket:check-syntax:unused-require\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 255 0 0 0 0 0 -1 -1 2 36 #"drracket:check-syntax:free-variable\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 31 #"drracket:check-syntax:imported\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 68 0 203 0 0 0 -1 -1 2 47 #"drracket:check-syntax:my-obligation-style-pref\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 178 34 34 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 50 #"drracket:check-syntax:their-obligation-style-pref\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 116 0 0 0 0 -1 -1 2 48 #"drracket:check-syntax:unk-obligation-style-pref\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2 49 #"drracket:check-syntax:both-obligation-style-pref\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 139 142 28 0 0 0 -1 -1 2 26 #"plt:htdp:test-coverage-on\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 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 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 2 27 #"plt:htdp:test-coverage-off\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 4 1 #"\0" 0 70 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0 -1 -1 4 4 #"XML\0" 0 70 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0 -1 -1 2 37 #"plt:module-language:test-coverage-on\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 -1 -1 2 38 #"plt:module-language:test-coverage-off\0" 0 -1 1 #"\0" 1 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 1 0 0 0 0 0 0 255 165 0 0 0 0 -1 -1 0 36 #"mrlib/syntax-browser:subtitle-color\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 36 36 140 255 255 255 -1 -1 0 42 #"mrlib/syntax-browser:focused-syntax-color\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 34 139 34 255 255 255 -1 -1 4 1 #"\0" 0 71 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0 -1 -1 4 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1 -1 4 1 #"\0" 0 71 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 0 255 0 0 0 -1 -1 4 1 #"\0" 0 71 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1 -1 2 1 #"\0" 0 71 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 71 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0 0 0 1.0 1.0 1.0 0 100 0 0 0 0 -1 -1 0 1 #"\0" 0 75 7 #"Monaco\0" 0.0 20 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 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 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 150 0 150 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 93 -1 -1 -1 0 1 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 255 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 93 -1 -1 0 1 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 0 0 175 0 0 0 -1 -1 0 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 36 36 140 255 255 255 -1 -1 0 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 34 139 34 255 255 255 -1 -1 18 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 255 255 -1 -1 26 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 255 255 -1 -1 47 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 255 255 -1 -1 49 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 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 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 255 255 -1 -1 0 1 #"\0" 0 75 7 #"Monaco\0" 0.0 18 90 -1 90 -1 3 -1 0 1 0 1 0 0 0.0 0.0 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 0 -1 -1 -1 -1 -1 -1 0 0 0 0 0 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 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 0.0 0.0 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 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 1.0 1.0 1.0 1.0 1.0 1.0 0 0 0 0 0 0 -1 -1 2 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 1 0 0 0 0 0 0.0 0.0 0.0 1.0 1.0 1.0 65 105 225 0 0 0 -1 -1 16 1 #"\0" 0 -1 1 #"\0" 1.0 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 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 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 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 0 -1 -1 -1 -1 -1 -1 0 0 0 0 1 0 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 0 92 -1 -1 -1 -1 -1 0 0 0 0 0 1 0.0 0.0 0.0 0.0 0.0 0.0 0 0 0 255 255 0 -1 -1 0 1794 0 4 3 85 (5 #";; The first three lines of this file were inserted by DrRacket. They" #" record metadata" ) 0 0 4 29 1 #"\n" 0 0 4 3 85 (6 #";; about the language level of this file in a form that our tools can" #" easily process." ) 0 0 4 29 1 #"\n" 0 0 4 3 249 (7 #"#reader(lib \"htdp-advanced-reader.ss\" \"lang\")((modname sol4) (rea" #"d-case-sensitive #t) (teachpacks ((lib \"valrose.rkt\" \"installed-te" #"achpacks\"))) (htdp-settings #(#t write mixed-fraction #t #t none #f " #"((lib \"valrose.rkt\" \"installed-teachpacks\")) #f)))" ) 0 0 4 29 1 #"\n" 0 0 18 3 8 #";;; sol4" 0 0 18 3 25 #".rkt, PF1, Printemps 2017" 0 0 26 29 1 #"\n" 0 0 18 3 51 #";;; Etudiant Niveau Avanc\303\251 + teachpack valrose.rkt" 0 0 26 29 1 #"\n" 0 0 18 3 3 #";;;" 0 0 26 29 1 #"\n" 0 0 18 3 57 #";;; ENTRAINEZ-VOUS SUR LES ANCIENS CC1 + LA PAGE FLASH..." 0 0 26 29 1 #"\n" 0 0 18 3 76 (8 #";;; Utilisez match-define pour destructurer un monde qui est une stru" #"cture !" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 20 3 67 (9 #"\"****************************** TD4 ******************************\"" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 20 3 67 (10 #"\"-----------------------Exo 2 - Gestion du clavier et de la souris\"" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 15 #"anim-balle_exo2" 0 0 26 3 15 #") " 0 0 18 3 39 #"; exercice 4.8.2 du livre de cours PCPS" 0 0 26 29 1 #"\n" 0 0 26 3 3 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 6 #"TAILLE" 0 0 26 3 1 #" " 0 0 22 3 3 #"100" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 2 #" (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 6 #"TAILLE" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 3 #")) " 0 0 18 3 55 #"; le centre du canvas est le point de coordonnees (C,C)" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 1 #"R" 0 0 26 3 1 #" " 0 0 22 3 2 #"30" 0 0 26 3 12 #") " 0 0 18 3 36 #"; rayon de la trajectoire circulaire" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"FOND" 0 0 26 3 2 #" (" 0 0 14 3 8 #"underlay" 0 0 26 3 2 #" (" 0 0 14 3 9 #"rectangle" 0 0 26 3 1 #" " 0 0 14 3 6 #"TAILLE" 0 0 26 3 1 #" " 0 0 14 3 6 #"TAILLE" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 8 #"\"yellow\"" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 34 #" (" 0 0 14 3 6 #"circle" 0 0 26 3 1 #" " 0 0 14 3 1 #"R" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 7 #"outline" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"black\"" 0 0 26 3 3 #")))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 5 #"RAYON" 0 0 26 3 1 #" " 0 0 22 3 1 #"8" 0 0 26 3 9 #") " 0 0 18 3 19 #"; rayon de la balle" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 5 #"BALLE" 0 0 26 3 2 #" (" 0 0 14 3 6 #"circle" 0 0 26 3 1 #" " 0 0 14 3 5 #"RAYON" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 5 #"\"red\"" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 104 (11 #"; Le Monde est le triplet (t,dt,running?) ou t est l'angle polaire de" #" la balle, dt est la variation de t" ) 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 102 (12 #"; donc indique le sens du mouvement, et le booleen running? indique s" #"i l'animation est encore vivante." ) 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 13 #"define-struct" 0 0 26 3 1 #" " 0 0 14 3 5 #"monde" 0 0 26 3 2 #" (" 0 0 14 3 1 #"t" 0 0 26 3 1 #" " 0 0 14 3 2 #"dt" 0 0 26 3 1 #" " 0 0 14 3 8 #"running?" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 3 2 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 1 #" " 0 0 22 3 6 #"#i0.05" 0 0 26 3 1 #" " 0 0 22 3 2 #"#t" 0 0 26 3 5 #")) " 0 0 18 3 63 #"; position initiale au pole Est du cercle, vers le bas, vivante" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 7 #"suivant" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 6 #") " 0 0 18 3 17 #"; Monde --> Monde" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 12 #"match-define" 0 0 26 3 2 #" (" 0 0 14 3 5 #"monde" 0 0 26 3 1 #" " 0 0 14 3 1 #"t" 0 0 26 3 1 #" " 0 0 14 3 2 #"dt" 0 0 26 3 1 #" " 0 0 14 3 8 #"running?" 0 0 26 3 2 #") " 0 0 14 3 1 #"m" 0 0 26 3 6 #")] " 0 0 18 3 53 #"; <-- apprendre a utiliser match-define (cours p. 18)" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"t" 0 0 26 3 1 #" " 0 0 14 3 2 #"dt" 0 0 26 3 2 #") " 0 0 14 3 2 #"dt" 0 0 26 3 1 #" " 0 0 14 3 8 #"running?" 0 0 26 3 3 #")))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 8 #"dessiner" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 5 #") " 0 0 18 3 17 #"; Monde --> Scene" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 1 #"t" 0 0 26 3 2 #" (" 0 0 14 3 7 #"monde-t" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 3 #"))]" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 1 #" " 0 0 14 3 5 #"BALLE" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 2 #" (" 0 0 14 3 1 #"*" 0 0 26 3 1 #" " 0 0 14 3 1 #"R" 0 0 26 3 2 #" (" 0 0 14 3 3 #"cos" 0 0 26 3 1 #" " 0 0 14 3 1 #"t" 0 0 26 3 5 #"))) (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 3 #" (" 0 0 14 3 1 #"*" 0 0 26 3 1 #" " 0 0 14 3 1 #"R" 0 0 26 3 2 #" (" 0 0 14 3 3 #"sin" 0 0 26 3 1 #" " 0 0 14 3 1 #"t" 0 0 26 3 4 #"))) " 0 0 14 3 4 #"FOND" 0 0 26 3 3 #")))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 7 #"clavier" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 1 #" " 0 0 14 3 3 #"key" 0 0 26 3 2 #") " 0 0 18 3 23 #"; Monde x Key --> Monde" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 2 #"if" 0 0 26 3 2 #" (" 0 0 14 3 5 #"key=?" 0 0 26 3 1 #" " 0 0 14 3 3 #"key" 0 0 26 3 1 #" " 0 0 20 3 3 #"\" \"" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 17 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 2 #" (" 0 0 14 3 7 #"monde-t" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 3 #") (" 0 0 14 3 1 #"-" 0 0 26 3 2 #" (" 0 0 14 3 8 #"monde-dt" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 3 #")) " 0 0 22 3 2 #"#t" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 16 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 6 #"souris" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 3 #"evt" 0 0 26 3 5 #") " 0 0 18 3 43 #"; Monde x int x int x Mouse-event --> Monde" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 2 #"if" 0 0 26 3 2 #" (" 0 0 14 3 7 #"mouse=?" 0 0 26 3 1 #" " 0 0 14 3 3 #"evt" 0 0 26 3 1 #" " 0 0 20 3 13 #"\"button-down\"" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 17 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 2 #" (" 0 0 14 3 7 #"monde-t" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 3 #") (" 0 0 14 3 8 #"monde-dt" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #") " 0 0 22 3 2 #"#f" 0 0 26 3 6 #") " 0 0 18 3 8 #"; stop !" 0 0 26 29 1 #"\n" 0 0 26 3 16 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 6 #"final?" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 7 #") " 0 0 18 3 19 #"; Monde --> boolean" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 3 #"not" 0 0 26 3 2 #" (" 0 0 14 3 14 #"monde-running?" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 5 #")))] " 0 0 26 29 1 #"\n" 0 0 26 3 5 #" (" 0 0 16 3 8 #"big-bang" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-tick" 0 0 26 3 1 #" " 0 0 14 3 7 #"suivant" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-draw" 0 0 26 3 1 #" " 0 0 14 3 8 #"dessiner" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 9 #"stop-when" 0 0 26 3 1 #" " 0 0 14 3 6 #"final?" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 6 #"on-key" 0 0 26 3 1 #" " 0 0 14 3 7 #"clavier" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 8 #"on-mouse" 0 0 26 3 1 #" " 0 0 14 3 6 #"souris" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 4 #"name" 0 0 26 3 1 #" " 0 0 20 3 8 #"\"TP_4.2\"" 0 0 26 3 4 #"))))" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 6 #"printf" 0 0 26 3 1 #" " 0 0 20 3 64 #"\"Barre espace ou click souris DANS le canvas de l'animation !\\n\"" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 4 #"show" 0 0 26 3 2 #" (" 0 0 14 3 15 #"anim-balle_exo2" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 5 #"sleep" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 18 #") " 0 0 18 3 21 #"; attendre 2 secondes" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 20 3 50 #"\"-----------------------Exo 3 - Disque en couleur\"" 0 0 26 29 1 #"\n" 0 0 18 3 91 (13 #"; Une couleur est un point (r,g,b) dans un espace 3D. Chaque composan" #"te varie dans [0,255]." ) 0 0 26 29 1 #"\n" 0 0 18 3 91 (14 #"; Il s'agit de relier le point R(255,0,0) au point V(0,255,0) par un " #"segment. Or un segment" ) 0 0 26 29 1 #"\n" 0 0 18 3 87 (15 #"; n'est autre qu'un ensemble de barycentres de ses extremites. Un poi" #"nt M du segment RV" ) 0 0 26 29 1 #"\n" 0 0 18 3 93 (16 #"; s'ecrira donc M = kR + (255-k)V avec k dans [0,255]. Le Monde sera " #"le parametre k. Pour k=0" ) 0 0 26 29 1 #"\n" 0 0 18 3 93 (17 #"; on est en V et pour k=255 on est en R. Pour k=128 on sera par exemp" #"le au milieu du segment." ) 0 0 26 29 1 #"\n" 0 0 18 3 17 #"; Ok ? On y va..." 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 17 #"disque-en-couleur" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 3 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 3 #"400" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 5 #"RAYON" 0 0 26 3 1 #" " 0 0 22 3 3 #"200" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 6 #"SIZE/2" 0 0 26 3 2 #" (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 3 #")) " 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 69 (18 #"; le Monde est la composante rouge r de la couleur courante du disque" ) 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 7 #") " 0 0 18 3 19 #"; on part du vert !" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"FOND" 0 0 26 3 2 #" (" 0 0 14 3 9 #"rectangle" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 8 #"\"yellow\"" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 8 #"afficher" 0 0 26 3 1 #" " 0 0 14 3 1 #"r" 0 0 26 3 5 #") " 0 0 18 3 17 #"; Monde --> Scene" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 2 #" (" 0 0 14 3 6 #"circle" 0 0 26 3 1 #" " 0 0 14 3 5 #"RAYON" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 2 #" (" 0 0 14 3 10 #"make-color" 0 0 26 3 1 #" " 0 0 14 3 1 #"r" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 1 #" " 0 0 22 3 3 #"255" 0 0 26 3 1 #" " 0 0 14 3 1 #"r" 0 0 26 3 2 #") " 0 0 22 3 1 #"0" 0 0 26 3 3 #")) " 0 0 14 3 6 #"SIZE/2" 0 0 26 3 1 #" " 0 0 14 3 6 #"SIZE/2" 0 0 26 3 1 #" " 0 0 14 3 4 #"FOND" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 7 #"clavier" 0 0 26 3 1 #" " 0 0 14 3 1 #"r" 0 0 26 3 1 #" " 0 0 14 3 3 #"key" 0 0 26 3 2 #") " 0 0 18 3 23 #"; Monde x Key --> Monde" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 4 #"cond" 0 0 26 3 3 #" ((" 0 0 14 3 5 #"key=?" 0 0 26 3 1 #" " 0 0 14 3 3 #"key" 0 0 26 3 1 #" " 0 0 20 3 4 #"\"up\"" 0 0 26 3 3 #") (" 0 0 14 3 3 #"min" 0 0 26 3 1 #" " 0 0 22 3 3 #"255" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"r" 0 0 26 3 1 #" " 0 0 22 3 1 #"3" 0 0 26 3 4 #"))) " 0 0 18 3 28 #"; k+3 pour aller un peu vite" 0 0 26 29 1 #"\n" 0 0 26 3 20 #" ((" 0 0 14 3 5 #"key=?" 0 0 26 3 1 #" " 0 0 14 3 3 #"key" 0 0 26 3 1 #" " 0 0 20 3 6 #"\"down\"" 0 0 26 3 3 #") (" 0 0 14 3 3 #"max" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 1 #" " 0 0 14 3 1 #"r" 0 0 26 3 1 #" " 0 0 22 3 1 #"3" 0 0 26 3 4 #"))) " 0 0 18 3 47 #"; max et min pour bloquer aux bornes de [0,255]" 0 0 26 29 1 #"\n" 0 0 26 3 19 #" (" 0 0 14 3 4 #"else" 0 0 26 3 1 #" " 0 0 14 3 1 #"r" 0 0 26 3 4 #")))]" 0 0 26 29 1 #"\n" 0 0 26 3 5 #" (" 0 0 16 3 8 #"big-bang" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-draw" 0 0 26 3 1 #" " 0 0 14 3 8 #"afficher" 0 0 26 3 4 #") " 0 0 18 3 37 #"; pas de on-tick ==> aucune horloge !" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 6 #"on-key" 0 0 26 3 1 #" " 0 0 14 3 7 #"clavier" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 4 #"name" 0 0 26 3 1 #" " 0 0 20 3 8 #"\"TP_4.3\"" 0 0 26 3 4 #"))))" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 6 #"printf" 0 0 26 3 1 #" " 0 0 20 3 75 (19 #"\"Clavier : fleches UP et DOWN ! <-----------------------------------" #"----\\n\"" ) 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 4 #"show" 0 0 26 3 2 #" (" 0 0 14 3 17 #"disque-en-couleur" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 5 #"sleep" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 18 3 108 (20 #";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" #";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" ) 0 0 26 29 1 #"\n" 0 0 18 3 108 (21 #"; VARIANTE INTERESSANTE : ON PASSE DU BLEU AU ROUGE EN PASSANT AU MIL" #"IEU PAR LE BLANC ! BLEU-BLANC-ROUGE :-)" ) 0 0 26 29 1 #"\n" 0 0 18 3 62 #"; On parcourt donc 2 segments dans l'espace 3D des couleurs..." 0 0 26 29 1 #"\n" 0 0 18 3 108 20 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 20 3 67 (22 #"\"****************************** TP4 ******************************\"" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 20 3 69 (23 #"\"-----------------------Exo 2 - mouvement brownien - version normale" #"\"" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 18 3 79 (24 #"; Particulierement interessant : l'image du Monde est une composante " #"du Monde !" ) 0 0 26 29 1 #"\n" 0 0 18 3 90 (25 #"; Le puriste dira que la separation des pouvoirs dans MVC est un peu " #"chahutee, mais bon..." ) 0 0 26 29 1 #"\n" 0 0 18 3 49 #"; http://fr.wikipedia.org/wiki/Mouvement_brownien" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 8 #"brownien" 0 0 26 3 1 #" " 0 0 14 3 1 #"N" 0 0 26 3 15 #") " 0 0 18 3 34 #"; N pas aleatoires d'une particule" 0 0 26 29 1 #"\n" 0 0 26 3 3 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 3 #"200" 0 0 26 3 8 #") " 0 0 18 3 27 #"; taille de la scene carree" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 5 #"BALLE" 0 0 26 3 2 #" (" 0 0 14 3 6 #"circle" 0 0 26 3 1 #" " 0 0 22 3 1 #"6" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 5 #"\"red\"" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 76 (26 #"; Le monde est le quadruplet (x,y,img,n) ou x,y est la position, img " #"l'image" ) 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 48 #"; deja obtenue et n le nombre de pas deja faits." 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 13 #"define-struct" 0 0 26 3 1 #" " 0 0 14 3 5 #"monde" 0 0 26 3 2 #" (" 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 2 #" (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 3 #") (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 3 #") (" 0 0 14 3 9 #"rectangle" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 8 #"\"yellow\"" 0 0 26 3 2 #") " 0 0 22 3 1 #"0" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 7 #"suivant" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 7 #") " 0 0 18 3 17 #"; Monde --> Monde" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 12 #"match-define" 0 0 26 3 2 #" (" 0 0 14 3 5 #"monde" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 2 #") " 0 0 14 3 1 #"m" 0 0 26 3 7 #") " 0 0 18 3 43 #"; with structs, match-define is your friend" 0 0 26 29 1 #"\n" 0 0 26 3 21 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 2 #" (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 2 #"11" 0 0 26 3 2 #") " 0 0 22 3 1 #"5" 0 0 26 3 8 #"))) " 0 0 18 3 35 #"; position suivante de la particule" 0 0 26 29 1 #"\n" 0 0 26 3 21 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 2 #" (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 2 #"11" 0 0 26 3 2 #") " 0 0 22 3 1 #"5" 0 0 26 3 4 #")))]" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 2 #" (" 0 0 14 3 10 #"scene+line" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"black\"" 0 0 26 3 3 #") (" 0 0 14 3 4 #"add1" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 4 #"))))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 8 #"dessiner" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 6 #") " 0 0 18 3 17 #"; Monde --> Scene" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 12 #"match-define" 0 0 26 3 2 #" (" 0 0 14 3 5 #"monde" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 2 #") " 0 0 14 3 1 #"m" 0 0 26 3 2 #")]" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 2 #" (" 0 0 14 3 4 #"text" 0 0 26 3 2 #" (" 0 0 14 3 14 #"number->string" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 2 #") " 0 0 22 3 2 #"18" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"black\"" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 27 #" " 0 0 22 3 3 #"180" 0 0 26 3 1 #" " 0 0 22 3 2 #"20" 0 0 26 3 2 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 1 #" " 0 0 14 3 5 #"BALLE" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 4 #"))))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 6 #"final?" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 1 #">" 0 0 26 3 2 #" (" 0 0 14 3 7 #"monde-n" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #") " 0 0 14 3 1 #"N" 0 0 26 3 3 #"))]" 0 0 26 29 1 #"\n" 0 0 26 3 5 #" (" 0 0 16 3 8 #"big-bang" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-tick" 0 0 26 3 1 #" " 0 0 14 3 7 #"suivant" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-draw" 0 0 26 3 1 #" " 0 0 14 3 8 #"dessiner" 0 0 26 3 2 #") " 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 9 #"stop-when" 0 0 26 3 1 #" " 0 0 14 3 6 #"final?" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 4 #"name" 0 0 26 3 1 #" " 0 0 20 3 17 #"\"Brownian motion\"" 0 0 26 3 5 #")))) " 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 18 3 71 (27 #"; TODO : Il faudrait empecher la particule de sortir de la fenetre !." #".." ) 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 6 #"printf" 0 0 26 3 1 #" " 0 0 20 3 76 (28 #"\"400 pas de mouvement brownien ! <----------------------------------" #"-----\\n\"" ) 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 4 #"show" 0 0 26 3 2 #" (" 0 0 14 3 8 #"brownien" 0 0 26 3 1 #" " 0 0 22 3 3 #"400" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 5 #"sleep" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 20 3 76 (29 #"\"-----------------------Exo 2 - mouvement brownien - version psycho-" #"moderne\"" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 15 #"crayon-brownien" 0 0 26 3 1 #" " 0 0 14 3 1 #"N" 0 0 26 3 15 #") " 0 0 18 3 58 #"; N mouvements aleatoires d'un gros crayon (avec make-pen)" 0 0 26 29 1 #"\n" 0 0 26 3 3 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 3 #"300" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 6 #"CRAYON" 0 0 26 3 1 #" " 0 2 19 22 1 #"\0" 2 -1.0 -1.0 0.0 0.0 0 4 500 (30 #"\x89PNG\r\n\x1A\n\x00\x00\x00\rIHDR\x00\x00\x00@\x00\x00\x00?\b\x06" #"\x00\x00\x00P\x1D\xCE\xCA\x00\x00\x06JIDATh\x81\xE5\x9AyL\x14W\x1C" #"\xC7\xBF\xE3ovA\x96C\x0E\vH\xD5\x02b]<\xD2Dk,4ik\xC0\xAB\xA5I\x95\x1A" #"EcC\x91&\n\xDAU\xD1\x98\xB4\x15!\xD8zP\x9B\xD6\x1E\xB1R\x8F\xA46rhCc=" #"\xAA\x80\xA1Z\xAC\xA9\xE9\x1F\x96\xB6\x16\x16#TMD[\x0F\xB4*\xEC\xFB" #"\xF5\x0F\x16\xC4evY\xF6\x9C\xC5o\xF2\x92\xCD\xEC\xDB7\xBF\xCFg\xE6" #"\xBDy\x9B\x8C\xC4\xCCx\x9C3\xC8\xDB\x05\xF4'uuua:\x9D\xAE^\x96e\xA3" #"\xAD\x16\xACMmH{\xFE\xDC\xDE}\xBB\xF1b\x9F\x832\xB3O\xB4\x83\a\x0F" #"\x8E\xF3\xF3\xF3;\x1F\x1D\x1D\xCDk\xD7\xAE\xE5\x92\xED?q\xF2\xF0\x16N" #"\xA0\xEB\x1CO\xCD\xFC$\x9D\xE0@Z\xC1DaLDL\xE4\xC7\x11\xB4\xDD\x98\x12" #"+j~\xA8\xE0I\xD6\xC6\xF5:X_\xCD`0\x18\xB4Z\xEDy\x9DNW_PX\xC8mw\xEE" #"\xF0\xFE]\x82\xF5\xA4\xDC\x12\xA8\x95\x03h\xB1Y\x02\xB1\x1F\xCD\xE7D" #"\x12\xC6\xF7\rl\xF09\x01\xB9\xB9\xB9yDd\xF4\xF7\xF7\xE7\x1D%%,\x98Y0" #"\xF3\xEE\x8F\xAC\v\xD0\x93\xE00\xFA\xB0[\x00\x11q4Ur\"\tc\xD1r^\xE93" #"\x02233\xD7\x11\x911((\x88\x7F\x8C\x8E0\x11\xB1LcXO\x82\x13I\x18\x8F\x94\xF1" #"dU\n\xE8\v\xBE\xA7\x84\x8B\xC6\x87\x12^\x99Q\xA8\b\xAF'\xC1c\xA8\x9D" #"\x89\"\x98\x888\x96\xFEd=\t^\x9Da\xDA" ) 500 (31 #"\xA0:\x01\x96\xF0\xF7\x1F(\xC3[J((\xEC\x84\x97e\x99#\xA9T\xB1\xAF\x96" #"\xD2\xCC\x8B\xE1\xB7\xAC'\xC13\x9F\x16GU%\xA0\xBF\xF0]-&d=\x13\x11k4" #"\x1A.-+\xE3\xAF\x8A\x95\xFB\x05\xD0\x12&\"\x0E\xA7OYO\x82'\x06\x89s" #"\xAA\x11\xE0(|\xCF9\xFF\xC9\xB6\xD2\xEE\xE9\xA0$A\xB5\x02\\\x01\x1FI" #"\xA5\xBD\xD6\x84\x92-\xCAS \x8A\x0E\xB0\x9E\x04\xCF\x1A#\x0E{]\x80" #"\xAB\xE0\xAD-\x8C]\x12T\xB9\b\xBA\x1A\xDE\x9A\x84\x1D\x9B\x05\x0F\xA3" #"\xC3\xEAz\f\xBA\v^I\x82I\b\x1E6\xECY\xF3F\xA8\x88\xF5$8m\x9C\xF8\xBEg" #"=\x03\n\xDER\xC2\xC6M\x9B\x98\x888((\xAA{+\xDCp\x9A\x83\xBD\"@\t~\xF9" #"\x1C{\xE0\xD7\xF7\v\xBE\xBBET\xB0F\xA3e\"2VVVN\xF8r#\xCFU\xFA[< \xE1" #"\xA3\xA8\x9C\x89\xB4LD\x9C\x9E\xBEt\x8B\xAD\xDA<\x0E\xDF\xDE!x\xCDB" #"\xF7\xC1?A{\x98Hf\"\xE2P\xDA\xCC\xD3\xE3\xC51\xAF\t\xF0\xF4\x95\xB7" #"\x84O$a,\xCC\xE5<\xAF\b\xE8\t\x7F\xF2\xD4)U\xC2\xBBM\x80k\xE0\xCB\xDC" #"\x0E\xEF\x16\x01\xBE\x04\xEFr\x01\x99\x99\x99\x05\xDE\x82\x0F\xA3-" #"\xFD\x86w\xA9\x00\xCF\xC3\xEFv\x1A\xDEe\x02|\x15\xDE%\x02|\x19\xDEi" #"\x01\xBE\x0E\xEF\x94\x00%\xF8e\xB3}\v\xDEa\x01\x8E\xC3\xE7\xAB\n\xDE!" #"\x01j\x80/r\x11|\xBF\x05\f4\xF8~\t\xE8\x82\x0F\x0E\x0E\x1E0\xF0v\vp" #"\x1E^\xABJx\xBB\x04\xCC\x9F?\xFF\x83\x81\n\xDF\xA7\x00\xEF\xC2\x17" #"\xBB\x1D\xDE\xA6\x80\xC7\x01\xDE\xAA\x00\x83\xC1` \"c@@\x00WUW\xBB" #"\x1D~(\xED\xF2\n\xBCU\x01qqqU\xC3\x87\x86\x9E\xAD\xAE\xA9\x19\xD0\xF0" #"6\xA7\xC0\xDD\xB2\xE2\xF4\xFB\xC6\xFA\x01\r\xCF\xCC\xD6\xDF\x13\x94" #"\xDBn\x0EAm)\"\xFD\x7F\xB7\xF9\x9A\xDDe\x14\xA0\rE\x00\bC\xB1\x17aH" #"\xB7\xEB\x9D\xBFk\xD8\x83\x7F\x90\r\x80\x11\x82" ) 500 (32 #"M\x88\xC2\xCA\xA6\xD7\x16I{\xDE\xD9\x86b\xBB\x06pQ\x94\x05\xFCu6\x02" #"\x00\xC0\x02\xABS\xCB\x90\x9D\xA5,\xC1\x12>\x14s\xEC:\xA9\x12|\xC6" #"\x12\xE9\x8B\xA2\x9D(t\x04\xC2\x99(\nh\xFF\xBB)\x8E\xC1;\x00\x00,\x90" #"\xF3\\o\t\x97\xB1\xDEu\xF09\xD2g\x9E\xBE\xF2]Q\x14\xC0W\x1AF=z@ '\xA9" #"\xBC[B'\xFC\x06\xB8\f\xFEclu\x8A\xC2\x89\xC8J\a\xA5\a\xF7\x02z\xBDB-L" #"\xC8I*Gs\xEB`l\xFBn\x03\x00\t\xE1(\xF1ix@\xE9\x0E\xA8?5\xC2joaB\xD1" #"\xAC\x9B\x985!\x01\xE1\xD8\x89p,\xB4\xEB$j\x85\a\x14\x04t\xB44<\x9C" #"\xFF\n\xD1\x10\xA1|\xD9\xEBX\x935\xD1\xAE\x13\xA8\x19\x1EP\x10\xC0" #"\xAD\x17\x9F\xEA\xEBG\x12\x18\xCB\x92\xCA\x90\x95\xF5\x87\xCD~j\x87\a" #"z\t8!\xA3\xC3\xA4\xB8.\xF4\x8A0\xD9\x94\xF0(\xFCfU\xC2\x03\x16\x02" #"\xEE\x9F1\xD9\xBC\xFD{\xC5,a\xF1\x9B\x8FJ\xE8\r\xBFB\x95\xF0\x80\x85" #"\x00\xF9J\xE3(k\x1D\xADF\x98\x90\x9B\xFCP\x82/\xC1\x03\x16\x8FA\xF1" #"\xEF\xA5(\x87F1K\xB8z3\x06\xC5\xFB\x97\x02`\x04\"_\xF5\xF0@\x8F;\xA0" #"\xEA\x9B])\xE7Z\xAE8&\x00\x00\x84\t\xEF\xA5^\xC0\xCC\xF1\xB1\bD>b\xF0" #"\xAE\xEA\xE1\x01@b\xEE\xDC\xF2,~u\xDA\x8E\x8A\xAA\xDA\xC5\x87Ve`Rl" #"\x8C\xC3\x03\nH\xF8\xBCn\x1E\xFE\e\x9C\xB8J\xED\xF0@\x0F\x01\xB1Qa" #"\xBF\xB6\\\xBB\xF5\x8CNK8\x9C\xB7\xC0)\t\x18D\xD0NK\xD3!z\xE2]\x17" #"\xD5\xE9\xB6\f\x02\x80\xFA\xFA\xFA\xB0\x96k\xB7\x82\x01\xE0\xCE\x03" #"\x13f\x16\xEF\xC5/\x17.94\xA0\x04)[\x12\"\xFB~]]\x8A\v\xEBt[d\x00\xA8" #"\xAD\xF8z.\x80\xB8\xAE\x83]\x12\xEC\xB9\x13$H\xD9\x00\xC0\x81!7\xA4" #"\x98\xF8FMHB#\xC6\x8Emsg\xD1\xAE\x8C\f\x00\xC7\xAA\xAB_\xB2\xFC\xC2" #"\x9A\x84n`" ) 167 (33 #"\xAD\xFF=)&\xBEQ3|x\x13\xE2\x93\xAEz\xACb\x17Gbf\x84\x06\xFA\x9F\xBF}" #"\xAFc\xB4R\a\x9D\x96p(oA\xFE\xE4\xB8\x91\xCDR\xE4\x88fy\xC4\xE8F\x8CM" #"n\xF6t\xA1\xEE\x8A\xFCs\xD5\xE1\xC4\xDB\xF7:\x94\xB6\xBFM#\x87\x0E" #"\xB9\x91\x9A4\xE5\xF4\x9Dq/\x9C\xD0\xCC}\xA3\xD6\xE3\xD5y \xF2\xF1" #"\xCA\xFD\xF5\xE6\xCFMQ!\x01m3\x92\xA7\x9CII\x9D~t\xDE\xB2U\a\x00\bo" #"\x16\xE7\x89H\xEB\xDEZ\xC4\x1A\xAD\x8C\xA9i\xB3\xC7'M{\xF97o\x17\xE4" #"\xE9\xFC\x0F\xC6\xA1\x16\xDBODd&\x00\x00\x00\x00IEND\xAEB`\x82" ) 0 0 26 3 4 #") " 0 0 18 3 65 (34 #"; menu \"Inserer/Ins\xC3\xA9rer une image...\". L'image est transpare" #"nte." ) 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 7 #"xoffset" 0 0 26 3 2 #" (" 0 0 14 3 8 #"quotient" 0 0 26 3 2 #" (" 0 0 14 3 11 #"image-width" 0 0 26 3 1 #" " 0 0 14 3 6 #"CRAYON" 0 0 26 3 2 #") " 0 0 22 3 1 #"2" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 7 #"yoffset" 0 0 26 3 2 #" (" 0 0 14 3 8 #"quotient" 0 0 26 3 2 #" (" 0 0 14 3 12 #"image-height" 0 0 26 3 1 #" " 0 0 14 3 6 #"CRAYON" 0 0 26 3 2 #") " 0 0 22 3 1 #"2" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 10 #"random-pen" 0 0 26 3 3 #") (" 0 0 14 3 8 #"make-pen" 0 0 26 3 2 #" (" 0 0 14 3 10 #"make-color" 0 0 26 3 2 #" (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 3 #"256" 0 0 26 3 3 #") (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 3 #"256" 0 0 26 3 3 #") (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 3 #"256" 0 0 26 3 3 #")) " 0 0 22 3 2 #"12" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"round" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"round" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 93 (35 #"; Le monde est le quadruplet (x,y,img,n) ou n est le nombre de tops d" #"'horloge depuis le debut" ) 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 13 #"define-struct" 0 0 26 3 1 #" " 0 0 14 3 5 #"monde" 0 0 26 3 2 #" (" 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 1 #" " 0 0 14 3 1 #"p" 0 0 26 3 5 #")) " 0 0 18 3 9 #"; p = pen" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 3 2 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 2 #" (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 3 #") (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 3 #") (" 0 0 14 3 9 #"rectangle" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"white\"" 0 0 26 3 2 #") " 0 0 22 3 1 #"1" 0 0 26 3 2 #" (" 0 0 14 3 10 #"random-pen" 0 0 26 3 3 #")))" 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 105 (36 #"; Dans la fonction 'suivant' ci-dessous, je transforme tous les 120 t" #"icks mon image en bitmap avec freeze" ) 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 103 (37 #"; pour accelerer. En effet, une image n'est pas autre chose qu'une su" #"ite de constructions qui ne seront" ) 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 105 (38 #"; transformees en bitmap que le jour ou il faudra l'afficher a l'ecra" #"n ! Si l'image contient des milliers" ) 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 96 (39 #"; de constructions cela serait trop penalisant de l'afficher telle qu" #"elle trop souvent ! Ok ?..." ) 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 7 #"suivant" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 7 #") " 0 0 18 3 17 #"; Monde --> Monde" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 12 #"match-define" 0 0 26 3 2 #" (" 0 0 14 3 5 #"monde" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 1 #" " 0 0 14 3 1 #"p" 0 0 26 3 2 #") " 0 0 14 3 1 #"m" 0 0 26 3 2 #")]" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 2 #"if" 0 0 26 3 2 #" (" 0 0 14 3 1 #"=" 0 0 26 3 2 #" (" 0 0 14 3 6 #"modulo" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 1 #" " 0 0 22 3 2 #"60" 0 0 26 3 2 #") " 0 0 22 3 1 #"0" 0 0 26 3 6 #") " 0 0 18 3 29 #"; tous les 120 tops d'horloge" 0 0 26 29 1 #"\n" 0 0 26 3 19 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 2 #" (" 0 0 14 3 3 #"max" 0 0 26 3 1 #" " 0 0 22 3 1 #"5" 0 0 26 3 2 #" (" 0 0 14 3 3 #"min" 0 0 26 3 1 #" " 0 0 22 3 3 #"295" 0 0 26 3 2 #" (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 3 #"300" 0 0 26 3 20 #")))) " 0 0 18 3 29 #"; pour bloquer entre 5 et 295" 0 0 26 29 1 #"\n" 0 0 26 3 27 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 2 #" (" 0 0 14 3 3 #"max" 0 0 26 3 1 #" " 0 0 22 3 2 #"60" 0 0 26 3 2 #" (" 0 0 14 3 3 #"min" 0 0 26 3 1 #" " 0 0 22 3 3 #"295" 0 0 26 3 2 #" (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 3 #"300" 0 0 26 3 19 #"))))] " 0 0 18 3 30 #"; pour bloquer entre 60 et 295" 0 0 26 29 1 #"\n" 0 0 26 3 21 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 2 #" (" 0 0 14 3 6 #"freeze" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 3 #") (" 0 0 14 3 4 #"add1" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 3 #") (" 0 0 14 3 10 #"random-pen" 0 0 26 3 13 #"))) " 0 0 18 3 30 #"; freeze ! Cf doc de Racket..." 0 0 26 29 1 #"\n" 0 0 26 3 19 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 2 #" (" 0 0 14 3 3 #"max" 0 0 26 3 1 #" " 0 0 22 3 1 #"5" 0 0 26 3 2 #" (" 0 0 14 3 3 #"min" 0 0 26 3 1 #" " 0 0 22 3 3 #"295" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 2 #" (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 2 #"17" 0 0 26 3 2 #") " 0 0 22 3 1 #"8" 0 0 26 3 10 #"))))) " 0 0 18 3 19 #"; position suivante" 0 0 26 29 1 #"\n" 0 0 26 3 27 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 2 #" (" 0 0 14 3 3 #"max" 0 0 26 3 1 #" " 0 0 22 3 2 #"60" 0 0 26 3 2 #" (" 0 0 14 3 3 #"min" 0 0 26 3 1 #" " 0 0 22 3 3 #"295" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 2 #" (" 0 0 14 3 6 #"random" 0 0 26 3 1 #" " 0 0 22 3 2 #"17" 0 0 26 3 2 #") " 0 0 22 3 1 #"8" 0 0 26 3 6 #")))))]" 0 0 26 29 1 #"\n" 0 0 26 3 21 #" (" 0 0 14 3 10 #"make-monde" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 3 #" (" 0 0 14 3 10 #"scene+line" 0 0 26 3 1 #" " 0 0 14 3 3 #"img" 0 0 26 3 1 #" " 0 0 14 3 1 #"x" 0 0 26 3 1 #" " 0 0 14 3 1 #"y" 0 0 26 3 1 #" " 0 0 14 3 2 #"xs" 0 0 26 3 1 #" " 0 0 14 3 2 #"ys" 0 0 26 3 1 #" " 0 0 14 3 1 #"p" 0 0 26 3 3 #") (" 0 0 14 3 4 #"add1" 0 0 26 3 1 #" " 0 0 14 3 1 #"n" 0 0 26 3 2 #") " 0 0 14 3 1 #"p" 0 0 26 3 5 #")))))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 8 #"dessiner" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 6 #") " 0 0 18 3 17 #"; Monde --> Scene" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 1 #" " 0 0 14 3 6 #"CRAYON" 0 0 26 3 2 #" (" 0 0 14 3 1 #"+" 0 0 26 3 2 #" (" 0 0 14 3 7 #"monde-x" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #") " 0 0 14 3 7 #"xoffset" 0 0 26 3 3 #") (" 0 0 14 3 1 #"-" 0 0 26 3 2 #" (" 0 0 14 3 7 #"monde-y" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #") " 0 0 14 3 7 #"yoffset" 0 0 26 3 3 #") (" 0 0 14 3 9 #"monde-img" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 4 #"))) " 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 6 #"final?" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 8 #") " 0 0 18 3 19 #"; Monde --> Boolean" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 1 #">" 0 0 26 3 2 #" (" 0 0 14 3 7 #"monde-n" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #") " 0 0 14 3 1 #"N" 0 0 26 3 3 #")) " 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 12 #"last-picture" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 2 #") " 0 0 18 3 17 #"; Monde --> Scene" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 1 #"p" 0 0 26 3 2 #" (" 0 0 14 3 8 #"make-pen" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"white\"" 0 0 26 3 1 #" " 0 0 22 3 2 #"18" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"round" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"round" 0 0 26 3 3 #"))]" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 2 #" (" 0 0 14 3 9 #"text/font" 0 0 26 3 1 #" " 0 0 20 3 17 #"\"prix : 18000\342\202\254\"" 0 0 26 3 1 #" " 0 0 22 3 2 #"30" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"black\"" 0 0 26 3 1 #" " 0 0 22 3 2 #"#f" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"roman" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 6 #"normal" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 4 #"bold" 0 0 26 3 1 #" " 0 0 22 3 2 #"#t" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 27 #" " 0 0 22 3 3 #"150" 0 0 26 3 1 #" " 0 0 22 3 2 #"23" 0 0 26 3 1 #" " 0 0 26 29 1 #"\n" 0 0 26 3 28 #" (" 0 0 14 3 9 #"monde-img" 0 0 26 3 1 #" " 0 0 14 3 1 #"m" 0 0 26 3 5 #"))))]" 0 0 26 29 1 #"\n" 0 0 26 3 5 #" (" 0 0 16 3 8 #"big-bang" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-tick" 0 0 26 3 1 #" " 0 0 14 3 7 #"suivant" 0 0 26 3 1 #" " 0 0 22 3 4 #"1/60" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-draw" 0 0 26 3 1 #" " 0 0 14 3 8 #"dessiner" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 9 #"stop-when" 0 0 26 3 1 #" " 0 0 14 3 6 #"final?" 0 0 26 3 1 #" " 0 0 14 3 12 #"last-picture" 0 0 26 3 4 #") " 0 0 18 3 47 #"; <--- last-picture, voir la doc du big-bang !!" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 4 #"name" 0 0 26 3 1 #" " 0 0 20 3 21 #"\"MUSEE D'ART MODERNE\"" 0 0 26 3 4 #"))))" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 4 #"show" 0 0 26 3 2 #" (" 0 0 14 3 15 #"crayon-brownien" 0 0 26 3 1 #" " 0 0 22 3 4 #"6000" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 5 #"sleep" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 20 3 90 (40 #"\"-----------------------Exo 3 - horloge analogique avec seulement l'" #"aiguille des secondes\"" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 18 3 96 (41 #";;; Dans la solution ci-dessous, je prends comme monde l'angle de l'a" #"iguille. On aurait pu aussi" ) 0 0 26 29 1 #"\n" 0 0 18 3 94 (42 #";;; envoyer la trigo (cf livre de cours) en prenant comme monde le no" #"mbre de secondes ecoulees" ) 0 0 26 29 1 #"\n" 0 0 18 3 79 (43 #";;; depuis le lancement. En tout cas : animation a 1 parametre, pas d" #"e struct !" ) 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 18 #"horloge-analogique" 0 0 26 3 6 #") " 0 0 18 3 28 #"; qui ne stoppe jamais ! " 0 0 26 29 1 #"\n" 0 0 26 3 3 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 3 #"200" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 2 #" (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 6 #"MONTRE" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 5 #"frame" 0 0 26 3 2 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 3 #" (" 0 0 14 3 8 #"underlay" 0 0 26 3 2 #" (" 0 0 14 3 6 #"circle" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"black\"" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 44 #" (" 0 0 14 3 6 #"circle" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 1 #" " 0 0 22 3 1 #"5" 0 0 26 3 2 #") " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"white\"" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 44 #" (" 0 0 14 3 6 #"circle" 0 0 26 3 1 #" " 0 0 22 3 2 #"10" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 7 #"\"black\"" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 3 33 #" " 0 0 14 3 1 #"C" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 29 1 #"\n" 0 0 26 3 34 #" (" 0 0 14 3 9 #"rectangle" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 14 3 4 #"SIZE" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 20 3 11 #"\"lightgray\"" 0 0 26 3 4 #"))))" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 8 #"AIGUILLE" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 5 #"above" 0 0 26 3 2 #" (" 0 0 14 3 4 #"line" 0 0 26 3 1 #" " 0 0 22 3 1 #"1" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 1 #" " 0 0 22 3 2 #"20" 0 0 26 3 3 #") (" 0 0 14 3 8 #"make-pen" 0 0 26 3 1 #" " 0 0 20 3 5 #"\"red\"" 0 0 26 3 1 #" " 0 0 22 3 1 #"3" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"solid" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"round" 0 0 26 3 1 #" " 0 0 22 3 1 #"'" 0 0 14 3 5 #"round" 0 0 26 3 4 #")) " 0 0 18 3 31 #"; l'aiguille verticale visible," 0 0 26 29 1 #"\n" 0 0 26 3 20 #" (" 0 0 14 3 4 #"line" 0 0 26 3 1 #" " 0 0 22 3 1 #"1" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 1 #" " 0 0 22 3 2 #"20" 0 0 26 3 3 #") (" 0 0 14 3 10 #"make-color" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 23 #")))) " 0 0 18 3 28 #"; et une autre transparente." 0 0 26 29 1 #"\n" 0 0 26 3 10 #" " 0 0 18 3 76 (44 #"; Le Monde est l'angle a de l'aiguille par-rapport a la verticale, en" #" degres" ) 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 3 1 #" " 0 0 22 3 1 #"0" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 2 #"da" 0 0 26 3 2 #" (" 0 0 14 3 1 #"*" 0 0 26 3 2 #" (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 2 #"pi" 0 0 26 3 1 #" " 0 0 22 3 2 #"30" 0 0 26 3 3 #") (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 22 3 3 #"180" 0 0 26 3 1 #" " 0 0 14 3 2 #"pi" 0 0 26 3 11 #"))) " 0 0 18 3 36 #"; 1 seconde de temps <==> da degres " 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 7 #"suivant" 0 0 26 3 1 #" " 0 0 14 3 1 #"a" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 14 3 1 #"-" 0 0 26 3 1 #" " 0 0 14 3 1 #"a" 0 0 26 3 1 #" " 0 0 14 3 2 #"da" 0 0 26 3 24 #")) " 0 0 18 3 45 #"; attention au sens direct en programmation !" 0 0 26 29 1 #"\n" 0 0 26 3 11 #" (" 0 0 16 3 6 #"define" 0 0 26 3 2 #" (" 0 0 14 3 8 #"dessiner" 0 0 26 3 1 #" " 0 0 14 3 1 #"a" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 13 #" (" 0 0 16 3 5 #"local" 0 0 26 3 3 #" [(" 0 0 16 3 6 #"define" 0 0 26 3 1 #" " 0 0 14 3 1 #"t" 0 0 26 3 2 #" (" 0 0 14 3 14 #"inexact->exact" 0 0 26 3 2 #" (" 0 0 14 3 5 #"round" 0 0 26 3 2 #" (" 0 0 14 3 1 #"-" 0 0 26 3 2 #" (" 0 0 14 3 1 #"/" 0 0 26 3 1 #" " 0 0 14 3 1 #"a" 0 0 26 3 1 #" " 0 0 14 3 2 #"da" 0 0 26 3 9 #")))))] " 0 0 18 3 39 #"; le nombre de secondes depuis le debut" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 5 #"above" 0 0 26 3 2 #" (" 0 0 14 3 11 #"place-image" 0 0 26 3 2 #" (" 0 0 14 3 6 #"rotate" 0 0 26 3 1 #" " 0 0 14 3 1 #"a" 0 0 26 3 1 #" " 0 0 14 3 8 #"AIGUILLE" 0 0 26 3 2 #") " 0 0 14 3 1 #"C" 0 0 26 3 1 #" " 0 0 14 3 1 #"C" 0 0 26 3 1 #" " 0 0 14 3 6 #"MONTRE" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 22 #" (" 0 0 14 3 4 #"text" 0 0 26 3 2 #" (" 0 0 14 3 14 #"number->string" 0 0 26 3 1 #" " 0 0 14 3 1 #"t" 0 0 26 3 1 #" " 0 0 22 3 1 #"2" 0 0 26 3 2 #") " 0 0 22 3 2 #"32" 0 0 26 3 1 #" " 0 0 20 3 6 #"\"blue\"" 0 0 26 3 5 #"))))]" 0 0 26 29 1 #"\n" 0 0 26 3 5 #" (" 0 0 16 3 8 #"big-bang" 0 0 26 3 1 #" " 0 0 14 3 4 #"INIT" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-tick" 0 0 26 3 1 #" " 0 0 14 3 7 #"suivant" 0 0 26 3 1 #" " 0 0 22 3 1 #"1" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 7 #"on-draw" 0 0 26 3 1 #" " 0 0 14 3 8 #"dessiner" 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 15 #" (" 0 0 14 3 4 #"name" 0 0 26 3 1 #" " 0 0 20 3 14 #"\"Geek's clock\"" 0 0 26 3 4 #"))))" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 6 #"printf" 0 0 26 3 1 #" " 0 0 20 3 77 (45 #"\"Stoppez l'horloge manuellement ! <---------------------------------" #"------\\n\"" ) 0 0 26 3 1 #")" 0 0 26 29 1 #"\n" 0 0 26 3 1 #"(" 0 0 14 3 4 #"show" 0 0 26 3 2 #" (" 0 0 14 3 18 #"horloge-analogique" 0 0 26 3 2 #"))" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 18 3 57 #";;; VARIANTE : un chronometre avec un bouton START-STOP !" 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0 18 3 91 (46 #";;; N'oubliez pas de faire les animations de la page FLASH (au moins " #"celles qui n'utilisent" ) 0 0 26 29 1 #"\n" 0 0 18 3 35 #";;; pas les listes) avant le cc1..." 0 0 26 29 1 #"\n" 0 0 26 29 1 #"\n" 0 0