Re: LOGO-L> slideshow (MicroWorlds)

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

Wen "Wayne" Su wrote:
>Thanks for sharing with us your utility program.
>One question though. In the "if" statement of the slideshow procedure,
>should we use "greater?" instead of "equal?"?
>Otherwise, it seems the last picture won't be shown in "slideshow."


Wen has pointed out correctly an error in my slideshow program. The correct
code is posted below. Thanks Wen!

to slideshow  :input
if  :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


>Just curious, how old are these students?

Year 8's in Australia, which is 13-14 y.o.

-- Bill Kerr

>>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
>>
>>-- 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.