Re: LOGO-L> Word Sculpturing

[RAY CATZEL <learn@computerpals.on.ca>]

Hi Frank,
Thanks for your explanation.  I'm getting there - but not quite.  I will list the procedure, then the output, then my question:

to main
carefully [remove "text1 ] [] newtext "text1 [-300 200] [400 400]   
top ct
question [Give me a word ==> ]
sculpture answer
end

to sculpture :wrd
if 1 = count :wrd[pr :wrd stop]
pr :wrd
sculpture bl :wrd
pr :wrd
end
 
Now the result:

caggiano
caggian
caggia
caggi
cagg
cag
ca
c
ca
cag
cagg
caggi
caggia
caggian
caggiano

Now my question: I understand how the word gradually gets truncated by one letter at a time.  I do not understand how it "grows" again.  Which instructions are causing it to add one letter at a time after "caggiano" is reduced to "c".

Ray Catzel
President  ComputerPals
Email:  learn@computerpals.on.ca
Internet:  http://www.computerpals.on.ca/~pals

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