From df4ffe3573ca7fbc1b0cb094de8195d2e179726e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 14 Apr 2011 12:20:16 -0600 Subject: [PATCH] fix scriblib/gui-eval and pre-build pictures for Quick --- collects/scribblings/quick/images/exprs.dat | 4 +++- collects/scribblings/quick/images/img0.pdf | Bin 4396 -> 3516 bytes collects/scribblings/quick/images/img1.pdf | Bin 4395 -> 3582 bytes collects/scribblings/quick/images/img2.pdf | Bin 2405 -> 13702 bytes collects/scribblings/quick/images/img2.png | Bin 4870 -> 4855 bytes collects/scribblings/quick/quick.scrbl | 2 ++ collects/scriblib/gui-eval.rkt | 19 +++++++++++++++---- 7 files changed, 20 insertions(+), 5 deletions(-) diff --git a/collects/scribblings/quick/images/exprs.dat b/collects/scribblings/quick/images/exprs.dat index 5df01e094d..0897ea91fd 100644 --- a/collects/scribblings/quick/images/exprs.dat +++ b/collects/scribblings/quick/images/exprs.dat @@ -18,11 +18,13 @@ ((2) 0 () 0 () () (void)) ((2) 0 () 0 () () (c send c f c show c #f)) ((2) 0 () 0 () () (void)) +((2) 0 () 0 () () (c require c slideshow/flash)) +((2) 0 () 0 () () (void)) ((2) 0 () 0 () () (c define c (c add-drawing c p) c (c let c (c (c drawer c (c make-pict-drawer c p))) c (c new c canvas% c (c parent c f) c (c style c (c quote c (c border))) c (c paint-callback c (c lambda c (c self c dc) c (c drawer c dc c 0 c 0))))))) ((2) 0 () 0 () () (void)) ((2) 0 () 0 () () (c add-drawing c (c pict+code c (c circle c 10)))) ((2) 1 (((lib "scribble/core.rkt") . deserialize-info:element-v0)) 0 () () (0 #f (c (u . "#(struct:object:canvas% ...)")))) ((2) 0 () 0 () () (c add-drawing c (c colorize c (c filled-flash c 50 c 30) c "yellow"))) -((2) 1 (((lib "scriblib/private/gui-eval-exn.rkt") . deserialize-info:gui-exn-v0)) 0 () () (0 "reference to undefined identifier: filled-flash")) +((2) 1 (((lib "scribble/core.rkt") . deserialize-info:element-v0)) 0 () () (0 #f (c (u . "#(struct:object:canvas% ...)")))) ((2) 0 () 0 () () (c scale c (c bitmap c (c build-path c (c collection-path c "scribblings/quick") c "art.png")) c 0.5)) ((2) 1 (((lib "scribble/core.rkt") . deserialize-info:image-element-v0)) 0 () () (0 #f (c "[image]") (u . "images/img2") (c ".pdf" c ".png") 1.0)) diff --git a/collects/scribblings/quick/images/img0.pdf b/collects/scribblings/quick/images/img0.pdf index 4d8e7d9496a5af9dade7b93be0d1309fea41eace..afb602a34915d867610c38b7333f22902be414a3 100644 GIT binary patch literal 3516 zcma)93p`ZY8qckBYv#J8Qbdo95}laYGlo$jhGC-8j7KigHnWYDzUl~hU(L{i=A zpqE#QPNz_Ll~;-$2&E^Tj@M0oQc1*Jdoxn{-P``n>^NYxo%hU>F^z7*yfj~2`xi|WqkpC zlPFa$+z#?mIRxXWc}Xj`#Xa6cs3d$OSjRG|#M6rcid-FnefRCvu)1Y*Gj2aUU331d zZFCDue@MUCLi<9CN@N+a-=k)h=RD8%=;P0c_StDM$K+XC^-Bw99=q9{lQq{kZez0W zdU(Touc5}4xgXtA)clT%gLbKP5ZSwksE9XeH~58ljJb(Dfupbq6`RLKl(Bf=5wHo7 z+j8W$Y21G7?uzWk+=xBgP4GckvoYg7Rkp+`xuZ7$Pi5tQy>IBqnjCz zZ3dB?LM13fazywjzOf@BMZr3-LXWf-34VEkPT(Z>w=Q4L{H%v<+bOCyTklI)m!|CT2f$4EpL%> zLpd{?tmW_U`D|tsOe;B`W-Sb;bu!#z6@2xL;nkx1%9k#friUShE5ihC8x7M`e4p$k zDiPCan6bz9brz6bcx%Kq`RC2J|E4Ap?m=2lv5HM!25%oe%=KQjO#Sd3r~cNZOOxWR z&JPOy@S?NmK;|w){qRR8we!S++k^Ax^vx|U;#90@eg1%=Jdo1=OV{QncS)VL4-bES z+M~+xp{#Q0XU3#t=BB4Lyftrm%Rf%Zo?c~NaeTqu>0hoS^*?jklJBg0G_jiG@+R|I z$-?xi((Zn_x$w+C1OB|LTVLIjmU%(_dc4L_Yr8V3lh$Gufn{cGu8}%v{|wn~rJMyp zjbWP2{wi@b8)|0u*qv9(Ou7E~`ik<&Gvh+yEy@XIA?E7uX6`DtjYOur9_l$6L%&{o zrTkvXaK0qA(UMoYOI70^0|wDq<+G+Z_o~v?8+K}`wL|t7<86P{Rj(LSJuodm`Iglh z`fdr+F=@&hDB;$H?-@vtMEU5<)=sERJ-5tpcGU50 zFYW6FdUxlCugcrBP566Hm(H7vK6d5(l%SGg*45Q75BeJ#dJB45+h;_wG=}BNBWoRl zHb=gEt2O*EIeG5ZlLqFN%fH-fJ*D61cJ7mAqRH%)%#Qfw>gMLj>*Cu=2q!PaI1ZlJ zs1~Z7G;I@6|Hzcg4K@i-Oh>!Aymo4ar+Uwth3}sAJ`z{{{&F4E>Z)Qlg$uH6D+y_C7kB&lO`hZB z(_8Ri@I?Ik?!m$uuc{lO*KIbE8Skp=iZ;752aUax^E+?6YRmalaNyI9PL=MH1?#h4 zYfwG*DZB1|LhADj72KA@cGSOZd7RlacY1rh$6kZJ{n>-la!c7mfz{7fl~;M5I7uMg zDw0ihoz|OUwoPYGPsrySYrFWY%9(rY^w+J{3{Z;LyfpX-V{%_hjcw$k_U3aRh*@6O z8auZ5``j{dQM;6X>BJZ2qMQ9CZWcb_re05WZ+PV9etE%Vs$a%B)oPRF#hEX%ID0s` zl}`x^c$)J5miK)@VO_ULn)0E1PFk(oX7TWhq%AW_LPJvXTAnpFz2SNVTp1$wH9=ad zJ)GhpVa)7|zdn&)1<+2$YVD8~Me4bQcqFz_{{7-@Sl=hDoW{nd(^Y=!h-|kjJJj)8 zfMLmXb&oR_P8aG9ER*$?&TYNgm|m>ok=hh-XS+j)?h2{P>#V51pRcs%ouR!<=$d8b zcI+AJ(jn^Ow#YBnZX9}Hdne0WkStrJ{!t4D_nEo^w9|CZc1VG z{oK6&s5?ZW2}a5rZ0e7*);KNETfDDAY4J6=Yu>zvfjTbzbV{Iia^wEuNehLNE5(WP z!Ue-U?=3<#&WI=W3hZ^J=oPS$vEu!0I`PE^V=w2Q>zOk%$&F$wO5R z+^ND?-B6*ToIP~R;^O%{jv6a7f8&K*J0~Ccsagi};Jj7n`=nZXW@YTzg2aOrZI|o) z34Yqqy&3m1N{$_ht>}^!_Qotr_BwSomM}56c*sVhOEID=f(v84PtjIJ+85R*tWg

qb_We zF92jH6wv={KOg)nNz9;0W0AZ+kB7vb@=n*rD~ zC}&8Ii`M3|bH>2G1t5S#*^&tZ0Nh6ZSF36ZhqtYNBXcVK+>0oK>fd5QxM(nFq-KEU6^k40}Sxy?{q1!=>(f86nKKo z6eHS1Ia4E09N*ePC7X=Xl}izD;-&Z>ERJ9+ip38*YizL?)C87?k@JF`PYACIywYTH UL@LK4PKBvt;*upc>zTy=0+TWoY5)KL literal 4396 zcmb^#X;c&E_Pirj8J|xOJz9(PbHTu~VP>+Dm;?zBLxBPSdw|A${0h(iz9X!t z8Wcx(x|g3f@KIvZ&KL<;m#GRpT>N8}ySaT*kQSTzoO(D=J?*PVqZgWduW4TJnfv>0 zl?=YNdia|M6qh!;t(B)PKfc_f^o)4wt>~8ihV+tg4ih z9&OCM7(1m}eTd8zV5ehK?Wbj_gNcocCi+Us53YIK!QSxX+9%PU@`+hDXI|QE{f#th zod&@-#tDq+%wJq2LYyF8kAKu@RuYXQ^dzbzwFW|Nv4c1aUgIJz;0WUpct??D8gLm0 zBB+YASyCtsX@jnfq%4{!l8!^6^8u!D{Y~Gh#_~l!f^v#X`pO$U?M>Q91SO& zuOf7gK}#pv;(!3d{_2;BkQwH^!K??k!z*Z1N&?L!0pmDmXIC^Fx4nGYO@}hNcQJvo z%>ibcq5B+U(CJ8+F)&5q5FFLR9}cSLqIw>x=c9T7su!YqKU6P@?-9k=*;^9hm>xGc zY>yyJWPe}DVYW#fDy;0rlGz!SzZ#jUpi9)bqgG)(3~AWS;KI-NA=6P-tfJ9EcS zB4{Yg6@wYHw;sAd<0Q5!n`?6UwG1z=78z}I~t8! zTW^_F{|K>6J!HAr@vN@>?a(7bZTz;B^kFZCzu?4&oRquGFH`J}-6d3;z&W?H z4<%t4@@3C+p0AaJe7K5L?JW;Ex@zHV*C*Q}sx6nle{(xtW%g;`SD3TjePDq#gP+0Q z^yyJtlI!U{FnM|dISC93j-Hq1zi3`y_^FU_3wU40d8ZD!mZ{^pD!<*LwG}6SJ-%rO zcV7Kaj%Ve;_WVH^`w8J+kyl#UE20&cH4!YA8f0s^tf4%eEtUdueBxRB?q_c^}4!D(e!)lI}4v&70oI4NjZb8 zJb9C7epK8bJ$&3X+cj(-`+6=(9nIXkNH!Jsm>a2&rtcIixl&wvYHZ6_&)$|^pTF?r zSGBd3)X%`9wQPw0_w%{avjYDacIiiYd`Vtugx9E*TlQx*FAr-8e)gGW+li4`D<)-S zJwBN48+5mE{rDA`WurGWeOol^*oVZL>J4VMG3r}Sir0L3cCq5!jT7<1M?6QwEUk~X zHsrfr$X^rXUNraf;hD!0!SI~GpCUh5voOTi|7u$ttt<;NB)5x2RE%%#F z%QNaPoEvsD>i~C0*@k&K>(+Q-SJ?>eqD(Y#_Wl4SIc9+>R zx2|TLR7;5VJFC=BgI-*4@hTd1Ja%cKZUq%A|I+Q>lV^RmG?x7<^?1FzW$t<9`=dvm z-_bDGe{JaP=c0T2m3LQYGBY<1Y1i zn8RugJ*LPTwRcs-w`DaKm77}!?$9@=%iUAIFMHJuErN0tT&= zHHWXnl-58p(J(!oBBRnH)SC1pjY!M#mmv~=0?r~N+fG>7I>!)Z1F!{4Cj_d(6%!Z) zyV!2Bn&9^t*iA;WO>CF493*1+&VW%CaG=mhQdW#I63`ZlG08v!j<3iUXXD&=fR2LS zh*S%e1aMyg3$moNIl*3^|47M%J zOcQpt*)|c%b0}hn=_WJVd>uOZYAhzy5QE~r7}_PM>w9Iem;oc0NU)^PQWjUM;o>|$ z4x5YXcx)Ue6WADh*a4$5&Bw2fD*hdt+fU>yI1@KJ_$1ZJ(hNPsdkjQWl zl4!Bfof8A_^A+MO)M@!^PzXlk)waVhI*pe=9I+D46S}k@IP}Rl7>+?R*&KnIgNeC9 zF^|i}gklVnpf6#(NPy#4N4kGMk5;xH4gREYQ#DVWg=i!6ILr6mqC3QrKk!Hzen;qENPWKxPvd$L=9ooa|6~S?UU{%97q1`=0 zhJe@fygo)fjS{wBDJzv}gZ&yYGcY>)a93G-zpAQz;4I2i3UoMAE8an3rqFPlBj8|M zp`*rF7{-EVuonLU!?N2$*k7)Q-ybHx zUjgIwgW|1%QT{br#^* z9pEk!1mYw-1)nPy@I-u}fX|U*LSZlu5B3v5H}W`s7$%baHAXzM9ouMvq8&lwig;Ya K%PV-M0{I^|pZbIV diff --git a/collects/scribblings/quick/images/img1.pdf b/collects/scribblings/quick/images/img1.pdf index 85664a1388f4a084aeff583366f00ff15f8b5250..3d41a8b56966dfbd971bf221b58c3b5fcb1bef52 100644 GIT binary patch literal 3582 zcma)92Ut^A8484gHpLPAi65C{pNV#1IjLP&06FpDH0RI#Es5K)#@ z%CIOy6s<*uGK(w~2Ovgqq1Lj>cn~Qvl>gofL6AQG-}^wqdGGg~bG~uT`(of~Pc;Ee zi5P?Y?kgi00)PX={s9*R~Xer z=HgeMD=m+wTE2IajoE(lz4ot9e&Qz25mVB3{UOi&>gXv(Wv%MT#60Fc5&!Eqnx{@y z=xxbcuWl*nAg|~MPlWFBez=ooJUZ)srhk}oBTeY&JWL7o%ou3jg=1f+D9BmtvvxS} ztogkio|X70H-J!N6`ifC**0L+TQ7K1_{qj|QE%6}ffQi}Ce%nAhk-<#iOAu&oIm=)$fnDFn|0D*dpVAP%2pCk_F; zVF(9+WHW$(1AI_p3cMt2Ed!8#7%#q~R2(FkvW@ZSQB)ZR6JAux63HaUQtVJAOo4HG zD45TN7>;%bI1v{El8J+)Y)A$mIbuu+!yF!e(S_v6jr>y=B3Wbx`ODFeDRg@zWyl6` zlxYomD8buhX^>V8FT4R86xG04q4ubX8ivyox(uJojs%Gn7c=Yyfemh^hwOG2c9|BI z-dDSN$s%(P%XGsYzSlO>42_*n4`Wm?8THiY(?>dsu`m5~qML;U^Y3@nCxLye*0c07 zi(P~cy<&OhotwQwa%(}_w}F4$HEgPD&d9!`eIrKals&Cd z>ZZ4fu1dGGx7JCYb#%V$pi17dV8tHYS3->w^;_#T`)C(cvd`ZbzOlY)w&sbD7@I0p z%MfercbW&P93xnB-hS#!jUwM@xK?%V{8*7BT4Bp+IH0BT&4|gdoT~5Uxc6%jx0rV7 zEp7*#uf#a6HPo&i)jB>eP_4$!iF{B(bq!m&*aXICq{E_~2UGGDNP z+7Yu(+uAy1b4*)>YUu-1e7ey}r z!Rq9u8$P@e;O)UqC;O5)X}h1)JtXjIR~@IHZ_vD{wrOsbk9MEa@^{bsAB$^$ZP^U8 zdTP+-u;FSuNi+ckCW-s*R_7@L~CdRz)9WAN%y;ClF+vXsd|E{jF)X$qbO7c%B z>MVcLmiM9f_=g`mHF{Hvw_JX!L)d;q&GX<>?4VC5|CS`Wqp9chlkDb2>g`S251R}g zy*xTE|0d&8P~8iwsyjZ3sjAqTQrT?JdHs2od-V_Xg$(D}(_(UJH4o8NZ{DaIs1ojH zv^#+^d+>F=W5nb3R~H5_Ilk8w9lM0w8gq}uSBtJDex$DWeW=3Ah8t$#`}E+}$6nsK z%W??;S(~-$%-5A=zszACV&>OAQ(eZ&!_bw#0RRXX$nNIsIxZ;YnM>$Lr;>FCA~^So2dv)H^AEWU96qXC>ce z1?=!?@^mcAne(S-SmYzsBO?K?Z4@tdj?J>Vyu%#3f5j`i@Wz^>?=o6B3|of%2_sx# zthe)JAm6gY>C!K!!rgoEC3W}n3;xn}iGbqF)V4Y_ouNCq85plRQmwM;y4PwbJBnFROmT=0^Eeih`FC8Ub)LXx|Ni)u#QjU9x5`)Oxf^m-)8~%l@6g?M z@j*UO<%5yMBftIkw{0R9MQYhamHw7vY^%FalprF~9)xI__iIZo2-~)~tBf7H4c4m_ zdvfrkpMJ-hNy-H%~>~WnTT0>R@qWd7VnQQD2z?6yGd4nOlCW zw^=_SGU`#BRL2p!FfPw3w^M_%@lmyg+T~BDZLVA_U@oR-7j3(gPjlnS&o)q~Czn`3 z?~@yxskPDPijz)Ox8*hoRRdNY>(9EERdG5ty1H9d(jT=Z#rN#FXw{j?MN_6^Vl%Qb zxgf%QN?IAGFN7!TAsJiBm&nCZl=={8GfN0lr>DmzS68RC6c%49Mo@%z$4vw*o(wRX zG`CZ-s0m0U0Yq~=Kr%C*U{boACE&AdMLYonjCuSPX>%#~so%tMOB1GCT zCgoWWoHlSuh~QM=PJ#6}+|Gb88);ntGzD>{c))n4TrOFUg#{)I@}w-uPCi>^DwgtA zqcy?0O2wQYHmvXez1wHu2`a@e(hcKhi^76iU(7>eK%<$^o}ZmUq!1SaD^DT@H~9c0 zB9TA@xWEL4w;;k7Ao2hrC59sq;c&mea3EafFE9cDKJwEsyg3=Zd#7VKGZK7SzQ9PN z8NQ$e(vH*ZKnnsK`g9DBC(YP19#5XJXFL%jsHYrK%x<)(L@m>j3`YwMJNcZRY%BVkewn4 z+zdGizS$7qdJJ_xez&r*^x!^CQb!H<^gG$t^rt6B4s(^SYI`(1J|=0Z+O}a@;|8zB z$5pXAN6If1#N8iRv8}4v4=RawcK|7Z;7X3W^gXYGcs$S<8 zR|ejis9UiyF{SQPWWvYacfB^;&2Z~j#`2QOWg}XOJKS389#$h4c#YmuE=)Nk34MI< z)v~o;cGY@_Z)Sa*H2-$QkV&TYb<_M?yQYP%T$R0R$-WNl6Fi(Z=VI&r$y3@M5Bs^r z_FuxHbJ_#mXdlp)(|<9MKjZ}Q`rM;Vw-HDbZXgg9p)=xgs{@Wl!8M12!5pCm0(T@~ zpc7z%h7#%MNxL}>-&7{(lc zvymWh1|01$9i(UofSg*_FeZ~Zm1L}Pii#FOG+lHb8^+9@ zTYt!Z;4OW0UdnMhK|2PCiz!>8dBqlY1qLYAj9I&$|8q94!pZ3xr zwC+7jfNV>k#cu39D~x(Q0Wt=pNIZlg2Jpi{3|z#(LkxVxAV3U4#Ndw@M4CQPw4MDW z(T?eJ17mw6ZYBo%N)FN$WGfrv3t_&H0}FUU4PDy?JIsTSK)aUCTmS?~hucC4qao3G zq`A{~G$n+Dfm|_a11$y<0izHSLlNdU*q;xmfU7}<`}~O+zKnXHuMk`q;|z>9b9Nfm z-Ff;q9w4Z{=Yx7W6^4p9GFfj=GH+7ZJco@snYL+EMf5bPChQf-t*YhRwM#C$jXRPu zO+Ec&-4^w#qKf$Vjps}91fLwPU%zCrcRm$x&qbBLWn`UkYM!qkW_q{}r)}prO41%! zJEZu!Y3qY)mgs+kSf}o{UVZkcvFoj{G1Snojc9vn9>Jz(LypopU(F#1ZP}zSy$ok%)Pkf6l=uVhnk{wUY+;OoH@$wm>lObru>pgemqoO8g*U*Hh;+*?sKC9)c#~)v`HEMVL#r6@HVF>#8 z=$(R7u|Fi-EV&iM8~dStVjj8h_|DHpdmhhK=24Da&;GqGsP*?wWqW3MleTJmS?Pkw zZ>FDI_DpP-W)`<;qr=~v&lRjMbgz=O2w(wa6h%e?UGxVjg|< zddID{WAevW9w>GrCNe_wdAOOS3Es8)Vtj4o7qbf^()9=`4{f*On&c&rL)-&$-C=4taHz* zJ{U9lY;p6e0c*oJf=0?>-xIR`T}d%emibUfI!fzVVqCZ`ZO8pXFUeUl@L^=~Q+-BRiyD z7hG&9IQ3oidxGTB{fm);&2Z~J_?Nr6qwfEZf8r~z2@gvipJ-^s9zD3mKQk}o)|wl$ zc&U+>+%}FyY&g52^aI(=`)S;>5w7+d4~7>u9xtlth- zvS6c5%9_bnp(faNVPU2Su4`90%VXR00*-O!FJ#_ww{^6>@aA-(uqOQ z5z2`)fu+sxqm3_Hvwi(TxHvKSIEc&EV#3uaKLWGQQwDhj5oR#UQ(f;oO7Ka7oW zr@(p=d?V7VWHOBT30Qz7snd(2!D!OW5S*l}M2fPB5hN`w%`c7XXC(~?CK8Ddl!I_M zY=FVGr&}o8!M4~Z0eOrf##y~&7P}v#lb_aVMvSu%%nwC+1oeEcj8+Rw3&s5Mxut$=upN0cOfeRpu3tRx+#9-{wrD_RM z$_j~!fI||kcB*?~fc^c17z=S){t^@d5qYugAdF7qB>+dP0`r7ET>*wZ83)BsU?!U* zP;*c*S19K3*r-s9q7vjeOb~KF8U!Y9Fp2*S(teozNUfwAB!Wzf8%ZmOJIDnd?Bk3w z12mAhEzzj8)4}%bR)XQ=B$Oa@u=@GxC3+9HsZ@XNKeL%mYZ_0iuxeAyU?d4s{LQ3! ziE-9xd)2h1k|w4ubXtTk5wu2j5NZtQsnd$}R?>`vtj29NFfid1NOlCIBugd%mz0q* z5i+Lg0!>u+i^)h=k=TS=3{sYZtt0e!s)=IBVl51|uG{@4qpbUdp+ow3y&yOY2vjwQ z6Vlr=WDxw4o|ng{uTg^bD`ln8ZE#Q{rUyo6AMPn@pBGiNFPKH?N&yb1YsE()rV9A#utK3_c@qAI9RR- zEDMA1uou91gJ2jY94yzL4;I~layi`oFp9*%dO(7IM!-mnF#~MId>DzgTEPlS?+Y*z zX3<+=W_JL)hysq6C^3Ib#0ggLI8KAVoo`3Rq~;dj}N-l`2S2Xd$5!S}383D5!v_bTITH5PA~s|U*G!Hde4Gn&Ya(#z4z?d!&(M#UJD_z3~G!w~3RU&uuBv@6qc>Cx7%tq+^k z!AAUG38r<}vL>Wv*vRN;7s2h_gz?!s*tOlM`gpX5=<$vn$|P5olgf2wKCwaMdLOFN z)Hq>pYHU$GdlV%)hTmk5t@x^Yj+_oVs(QQ*OTIl?kV-ugE!1LUm6>`}2(WAkPXk!i zheOJH!njn*HEP3?0GzXruIZ4LX@qgTz|m_z(36jn0hV9F{Q;J>;R@wFZ@I|J-+v0P z1T@b*;?;31dmqVFj-!uH(PLAOssI_S;V3}Hr*L?=MkE)kyoW#s-V)AK-g83-KKV%P z^n3PEX>|55hh^6RCtNOR=LTFZVMlY*`yNJd)B83ieevk!c*x?>({Z)#gNs$n-3R$N zc&#%*l|gsKt8tZ0y98G*xEPKm-?Y1rVZ+hB-L3EWzEg!AIcO#SeZ@^v?*!Mcez>7Al)1ZvQn@)aSp3c0fw3 zl2h(Lx!|$5G5*V#+sCm`f*z^0af=-YO02bt8Xas0g?JPWOLdQ1Y(omf0;{N3f(@bb z@WOr%M89pAFdOw!uqqS+FYJ+eH*T>BNfJ9>MZFj-3!Qf_?2vL8x7dKhh_zPE6xk)G z2t;#0h24dkWABfXtSf|wIaTV-An2e)ZbA*Qtm7nW3ISq5m3mXF=`cpt;O4V#$u+Ti zV@Qmur`T{s^mzL^`nhXzMeNWR60Pbi7E=*D+CGggJ;i=@NiL4f7~@`5wGfl6h#qQh zLEm#p&X0XH#=W9yEVhq|9%x6|No9|4SU$)JgC!yZ!9eciM|!j^DBb>sg1=+I^h+Q2 zL@ECpR4gC5wKL`d7OMxJ)PfKk@2T$)9inNL*^s7z(5WxlC~A4 z@jGk${{p*$Q}Hzk&Hh&fsu8dPq!1Xvv23Qt-YWSwtO3h0g@+))e}nwlN_AQE5kn~F z@;#g|z5eI|)iA95P%z?eSl&O?#@>QOHWze+!IE%D?qy}Y-&mdoKUDnNgTKKR;Z*Ez zmV)#xAZlgcw*D6a`ExZGIIQ!Kbp;A7|4e-Nso&dreqizl5sm(TBo2QVZ~;*Zw(~sX zyMHFuN={Avp80F3f_dl5^(almmlc;#`^wKU6SfpBt--)1xbKI8tW;x{Kje;`C;h4J@^}Jz^Q+@ zDFcRu_33Gw>-`Ji^~05DYAfm?z_5tEe<6N4k^;$=CGM<3WZXX!=pSw*tnV?la|C$n zUx*)0IRNknOPIWF!K-%5ANtC)F~n*WXd_cdTD7&9dw#BwIG(7t?r?jIsrN8$w(l`Lz4a(3LN< zw`qv^#W_3(q8Yyo<24e2tywe)^cX%Q){W7JMc>h*ulLuO{ma-M*WF3iif?YtQf zZ{}G6&s$4h?(@dF>Mn$WTyM4N=r50|+=;#vb|0UNv?cEL{MiDwrvi6|sJ?{V)~R%V zhnkuTTzp2GmI02w_36n_YTW6vI_$ro?Vh4FI%{qO-fEyV(Q{bW5+m@u2qddDPFNu{ z<7Kh-J$0Nn$p|Nz1gR6OYaigrjVPtR?aUvS4^zwUp`R5(?sW?t&eHpQ50Z1;?sMyn zdVa~XmQ;?jp83*L=d0PKd*3y$Z}zqxoa`yERfjY~LF*M!du(jg0nJd8b*U($V6otb z59$~-cjE|Z=4vtGvy2qG-ULUR>nO|WoBp{k*Upo~aUIV;lB<%QXk*ve9eo|Izb2IBY5JlwYuEC!T-Lr-rKNJx1(Iu$ zU&socy<%bba<)e;9xutKjd?k8H_;2a+{t{hzrEafazmzcEnuh4=XiUgQ?ABS_CSt$ zZ40`;yBq?oIc$(UKAs3MIu?^X-o-$D_E&RH2z0E~nMuKRWK0JvMhKjM(n$m717v!bRmHtJxJmc}u#7oQ0~_J)N|{tk-(3m?b?`-zQ3un&HG z^69FXT7f~%rx-U877<(&gL{Vk`Pql)AAPX!J#n`Ov+${#n1fIIQ#Wx0+c{%J{tA6m zz-E>vccE@923Qt9i-3^e=`ZjUEf2MG#=@OgaM9C`P)X4d3bX&qV1LLz<^CGKCbm~c z6FVn+TwfsfUu=0S{~p-I5(L&zyo+Q0oR0?B2?}!rft^@zy3zQ{JaALP>Fh5to7f)% z`Ma16r@bEo`l+PTS!lvcolmv!(Ds)abS%xV0icke_$lB4*wWm>8G9>ndMgjLfjVm1 zn}D#2`yT`5dx%wsqdgQCC9*g>!hWdquBEe+I@nPjYHJU*!zow%f5eWfqk%?R;G`3W zScGW|?Y)NcFU7vU7Q0k`KH=$0 z#(Vd89mk$A;?JQ8FI~<+TzIy2P!JE`-X;`nq1m3<*%;0>tTnV=y}xeQS=c|^)l*Lg z3KD3fD=hRj34&S6yxEZjwGj=y@oah>t0fZc93lX@pXTzlKr-T(BT402)|{y9;=;BF zeAyra_E@WxuJEn?>%1FR@WZBo{IrdP_TaOnaV768z(Lx9jn*c_kCc>( z^;az$quS31+$Io95bDcjs*p;sl~m5UABfMONL8us=;-L;A}aeaBct5=2z~>EG$7!b zJVkrr!A*BX`^NBXw>C%471JdP2-K1#=H>D8@MNc?+*7{%JzOeCfblF~`X=q@Q;N;c zI-dt^AC0U$ALX_JPX`AFmW!1b85;76PgHvy%(usi*^QQU&@K1Zl9t_8#v_*OqIPl= zun)8>*Be&I38yb(C>G?HK*7#$;9n8G)X~@1rxhd+OK3`J-$ihn|B1h&i0zimXpeEW zat-0q@UXrOebZ|s61nVeDR*q`A|}kxK3eWH;knVCPBum0`I=9E5BNdc!E}7IJo(DR z%0ax^lt54S#rWyK{#?8LrT*LwU5xS_;-|*vf><)TXs8_vXXT=*WE>Gql}C)C zXQ6|66sXOLQ zcT`o~COhb<0fuhdLn5-WY1W*3Ifh3a%*SP(ho3boTnu|4I+5X14xH?a@w|+34ztX0 zMimeh;;dZ5s(m$|-QIfxucUS`ZIY2deZ9xpdJ*BV)MY*kHwPYe9v!P$O9IAnP-Vm2 z_!7K9>eWx)e6+FT@QEHN)7i~6>}-aHyR@8 zM@k~E1mBXQ(RAS^Vm7lId&B1~?e-r?6U?6PzL8 zlQi$iEnAx&!)gR4_W{+n`sGEX_7Rga%r36%&JFXqvaU!+Ga~@bXF{GIE{?sD8XNHb zwp%Ke_cXO{HT$~Ul*3aG$Gu!5$?7GYq^3aRxH9?}pW=EGK{+I@DdfU2Bj$zQ%bB(J z=s}0=b0p4q=lp9qEd1Et-YRsM;~x1^49Cq)6ZWCdsKO;XDJiL}jE=F=Mgt6HJzg$1 zYo74gX%g{)N$>XOJzq->O;=GtY&$F!Wtfl3N{ZMCSC`GhnkcJk{mtOyd?e19hsT)kMCQrI7uSzduc}73`Uj}EgH$ILwDonpn%}c_)@+aFDD#&W+Lh+U5LcH;TIw_I_cgIP5y-q_g}*W@>UXIGroc>*Ck_Jrd~4afVrvktW_JSJpfUn6GpQamQ|Wo%E*)DvQ3C zB+pX&v_x-IlzDW0tFF6(EtES4t$^KgZ0L z>f9s;+E33#n{;{>Ex5|lRv%W>NZVSTtY&(aG0l0*s%K3Iu(!5S-bq^?U+Jx$yn-+? zjH{--)U-Pty}sBF2B^_6La*FV*e$q$)-AEzHgu`=!#v95Sl~R0{KhKgTXK zRqF`0Zw({qMK;VQ0N-I-qtTb+y`JzNL!+TJ^n#PD11E07D@zmP@THY{UlHHV6VKh$ zd1|OwJd+b2%yeVuReMHqtlFD0TG2e0op`|rGJyCZXJM9{)MicN9{J(Eg-@rZk6z?d z(G8#a@gz=HLhvW4rD+RR16vy zbfSQ$p)0MgGkNgUom)N6TR1Knp>0p9My^K%E_m^*AJ+Buak63v)AjkGcy!rd$=Xay zQj<>5GwV+fz1(wTz87!eYs#1f7TRn*0pJY7+S*zG)>JO>hUCSI7v<&U-@bh_HHDVs z`cuelwkQpgV2t8qi|xjBTy?mQhoFQ^TjNUJQ73)H^e57CQ%CZ-WKlBCWkY?D6=dz( zOFJ`(12NR&)$tN&@8hBa+L|&S%lV^vpRvyU3r2^W(_5pLk1B!w(Lk@SP4Ym3eK@Q5 z{=yN@Vo%t2>t2vu$Ln&5gD+e32anQs7ph8EijtQjWL10p^@n{bZn@Gg@)>#l4}J<4E`_~X`4p(%_vUl&(Ka~Bh6ThNM<)Rts|Hq-*p8G~Pvp2~H~C&m z9BOF{xz)-96sBrrYWK03xVn7v=O#I;p-!j^zGXM7{{b*jyQ90*0w8eKNGUc*9%-&S$l`Q(oG7GLC-Q*lx|J!&6>p+@Goj^xNNA zLEX78&tLg8qP`V8j4vm_uBM5$|#>CmKq!BBvCc^u&Qs&0T+2mqN)fvxty`rAOrR|7* z>pc0I7Z-OqhL^8CU0HDWxRupyNI~IuqsTP+bLWfQSFs(jNam^~0^$JI>rd1yZdB?= zZUtUuWVRVBTeSJ2<7U;DxXYdWEkc*_EcUO9zs>hkP2>?8I=s#<(~buW^!1sT)wrxO zux$)dux-%O(~Cd)+}KE?zi0;dFz~j{9N5_J&a>~nG3;^20CRQF31i?;$c37djdYZ=o7*3Jpp(dTgZ>gVRU?Y*L$ZUJh=4H9;Kte_11QYU|QL1GG>%} zV?w9{ds|M(@LnohXa2qmbn|asdgyc@v3cMa(oI|Q z`NDBWkIkn>VjtQZc<~pX6G^UJ-io(dp17AdlBh|NlmybeX;+DGO`C?|{aI968qtgt zRtFvBP76IfJycXwNy*84bhr33Qc`Z(&!lagNF`Wo2T6^Hj>?pk3e2m|tmW;0KZ5xl z&rNi!`^)}2hP!8I z7LB)_+A^}cRh3DY*Egf?OYHR1OiTbgeU#8uu!s8%9=s|pTizGX>*@m=ouy>`Kl7=% z_V)9ywMwQh#{~aC}G)12;eYH8m~Pw=(9UfV9|OO#i8?g=Wm+ptSXG0u1c0Hg12 zC^|=c@-z;pIccF(WIi_2n78U&moeZY#(Y`R^PV-*^kRE6gvNvrO6qwnr-@8ddEMMy z9YuC#yF*Gi9*ogTWtGSjCpp2Zo{=RQ0CSCJL2R>sFk}heuQ@50H%&3FhW?Eg{ z(!qdzfTb?VwP~08bK@c+Q2i4J%i*AtRgu|^Ij9@*Du&j0HLLZ>d^3Tyj;%!WQ13yV z%>}wMHy)f}b9 zO~=KoS8HQ~gP0tPk~kn@2sqrN72*@y()7cE-2EAc60DrRwIQt?78n+0UieD^re`H@ z-MS?#EIjfW8!P2SLY;qKUW)0YfJSI=lU(2jg9E_2VWrZdEzSsCx9 z=6(J8b$53c>(l+8KQ|L>gbV-hTWeXp37OS5b4Ke$9f6vfeht_t%|V+N4G0W`9PD6> zTIrU%Yt_r0iQ;aPX5yVML7*C=EgwF7Wsmsq0oiR)|LN1t>c~Pf4t2T|FRaxsm!jHG zb`}=u6P1ni*w^K#&Ugu@`OmMYO-xMg+_^JoL+s=6K>*T=cj1?PJ#pZ%Ga(QJ3PBXR zML_HK2ZEYufkJFXE~}{WJ4O>-n{>C`Yr4)A;l>)ysfFCFO@0Deotiy)vU`8kkCC zK9ufSTEXE1-2Dl;Ej9Kw)}Jf$tq-bDnG=J$%g3t>T$J~fKdmn{4I;dwOL>;7qYFNL zpUJQ1nbdY&tvWJG&xz$zJpVO2q5MEAa6s2_wWk#jnO1I~ZW(NSl!%B>4{Unh3ejm@w>}_o&r-9B7TIud zFHjuVN8)YC>D3d)z7=xJUiFfrWlg67ToIFGV5%D0Dj$4Exw_wRUv6vthHFkxvl5w| z9Q%p1p}AdOOw_APzmv8uUPQ}?hsz>LJNbA=|B`Lt`5W1hbDPuMT_d^GA4Bd|wZpW= zTSWb1)4awB2lgkkGhZZAg$G{Ia<{_tuD2)JR?=n49IUXmBlJYH zuIBZ?dRIX=M!x4Dtxn98)fx9h+#!6IMQ^r0p~R0F_jX2CuXMoTatpUYv(ko_)NB0S zG@2(cj!Bz7J0lV(LjiY7*DjHJJ+SClCG%`-j1ulvBr`hpELllX@)h*sEplDYt}&V2 zx?6R2=xHjHEUR#1!()+$+YdN0MK(6JE>vXZEaxo4Vs5%F1gG((cMoqnqN=649t|w{ z9xn^eKr`>aJn7syx>snHochvjc<)!CufNJJ5E@XqU!f(G^`+>I_Ze9CI|v^ay%Cr+ zQ$5>k?Yh&`62JIYjp|~(S|w*Kd&b(Kwyhc4Qpf5Q!#TX={gI2KSEW38#DZ7P>0A6@ z5qt?msG`I3U}X^Il~Aaa+qa$MYkQa3QD?-wYB?t8?6M)+_?>NsVzw(VMpRA0Pu3g) z(XP-ccPJ6*>XB2^N(sn@A~x%7mWIEs-&m?fqBzUP#Tt4{SD`YcvR8lhR`e<_1_d8|~Z#hjB$J^DD_3 zm*j=<#UzwV=d$&)Q85=}LPo~cr7}@@P^vX+c6r@^n&!2qVILkjx{fTP5u20B<%}*{ z1BBU*V^>xaWfRBg63T~F?KBaMxd?Pu5}J9!W_oztZLB9@WNj8Er)xjYn~;kLJ9txKobXCRTl@*J(2 zUKX|iY2hukGLJ>A^RbzfuoGA`3!>rLw~Ih2K2<#6hz!9ipUaSPQ|<9lAcwHj$?ZU zUu}xAA^>8SSYhNMOuQsx9SK}H;mcFdtK}w+ITIhPJpuz8mZx|WpwhjA^JA~7cn)A* zlV+(yFEUl{>%U6f81T3^fXFsU1{RAO4#XG=FRx4uhR$p?%$A5n@O=^9Td2-{JYFm) zT0edNNyjIT6IkK&D#A$2dWRZ4(EQCrJ^=F#j+Jnn`4XovYp;yq;zA=7o1~2N=-~}X zNhyZTxXi_ErRn|(JCp-*wLQuDC}kiusGdWm$3LOsbwTv$4e=*m>$*j^t(%f_f@@E zST_k8T}R18+=n@Fb{-np4l~GeeVe1AE3Z;!R2FNHSD}~(FXXkW%f!A=e$iyzM~`ZO z513Y6E>n7@+UgKESu-DoWcFDNR{`RKnea0>hqJ=fkz6Vg;a4wR_=ZkG(ay(>lW+7l zw#YwLs-|#+dOdH8%}jbty^t$E$}Bw>sSjQ$R5+5lk+tu|borf;R!qz&Ixu4V-mP1d z4mu%(YF`XKudaBd@UR|eLC;GYPigBYsoY`5P+6W_a9T;rT;WA{?8`(&)4qtQO#U?e zEwdT?F<@AWY?HDyOPs}m2D(y@8gr02G)-!l=oR*ka`$++nv;DsSA?_JF9W7o!Az&L zqcGPx4k*2pp_;E#MyQV(Oc_Wu_}1X=P_kQY!SQgFA%b|J6Ls5q;+)mC;8*z-s{_Uf z;GmZL76UZPb@0YPchfS3_sQ^Xe*Y-g)~n@7YnDw_S2yO|=tIpD7-8u;`%IEv;8m1e zj`k5@O8>~ah?5KktE3S%)8Oc``z0r1tX{jO){2ITrF3(o%9`!0lru&_f(L_C3Hi=M zV{^dZZFGIklCnY(1288*iTI$hyFo@!G8tviksE85&ONvpaXDvVBF6lfNl_Ew(ykrK zgG9Kbq|6w}Snp)*%SKGNaT~cT4DUu-NgYYiscePcPmNjJ?CSdZ-TsqLvXhXrjx~IW zIn#5cA~QF$Q3B>>0e5qAadt*$gq;CChK2L^Ts(M;a;gyCxNBOe?Ig*^TGLYBa9L~L zr6$F4E_X@k{Z*9cu@v3alM*(MyVjXx9w%#uK*V^I464!4j9cROZqhR_#gD#X01yQcX4e`&r zxS*X_fo(I~OTG@@?g4}+tW|fXUkXrqK?F3Wo9i&v6Ai%jI}8t9rr~O%5&{Y`F1a{qx?f|5_VvL|I7G)ppWIpfQd4PnU-*_w45FEn9@MdmN7QLkd}i_ zW0UOw1OSk|-wFx}-oJlu3Ib6w%PJ294J8EvNqz-=m!2>;Y{kiVEXL&9QR-(K(UE_tZ-(KcPPTsEU2Nlr2o#Y*0#O?c3eu*!G+4|4JB7d|8PqsG zx_h@rT?IG8OiU6PV6F(GjUz~qjDH(8mZ^6B_I^G8+d(_h*>?ZfK3IX8iK$~JKnN13 z3^ceKj0;-}lrWUJSy`F@qcZzz?Ck6k5)!<;yw|Uro*W-Jx9gUg&oZFfk{X+K`F;lZ zrX~#{-(z4$y=rnK0|PlgE*>5p4vsFX;*5-pwY4?u!6`WjNuqTlN~YNQ#uo+V8G^r_ z5>7EZ4+fkZZgkdfVH1)0x_Wx_Yy=A(2qo z0uU5rEHiuW;-7z_r4=3-NqhP7+}vDhdOABB8bh|N>77z%0{Ma{A%IDY<0!b_DyG%n<0-dPF9(Q6-E;~j>Jl3Wg zn3$LfA?+~&pvEH0UTnbwNJnSj6*ar}?oEGCJZ z6R>$q4m(GDHn%gJAJ1?Pp5Z%3ASljQe!SMijFs{It;x#BC+jzdWvCxT-qLtd{(=lrQAVIAd`z=Tyi-7)byAU9uWgobmS?!)(c03np zbZMX^o42jcf$fcZMbv9-q9G+MEl%2s?!?OCwqp=IYt zUtaBsVXEffMZD6q3BshNrecrs#RbjG%qBS!yDhNUK?-KsN}m(&E4TT@YKxf7HwS&g zxpb!Q;q?-!sj00DUT=)*^Cg>nN_oMT>bCD?dtbT)U&bz9CcJ0AGAFM?tsT0_p5yB| z1P_VJHqe(kzUCQ6JWH-iRf_z~*vX%&rmXx~_;yz#5|7&Z%ERwH`1tsYVs@Y7cK7#9 zBl+ER8|Vrp|6?k?44c@4q=u0;JZk9%DUGmD>kC9?_Syh35fRSxLDO5j{x-^!4dl5i zD>io+iOJiD`TLsmqz#?1hA5t5%#5>m*m6I1AA)iZ=|S4Wf=>x#Z=ZdHN2py(cxqnk z>VAo3RfJKdc{HK+bF=!Rm7kgZ>tyg8> z!qU=La+w$y7^tY8kq~T~=O)Tv7lO(VkJ$6+xiCCZLR*AtdY_d*Ra3Oo{2mDjiGzbfety0itc^O4QM|<1r=IL8 zVG7bT84SoZ_F!u1@zzV2A5?cg9VPvmBKMJoomobY?1sWIxCO_{A_G|3R(pl4w zS~@=ybuEnH7AGesBnT!@d-2)rhq^?kdyP5?TU5}VBzhIumlJFeNFveEvIRe)lsjZ` zp0Rh>m{-BCM4=e?;O%eU@}kV4*h%N{@#~xC+=WK4OfTtv${<}SU~t!{rFspOt4$r)5=2mS#@aDl=Shng+|S z`Z5@<80{}5U*dleAdmg;8)v8^3kS%=(hFesXIpHApAc5d|Dz89AtBMf^y}nuu&RBrEZZX_9QiRJeEBnZXbXv z`v8lCkht;!95{jmLOcU!Bwm4U9H&X!h229fRh@kE{rP?WXJ_d5En2G^JHPz>&G$wF z5hN#H8l4V45y?zlA_piV+>c@Y< zVkxT=&#ThX*)LKaTnU9HViqM`^Piu7Hc=FI&CeSHGDv&kGWz%?6Q?(yj)R-4pdFg~ zp3&LokWFC~Jhi4}h2%)&LHB8IbkcvS8499Tr!mqA*sZ{D>yj(78OIDNF z4AXYIjfstI+X4 zVxbY`kZKAz!@!-&Y|f#od78#iz;&@>C`r@nz@>^*EWEPo4q~-B#F6eIH|EK#YZg{0 zrhE}A)B7wbxx-cXyG(~F~vtilj4<&0FZ8aazi0#0Ny30o>d&oy9tl#^5 z6gJpB8f(LDy+^CVL*N0;+2T_fk7AL*GX~+)=th8V2#=(MrL8w6!pF%}BAq69J{xO$!!~wyo;~jy{{qL% Bu`U1r diff --git a/collects/scribblings/quick/images/img2.png b/collects/scribblings/quick/images/img2.png index 139cbed1ef2292cf3f510312e2a096c7b1f11d87..c048bd63d9257fa648a6b93daa92efac6b87ca36 100644 GIT binary patch delta 3588 zcmV+f4*T(jCif+fHUX@WH(WW2&V6-A@V)ORpM1Jrz4z)>f9v;-s)7)rC;|oz=+<}R zOW`hpAc)p8G>|Q;ZTbPQ_+E*>VEJ>?k<1%^RZc?_#}aP0+u?9<94GI(^Jju-53*XC zrj16UN~I#}X`Dw81OSlYSP%rB=XstlD=XtT&TKX_48t%?Pn`y){je;{vaHQ!qiH%K zB7&kQilU?_m#h;6K{V3Lah%<5XIa*4Hgg;&T?&}H0+J+Ynzq?&48xdACYq-Gl@kPi z;p@hwu3Ne~oK9z0SeVD-k*X*!FaLDyTHDQ=0ALOcU9@CLczC$~F}~ih>A>AcI+(LziZx#XH9*h?M203 zuKBp{jEAN^GE3T9TU-0w3(uuKkUDePGy-7n!EcW3J@)>Z+r_(yi#y+$`$6t7*#n<) z*H0y+zILYI+wdl1(cypme!>4;xbWkSU#E|&F0|XV7*?i(P$*ux4Ur(p64A7M^#l-Pd6CTd6O;%7=P>G z_F}p~W@e^VtCiXox2@eK9h5?uoeJ-7gDC(7h_Tcq*?%|sV+T{Z!KhlmnJ{Z zXjer==9ZuKIlZ1xYWZN@$fAwZM1gDOg zIi;Q7@z*=geEenE?4^?eB-{1c{5==zH{Obko0l8_*@sVmu=d9<@@j4ZKxo9AMzSkz zeEZbKWsdsI{W<41EnF=v>|EE+S~vWS*n4={=erF}pTP7SU2h6&{qQdUFn@IJoc4dg zDVD)YmyVu1Hc zKhzX?wQSp_^XGi6i5;JCUw_e-Yu&OtKy3*OU5)IToFkXBia~pi<*^6-)5{BszuZ<( z%kqp;F=});$3kk_KotqzT7T#FM+-$tF>IJQNZa6czu>9+{>T-UAX%Q6H2vO;0~d~F zI!t}cPtHx$Fa!XItoOjq3z=7{fg~fMjraCd>ia|t9$)}~r2B^^0XPb;oW101+Q?eF zecQh-->`cbg<{;~xUs|9b&p9`;_ z&p2L?Iw7`=Bi$*QKjZZD^hUp1q9XSv0O&W?BBxwEe*WcmFMk6t3tyP<#g^G`y`Iv~ zL;wKr005~^j(G98lwU0z)U>LE>G!>|eC*(83P3oYR}~c>`sO>6Ey<>+7%c$z=5Kag z%CCz{?EAkTJ-qSL8Ba`&007|Icz|fj&3)m;<93#K^xsCW-~8yR^l|Y~%!O|=SN-!+ z>jhg!6a@fKQGfMMipuo~%WJ>{Uu~@8DYs_&Ad^uddt zA9wX!W>&Fl{1cgUo020PT8{|ZVe%B8# z0M$mF<$o?00I(&FPd|0|r?XXF9-z~*2~q@rqN;1YZEty=8z>#^-%pCXboZ*W$LI!H z8?)OAYXDG$#`Q0;UAJ-hORn z5b>ood{aZMQ!xOUNAs^cQeuq0XfDgU_T>TF;(zBx%a?^zt^d%}H&hP*hN02x{*X%5 zfA6fv!_sPHt0yMotFz&&BOy^^!U@R8-kD>0=3ay5;OPwxfYE)2`hT0wDjNXkf}+}Y zoI3#_J>PV>Tvb(74u|9B&6@=U1uIspXy*j&)Q2w}`h3@bM}PO^iwmWc(u}O>kMFAk z=zo_OIdNn-=XRexb~U%yojfOL(;Fif{c>xm!|SbKi^@HWj_DVn1Rf?W82|E9L%w={ z=h{7G#raMapzi>kf&w6^<-dDm=C}|5{;fqDHhgafwerE4ab_)3S$gxEgC#7$#v{vJ zKc4yHhZle$$_i_oESN%+reH>)*8X+f{C{ZT)~p%p^D4xUXv5?QF@nc^C9C9owhQ`1 zU9`?`-S@U{U)`Mj6U$bWxNQJTKYa{<>e(6ZO^uBPfbEC=bJdxBL7D++(F6D79t6<+ zWx=6|k-@&gV%^4hmZB2-jQ5WwwQuqtK-R2T6B`>F8X9Ue8Vv@6Mx#-wR1CwkHh*Tf z=MMSMnX?XkzN>Km2HUg$Vb+iU5IKDC`j5OTR~@^2p>*SgQYqVgZ+fpYX&#!N&}JWg ztETK)O+oz@d#$Gsh{>6a@?wiRXW$t?uJux#r8+%^qRadKx-iJdTy8IstG z-h*f{vfEvQu=9oK7tdZDwBVgNi)Y_X7WvZRN_({zNHU_2*{l!DTLbRe+JCD>c3uE= zkS4m1NkO&u#XNhtt-R9Bs2Nj8kWsJhOx9iYRJ-EPQ9%YKvf^mEx??eH$1eS30DP?0g=k*$>L6e_KDP(o*3LpFt* zP2KRiy2%h}YI29oRd6CNyGNLg7-e~^2TZp@0Pc#l^&0$r3?*Z z69hpJMEAD}6L`*@JEvBw-EOxO+0Cl-$tDPbBuVKvN#bz7%aBd0R4TXIElHGMsNs=^8GYk_J7M7KjWw+a_ ztE-((r_1H?csv}(;q`Yfgdhl-rj<&iMx)W`bb7tsWHN<>goK2INO9}$+ZWk#SSu6? zl}e@2XuMvpAP59OFbw1Mda>-@i6mPUvZmE)bvm6!qfx0;3WdTyxTVauWs~C(ECCIZ z5E2!CJ$qJ|mY^t#VHmkf)@rp{tyT_hxhDsC%$CDi5Cl;aDT-1k6l%3vHZ7(1^m$<# zBM-s;zBL++e{kO(v;8Amx^GSpgd|%UsyUA1c^*F?>77U-rTLcBH!GD&l}gooWJ?7o zijrN*6FkYZAP7=eW7)lsMvEz_hnAvT3Tui}qMBKHNvYCjhGC?DmNer&yf@>2Lre;B zIne!=UIan-A{zi?*%U-IXsX}0j=f9v;-s)7)rC;|oz=(cy` zOW`hpAc(dzG?Fc=ZTVEJ?Nk<1%^S58AS#}aP0+u?9<94GI({bz#d2(nt5 zrj16UN~I#}X_`k61OSlYSP%rB=XstlD=XtT&TKX_48t(YojMIn$6;BPWm%ieM$>de zLaUm08kah8`ZOSj@An_red74)58l^mwbB6&?ATeff7iSf&zky1+lz|7 zT=Q|?84pc;WR|qIwzl@U7oJOfAa&-nX#~LDgWnw6d+hx+4aIwii#y+$`$6t7*#n<) z*H0y+zILYI+wf*%(cypme!>4;xbWkSU#E|&F0|XV7*?i(P$*u4c)i|&+`t4qpGUvPB$3Sb(1az7=OFN z?ZtG1%*;%!Rx8iT&$BHS%WZ2JCg5adX117qcds!pouZvLRXRxS!OfLy__&!< zI+#D}$DB*oYWpShOCD-&KX(VXd?x2&VJ!dvFQiPnFUF(@NVNb^Q(bx@-&)89FHL@+ z$*ziu%q>6db9z0Y#=%dFnxkjxBY%gjI=1fbVH4)X59$-BW(0%)$hK$h{_4$i2u>X} zb4mxl`Fk$bZ@d*7H!nE=vJapBVC|1zpSu64`q0JSABbT_hVa*kZiDhBO6md76SPcJVl{&HJE zEz2`X#i-HY91E#w163q=Yk!^JA1xFq#js)KAZ?@D{eq|N`y*Faf@FDO()4>X4qP~z z=`i&%KRGv1!w>) z_HF;Ve8cW#6pC?^aI#5<>Fn>&4HFJp);Eyw2 zeBiU+?!35T@raQC0HCleUV8cY|GKz!^OS#|r47{8*KJyrZM9mhR;$HgX?tdV@!(zn zh@bJKLDgVx``WKxe)n>doU6Zh`tc;A_3tN^z5kPxlJa;`%J4`z!-ZX^m%Mfw0077l z@yE~S`PTY}G8|w0DSxf%M(Kh@+b`wU`PUhln(+O)nQfopk=-X=e&x8G^=>r}fRthy@!)`%KNns< zpK-h(bwX@AN4j0Ke8%bN=}msOMn&#V0MKu&MNYYT{QS%BUVjE)7QQgyi!HO?dOf9| zi2wlL0RU2;9P#3FDZg4csCiWh)9-s_`PjkH6o7C(uPQ1&^v!oBTarytFEq&~m80e~0YeR$cU{Q)3p*?;o5fdK$WNr}mru$DBmGfz0N zC*KLcL$BY!_eq;e@Lb3 zzjxN-VQICp%@dRH)!F#fk&vh{;RIx4@6540bFV>j@bm@;!05h1{l86Tl??!NK~Wt$ z&h3DZo^QHbuBxgkhr@C6=FNhFf)y)PbZ~-p>cf`~eZFhJqrZFd#f4HzX-3xc$M@9% z^nXi?oH#O^bGy$TyP8|5Y+#ez~>O;q}(AMdcnw$MlO(0uPfGjDPv5Az!_} zbM2n8;(R9y(071NK>?7|^4~o&b6f}j|JI@n8@{)LTKVA2IJ1_iEWP>7!4ei=p!wbL=Wra0P7EB>ZQ!t}YYyY}#et$G^Yu1eQc@<(vv|;ju7{TMdl2vj(+Xa21 zE?Vce?R(p|uWru%iDj!w+%^EFpFRda_3VuIrp87C!1hD`x$4ZmAkBcZ=z)834+7}^ zvf$9f$Y5V#v2No$OHqk^#`{N;IyU(aAZymFiH(g74GlFKjRu23qtU2TDu!X&8h^7p za)*5A%vpy%-&MGOgYDV>Fl$Hvh#Wq6{YT!FtBzg1P`dF#sg&)$as7X@G)WZL8`o+I zDtt3z*2!ME!UDjcN;d#F%AJMzzJ*g!q4a@t)=959P_Ml=N0I)``W@HyY|WDLs153c z&!&!!QtYpGUMXx?aoH<9_DT<95Pv*8Fh=vH&z^Yw^@9gb+P8e}o8Ie8nuq2mwA+W@ zswulxQ&7LfUaKwuP&?~ix_xv~`sIp}ZAF=TatnblESvg24W6jVoF%(Iu<$}8QBnlXh08TINezR%aZ+N#p3I(MisN~iSeCPep_&peQqT|Dg9 zA3QjJT7VAK2|69w9fq8=>^E6YKbQU04)5aG4U=Pnii`=5Y@=M4P-(S;61wslvMJnb z>VenQO@>HQvpa0Af)jb!#YS|*D9dAaz;qh~;NG}Ce)`;1e{yi40ekpxm!s*QJpI|_ zq2uQ1df7jm3d~cl*om_OQqRu>N;~SQ=kIhQTA&v_lfm>flc5kDlW-7DlW-6>f6?;a z2x-Hjgyklu|4JmR5>m?mX>A_8aYG@W=lOSlN~4V0x0aXXEJr zXut0q+tSI=x z2@I{twgP#l^&0$wG549 z69hpJM9;Sh6L`*@JEvBw-EOxO*)6K{$tDPbBuVKvN#bz7%aBd0R4TXIElHGm6%2rZXfaCc0cMyx|-84;86eY=)ebcgOk|b%GW*8>GXQN$z%!%2?+@ak>b|hw=c5guvRD( zDwRs3(RjUHK@bRnU>L^h^U27dMx#=x6bglZa7&pRWRv3&ECG#^ z5E2!CclN9>twB)~!!UA}tkr6@TCE)1a!(HOm@S93APAx;QWT|7DAa1TY+6dc)8~b0 ziaZ4S`_^bQ{=wZaX8T9Bbl;pH2uZdyRC651^E`e)(mRnvO7ktLZ&oUmDwV3`$d(FF z6eYWqCwP)+K@g;{#l2WD548uqPEosJmcyGr4hL{xM za-jP!y$FKvMK%D)vMGuZ1VQe)@k8!j4$&BCxh3O&Q-$!iD1UCE7Mt$nG`S7lV7GDl Z{{z41`p5;z@&Nz<002ovPDHLkV1ik1HF*F4 diff --git a/collects/scribblings/quick/quick.scrbl b/collects/scribblings/quick/quick.scrbl index 514ff0641a..74f112b037 100644 --- a/collects/scribblings/quick/quick.scrbl +++ b/collects/scribblings/quick/quick.scrbl @@ -542,6 +542,8 @@ exposes a picture's drawing function. We can use @racket[make-pict-drawer] in a canvas-painting callback to draw a picture into a canvas: +@(mr-interaction-eval (require slideshow/flash)) + @mr-def+int[ (define (add-drawing p) (let ([drawer (make-pict-drawer p)]) diff --git a/collects/scriblib/gui-eval.rkt b/collects/scriblib/gui-eval.rkt index e6e93f93a3..0546b6aa6d 100644 --- a/collects/scriblib/gui-eval.rkt +++ b/collects/scriblib/gui-eval.rkt @@ -9,6 +9,7 @@ racket/serialize "private/gui-eval-exn.ss" racket/system + racket/sandbox (for-syntax racket/base)) (define-syntax define-mr @@ -37,8 +38,13 @@ (define gui-eval (make-base-eval)) (define mred? (getenv "MREVAL")) +(define-namespace-anchor anchor) (when mred? + (call-in-sandbox-context gui-eval + (lambda () + (namespace-attach-module (namespace-anchor->namespace anchor) + 'racket/class))) (gui-eval '(require racket/gui/base)) (gui-eval '(require slideshow))) @@ -132,15 +138,20 @@ (set! image-counter (add1 image-counter)) (let ([dc (let ([pss (make-object (gui-eval 'ps-setup%))]) (send pss set-mode 'file) - (send pss set-file (path-replace-suffix fn #".ps")) + (send pss set-file (path-replace-suffix fn #".pdf")) (parameterize ([(gui-eval 'current-ps-setup) pss]) - (make-object (gui-eval 'post-script-dc%) #f)))]) + (let ([xb (box 0)] + [yb (box 0)]) + (send pss get-scaling xb yb) + (new (gui-eval 'pdf-dc%) + [interactive #f] + [width (* (unbox xb) (get-width v))] + [height (* (unbox yb) (get-height v))]))))]) (send dc start-doc "Image") (send dc start-page) (render v dc 0 0) (send dc end-page) - (send dc end-doc) - (system (format "epstopdf ~a" (path-replace-suffix fn #".ps")))) + (send dc end-doc)) (let* ([bm (make-object (gui-eval 'bitmap%) (inexact->exact (ceiling (get-width v))) (inexact->exact (ceiling (get-height v))))]