%mw2.0 Englishprojectsize[592 322]turtles-have[]globals[]globals-list[globals-vars] shapesM 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 Courier New;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\plain\f6\fs20\cf0 Mr Wilson for Robotics and Intro Classes May 13, 2003 \par \par to showtime \par setup \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\f6\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 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\f6\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 pd :size rt 90 fd 5 bk 10\plain\f6\fs20\cf0 \par end \par \plain\f3\fs20\cf0 \par \plain\f3\fs20 to save_shot \par savepict (word "shot 1 + count pictlist ".gif) \par end \par \par (NOTE: The save_shot procedure will only save pictures of the empty background unless the turtles are stamped onto the background before saving.) \par \par \plain\f4\fs20 to save_shot2 \par everyone [stamp] \par savepict (word "shot 1 + count pictlist ".gif) \par clean \par end \par \par to build-a-slideshow \par repeat 20 [save_shot2 wait 3] \par end \par \par to view_slides \par make "slide# 4 \par repeat 20 [loadpict word "shot :slide# make "slide# :slide# + 1 wait 3] \par end\plain\f6\fs20\cf0 \par \par } Ypagenamepage1curturtle||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[view_slides] kind1