LOGO-L> slideshow (MicroWorlds)

["Bill Kerr" <kerrb@senet.com.au>]

I've had some success lately using graphics from the Internet for kids to
incorporate into their projects. We've just finished a class solar system
project using real pictures of planets, moons, comets etc. and are just
beginning a project on the Titanic.

I've developed the following procedures to assist the process of students
viewing the images quickly and then getting them into their own projects.
Others may find these useful:

slides: This flicks through the images sequentially. You need a slides
button on page1 (also cut out the turtle). You can stop the slideshow by
clicking on the slides button and start again in the place you left off by
clicking on it again. The slides are numbered and their name and number
appears in the command centre. btw to put the names of the slides into the
slidelist procedure you don't have to type them out laboriously, just type:
show pictlist
in the command centre and all the images you have previously saved into the
appropriate folder will appear in the command centre. Then copy and paste
the list to the procedures page.

pickPicture: If  the student decides they want to look at an earlier picture
again without waiting to cycle all the way through then this is handy. You
need a pickPicture button on page1 too. A question box pops up asking for
the slide number.

loadAllShapes: This one will load all of the slide images into the shapes
centre, starting at shape 1. They are easier to work with in this form
because they can be shrunk and magnified with the magnifier and moved around
the page before being stamped. Once the students have viewed the slides then
they could copy the loadAllShapes and loadshapes procedures into their own
projects and then just type loadAllShapes in their command centre.

I've developed these procedures because I want students to be able to
concentrate on their programming rather than spend endless hours searching
the Internet without having much to show for it at the end. This way I can
supply the graphics and an easy way to incorporate them and the students can
get on with some interesting programming task, like making the Titanic sink
or making moons revolve around planets etc.

to slides
cg
slideshow slidelist
end

to startup
make "no 1
end

to slideshow  :input
if equal? :no count slidelist [make "no 1]
loadpict item :no :input
cc show se (word :no "/ ".)item :no :input
wait 20 cg
make "no :no + 1
slideshow  :input
end

to slidelist
op [botnav01.gif pict_shipsinkingill.jpg pict03_propellers01.jpg
pict04_waiting01.jpg pict05_morgan01.jpg pict07_lifeboatsondeck.jpg
pict08_staircase.jpg pict09_shiptofurnish.jpg pict10_bedrooms01.jpg
pict12_shipmodel01.jpg pict13_coalwhistle.jpg pict14_supermillion.jpg
pict15_frstclasslounge.jpg pict16_marconi.jpg pict17_telegraph.jpg
pict19_iceburgrip.jpg pict20_twochildren.jpg pict21_bandleader.jpg
pict23_bridesurvive.jpg pict24_newspapers.jpg pict25_sunkenbow.jpg
pict28_model.jpg pict30_sonar.jpg pict31_flooding.jpg titanic.gif]
end


to pickPicture
set "button1 "on? "false
question [What number slide do you want?]
cg
loadpict item answer slidelist
cc show se (word answer "/ ".)item answer slidelist
make "no answer
end

to loadAllShapes
loadshapes 1
end

to loadshapes :num
if :num > count slidelist [stop]
loadshape item :num slidelist :num
loadshapes :num + 1
end


-- Bill Kerr



---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.