dancing cat overview

Dancing Cat Overview

screenshot of dancing cat project
(inactive buttons)

With this project, you can make Bradley's cat, Cristal, dance and do exercises. You control her speed with the slider. As she moves, she makes lots of complaints.
To use this project, you need the free MicroWorlds Web Player, but you do not need to know anything about MicroWorlds.
If you own MicroWorlds and would like to create your own dancing cat project, here are the procedures. Create buttons and sliders as shown. (There is also an invisible textbox named "manycomplaints" for use in supplying one complaint at a time to the visible textbox, named "complaints.") You will need to create some cat shapes, too. (Of course, you can use any animal or person instead of a cat!)
* * * * *
Procedures for Dancing Cat:
to cartwheels
seth 90
launch [forever [setsh "cat1
fd 2 * speed wait (10 - speed) / 2
setsh "cat2
fd 2 * speed wait (10 - speed) / 2
setsh "cat3
fd 2 * speed wait (10 - speed) / 2
setsh "cat4
fd 2 * speed wait (10 - speed) / 2]]
launch [forever [complaint, hidetext opaque "complaint complaint, ct insert textpick "manycomplaints transparent "complaint complaint, showtext wait 20 + 20 / speed]]
end

to jumpingjacks
launch [forever [setsh "cat1
wait (10 - speed) / 2
setsh "cat1c
wait (10 - speed) / 2 ]]
launch [forever [complaint, hidetext opaque "complaint complaint, ct insert textpick "manycomplaints transparent "complaint complaint, showtext wait 20 + 20 / speed]]
end

to hopping
launch [ forever [setsh "cat1c
seth 20
repeat 3 [fd 40 wait (10 - speed) / 2]
setsh "cat1c
seth 160
repeat 3 [fd 40 wait (10 - speed) / 2] ]]
launch [forever [complaint, hidetext opaque "complaint complaint, ct insert textpick "manycomplaints transparent "complaint complaint, showtext wait 20 + 20 / speed]]
end

to dancing
seth 90
launch [forever [setsh "cat1
fd speed wait (10 - speed) / 2
setsh "cat1c
fd 2 * speed wait (10 - speed) / 2
setsh "cat1d
fd 2 * speed wait (10 - speed) / 2
setsh "cat1e
fd 2 * speed wait (10 - speed) / 2
setsh "cat1d
fd 2 * speed wait (10 - speed) / 2
setsh "cat1e
fd 2 * speed wait (10 - speed) / 2 ]]
launch [forever [complaint, hidetext opaque "complaint complaint, ct insert textpick "manycomplaints transparent "complaint complaint, showtext wait 20 + 20 / speed]]
end

to flying
setsh "cat2
launch [ forever [seth 60 + random 60
repeat 3 [fd 40 wait (10 - speed) / 2] ]]
launch [forever [complaint, hidetext opaque "complaint complaint, ct insert textpick "manycomplaints transparent "complaint complaint, showtext wait 20 + 20 / speed]]
end