random-lines.mw2 428
KB
random-lines.zip 127KB 
use winzip to unzip
random-lines.exe 188 KB
Plugin version
GNU License.txt
In this example each turtle is programmed directly.
Simple programs like this do not require writing procedures.
This is an interesting example as it produces images that
have a fractal nature not unlike the worl of Jackson
Pollock. see: Fractal
Expressionism
http://materialscience.uoregon.edu/taylor/art/info.html
house&sun.mw2 30
KB
house&sun.zip 14 KB
use winzip to unzip
house&sun.exe 76 KB
Plugin version
GNU License.txt
fun3.mw2 94 KB
fun3.zip 27.KB
use winzip to unzip
fun3.exe 88 KB
Plugin version
GNU License.txt
An example of using
sliders to change variables
to fun3
pd
repeat rep [
lt sharp ;
sharp is set
from a slider
fd scale ;
scale is set from a slider
rt sharp
fd scale
rt 360 / rep
]
end
A example of using the random function
chaos.mw2 229 KB
to
filler_t
ht ;
hide turtle for faster drawing
pu ;
do not draw lines
fd random 70 ;
forward a random number of steps
rt random 30
; right turn a random number of
; degrees from 0 to 30
setc random
50 ; set the fill colour to a random
value
fill ;
fill with the random colour
end
to lines_t
pd setc "black ;
draw with black lines
fd random 70 ;
forward a random number of steps
rt random 30 ;
right turn a random number of
;
degrees from 0 to 30
end
Draws a torus consisting of 180 circles.
poster1.zip 30KB
use winzip to unzip
snapshot ; takes a picture of the screen
; use restore to restore the
; screen to the snapshot version
pd
repeat :rep [lt :deg
fd :step
rt :deg
fd :step
rt 360 / :rep]
end
dothing.zip 10KB
use winzip to unzip
Just a thing.
This example uses sliders to pass values to a procedure.
example1.zip 5 KB
use winzip to unzip
example1.mw2 62 KB
polyspiral.zip 7KB
use winzip to unzip
A Polyspiral
squares.zip 7KB
use winzip to unzip
Squares
Original idea from:
Abelson, H. (1982). Apple Logo. Peterborough, NH: BYTE/McGraw-Hill.
to square :size
;
draw a square with sides
; :size long
pd
repeat 4 [ fd :size rt 90] ;repeat
4 times ;
moving forward ;
and turning right
end
to go :number_of_times :size
repeat :number_of_times
[square :size ;
draw a square with sides ;
:size long
make "size :size +
2 ; make the size of
:size 2 step bigger
rt 15] ;
turn to the right 15 degrees
; between each square
end
An example of playing with drawing "brushes"
target.zip 5KB
use winzip to unzip
to target
; ----- Note the values for the angles
eg
; 1.9, 1.27,
0.958 etc were determined by
; trial and error.
If you know a better
; way to do this
can you please let me know.
cg
setpensize 1
ht ; hide the turtle for faster
results
concentric 30 1.9 "red
concentric 45 1.27 "lime
concentric 60 0.958 "lime
concentric 75 0.762 "red
concentric 90 0.635 "red
concentric 105 0.545 "lime
concentric 120 0.478 "red
end
to concentric :size :angle :colour
pu
home
fd :size
rt 90
pd
setc :colour ;
use set colours
; setc random 500 ; use random colours
repeat 360 / :angle [ fd 1 rt :angle]
fill_circle
end
Draws a series of concentric circles each filled with colour
circles4.zip 4KB
use winzip to unzip
To reproduce the type of patterns created by "Electro Lights" #02820
Produced by Maui Toys www.MauiToys.com made in China
;Note this is still a work in progress.
;version 0.2
etch-a-sketch2.zip 4KB
use winzip to unzip
Etch-a-sketch
a work in progress
circles1.zip 8KB
use winzip to unzip
http://llk.media.mit.edu/projects/circles/
circles2.zip 4KB
use winzip to unzip
Note this version of circles1.zip uses:
talkto [t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14
t15 t16 t17 t18 t19 t20 t21 t22 t23 t24 t25 t26 t27 t28 t29 t30 t31 t32
t33 t34 t35 t36]
repeat 30 [fd 4]
instead of:
everyone [repeat 30 [fd 4]]
because each turtle moves forward at the same time. Using everyone [repeat 30 [fd 4]] moves each turtle one after the other which spoils the effect.
Inspired by the online essay going
in circles
http://llk.media.mit.edu/projects/circles/circles.html
lost_in_the_desert.zip
4KB
use winzip to unzip
Inspired by the online essay going
in circles
http://llk.media.mit.edu/projects/circles/
one_good_turn.mw2
27 KB
one_good_turn.zip 13 KB
one_good_turn.exe 76 KB
Demonstrates the use of radio buttons
Inspired by the online essay going
in circles
http://llk.media.mit.edu/projects/circles/
on_a_tangent.zip 9KB
use winzip to unzip
Inspired by the online essay
going in circles
http://llk.media.mit.edu/projects/circles/
ring-around-a-rosie.zip
5KB
use winzip to unzip
Inspired by the online essay
going in circles
http://llk.media.mit.edu/projects/circles/
harmonic.zip 5KB
use winzip to unzip
Inspired by the online essay
going in circles
http://llk.media.mit.edu/projects/circles/
cornered.zip 5KB
use winzip to unzip
Inspired by the online essay
going in circles
http://llk.media.mit.edu/projects/circles/
spiral.zip 4KB
use winzip to unzip
to
spiral
; clear the screen if the
; spiral is already completed
if :completed = "true [
make "completed "false
pu
clear
pd
cc
]
; ----- if the turtle is not
; at the edge of
the square
; keep drawing the
spiral
; otherwise stop
drawing the
; spiral and set
; "completed
to "true
ifelse (distance "turtle_@_center) < 170 [
fd :step
rt 5
make "step :step + 0.007
][
make "completed "true
; turn off the spiral button
set "button1 "on? "false
]
end
Draws a nice spiral and some weird variations as well.
star-moon-star.zip 61KB
use winzip to unzip
random_tri_sq.zip 38KB
use winzip to unzip
Draws random triangles & squares, Produces nice 50's style table top designs. Demonstrates one way to implement push button controls using turtles.
to click_switch
if :click_switch = "false [
; -----
if the switch was off turn it on
; turn
the variable click_switch to true
make "click_switch "true
make "fill_shapes "true
check_switches
stop
;
stop the procedure
]
if :click_switch = "true [
; ----- if the
switch was on turn it off and...
; change
the value of click_switch
make "click_switch "false
make "fill_shapes "false
check_switches ;
call check_switches
]
end
to check_switches
; ----- show the value of fill
in the text box
ifelse :fill_shapes = "true [
set "text1 "text (se [fill
is true])
tr_click, setsh "click_on ;
turn on the click switch
tr_push, setsh "push_on ;
turn on the click switch
]
make "fill "false
set "text1 "text (se [fill
is false])
tr_click, setsh "click_off ;
turn off the click switch
tr_push, setsh "push_off ;
turn off the click switch
]
end
August 9, 2004
make_turtles.mw2 52 KB
make_turtles.zip 10 KB
use winzip to unzip
based on code from: http://www.microworlds.com/library/math/geoboard/geoboard.zip
to remove_all_turtles
newturtle "create_a_dummy_turtle
; this is necessary
;
to make sure that there
;
is a current turtle
make "number_of_turtles count
get first pagelist "turtles
repeat :number_of_turtles [
carefully [remove who][] ;
remove current turtle
]
end
August 10, 2004
headings.mw2 75 KB
headings.zip 15 KB
use winzip to unzip
The heading names were created using Paint
Shop Pro.
Create the text as a vector, copy it and paste as a new turtle into MicroWorlds.
August 16, 2004
lissajous.mw2
lissajous.zip
lissajous.exe
to play1
make "first_move 1 ;
remember we have not moved yet
pu ; pick up the pen before we move
ht
make "p1_count 0 ;
Set initial value for "p1_count
make "new_scale scale
forever [
make "p1_count :p1_count + 0.001
setx (sin (xx * :p1_count)) * :new_scale
sety (sin (yy * :p1_count)) * :new_scale
;
don't start drawing until until
;
we are in the right place
;
then remember we have moved
if :first_move = 1 [make "first_move
0 pd]
make "new_scale :new_scale * 0.999999
setc :p1_count / 1.5
]
end
September 4, 2004
triangles1.mw2 22
KB
triangles1.zip 12 KB
triangles1.exe 72 KB
Plugin version
GNU License.txt
Draws sets of triangles. Uses simple checkboxes to toggle between B/W & colour triangles and Automaitc or Manual positioning of turtles.
October 7, 2004
spirals2.mw2 61 KB
spirals2.zip 21 KB
spirals2.exe 84 KB
to spiral :size :angle
ht
if :size > ( last projectsize ) - 140 [stop] ;
recursive stop
if :size > ( first projectsize ) - 140 [stop] ;
recursive stop
forward :size
right :angle
make "size :size + 2 ;
increase the size
spiral :size :angle ;
recursive call
end
art2.mw2 33KB
art2.zip 17 KB
art2.exe 80KB
art2 source code
Plugin version
GNU License.txt
See Art1 above
October 14, 2004
spirals3.mw2 135
KB
spirals3.zip 29 KB
spirals3.exe 92 KB
spirals3 source code
Plugin version
GNU License.txt
see: spirals2 above
based on code from: A
Logo Primer
http://el.media.mit.edu/logo-foundation/logo/turtle.html
; this is the heart of the program
pd
ifelse (and ((first pos) < 200 ) ((last pos) < 200) ) [
fd :size
rt :deg
make "size :size + 0.3
curve :size deg ; recursive call
][pu fd 2 setc "yellow fill ht stop] ; recursive stop
end
move_turtle1.mw2 29 KB
to startup
make "step 50
make "line_size 1
move_turtle
end
to move_turtle
pd
; read the key pressed
make "ch ascii readchar
if :ch = 38 [t1, seth 0 fd :step] ;
north
if :ch = 40 [t1, seth 180 fd :step] ;
south
if :ch = 39 [t1, seth 90 fd :step] ;
east
if :ch = 37 [t1, seth 270 fd :step] ;
west
; < or , reduce step size
if (or :ch = 46 :ch = 62 )[
make "step (:step + 1)
cc
show (se "step "size :step)
show se "pensize :pensize
]
; > or . increase step size
if (or :ch = 44 :ch = 60) [
if :step > 1 [
make "step
(:step - 1)
cc
show (se "step
"size :step)
show se "pensize
:pensize
]
]
; x or X increase pensize
if (or :ch = 120 :ch = 88) [
if :line_size < 100[
make "line_size
:line_size + 1
cc
show (se "step
"size :step)
show se "line_size
:line_size
]
]
; z or Z decreade pensize
if (or :ch = 122 :ch = 90)[
if :line_size > 1 [
make "line_size
:line_size - 1
cc
show (se "step
"size :step)
show se "line_size
:line_size
]
]
setpensize :line_size
setc (random 15) + 125 ; add
some colour
move_turtle ; repeat the whole process
again
end
move_turtle2.mw2 29 KB
Yet another more complex version of move_turtle0
This is an example of creeping featurisim. I could not help adding the ability to lift the turtle using U for pu and then I had to have D for pd and then I had to be able to see the diffierence between when the turtle was up and down. And then I added colours and then I though what about white...
This is always a risk when writing programs. Creeping featurisim is also known as program bloat.
October 21, 2004 move_turtle3.mw2
82 KB
move_turtle3.zip 36 KB
move_turtle3.exe 96 KB
move_turtle3 source
code
Plugin version
GNU License.txt
Another more complex version of move_turtle0
This version uses features from Art2 to colour the turtle as it moves
move_turtle0.mw2
18 KB
move_turtle0.zip 11 KB
move_turtle0.exe 72 KB
move_turtle0 source
code
Plugin version
GNU License.txt
Move the turtle using the cursor keys
to startup
make "step 50
setpensize 5
move_turtle
end
to move_turtle
pd
; read the key pressed
make "ch ascii readchar
if :ch = 38 [t1, seth 0 fd :step]
; north
if :ch = 40 [t1, seth 180 fd :step]
; south
if :ch = 39 [t1, seth 90 fd :step]
; east
if :ch = 37 [t1, seth 270 fd :step]
; west
;setc (random 15) + 125
; add some colour
setc "black
move_turtle ; repeat the whole process again
end
Based on code from http://www.mulawa.net/mulawa/projects/index.html
Andrew Purdam has produced equations that allow one to
explore the beauty of the harmongraph without building one....not that
building one is any less satisfying. His equations are:
x(t) = Ax(t) sin(wx + px) + As(t) sin(ws + ps)
y(t) = Ay(t) sin(wy + py)
All initial amplitudes, frequencies (w) and phases (p) should be different and not integer multiples for the most complicated (interesting) patterns.
In order for the amplitude to decay (not necessary but
occurs in the real harmonograph) the amplitudes can decay as follows,
where d is typically a suitable small positive number. This gives an exponential
decay function.
A(t) = A(t-1) (1 - d)
