WXME0106 ## wxtextwxtabwxmediawximage$(lib "comment-snip.ss" "framework")+(lib "collapsed-snipclass.ss" "framework")drscheme:sexp-snipdrscheme:syntax-snipclass%drscheme:number,(lib "number-snip.ss" "drscheme" "private")drscheme:bindings-snipclass%$(lib "cache-image-snip.ss" "mrlib")drscheme:lambda-snip%drscheme:define-snip%java-comment-box%java-interactions-box%&(lib "pict-snipclass.ss" "slideshow")"drscheme:vertical-separator-snip%wxbaddrscheme:xml-snip(lib "xml-snipclass.ss" "xml")drscheme:scheme-snip"(lib "scheme-snipclass.ss" "xml")test-case-box% text-box% HTML BulletwxlocLK ZZ StandardK TeletextZZ?\???""Matching Parenthesis Style?\???""????&&(framework:syntax-coloring:scheme:symbol????&&)framework:syntax-coloring:scheme:keyword????&&????t)framework:syntax-coloring:scheme:comment????t????)&(framework:syntax-coloring:scheme:string????)&*framework:syntax-coloring:scheme:constant????)&????<$-framework:syntax-coloring:scheme:parenthesis????<$????'framework:syntax-coloring:scheme:error????????'framework:syntax-coloring:scheme:other????????Qp1drscheme:check-syntax:lexically-bound-identifier????Qp????D*drscheme:check-syntax:imported-identifier????D%profj:syntax-coloring:scheme:keyword????????""$profj:syntax-coloring:scheme:string????""%profj:syntax-coloring:scheme:literal????""%profj:syntax-coloring:scheme:comment????t#profj:syntax-coloring:scheme:error????(profj:syntax-coloring:scheme:identifier????&&%profj:syntax-coloring:scheme:default????F???????XMLF???????G???????????G????G????dK TeletextZZ?????^??????????????? ????????""????""????"" ????""????""???? ????? ???""?""F@\??????F?\??????F?\???F???????F????F?\???22F?]??????F???????F????F?\???F????K????K?\???F?33@\??????K???????????""?\v ;; A Color is a (make-color  red g re en  b l u e )3 ; ;  w h e r e  re d,  g r e e n ,  a n d  b l ue  a  re Numbers3 3 ; ;  E x a m p l e s3 (define3 RED3 (make-color3 2 553 03 0))3 (define3 GREEN3 (make-color3 03 2 5 53 0))3 (define3 BLUE3 (make-color3 03 03 2 5 5))3 (define3 MID3 (make-color3 8 53 8 53 8 5))3 3 # |  T E M P L A T E  ; ;  C o l o r  - >  ? ?  (d e f i n e  ( f  c )   ... (color-red  c )  . ..   .. . (color-green c) .. .   ...  ( c o l o r -  blue c) ... )  | #3 3 ; ; A  L i stOf C o l o r  (LOC) is eit h e r3 ; ; - -  e m p ty3 ; ; ( c o n s  (make-color red gre e  n blue) L OC)3 ; ; w h e r e  r e d  g r e e n  a n d b l ue ar e  N u m b e r s3 3 ; ; E x a m p l e s3 empty3 (cons3 RED3 empty)3 (cons3 RED3 (cons3 BLUE3 empty))3 3 # |  ;; LOC - >  ? ? ?  (define (f loc)   ( c on d   [( em p t y ?  l o c )  ...]   [( co n s ?  lo c )   ... (color-re d  (first loc))   . . .                . .  . (color-gre en  (first loc)) . . .                . . .  (c o lo r- blue (first loc)) ...                 . . .  (f  (r es t  l o c ))  . . . ]))  | #3 3 ; ; F u n ct i o n :3 ; ; 1. Co nv e rt  i n p u t  i m a g e  i n t o  c o l o r l i s t  ( d o n e )  i  mage->col o r -list3 ; ; 2.   Convert t h a t  c o l o r ! list to BW color list (not done)3 ; ; 3 .  Co n v e rt  black and w hi t e  C L  t o  I m a g e  ( D o n e )  c o l or - l is t - > i m a ge3 3 ; ; c o l or - > b w : C O l o r - >  Co lo r3 ; ; conver t c to b y  f l i p p i n g  r e d  a n d  g r e e n3 (define3 (color->change3 c)3 3 ( make-color3 ( color-green c)  ( color-red3 c)3 3 3 3 3 (color-blue3 c)  ))  ; ;  m i d : N u m b er  N u m b e r  N u m b e r  - >  N u m b e r ; ;  a v e ra g e  t he  3  n u m b e r s  a n d  p r o d u c e  a r o u n d e d  i n t e g e r (define (mid a b c)  (round (/ (+ a b c) 5)))  ; ;  E x a mp l e s (= (mid 0 0 0) 0) (= (mid 2 5 5 2 5 5 2 5 5) 2 5 5) (= (mid 1 2 4) 3) 3 3 3 3 ; ; color-list->bw:  L O C  ->  L OC3 ; ; every color is the m ad e f r o m  t h e  r ed  v a l u e s3 (define3 ( color-list->something-different3 loc)3 3 3 (cond3 3 [(empty?3 loc)3 empty]3 3 [(cons?3 loc)3 3 (cons3 (color->change3 (first3 loc))3 3 ( color-list->something-different3 (rest3 loc)))]))3 3  ;; Exampl e s3 3 3 3 ;; image->bw: Image -> Image ; ;  P r o d u c e s  a n  i m a g e  w i t h  r e d  a n d  g r e e n  c o m p o n e n t  s w a p p e d3 (define3 (image->bw3 image)3 3 (color-list->image3 3 (color-list->something-different3 (image->color-list3 image))3 3 (image-width3 image)3 3 (image-height3 image)3 3 (/3 (image-width3 image)3 2)3 3 (/3 (image-height3 image)3 2)))3 3 3 3 3 3 3 3 3 3 3 3 3 ; ; E xa m p l e s3 (image->bw3 3PNG  IHDR<(-VIDATXՙ9r0E8 q8q&Da Z\TT}4~/>~6i{+IwǧPJ弩u>jZ) L*q*S тC?$RJH9gY0[UEA5ͬelf F$!fV?840`a;lQb$rΒq^p*8=Hj_"Y8b X0rXhJƐs0˴o靖 )r%>({iBL``NH!4fWs0mDC XQΙXNÊ. &D{o ̀䌹BΛOcC nLCCjq$=,JupHvvAJ!>i| exޔi$ѢX@O"yzH_b5_PnWm1*d_{yIm["V0O'˫0dž}m z, t3몿S$7D[$HMQa%Bl ufUFT׻1Ԭ XgɴDo3θڌXe* nq%Zb\XiiLGފLX̬5{&x=bڐ7mT^fh z:TUkŶ>n8%w~F;ᆱ&츹_M{muk&8˞e&-]C.GReUF'+qf|_s3Ahu|1_:u0%=7R-0BN ?_I'*/IENDB`)3 3PNG  IHDR<(-=IDATXY{8oA@A@@@@Aa@A 8P@,0XP``0 @ @`@@iU&Hތc 7 t$kene0 r$1,0{H4˳` &l68@)ſ jD1]Ž#X)UfmkPJ!{D)Ūe53h&FHDsdLgEW"2jŃ)WzǙ? j܋ r*D^I=" ѧ33Ɲ@ѧg8Wvї4%g3-_殖(2Ulh(i|KixKRWsRIENDB`