mw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars] shapes procedures text{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}} {\colortbl\red0\green0\blue0;\red0\green128\blue128;} \deflang1033\pard\plain\f4\fs20\cf1 ; Purpose: To demonstrate the use of sliders \par ; Copyright \plain\lang3081\f4\fs20\cf1 \'a9\plain\f4\fs20\cf1 2004 by Rupert Russell \par ; e-mail: r.russell@ballarat.edu.au \par ; URL: http://velorum.ballarat.edu.au/~rrussell/microworlds/index.html \par ; Created: April 20, 2004 \par ; \par ; Based BASIC code from Jeff Fox \par ; jfox@airmail.net \par ; http://smallbasic.sourceforge.net/scode/vsrc.php?show=33 \par ; \par ; This program is free software; you can redistribute it and/or modify \par ; it under the terms of the GNU General Public License as published by \par ; the Free Software Foundation; either version 2 of the License, or \par ; (at your option) any later version. \par ; \par ; This program is distributed in the hope that it will be useful, \par ; but WITHOUT ANY WARRANTY; without even the implied warranty of \par ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \par ; GNU General Public License for more details. \par ; \par ; You should have received a copy of the GNU General Public License \par ; along with this program; if not, write to the Free Software \par ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. \par ; ----------------------------------------------------------------------\plain\f4\fs20\cf0 \par \plain\f4\fs20 \par \plain\f4\fs20\cf1 ; Please note this is a work in progress \par ; version 0.1 \par ; no comments yet\plain\f4\fs20 \par \par \plain\f4\fs20\b to go \par \plain\f4\fs20 cc \par cg \par ht \par make "max_colour 20 \par make "left_side -3 \par make "top 1.25\tab \par make "x_side 2.5 \par make "y_side -2.5 \par \par make "x 0 \par make "y 0 \par \par make "x_max (first projectsize) / 2 - 1 \par make "y_max last projectsize \par \par make "x_scale :x_side / :y_max \par make "y_scale :y_side / :y_max \par \par repeat ( :y_max ) [ \par make "y :y + 1 \par make "x 0 \par \par repeat :x_max * 2 [ \par make "x :x + 1 \par make "cx :x * :x_scale + :left_side \par make "cy :y * :y_scale + :top \par make "zx 0 \par make "zy 0 \par make "c_counter 0 \par \par repeat :max_colour [ \par if ( and (:zx * :zx + :zy * :zy < 4 )( :c_counter < :max_colour ))[ \par make "temp_x :zx * :zx - :zy * :zy + :cx \par make "zy 2 * :zx * :zy + :cy \par make "zx :temp_x \par make "c_counter :c_counter + 1 \par \par ] \par \par setc (:c_counter * 100) + 5 \par if :c_counter = :max_colour [setc "black] \par pu \par setx :x - :x_max \par sety :y - :y_max / 2 \par pd \par fd 0 \par pu \par ] \par ] \par ] \par \par \plain\f4\fs20\b end\plain\f4\fs20 \par \par } opagenamepage1curturtlet4curtext||transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]bg0Qbuffer:0H`x >\z"L|7W+tV`(X # Y  } 8 N~1_NN: nt#~:/)(z[I  !"6##$%%E&&',(([))E**+m++,u,,.---F...d//)00111H223j338445566:77~8#99a::;<<N=>>?E@@AdB CCXDDsEEmFFXGG=HHI|IIUJJPKK$LLLbMM*NNNZOO?PP,QQRRSmSS TTUrUUgVVzW(XXYYZ[0\\C]]8^^___=``aab~bbkccPddeeeHff gggZhhUii.jjjmkkRll=mm7nnRoopFqqresttu\vvw%xxIyyz,{{p|}}~~r@b& F dą|چ5=eωOߊ~Ōe*ʏt֒a ǖOɗ0՘*ۙ*{ƚp͛,ݜ6<p\נ\աKyӣ,\rѦ-Q R JT6Ʈ S*s.^б0NlҲ2Jbzyyyyyyyyyyyyyyyyyyyyyyyyyyxyyyxyyyxyyyxyyyxyyyxxyyyxxyyyxxyyyx{xyyyx{R{xyyyx{R{R{xyyyx{Ry{R{xyyyx{RyRR{xyyyx{RxxR{xyyyx{R{xyxR{xyyyx{R yx{RR{xyyyx{Ryx{yR{xyyyx{RxyR{xyyyx{RyyR{xyyyx{Ry{yR{xyyyx{RxxyR{xyyyx{RyRyR{xyyyx{R y{x{x{R{xyyyx{Ryx{R{xyyyx{RyxxyR{R{xyyyx{RyRxyRxR{xyyyx{RRy{xRRyR{xyyyx{R {RRx{{yRxR{xyyyx{Rx{RxyRyyR{xyyyx{RyxRy{xyyxyR{xyyyx{RyxRRxyyy{{xyyyx{Ryx{xyy {x{{y{xyyyx{RyxRxyx{RRy{yR{xyyyx{Ryx{xxyx{xR{xyyyx{RyxRyxR{RyRxR{xyyyx{RyR{RR{xR{RyR{xyyyx{RyxRyR{xyR{xyyyx{Ryx {xyxxx{xyR{xyyyx{RyxRxyR{yR{xyyyx{Ryx{RyR{xyR{xyyyx{Ryx{yR{xyR{xyyyx{Ryx{R{xyR{xyyyx{RyxRxy{xyR{xyyyx{Ryx{xRxyR{xyyyx{Ry{R{xyR{xyyyx{RyxR{Ryx{xyR{xyyyx{Rx{RyyR{{yR{xyyyx{Ry{RRyxR{xyyyx{Ryx{xyR{xyyyx{Ryx{xyxyR{xyyyx{RRxyxRyxy{yR{xyyyx{RyRyxyx{Rx{yR{xyyyx{RyRx{RyRxyR{xyyyx{Ryx{Rx{RxR{xyyxR{xyyyx{Ryx{yxR{{RxR{xyxy{R{xyyyx{Ryx{R{yyxR{xR{xyyyx{Ryy{RRy{xxyR{xyyyx{RyxxyyR{RRxR{xyyyx{RyyyyR{R{xyR{xyyyx{RyRxxRxy{yR{xyyyx{Ry{RyxRyR{xyyyx{Ryx{RyyxyR{xyyyx{RyxRyxyR{xyyyx{RyxRxR{xyyyx{Ryx{yR{xR{xyyyx{Ryx{R{xyR{xyyyx{Ryx{RxyR{xyyyx{Ry{Ry{xyR{xyyyx{RyxxyxxR{xyR{xyyyx{RyRR{xyR{xyyyx{RyxRxy{xyR{xyyx{Ryx{xx{yR{xyyx{Ry{yR{xyyx{Ryy{xyR{xyyx{RyR{xyR{xyyx{Ryx{RxRyR{xyyx{Ryx{RR{yR{xyyx{Ryx{RyR{xyR{xyyx{RyxR{xyR{xyyx{RyxRxyR{xyyx{RRyxRyxyRxyR{R{xyyx{R{yx{Ryy{xyR{RyR{xyyx{Ry{Ryyx{RyR{xyR{Ry{yR{xyyx{R{yy{xyx{RR{xyyxyR{RxxR{xyyx{RxRx{yyxyyxyxyx{RyxxR{xyyx{yyR{RyxR{xyyx{R{xyx{{yyx{Rx{RyxR{xyxxyRyx{xyyx{Ry{xR{x{xyyy{x{RyyR{RxyxRyyRyx{yR{xyyx{Ryy{{RRxyyxR{RyRyxxyR{y{x{RyxxR{xyyx{RxRyRxyyxR{xyxxyxRx{xyyRy{RR{xyyx{Ryx{xyxy{xyyxRRxyxxyxR{yy{yRxxR{xyyx{Ryx{yxR{xyxxR{Rx{xyyR{yR{xyyx{RyxRxyR{{xyx{yyRy{yyyR{xyyx{RyxRyxyRx{xxxyyxx{xR{xyyx{Ryx{{x{Rxyyxyyx{RyyxR{xyyx{RRxyxR{Ryy{xyyxyxRxyR{xyyx{Ryxy{{RyRxyy{xyxRRxyyR{xyyx{Ry{yxxR{RxyR{xy xRyRx{RxyxRR{xyyx{RyyRxyR{xyxRx{Rx{R{R{xyyx{RyxR{RRR{xyxRxR{RxyxR{xyyx{Ryx{Ryyy{x{RxyRRRyR{xyyx{Ryx{Rxyx{{Ryyyyx{xR{xyyx{Ryx{yxR{{R{yR{xyyx{RyxxR{xyR{xyyx{RyxRyy{xyR{xyyx{RyxxyxyR{xR{xyyx{Ryxyxy{{R{xyyx{RyxyxR{R{xyyx{RyxxxyR{xyyx{RyxRx{xyR{xyyx{RyxyR{xyR{xyyx{Ryx{RyRxyR{xyyx{Ryx{RyR{xR{xyyx{Ryx{RyxR{xyyx{Ryx{RxyRyR{xyyx{Ryx{Ryx{xR{xyyx{Rx{RyxyyyR{xyyx{RyxR{{xxR{xyyx{Ryx{{xR{xyR{xyyx{RyxxR{RxyR{xyyx{Ryxx{R{RyyRxyR{xyyx{R{xy{xxR{xyR{xyyx{RxxxxyyyR{xyR{xyyx{{Ry{xR{xyR{xyyx{{Ryx{x{xyR{xyyx{{RyxyxRxyR{xyyx{R{{RxR{RyR{xyyx{RR{{RxxR{xyyx{RyyR{Ry{xyyR{xyyx{RxyR{Ryx{xyR{xyyx{RyR{RyxRxyR{xyyx{RxRyyRR{Ryx{RxxyR{xyyx{R yxxRxR{Ryx{R{xyR{xyyx{Ry{yɔRyx{RyxyyxR{xyyx{Ry{xyRRyx{RyR{xyyx{R{xyyx{RyRxyRyxRyx{RyxR{xyxyR{xyyx{RxRyRxyRyx{RRyR{RRx{R{xyyx{R{yxR{yRyxRyyyR{x{xR{xyyx{RxR{xRyRyxRxyxyy{{R{xyyx{Ryx{y{xyRyxRyRyx{R{yR{xyyx{RyR{xyRxyxyRyx{yRyyR{xyyx{R yxRRxyxxyRy{y{x{R{xyyx{RyRyR{xy yxRy{xyRyxRyR{R{xyyx{RyxRxyxyyxyyyR{xyyx{y{R{xyyx{RyR{xyyxRyyxR{xyyx{yR{xyyx{Ryx{yRxxyxyyx{y{xyyx{yR{xyyx{RyxRx{{{RxxxyyxyR{{xyxyyx{RxxRxR{xyyx{RyxRRyy{{{xyyxRyRxxyxxyyx{RxxRy{xR{xyyx{RR xR{RRxyx{Ryxyx{xR{yyx{RyxR{R{xyyx{RyxyRRxR{{x{RxRx{xRxyyxRyxyR{xyyx{Ryx{RyxRyx{R{{y{xyyx{xyR{xyyx{Ryx{yxyR{x{RxR{RyR{xyyx{RyR{xyR{xyyx{Ryx{Ryyy{{RyxRx{xyyxRR{xyR{xyyx{RyxxR{RRxyR{xyxR{xyR{xyyx{RyxRyRyyyyR{xyx{RyxyR{xyyx{Ryx{Rxyxyyxy{{{xyx{xyR{xyyx{Ryx{xyxRRx{yR{xyyx{Ryx{yxyxx{RRxyR{xyyx{Ryx{RyyR{x{R{xyR{xyyx{RyxRy{x{yR{xyx{yR{xyyx{RyxRyy{x{Ryx{R{xyyx{RyRyR{{{{R{xyyx{RyxxxyyR{{RRxyR{xyyx{Ryx{RyR{RxR{xyyx{Ryx{RxyR{Rx{yR{xyyx{Ryx{RR{Rx{xR{xyyx{Ryx{RxyRxR{xyyx{Ryx{yxRxyR{xyyx{Ry{{xRxyxR{xyyx{Rx{{{yxxRRyR{xyyx{RyR{RxyxyxRxyR{xyyx{Ryxyxyyx{xyR{xyyx{Ryx{RxyxRxyR{xyyx{RyxyxyxyRxyR{xyyx{Ryx{RxxxR{yR{xyyx{Rxyyx{RR{RR{xyyx{Ryxyx{RyR{xyyx{Rxxyyx{RyR{xyyx{Ry{xRyyx{RyxRyR{xyyx{Rxxyyx{RxR{xyyx{RRxyx{yyR{xyyx{RxxRxyxx{RxR{xyR{xyyx{RyxxR{R{xyR{xyyx{RyxRxyR{RyR{yR{xyyx{Ryx{{RxR{RyxyyR{xyyx{RyxRR{RyR{RyR{xyyx{Ryx{yR{RyyyyxR{xyyx{Ryx{xyyxyy{R{xyyxx{RyxRxyxyxxyxRxR{xyyxx{RyxyxyR{xyyx{RyxRyyR{xyyx{RR{Ryx{xxR{xyyx{RxR{Ry{y{xyR{xyyx{RR{RRyy{R{RyxxyR{xyx{RRR{RxyxxyRxyR{xyx{RxyRyRyxRyx{xyR{xyx{RyxyRyyRRx{RyxyR{xyx{RyyRx{yxyx{R{xyR{xyx{R{Ry{RRxyxRR{{xyR{xy{{R{R yR{yyx{xyxyyx{{RyRyRxyR{xy{RRRy{xyyxyx{y{xyxxyxR{yyy{xyR{xy{RRyyx{xxyxxx{x{{{{{x{RyRxyxyR{xyR{xyxR{xyR{xy{RRyyx{xxyxxx{x{{{{{x{RyRxyxyR{xyR{xy{RRRy{xyyxyx{y{xyxxyxR{yyy{xyR{xy{{R{R yR{yyx{xyxyyx{{RyRyRxyR{xyx{R{Ry{RRxyxRR{{xyR{xyx{RyyRx{yxyx{R{xyR{xyx{RyxyRyyRRx{RyxyR{xyx{RxyRyRyxRyx{xyR{xyx{RRR{RxyxxyRxyR{xyyx{RR{RRyy{R{RyxxyR{xyyx{RxR{Ry{y{xyR{xyyx{RR{Ryx{xxR{xyyx{RyxRyyR{xyyxx{RyxyxyR{xyyxx{RyxRxyxyxxyxRxR{xyyx{Ryx{xyyxyy{R{xyyx{Ryx{yR{RyyyyxR{xyyx{RyxRR{RyR{RyR{xyyx{Ryx{{RxR{RyxyyR{xyyx{RyxRxyR{RyR{yR{xyyx{RyxxR{R{xyR{xyyx{RxxRxyxx{RxR{xyR{xyyx{RRxyx{yyR{xyyx{Rxxyyx{RxR{xyyx{Ry{xRyyx{RyxRyR{xyyx{Rxxyyx{RyR{xyyx{Ryxyx{RyR{xyyx{Rxyyx{RR{RR{xyyx{Ryx{RxxxR{yR{xyyx{RyxyxyxyRxyR{xyyx{Ryx{RxyxRxyR{xyyx{Ryxyxyyx{xyR{xyyx{RyR{RxyxyxRxyR{xyyx{Rx{{{yxxRRyR{xyyx{Ry{{xRxyxR{xyyx{Ryx{yxRxyR{xyyx{Ryx{RxyRxR{xyyx{Ryx{RR{Rx{xR{xyyx{Ryx{RxyR{Rx{yR{xyyx{Ryx{RyR{RxR{xyyx{RyxxxyyR{{RRxyR{xyyx{RyRyR{{{{R{xyyx{RyxRyy{x{Ryx{R{xyyx{RyxRy{x{yR{xyx{yR{xyyx{Ryx{RyyR{x{R{xyR{xyyx{Ryx{yxyxx{RRxyR{xyyx{Ryx{xyxRRx{yR{xyyx{Ryx{Rxyxyyxy{{{xyx{xyR{xyyx{RyxRyRyyyyR{xyx{RyxyR{xyyx{RyxxR{RRxyR{xyxR{xyR{xyyx{Ryx{Ryyy{{RyxRx{xyyxRR{xyR{xyyx{Ryx{yxyR{x{RxR{RyR{xyyx{RyR{xyR{xyyx{Ryx{RyxRyx{R{{y{xyyx{xyR{xyyx{RyxyRRxR{{x{RxRx{xRxyyxRyxyR{xyyx{RR xR{RRxyx{Ryxyx{xR{yyx{RyxR{R{xyyx{RyxRRyy{{{xyyxRyRxxyxxyyx{RxxRy{xR{xyyx{RyxRx{{{RxxxyyxyR{{xyxyyx{RxxRxR{xyyx{Ryx{yRxxyxyyx{y{xyyx{yR{xyyx{RyR{xyyxRyyxR{xyyx{yR{xyyx{RyxRxyxyyxyyyR{xyyx{y{R{xyyx{RyRyR{xy yxRy{xyRyxRyR{R{xyyx{R yxRRxyxxyRy{y{x{R{xyyx{RyR{xyRxyxyRyx{yRyyR{xyyx{Ryx{y{xyRyxRyRyx{R{yR{xyyx{RxR{xRyRyxRxyxyy{{R{xyyx{R{yxR{yRyxRyyyR{x{xR{xyyx{RxRyRxyRyx{RRyR{RRx{R{xyyx{RyRxyRyxRyx{RyxR{xyxyR{xyyx{Ry{xyRRyx{RyR{xyyx{R{xyyx{Ry{yɔRyx{RyxyyxR{xyyx{R yxxRxR{Ryx{R{xyR{xyyx{RxRyyRR{Ryx{RxxyR{xyyx{RyR{RyxRxyR{xyyx{RxyR{Ryx{xyR{xyyx{RyyR{Ry{xyyR{xyyx{RR{{RxxR{xyyx{R{{RxR{RyR{xyyx{{RyxyxRxyR{xyyx{{Ryx{x{xyR{xyyx{{Ry{xR{xyR{xyyx{RxxxxyyyR{xyR{xyyx{R{xy{xxR{xyR{xyyx{Ryxx{R{RyyRxyR{xyyx{RyxxR{RxyR{xyyx{Ryx{{xR{xyR{xyyx{RyxR{{xxR{xyyx{Rx{RyxyyyR{xyyx{Ryx{Ryx{xR{xyyx{Ryx{RxyRyR{xyyx{Ryx{RyxR{xyyx{Ryx{RyR{xR{xyyx{Ryx{RyRxyR{xyyx{RyxyR{xyR{xyyx{RyxRx{xyR{xyyx{RyxxxyR{xyyx{RyxyxR{R{xyyx{Ryxyxy{{R{xyyx{RyxxyxyR{xR{xyyx{RyxRyy{xyR{xyyx{RyxxR{xyR{xyyx{Ryx{yxR{{R{yR{xyyx{Ryx{Rxyx{{Ryyyyx{xR{xyyx{Ryx{Ryyy{x{RxyRRRyR{xyyx{RyxR{RRR{xyxRxR{RxyxR{xyyx{RyyRxyR{xyxRx{Rx{R{R{xyyx{Ry{yxxR{RxyR{xy xRyRx{RxyxRR{xyyx{Ryxy{{RyRxyy{xyxRRxyyR{xyyx{RRxyxR{Ryy{xyyxyxRxyR{xyyx{Ryx{{x{Rxyyxyyx{RyyxR{xyyx{RyxRyxyRx{xxxyyxx{xR{xyyx{RyxRxyR{{xyx{yyRy{yyyR{xyyx{Ryx{yxR{xyxxR{Rx{xyyR{yR{xyyx{Ryx{xyxy{xyyxRRxyxxyxR{yy{yRxxR{xyyx{RxRyRxyyxR{xyxxyxRx{xyyRy{RR{xyyx{Ryy{{RRxyyxR{RyRyxxyR{y{x{RyxxR{xyyx{Ry{xR{x{xyyy{x{RyyR{RxyxRyyRyx{yR{xyyx{R{xyx{{yyx{Rx{RyxR{xyxxyRyx{xyyx{RxRx{yyxyyxyxyx{RyxxR{xyyx{yyR{RyxR{xyyx{R{yy{xyx{RR{xyyxyR{RxxR{xyyx{Ry{Ryyx{RyR{xyR{Ry{yR{xyyx{R{yx{Ryy{xyR{RyR{xyyx{RRyxRyxyRxyR{R{xyyx{RyxRxyR{xyyx{RyxR{xyR{xyyx{Ryx{RyR{xyR{xyyx{Ryx{RR{yR{xyyx{Ryx{RxRyR{xyyx{RyR{xyR{xyyx{Ryy{xyR{xyyx{Ry{yR{xyyx{Ryx{xx{yR{xyyyx{RyxRxy{xyR{xyyyx{RyRR{xyR{xyyyx{RyxxyxxR{xyR{xyyyx{Ry{Ry{xyR{xyyyx{Ryx{RxyR{xyyyx{Ryx{R{xyR{xyyyx{Ryx{yR{xR{xyyyx{RyxRxR{xyyyx{RyxRyxyR{xyyyx{Ryx{RyyxyR{xyyyx{Ry{RyxRyR{xyyyx{RyRxxRxy{yR{xyyyx{RyyyyR{R{xyR{xyyyx{RyxxyyR{RRxR{xyyyx{Ryy{RRy{xxyR{xyyyx{Ryx{R{yyxR{xR{xyyyx{Ryx{yxR{{RxR{xyxy{R{xyyyx{Ryx{Rx{RxR{xyyxR{xyyyx{RyRx{RyRxyR{xyyyx{RyRyxyx{Rx{yR{xyyyx{RRxyxRyxy{yR{xyyyx{Ryx{xyxyR{xyyyx{Ryx{xyR{xyyyx{Ry{RRyxR{xyyyx{Rx{RyyR{{yR{xyyyx{RyxR{Ryx{xyR{xyyyx{Ry{R{xyR{xyyyx{Ryx{xRxyR{xyyyx{RyxRxy{xyR{xyyyx{Ryx{R{xyR{xyyyx{Ryx{yR{xyR{xyyyx{Ryx{RyR{xyR{xyyyx{RyxRxyR{yR{xyyyx{Ryx {xyxxx{xyR{xyyyx{RyxRyR{xyR{xyyyx{RyR{RR{xR{RyR{xyyyx{RyxRyxR{RyRxR{xyyyx{Ryx{xxyx{xR{xyyyx{RyxRxyx{RRy{yR{xyyyx{Ryx{xyy {x{{y{xyyyx{RyxRRxyyy{{xyyyx{RyxRy{xyyxyR{xyyyx{Rx{RxyRyyR{xyyyx{R {RRx{{yRxR{xyyyx{RRy{xRRyR{xyyyx{RyRxyRxR{xyyyx{RyxxyR{R{xyyyx{Ryx{R{xyyyx{R y{x{x{R{xyyyx{RyRyR{xyyyx{RxxyR{xyyyx{Ry{yR{xyyyx{RyyR{xyyyx{RxyR{xyyyx{Ryx{yR{xyyyx{R yx{RR{xyyyx{R{xyxR{xyyyx{RxxR{xyyyx{RyRR{xyyyx{Ry{R{xyyyx{R{R{xyyyx{R{xyyyx{xyyyxxyyyxxyyyxxyyyxyyyxyyyxyyyxyyyxyyyyyyyyyyyyyyyyyyyyyyyobject typet namet1locked?false xpos539 ypos279 shape0penstate0 size40pencolor33016 heading0 pensize1shown?false fcn[] kind1shapeinturtlehave-list[has]colorin25{objecttypebuttonnamebutton1rect[7 397 60 25]show-name?falselocked?false fcn[go] kind1object typet namet2locked?false xpos743 ypos213 shape0penstate0 size40pencolor16252928 heading0 pensize1shown?false fcn[] kind1shapeinturtlehave-list[has]colorin105object typet namet4locked?false xpos743 ypos0 shape13penstate0 size40pencolor63488 heading0 pensize1shown?false fcn[] kind1shapein13have-list[has]colorin65