Í%mw2.0 Englishprojectsize[592 322]turtles-have[]globals[]globals-list[globals-vars] shapesÿ proceduresð text{\rtf1\ansi\ansicpg1252\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fmodern\fprq1 Courier New;}{\f4\fmodern\fprq2 Courier New;}{\f5\fmodern\fcharset1 Courier New;}{\f6\fmodern\fprq1 Courier;}{\f7\fmodern Courier New;}} {\colortbl\red0\green0\blue0;\red19\green0\blue0;} \deflang1033\pard\plain\f7\fs20\cf0 Mr Wilson for Robotics and Intro Classes May 13, 2003 \par \par to showtime \par setup \par reset.counter \par make "no 1 \par clean \par forever [bounce] \par build-a-slideshow \par end \par \par to setup \par make "xmax 295 \par make "xmin -296 \par make "ymax 161 \par make "ymin -160 \par make "diff 20 \par newturtle "redball border setpos[-150 0] seth random 360 setc 15 st \par \plain\f5\fs20\cf0 newturtle "bluball setpos[ 150 0] seth random 360 setc 105 st\plain\f7\fs20\cf0 \par end \par \par to border \par pu setpos se :xmin :ymax pd \par setpos se :xmax :ymax \par setpos se :xmax :ymin \par setpos se :xmin :ymin \par setpos se :xmin :ymax pu \par end \par \par to cleanup \par clean \par remove "redball \par remove "bluball \par end \par \par to bounce \par redball, fd 1 make "xr xcor make "yr ycor make "hr heading \par bluball, fd 1 make "xb xcor make "yb ycor make "hb heading \par \par if ((:xr - :xb) * (:xr - :xb) + (:yr - :yb) * (:yr - :yb)) < :diff * :diff \par [redball, seth :hb bluball, seth :hr] \par \par if ((abs (:ymax - :yr)) < :diff) [redball, seth(180 - :hr)] \par \plain\f5\fs20\cf0 if ((abs (:ymax - :yb)) < :diff) [bluball, seth(180 - :hb)] \par \par if ((abs (:xmax - :xr)) < :diff) [redball, seth(360 - :hr)] \par if ((abs (:xmax - :xb)) < :diff) [bluball, seth(360 - :hb)] \par \plain\f7\fs20\cf0 end \par \par to vlim :size \par pu home pd fd :size rt 90 fd 5 bk 10 \par end \par \par to hlim :size \par \plain\f5\fs20\cf0 pu home pd fd :size rt 90 fd 5 bk 10\plain\f7\fs20\cf0 \par end \par \plain\f3\fs20\cf0 \par \plain\f4\fs20 to pad :w :n \par if :w - 1 < count :n [op :n] \par op pad :w word "0 :n \par end \par \par to reset.counter \par make "counter.var 0 \par end \par \par to save.and.increment \par everyone [stamp] \par savepict (word "shot pad 3 :counter.var ".gif) \par make "counter.var :counter.var + 1 \par clean \par end \par \par to build-a-slideshow \par repeat 40 [save.and.increment wait 1] \par end \par \par \plain\f6\fs20 to see :input \par if :no > count slides [make "no 1 stop] \par loadpict item :no :input \par cc show item :no :input \par wait 1 clean \par make "no :no + 1 \par see :input \par end\plain\f7\fs20\cf0 \par \par to slides \par op pictlist \par end \par } Xpagenamepage1curturtle||curtext||transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0ýbufferPBæ-<KZix‡–¥´ÃÒáðÿ,;JYhw†•¤³ÂÑàïþ +:IXgv…”£²ÁÐßîý *9HWfu„“¢±ÀÏÞíü )8GVetƒ’¡°¿ÎÝìû (7FUds‚‘ ¯¾ÍÜëú '6ETcrŸ®½ÌÛêù&5DSbq€ž­¼ËÚéø%4CRapެ»ÊÙè÷  $ 3 B Q ` o ~ œ « º É Ø ç ö   # 2 A P _ n } Œ › ª ¹ È × æ õ   " 1 @ O ^ m | ‹ š © ¸ Ç Ö å ô   ! 0 ? N ] l { Š ™ ¨ · Æ Õ ä ó   / > M \ k z ‰ ˜ § ¶ Å Ô ã ò .=L[jyˆ—¦µÄÓâñ-<KZix‡–¥´ÃÒáðÿ,;JYhw†•¤³ÂÑàïþ +:IXgv…”£²ÁÐßîý *9HWfu„“¢±ÀÏÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿÿÿÿÿÿÿÿÿÏÿobjecttypebuttonnamebutton1rect[7 291 67 24]show-name?falselocked?falsefcn[showtime] kind1objecttypebuttonnamebutton2rect[88 291 60 25]show-name?falselocked?falsefcn[cleanup] kind1…objecttypebuttonnamebutton3rect[243 290 83 27]show-name?falselocked?falsefcn[see slides] kind1