From 9105b92240694bed17a7c30a431687daf69df3ce Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 7 Sep 2010 09:19:23 -0500
Subject: [PATCH] added overlay/pinhole and underlay/pinhole

---
 collects/2htdp/image.rkt                      |   2 +
 collects/2htdp/private/image-more.rkt         |  18 +++++++
 .../teachpack/2htdp/scribblings/image-toc.rkt |  36 ++++++++++++++
 .../teachpack/2htdp/scribblings/image.scrbl   |  45 +++++++++++++++++-
 .../2htdp/scribblings/img/1648582961a.png     | Bin 0 -> 2227 bytes
 .../2htdp/scribblings/img/1847b22ee5c.png     | Bin 0 -> 765 bytes
 .../2htdp/scribblings/img/31011b92fc.png      | Bin 0 -> 5318 bytes
 .../2htdp/scribblings/img/d2d7809e7e.png      | Bin 0 -> 2230 bytes
 8 files changed, 99 insertions(+), 2 deletions(-)
 create mode 100644 collects/teachpack/2htdp/scribblings/img/1648582961a.png
 create mode 100644 collects/teachpack/2htdp/scribblings/img/1847b22ee5c.png
 create mode 100644 collects/teachpack/2htdp/scribblings/img/31011b92fc.png
 create mode 100644 collects/teachpack/2htdp/scribblings/img/d2d7809e7e.png

diff --git a/collects/2htdp/image.rkt b/collects/2htdp/image.rkt
index b25ed2fab7..80502263d2 100644
--- a/collects/2htdp/image.rkt
+++ b/collects/2htdp/image.rkt
@@ -130,6 +130,8 @@ and they all have good sample contracts. (It is amazing what we can do with kids
          center-pinhole
          pinhole-x
          pinhole-y
+         overlay/pinhole
+         underlay/pinhole
          
          make-color
          make-pen pen
diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt
index 37a515c495..8f69ca0f9a 100644
--- a/collects/2htdp/private/image-more.rkt
+++ b/collects/2htdp/private/image-more.rkt
@@ -156,6 +156,22 @@
   (let ([imgs (reverse (list* image image2 image3))])
     (overlay/internal x-place y-place (car imgs) (cdr imgs))))
 
+(define/chk (overlay/pinhole image1 image2 . image3)
+  (overlay/internal 'pinhole 'pinhole 
+                    (maybe-center-pinhole image1)
+                    (map maybe-center-pinhole (cons image2 image3))))
+
+(define/chk (underlay/pinhole image1 image2 . image3)
+  (let ([imgs (map maybe-center-pinhole (reverse (list* image1 image2 image3)))])
+    (overlay/internal 'pinhole 'pinhole
+                      (car imgs)
+                      (cdr imgs))))
+
+(define (maybe-center-pinhole img)
+  (if (send img get-pinhole)
+      img
+      (center-pinhole img)))
+
 (define (overlay/internal x-place y-place fst rst)
   (let loop ([fst fst]
              [rst rst])
@@ -1384,6 +1400,8 @@
          pinhole-y
          clear-pinhole
          center-pinhole
+         overlay/pinhole
+         underlay/pinhole
          
          build-color/make-color
          build-color/color
diff --git a/collects/teachpack/2htdp/scribblings/image-toc.rkt b/collects/teachpack/2htdp/scribblings/image-toc.rkt
index a8da696940..48297d42d6 100644
--- a/collects/teachpack/2htdp/scribblings/image-toc.rkt
+++ b/collects/teachpack/2htdp/scribblings/image-toc.rkt
@@ -36,6 +36,42 @@
        (above r r r r r r))
     'image
     "245380940d6-1.png")
+   (list
+    '(let* ((t (triangle 40 "solid" "orange"))
+            (w (image-width t))
+            (h (image-height t)))
+       (clear-pinhole
+        (overlay/pinhole
+         (put-pinhole (/ w 2) 0 t)
+         (put-pinhole w h t)
+         (put-pinhole 0 h t))))
+    'image
+    "1847b22ee5c.png")
+   (list
+    '(underlay/pinhole
+      (put-pinhole 25 10 (ellipse 100 50 "solid" "red"))
+      (put-pinhole 75 40 (ellipse 100 50 "solid" "blue")))
+    'image
+    "1648582961a.png")
+   (list
+    '(let ((petal (put-pinhole 20 20 (ellipse 100 40 "solid" "purple"))))
+       (clear-pinhole
+        (overlay/pinhole
+         (circle 30 "solid" "yellow")
+         (rotate (* 60 0) petal)
+         (rotate (* 60 1) petal)
+         (rotate (* 60 2) petal)
+         (rotate (* 60 3) petal)
+         (rotate (* 60 4) petal)
+         (rotate (* 60 5) petal))))
+    'image
+    "31011b92fc.png")
+   (list
+    '(overlay/pinhole
+      (put-pinhole 25 10 (ellipse 100 50 "solid" "red"))
+      (put-pinhole 75 40 (ellipse 100 50 "solid" "blue")))
+    'image
+    "d2d7809e7e.png")
    (list '(pinhole-y (center-pinhole (rectangle 10 10 "solid" "red"))) 'val '5)
    (list '(pinhole-x (center-pinhole (rectangle 10 10 "solid" "red"))) 'val '5)
    (list
diff --git a/collects/teachpack/2htdp/scribblings/image.scrbl b/collects/teachpack/2htdp/scribblings/image.scrbl
index 2db75ff2ab..921de46a91 100644
--- a/collects/teachpack/2htdp/scribblings/image.scrbl
+++ b/collects/teachpack/2htdp/scribblings/image.scrbl
@@ -1290,8 +1290,9 @@ in the image. The pinhole can then be used to facilitate overlaying images by
 lining them up on the their pinholes. 
 
 When an image has a pinhole, the pinhole
-is drawn with crosshairs drawn across the image.
-The crosshairs are drawn with a two one pixel wide black lines and two one pixel wide white lines,
+is drawn with crosshairs on the image.
+The crosshairs are drawn with a two one pixel wide black lines (one horizontal and one vertical)
+and two one pixel wide white lines,
 where the black lines is drawn .5 pixels to the left and above the pinhole, and the
 white lines are drawn .5 pixels to the right and below the pinhole. 
 Accordingly, when the pixel is on an integral coordinate, then black and white lines all 
@@ -1325,6 +1326,46 @@ then the scene argument's pinhole is preserved.
   Removes a pinhole from @racket[image] (if the image has a pinhole).                                                  
 }
 
+@defproc[(overlay/pinhole [i1 image?] [i2 image?] [is image?] ...) image?]{
+  
+  Overlays all of the image arguments on their pinholes. If any of the
+  arguments do not have pinholes, then the center of the image is used instead.
+  
+  @image-examples[(overlay/pinhole
+                   (put-pinhole 25 10 (ellipse 100 50 "solid" "red"))
+                   (put-pinhole 75 40 (ellipse 100 50 "solid" "blue")))
+                  (let ([petal (put-pinhole 
+                                20 20
+                                (ellipse 100 40 "solid" "purple"))])
+                    (clear-pinhole
+                     (overlay/pinhole
+                      (circle 30 "solid" "yellow")
+                      (rotate (* 60 0) petal)
+                      (rotate (* 60 1) petal)
+                      (rotate (* 60 2) petal)
+                      (rotate (* 60 3) petal)
+                      (rotate (* 60 4) petal)
+                      (rotate (* 60 5) petal))))]
+}
+
+@defproc[(underlay/pinhole [i1 image?] [i2 image?] [is image?] ...) image?]{
+  
+  Underlays all of the image arguments on their pinholes. If any of the
+  arguments do not have pinholes, then the center of the image is used instead.
+  
+  @image-examples[(underlay/pinhole
+                   (put-pinhole 25 10 (ellipse 100 50 "solid" "red"))
+                   (put-pinhole 75 40 (ellipse 100 50 "solid" "blue")))
+                  (let* ([t (triangle 40 "solid" "orange")]
+                         [w (image-width t)]
+                         [h (image-height t)])
+                    (clear-pinhole
+                     (overlay/pinhole
+                      (put-pinhole (/ w 2) 0 t)
+                      (put-pinhole w h t)
+                      (put-pinhole 0 h t))))]
+}
+
 @section[#:tag "nitty-gritty"]{The nitty gritty of pixels, pens, and lines}
 
 The image library treats coordinates as if they are in the upper-left corner 
diff --git a/collects/teachpack/2htdp/scribblings/img/1648582961a.png b/collects/teachpack/2htdp/scribblings/img/1648582961a.png
new file mode 100644
index 0000000000000000000000000000000000000000..d780f14c6c0978e6efbbfe2e266e0154e69773cc
GIT binary patch
literal 2227
zcmV;k2u$~hP)<h;3K|Lk000e1NJLTq005T&002=40ssI2P)wtT000PjNkl<Zc%1E>
zZ%k9?9>+hPQmays0gJ-M0!2k}5JSjD6&7wZH!g}sqQ2Nh+?+CuzFT%(P-mxLystHJ
z=$vHHOs>f$U`VD3Fd^*47P$fna|Vc;G{&MsiW3!{`=SkQYN4g4eV*gxlP94)ZO{2W
z&nG=_{`?-M2_Xm<0|WH-($hmv4}E>~_djV59xyNf@bDo+LjaMHOrH)A6NAM<T%5PX
z$CH>yN(#xzBquX__IO)7a^%RiZQDZMGs#4RZq@hi)85YI%iebNDtGS&@bRG`ug>v5
z6&J^%MPz2OWC@v>WMnXF){|Fn-MTfY>;^+;i~apHH*@hKO-;16^7yg7tM|FZ=4S8H
zhzPQ>$jjrcx5&*6`PLO-nl5|P%a=KKj+z>N`iU^^p(jAoNJwye^Nk}WhKvl^X+lX*
z-^H#jDl4g~qPJJ4IJz=A%FUb9*W+-IlETJ~y#GE67s`$m3Pj-CyC)7G7CAWr)Ngwo
zj=wFj+eJl%aJwhbZ*>XGqSGlp{Zz!nNOv=Ni=Gx6D@sd+(;1>s4L6#fUs<P<k3J$f
znS%%U<ByQ;9m2t#I~+Jbax&Yt;dIJQ6EqWBbi3KJhXo5bdX(YeFhmL;!^3>>1q&AN
z`RBOZveN{?1Qu&+NlT-w%-EeAAGaHagM|yJtCJmNviP)k_b!_@v1Sc@ec{X_jhi=F
zwTcfu@SZ|47SFfX)<#wqUw<9uF!HIaBrA)K4%s;Z<T)14o@LoGMGpbPKzBEGJJr>)
za|FWE7Qgz6!onB%x1c|`-4qs5St&b*-~7$u>C+S!D|8A?BBP^h*+Ny7>>U2_#A1Ct
zMMaE^NDQMEBO??Q(by<EhaY$?-oDLy?}g(Mgt2(^h@v9;`(@{t2(QJhTVI4z7@^?z
z-zhGZ9bzIh;NnGt{Ye&PzWtV#7TF=jMFT$jOm+(8*}YqKf^pHhy7=J-*(sE#p@Cn2
zl^w!2T5YZD2nM01Ms@<<Xy?z%j$jZjT#%i>H`<LGvLhITo*vl=e4|YrVEBp31Lg0v
z{wY*OOGuC%!62wSP}*y+$&O$UY&O{me50*gDLaBeSg}HO0^ew>SIdrI5Z11hoxnE{
zX=&u=8{_(mM3$Qx=gt2I=v2z3HxWQt+5b^t%H-HTQtExAODUJ`cy2CUw@&&^++n>p
zJfOCoGr_JRB0{|JhWPknQC%(i`*puJ+-uS05{Ze@M_fgVN!;isR?keDCf<Bgl$VRP
zHk~aBAsQNl*(`m~)v`F9;fv&jFkecF*tt`5cIswP2vJofOeX2$u8KtykN?AlFa-^+
zl<Vo5sme;BY0`&YzC{y{zosbMaVJ~K^_<GL>S_@cC4KZ|T8w7k9IK>-wpc_-iRkMK
z%AydWy<OOB(gnz|n9B7lq)X2&tXAQ0h`~XBEKWOg=#b0hdiDrpc$n|Mr?oYN2RUJ(
zF+V@w|8p8yT>2;HEhtmr7ZpW80rThkdObcqe#ed-6U@$V{W>)@3=W1MUsz~tbT}Li
ze=J6GuYlTlTn~AsNw8!ID_3H%_<X~J-`2rFv2UNSTIKI!LbOM<GFZm0`^=P{b-ZS?
ziT3uuelI>tU!N!`5f+R5?&xUI!h`J`?ju2ZO23-bD$bq_%AyCSQ<Rp9SY1zLNU<18
ze<|fo=1R{OSkp9d;zY0(J-FSXqC(j1@;fyNi*{O$vUP}A(vwZHnM~sJX&o$%(b*|>
z?o|Ak#A`8?>wDPOMVj<LIyAFcG&JaDag2@*ao~W+$x-XPkH$z6o0}aMlsNv=x4rtR
zaJh80IL4hjqNYZC@`=dF5fKp*dS~XLotA&`?^;&hC1x*(;4e+7*$NBChF#}58DDyd
zf&vN(0Pf%C>Q!1>z4L2!c5?f+zFPx$ncL}H&7>`pwk7;`F;`~tr~aE!5Kk%B(xrrS
ze$-jB$j&A^`^gfwo1Pwed+F}R>BQyoPI2pUF+9w`0HdQkdgPr|z-s!_Jo3QANHq6m
z@F0$UPm9NuNM8y)$@JRjj$|lwT~M9fyQ!}yq!ypWY9%AXzez5;x>&R*<bjNir<7~{
zd{yrapDN|@lbRaTy~BU1l*>;pTtHomQ>9#f($j;w7FDiLQVORNbuCU22&!6Cxk5=P
z5)x3?;#4V@pV(}uYjLWS%THFUKwXPdrCffpb}i~!^ptW<F+R(eGjAU1S_I0<WG7Ib
z{rf#X6}Gr+8SB=`4xupX*JHPP9x7}RIChN0MA;#fBq@oCim_*ETa1h2)G5qn**O$r
z`gBg6A~tqxf!Y><{CrNH#AK44Lm5maPM#z$@2|_0w+L+9$noQ7Mu-|}OeRj8V8e!|
z78_(}Hf`d&?}&<$okJ?o(NtGcRP^jC2C)dNSwl;U(sKuel+;vy{E=0wp8KM4ECR2;
z&ZSFi-Yh#uc$qehEnB#BiS%?|Z!wfbVD@Z|AE&O4S6-1FB`hQ*QCG*YV?;-f^Dd)V
z^zioEbak<BA6BdEC?UgYrL2r!e(~qRfH5rsRx5k<aP1l;CF2$L84-(x?c2F_ja|E#
zIn$p{7}lbPganQpp|_XP(!U-B8<p5tN=xbO<?!Kvu9F+wqKCP2DKF>74Js<ePAwV?
zyPcy)`RzB#%b7bj&`*c;uHw)V8A)+5#l_x#K!4^8-QBV?O+;!c@4Umi?~;}l)Oz%-
zwo!|Yj=js5i!Z-atdvU=OP7j+2gQ{udUf;#`Yt}p;>G0V^5KUR7Sh~IQxi>1{QR?o
z|B7Zdlbuao9(j4><`NU5@9JM@i(^PA<$9U)bTTu&lWQ(s?B`#blj8-qIA_kBrxyiV
z%4NlD#$+Noni(^mKg+GnMr368ItdfZcQb_{_#YI^<yhKPJkS6D002ovPDHLkV1ntq
BNoD{5

literal 0
HcmV?d00001

diff --git a/collects/teachpack/2htdp/scribblings/img/1847b22ee5c.png b/collects/teachpack/2htdp/scribblings/img/1847b22ee5c.png
new file mode 100644
index 0000000000000000000000000000000000000000..3bfd1c5ea57d51543756a3ccb81d3fd84bca56f3
GIT binary patch
literal 765
zcmeAS@N?(olHy`uVBq!ia0vp^fk5oe!2~2fB-uP?U|>4p>EaktG3V+mdq3$wi6iNp
zLbANEt4bC=l+jQ!KcQ>kctp{{Q{a)1iNetx3sgj1=a_hi^&g73b@f+t{rlga+5UT}
z+^ev;Bz@aDR+H6i-a5typUofdpI!L6%<X(?=W1aFi`~xK^QSF;@lJB<^XU<1Hq1z@
z%d}}+o_*@)Q_21N9zB(0;OqPFmyzB5S@?yx>r+1eJ-YkDtI|915qu9{UVFZ0#=}=E
zsW+{Y<<rY8Y_{!f`nKz<<^6g5EsRrC^Ukk6|L|p4Ro$+-^;}QyFXp(q_M^?;eSO6p
zN>SU7eO{%m@~KKYD!jJ+YqgWo;_X5uS1rFoS*4c!)lN40TecUKlv=)i-+ANSsf(c%
z>)tl6xaW2G?z5ZIX7Ar_RJy%#-aAgt`ux;ae)ke*&71JyOW3A&Dd(W9b#pfFQ$MoV
zckk5o+Ry)Ne6QHQ?!nK)-+Q0W@ts%xu(;K|d~$lUzsHN})l=WS;QRcgrDfT6saJhP
z-=HkM;&0zuj+E4Ixhnf?kM;id6(!a4%3qb+^uN3HdEMW**B4`}``&VP7S<b-><;qs
z^7r`iyLriO_9tIjT=v_0?27&Q+j_OSO4wh<f)f6I`@c4|NA_1*Co)tV{qO!~=ff9u
zKNIgtS|q+TVz{wgR4!t7kLk7CR`zRp$-bZGMDFg9J6oLg)~IUB*_m5UOI$KbzxMpC
zBCqY{ec`<sPiKDpTPeKOW^<Y3?2MxJjb)NdzC}RAET2GHQh=oG@d=*a&Q!&jdM-=9
zR(vuyr3xsqZDJWnE!QQGT9GGD&fH3UapEM<_zM#s0LcL1w?J}*;w|Is>4DBKWRKlS
z4H23J;&{fKTNCSMTWATi@GDCtP`8gu1&~|=A$PntxTbfw(K;PO>ObF8H>u-=Zv462
j`SuKk-&HfC9iQ?>GoI#?(<plgOx6sZu6{1-oD!M<?goX*

literal 0
HcmV?d00001

diff --git a/collects/teachpack/2htdp/scribblings/img/31011b92fc.png b/collects/teachpack/2htdp/scribblings/img/31011b92fc.png
new file mode 100644
index 0000000000000000000000000000000000000000..4c9d82734c2260560f92b48d95748fb4c01c5e80
GIT binary patch
literal 5318
zcmV;%6glgOP)<h;3K|Lk000e1NJLTq005x?0052%0ssI2*2(_@000z?Nkl<Zc%1E>
zcYIY<w#V0Lx8~mTN)l2D2_=XSFoe*{08#`*(0M3|fIQS;)c0&7kJ0x~pAI?-IEv4i
z(GjIeL?DC^AYdp`3<L;CNJvPpx8Hl({1FBrq}+1O-q-NHAO7NV?%8XfU)JtxZ9)`9
zz=5?vEdJV2lh3u5@T^g!wS*>w2pmj@45OkaF{(fUi&dUrYZ9*?VCzrwjpsOPqsW;>
zMo0K1P~jPLzl92QFt!>I=rtAv`1xb|&wsWFZ08S<H1rwABrQ_(8B3!z%`HTzI>Z%!
z?YNQ03S8%pkPHl7r5e0aNswr50|4|Ii#!}!ZmG=aLf$(G8cd}=uZkS!y-HW*a_83D
znhJSm9*&yCjN7OoD7lU52x^T_y=g1jY<KA=5t;PJKdN=nI9#A>j1@w`Yu4)gE<Cpj
z1}s$$dqpLaNnL?d<NDM5-uWgsen_c^)K$uX%arJy;BG_?E_`A?|B;=yx%26!ZTATt
zinJO?HQv9_TwCDUAO7uxrqP)ns5N0Y9ok$i9DUwecgp=*gpZ;pf2ozwq#i-{y;_TT
zPXq>lx|7`QX{M@Nk6z*ll?U0Z875Bz27sDlTw94Cl}XNkPUDLG5@=&@5p$QCFKlwH
zN0$H*3OCqums;#C5;S|)_d7M@lnQhj-#8>q#Y6#qdfS%&f|Ykj^1hzo?QnFp<;=S_
zkf>X$%Il39ivqM<k+Oj*-R{U)Y-Y`}4<;N&@xX7*WxJ$QrR9<!)t`$qAkx@WDR35v
zt5sXTWj|`Rx61gn>@8yUqh=2~;JabXqNy5PmyAl|Dp{)3c%I+?h}qg8i_F$~ao;0m
zC)YPz#dN*bY3wk_<!voj`0Phbwq}XnZ)+C!FEq6l%OWrUIE?5TYg8J`S*6yi!hzqK
zB`m_xCT1@(x0T80YHaV*Sde)P++4)xEH-me48a^m@xbHemMe03a66n;*4N(wB8_Ra
z>_s%3<#U%=M9-uVSjby$X*?&dzyQGL&}}s$(wLx8RH^0|cVdl44pQ)%wdOdAbu<#;
ziZvpQ6{!AfuYBn!-00>iSm8$d)o&3ktSI!o&X3h0=&E$)U0cOomzONc_poQ)waH;m
zr=a{Gh&0xQBit+!A^$~d>s1#<#jVBsv6rkU*Pb+?=spOdl2m~Nr9e{@003te4=r<c
zHsvsixldapUxw=jN<}FBdz~KxfIb%K#<<~{kpFupTvLRj&smHWNH_a@<B)EFqbtn6
zKkB{x$^-1h&w3bt6>hRu9YVb!?Vr?3HTFxwa8BpUyWJhAYdp`Ndmr66>lS|fk$wu4
zevCn5frTT_S~^|-V$I@_=PX^FmX(!&-l}o%eH50{#fEaB;18WRYr$()#NBW^1PMX+
z^-_(MeuQrVo@14zI~*O3*Hr9frQP;-9{>InvK66rka|{V8n&ae1+QCgohGoihy|}B
z+!MHy(BY^*0$PoSV~cpOHi#$x>!z+J-mu!5@I-k5K<Eh69|3835t%eWfrnc|Zd104
zjhVrU99+x7(@FyXNke!>uhv-UM+DzT*Pq6AK)T>n8(@mlY$s$mjkq%g#BDVIM2^Q9
zpk}EPEcG}w#uA^0TH~k*-W!C7fXE39`a)4_?AMR-P4KP=L}d6UQHWQn+rdy|?1Kn*
zpuCCL2QfG?;L&&{o~mLe=HAg*A43KX@`5;Gv;?J6xWeS|l$tpIo@=fX@KqU)#<8;*
zTK((G+~YR1mWZ2$t%t&+u|h}0%(#bo<=7bv<Ad#Q8ry6&ae<;_tLz6|6*_}HwnQIS
zq6w{`H5OWJ1^~{g<;+@3eVCyvp{*>DHR<Fwqu)ZDeG@i~L++;n22jlxrC+>O=nQ?v
zWrvN-4}ai@E~c!<=MClYwLgxo{c-e-yh#qDUUGYa22(+)ILDY6a<JW^bcZAV_tNe0
z5n`V)ISKQ>iW<L<Qn_=2hqtLJbEcJSUwGs2L=YuwTE~2(iJ6YGW5TJiz{2)Sqovl<
z!x#j`$IjR>XvO<}NtYxstmR5d;fB@ad*+C|r~apnAm<*|5m*;+acT?z7eBS1{%?;?
z&4s2NANj}Ce*G>>WzsELuA~&a_I~~8k)FI{*ej|5OO;ZY<Q|wcb{NEMql~P{9UB-Q
z<A^mc#XqzK2-&J25+&Ofom{)ly>XdBN6gLFp$u*66wKQL3O$khxI1Icz(Hqc{*Vzr
z_iGsi1^_}#nE%y`tg!(pg>L*h`3VJffdRY50Fd&e($%?R{G4xovu&zRRE10?bwD3e
zI&H_KxLI3W`jtXQq%6VQO1FbwW2GO_f3XX$obu#`jQ5sP3Z!Y+D5Y)mpPo)xveEgU
zBtNcD_~LhB@CJ<mV8ByKM(fn)7`S}>@Yi0Ew|(vkLLC13%LA9Mcjj4zj!1dZE1Vdx
zjJbF_Sn33OtLQL@4uj}u6CFme`UqEZtcP=6NsnzFx%LG-0^dR;j=%iD)o=c-`==sC
z)8QGkLQmZKr}QH<p(KSvcNsMnI51TThHHYMj5m}ErYgZ)BU&2-_fk&w8Iv<%^8$jx
zbg1(-M4rldVr%u$@oxN9=})MGNo_dc6GiI#lKMDGA4mE`lBApyXel-3ZDL~~-&`cL
z6!A?L`PM7ERMAA5u<Dt6Mk@oFq<Njk*qVZ~rXRJ`g-P-@k^%oDDj<dOPoV+_kbwg!
zN+o4S?y1I{RjfP7*PZ0*PI8Us`L3>r@C1SsrfiuWI{ZiJU+n?41sVGnWl6Z?c?(Jb
zfrIJL5mZ<j9WtEqd=u79jm<SeRW4U`kgYk+@iLEalOFwi<eRJIEyFF2|L2E2cFZ0^
zsfh4&Dsns%HGy_JIlF5bJKDtZAK20zj{2W?G}$v$0gbZ{4p;iMpeW2m>@5L1C!Dso
z1fVF4fY4!d+#Dum2IJ}}d}lRoIKvnHpS?1hMV2+XowPOok-Yd5q(!<y(Pt}9z4aE#
z5-9~lPhpauPzF04;M#-6q5u^?uopMm5u~2G8+B0q+@pit+bBc>XH{>{D6};Pp)Wf4
zK5D>HW#6d`^yJmuHSsqNbKgH`I=l)+Zoy7TUb4}f1qJ|GZB2e+6PBVI&hmNBSh5~8
zRUheL_R_f@n<|ClFI#(Dl#msY;^v=7Rs}X-w80sy4WU~fDDr%#*%Kl%=?C6Y`$Tr`
zv3LEi2$%on_-?8RufPBhG3KE63k(42;JS#6LwIedKEmyuYP$S4N2defJ2d7jV%|#2
zi8rh$6OwgB?96SrO>majS@=z5&EknStcO=w?!H;<7maPr;=ToDH!@Ai0wG3Z<l#2L
zSt3T|;WptW<$Kt@51Tt=<-e)1!zgAiGB;hozZ%?*U*hFoMMK?=I;7Sw@d|D$Zqii9
z=PbS>k0c2Iq5yd-EOKXFcL{G>x$KdUVP0f#(*^$UGnQL@GYJ62UpcUkusYxye-*b0
zuHhSBjN61esLtoE{Nv_w73pXbe|p>N=AinxUzx`GxDwnZbmXUXw)PgAyq3ixxb4hU
zbbYVkHo-M?(dD>J=m={P%d=PjAj^O7j)C-@Fd8#%6I_GwG2k|#6Uz6n06=2N8QCL@
z)`;5#*I<0yxw~6#4CMj<khUgo)R@-(+Wc7SjT*O$OQO8kz<K0|ACwjEG`L+{(mOLL
zab~2qxqA+0_Q7pJC;0WF0Dz30>5Zv5Sd%xpMK?Iwd~uu53GFGA$i7n<FKn(2<#D)8
za1BF+*BPt{BcrD<06<bo7_nA`+n$cJl_laf!8HutXYj~3RqgjJkpK`qnMs)ET`hLo
z)&96maE(?kGq~R(Mby7?bKY#F)7Pn^CVEk#o!Wv7+$Ok&R~Z~Nkr}!6mz!#DYD`d&
z`JuY+Z@fijQ&qI7DjK&H&SI>HHCIRCw&Er+)0oT;)x>Q_kA4|#(Q0Ds$C}ht${x@8
zp`rT71l%S#%Z<a6aGL-C00azqUNz<;O^475vg1RmRg?d&^@+ki(k|Wk2yPRcrR=+T
zxJ>|EG&$uT+SKPdanVk+3?D_$+UJw}gp$PCa@YTqX1pGQ(*ox(md7=mNyBIW$w10e
z%9(q8!bWx;{n)v`(i$S|531P*bg?rTEEjJ90EonuFQ39xwhLUwXCy&F+-zpfLEZ3I
zRkWtdF1F`bnAT#xXtSeimjiJW3;-}1^W6MFO8;im1v`zcIcWRnpE-*Lak-Qd;$|yS
zmMGd+E4!y>C-v(`rN6D7cU(W@c@^S*nzd+)K3{>dL{};LY$alWb<yOI->K#u)2FXf
zJ0mc-9Gfaa-D$3DCtI<PbuS%&tI%reto<XArSNeHV@2$DQwn%Hiu?~se<EfY6E|BC
zazEwj#K+C}W08mYGh9^;SDDMUmB_mT9XWpggv|?NEy6txF8Q|V&}3PQ@Jl2k$1_nA
z>EQcl!rf>a335ePYK7VYzU~xPcaoDy@6qd*x|$wKZc2APlD}GpXf^`;63EarI%GH<
zHiB|HuKbQyN}Kb=(Iz%s;G2v1rVD(_CEidjNRmB*(VC|39_Q;dhc(+u`+Yw%Pm-RP
zWI!K72Bc5{1E_!jRNz2L^3;6t=57*sFx?Q0<$|GHFkTldb%Lc<wAKrjI>FTp69FlO
zQ@@$U_~1Y1<uK~^&dY8sc5M@aQi3Lo)P#_la6%nI>Y_+}45^PLwGpJ-jj)qo%ZbXF
zMTfCHMHe^>;-$aZdyJzEPd_s8i+Lo2d=7UT0;|Y*d|S=&%<doSGluTJSgFtv3Oy+F
zghEHq&Lx?X1I&4E+c8xMJI5KFN%R!^;P%n)FC%C?Q5_;jA6@;)wXC^4K1nk0P@Ya3
zfqzLDyd;-m;m39-GkIOhnwz`qE6%F!`BACiESlV9UpXT%00=A;ZbX{Vvm5YhY^oAU
zw!6^$R^?8~e(XDIL#TWv-Ho*&H2cxrRk>4~|H;*F9OfFYIM<9{<H8MgSI6EBXVS8!
zAF2Iuv^*Adq&k0G*7PF{=Z3lTD}jZ=4PN2OnEPXMwXkEX(Y^T<LGc5g{5bX5x8*x<
z&zZGn*S~V<^A)1tjx&%9%*)rSL+<T7^q0PHxIKXudFsMnp4~P1M8)1&(&sc3iSj*j
zc1}E1^w~=H1O@<sh0A}(@5(s+m@|u8(~S;;1O@~oUl{c7|J!%!Zi4i*3ls&iV&BZd
zk6viLG|+Ry6nbL*aUI5q6X4bO(qA1X*GPB26M!zdJZ{#v@egfr=IXAyF<eV1+xc+m
zt_7ybz7krMwnm-oN}_$q!KSgu!}d(0xmuQyr+-pWSo)Fh^uvJz&uhY}yLr-58_`ra
zq~`dTn&X+R#mRCQqw7n~$<<*yYJpMXs$A~ilPH1{8I4&VSE3HCqcvuQz6}5z24Bvi
zwKjwr$`V)$iomLgUugS`!FG=qwt|bdAX<`SE!w6Fsc6dTimO{37&XSzf>`Q=szctG
zzd$A`b69Hwws8+0jZ3z&qIV?{k{5vk1Q!8!1tyKR;oLjILa8h3wbFt?<EBF1JCl&e
zN?VyA$7RpXfI;K3-S<#Wd^^{&@KhYN#-ae_-`}Gemw(TqxrCzws5Ndl!+U<I^{*7u
z4WaQohUOZz##OoZs1vt?rTXYK#yMy5?@#$V7h50`RfjNCAF0OXY5`*gWrBuL@2Jz?
zQOkV}vKyK%@|HT(T@_M|tB>Mz;(^PQfrF@^RBFIe_-?Hgp(Y>oM?k7^-AQat?AMP<
zefDPhq9MOi`Nm`0215T4kXE(+G#)=DC>ZsQn)=rsE~SJ~?`Uwf*mb9RuOC}#1><!*
zv!=l-l|iX@NE$qp8ngmWi*2|jSR0W}lhJA1a28KP9Wv~fR{C~^Jf{jCipQ55&mnbX
zbQ-r@#-Opnml(ai^JbZ#A@c)`t9Ot}Lh~i0?HM|aTd!hhsMG&P?bD~rI{HMCBj3aj
za?x@L>7P47jgilcQ<f-u%qkZ<lR<x=4)Lczq_HRf;sIA^8a?b~r*gdxdsQ7W4Cz4}
zW2Jy{a{`gZwnov(s5ME@gpp%D))3AKM=~&Wg9c@SXMqK46FQL*Rm_ZVuZdO@<2Gv4
zK`soY)WO8KO&SW}WXggt+zpY&==Ku{$aqg3G{ogeQP2=7eVqnbu27UyWJDTsQielx
z$Ius5ZfEa}o6QV;5mCB!Ng{xp1d+zP9YvLr9#eR@dNpW;GU+iS!|dKS<`U#Tlo&gc
z8L>u!$?k|X>X_-WXM<%;z0Qv*nVZ0<iA=_O(rhyj6pa3pCUU&IvniC3jEFRrb;&Ry
zgC4s<LrNzK$-vkR+VD{_%B(<mw-G9hrOqpMi^%cx_)j&Gr`o2JF#c0bpRsbutn}@5
zeyop`rJ$G@%(zWjN+rwpqSeIszi4H;V?);$-If<3jWuDU<jr;B0!8L}={@*%NCw9I
zS(Es%#3OB`AE6HJb$$#0frBOc%Oyy-|7BJBIuxhx2ny2QRu6qqCE@Z&;6SAN*61{j
znjlTzMr(<&8#Du-MtX{4&@;+$8#UeJ^LL3zv{z{%)OZr(xhwefqo(iBwqGNNnCL0Y
zv>jT%L{GmMK|<dtNVmDrY3vh8dbqaGZ=quPF0GRZ_T|7oiJJbMPvQcPy62b~j3im9
zod;<?khW4`_f)5HpLReSL5^6fx^;mdcCKf$C)e2ANR>!3Fl)a~rddXpg`zCXH=Z2+
zx@*gg1Pv)qDQ9Q<c#psU5IvcheZVJWiPFg}>RY7!L5)~oz>?SJ%saNiP4*ra<p~<%
zXDbG;QtG1dC-v+KV})@3Lwnh7N6)D*2pF_nIrJqA*AU~$-BhucJ-OD_)uysGf{dHP
zBtES0W_54JSRoW|aa`NYc9m{S6Go=Jq3SyoPg8^~KbOEk<pH+l7}r)Rux63g5b7Wz
zD3uDipAH&AVa!<OHlhFxXZeORT;n<3+9Yxok<k*q@nrZYI%*Ol;c~jGctsxi|3_B-
Y31XhlG$I>ovj6}907*qoM6N<$f<XREO#lD@

literal 0
HcmV?d00001

diff --git a/collects/teachpack/2htdp/scribblings/img/d2d7809e7e.png b/collects/teachpack/2htdp/scribblings/img/d2d7809e7e.png
new file mode 100644
index 0000000000000000000000000000000000000000..3dfb29abb674c983d5fd6e2b86248c4f42693e95
GIT binary patch
literal 2230
zcmV;n2ub&eP)<h;3K|Lk000e1NJLTq005T&002=40ssI2P)wtT000PmNkl<Zc%1E>
zZA?@59>+hNf~b@SL8Gv_08a5?pqG#g6pWd^a8cxrZ02SgadVDg^zEWyK6DCR-)rK~
zImx1#WXTjX<ZkAI1EMds$VHeix6sCE8?T^4su3Uf-xqD_RN9`lr~RMP+fRN8^gMq5
z=bLkSp1%La2_c9SBO};sSglyC*zF7tKdlE37#RV0_>g<|0FsiJGzlOrjl@JUGTb$N
zI$2rd<dB_Bb~dT0zSel?(4oznH;2Dvl8F!BqVM0Qx0jwCcU`%{ojU={e(#>!PTzB7
zWUycX1qCcwLO}uf`AnVqbnMNWH-pk{Ff?{?c$ls(Iy&g=q`RBPkF{OA*EM!^xj)9o
zQ&>n@8OxVbS{nAX>x4K>j;K97oIOiR3qSot1dq^uP!uvVE#G`&NlPO?U$&ZX64Jgn
zFhFA?O-<Nr8p+X=@o{e4psfvyg`6DLujhjgm_J{(tZ*O#=k8r`@SrFz7NGyyZLvHv
zq@+YNGzh0Nh<59jz+7}V#P;nXEls*N!Mo_H^mI{MD;$n6ZPiGlsN7{84nFyW>}>Y$
z=g&XGdUS{cw{Np=AKBS#-i*T`TTRILchTu&=T7F$<M3g|#v&joa*U1f#TU$*$LF8p
zbjnr}0)AXPbB4S;>gtT$NZ&Y}SS-w+Piw1eDZ%2^#XEP{uz_{!u-hZ4M;bS7ux1S(
ze(1i1WGp6j@$zK~3;Fu%2#b+VV<Uxy^!3Ts5g-$|c=|NUmg)2oFait?Qc^;5vuquK
z@Vtv(eMMzuG=B@K!Re&3lEy~aI#lzFiziP~U9F>AXc8G8XVWH{nq=!x$5R*E+Ni4H
z$rFiU^u?1WR8?{QylfpRaJzWx7Vp0wiANB|;?X0jsu&)Yt-~K~7eD?u8g5~PgX`C+
zu9hvr9}3XXVX#xO2=m={T(}@xgijP;*Dl#AbkB|*vK9D585rQlA7!i1J?-uM_M2=G
z-cin+kuAX>w6w@p;2q_MA7o1~2<OhpR^T1w+BMk{41(1vTY-0!*ae14^t_?eKI@O6
zXOzrL*%Azbo;Q^8$}6%Z7=+wh*$TX)tX?f!f<aidO11*;C~McsmS7MnDr770PJCV-
zD^?ie`Ae8cWh5J04%Qs3S=cie_S9q^q%s0bF+H3-SGy>e*2DvKb^k}fl&Rd$r*|<u
zu3E^IX{d;Dc^<oJ66MmGcwpHw-g=8ur^2@u$z(8GO4o8a%IN$X-SNnda;2whygJt_
z;zL6sD@*#@_!`$@{!_*q*DXiJiIcC!Q;H&9e_hnqi_4d_dc*%|PNThDBqYdhW9T)X
z{{3vTk}Y62hzWxlI;or-v2B~^@7K&lAw*M?Fqz~xEx1bN?iLPS<e4a!-d*%mXi=``
zGgFO?LQ&*5DxjK$<DYE5!vs+-!?@_GV53|UB;T5wMRKzI7OAOB><v^uAko_t26NF>
ziHV}7M%e8kxhRC_?G?GX@|)wM%#7}3$0%ms(;3o5cMHwJViBXGYFvyvaNxku(9nzL
zu47|-|2^H^8lMtt!aT07<!myeey2PSD-3;8BRQG!a^}wUHh%i_>07sM_0v1U@4wU1
z!l?hv6(J_`U^V|*OpnUxE$7c$EEWU1=witdR<9;8(dz_$_tw!-v1gAk`#E$)q6+A7
zT|cNV10PYJtK3}C+Z)*T;)~erqNYY9dOeK@d;OhLe!m5y*+md$vp9V^Bo|#c9HO>X
zq^Cz(|3;1mcmE}-Tm+#g;@GiJU3B4eiiQSJQW7EM|KOX)1bH(e+FS%-GKrHXHE_{G
zf4|taExgwxZ}9I&#0Ncp6uJl^AwjgaYv!VdzCN*UpC~TY_`c5!{%a>Qlto0Riy&Tp
zSqu$n?4pO;w?#{f`1DgzTrA>)--X<Dnu-t?5w$LYsI2sCc8&XFoHmW}a>~mA?%(Ii
z6}r3K{cHC3bL&<Bi&{=c1+gfXcU)1frArBG|EN=^QdC4y(bFMLCsr#q8-s&591IP)
zySN=1Vr-0&5yr=P^vK<-K)q=fv0$@rcI=?7jj+1-B4#uB`RY2k92j6hEXw5%SCnh+
zT)n;<9*c6Rq@@M@zTqE>a;fCpIrQsdEXt)4s}=pasON-|u5dWeuZuAPL9Z_AIiaL0
zGBeSyi?Jw|N^*12uZyuLmr7QxLccD?qFgGes6f9ix}sb$e6w;TufB?YT?FdtWGm1;
zd-uBj>exkBlq-fe-hP{s64$>vb`dyogsd#tB6P{@*)%kGKIz-Vj0{ekAR$4v4xKS+
z5+_dlH3X?|7l9QkIDQ<HNwyB%U@~$1IAvvj9j1F1f%WS-dKAS7Qp1hO#Ia+%^UiaF
z4YFxAY~a)>l9OfYkV;Al&COI*y*S1oE&}V;ap8il`wj{#bLMdIB5T%6IMO&S0<XQs
zrAutwC|gHliHl>?CN5oK;X-ed7|KN;HI<`BX>H}Dmt;$c2(xF?+RBk5q@?(m%4jaS
zc=JsL2H3L)vst#3uwgb+SI4ivs(CPAOcw#OnVmbidX<_QU%@^jl9<SrEnL0IXP+@;
zikdkL>!ORyOb#8wW}~)N`>uc@PkK7Fwb*PNJQ&b(a)Z0*V%99`>$!G~h6c~AMT1dN
z!r{aG@dx$w%$gPG+!1}NIJ_h!QC&@SwfhI?zx|fMLD`!8F=r0%zRP>>k(U?Ja<om`
z=!?F--78m$FTd1R7e0z2mM#_h_lsYC(W;?Qv@gEMqD7RJ^3g|BR?^i)XD6MV{QR?o
zUqwqups0wlGRn#*EhQ~Y+r>w<iykzLa;ap-3>Ge=pupX^=AuO^&o+Z2%3Yi}bLR7d
zLX2{m%_JmXGLe$P<jE8Fa+{k=Qc~m^34Z#!iD3x-2afe039s5>Jpcdz07*qoM6N<$
Ef`Xw_v;Y7A

literal 0
HcmV?d00001