RE: Crash procedure

["Alain Tougas" <alain@xxxxxxx>]

LOL!
Agree. Dark, but it's a source of motivation and no animal will be injured
during these tests.

Here are three options to explore. Paste them in and leave your mouse
pointer on each primitive to get a pop-info about what they do. The crash
works best when executed IMMEDIATELY after your FERRIS procedure. In other
words, type
FERRIS CRASH3 on the same line in the Command Center, or one after the other
in a button or a procedure.

Have fun.

In my example, broken is the name of a shape, and playsound is the name of a
"crshhh" sound that I recorded. No provided in this email. Kids would have
to do their own.

to crash1
everyone [setycor -175]
end

to crash2
everyone [
  seth 180
  glide 175 + ycor   1
  setsh "broken
  playsound]
end

to crash3
everyone [launch [drop]]
end

to drop
if ycor < -175 [stop]
if not heading = 180 [rt 1]
fd 1
drop
end


-----Original Message-----
From: mwforum-admin@xxxxxxxxxxxxxxxxxxxxxxxxxxxx
[mailto:mwforum-admin@xxxxxxxxxxxxxxxxxxxxxxxxxxxx]On Behalf Of Russell, Ken
Sent: Wednesday, February 20, 2008 3:35 PM
To: mwforum@xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Subject: Crash procedure


  My 6th grade logo students are just finishing up the Ferris Wheel
activity. I'm not sure where I found this activity, but possibly on the
install disk. It uses 4 turtles and the procedures are fairly simple.

   I have an example posted:

  http://www.bham.wednet.edu/studentgal/hclp/projects/ferriswheel4.html

  and the procedures:

  http://www.bham.wednet.edu/studentgal/hclp/projects/ferris_wheel.pdf

  to wheel
  cg pu setpos [-200 0] pd setc 59 setpensize 3
  repeat 360 [fd 3 rt 1] pu home
  end

  to getready
  everyone [pu home]
  t1, setpos [-200 0]
  t2, setpos [-200 0]
  repeat 60 [fd 3 rt 1]
  t3, setpos [-200 0]
  repeat 120 [fd 3 rt 1]
  t4, setpos [-200 0]
  repeat 180 [fd 3 rt 1]
  t5, setpos [-200 0]
  repeat 240 [fd 3 rt 1]
  t6, setpos [-200 0]
  repeat 300 [fd 3 rt 1]
  end

  to ferris
  tto [t1 t2 t3 t4 t5 t6]
  repeat 360 [fd 3 rt 1]
  end

  (I have students revise the instructions by requiring them to use 5 or
more cars).

  A student asked, "How do I make the ferris wheel cars fall to the ground
and crash?"

  --a rather dark question, but an interesting programming challenge!

  He wants to be able to click on a button when the cars are rotating and
have them stop in place and then "fall down"

  A student came up with this:

  to crash
  tto [t1 t2 t3 t4]
  seth 180
  fd 200
  if ycord = -100 [stop setsh "crashcar]
  end

  It's an interesting effect, but not quite what we intended! I have tried
several different solutions, but I'm a logo novice.

  Can anyone suggest a procedure that will work?

  Thanks in advance.

  Ken Russell
  Bellingham Schools