RE: LOGO-L> Word Sculpturing

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

Hi Yehuda,
Thanks for your fun word manipulation exersize.  I have translated it for MicroWorlds2 (Win95) as follows:

to main
newtext "text1 [-300 200] [400 400]    ;establishes text box. You can draw this manually instead, if you wish.
top ct
question [Give me a word ==> ]
sculpture answer
end

to sculpture :wrd
if 1 = count :wrd[pr :wrd stopme]
pr :wrd
sculpture bl :wrd
pr :wrd
end

My result looked as follows:

yahuda
yahud
yahu
yah
ya
y

To repeat the procedure you will have to remove the text box manually or use the command REMOVE "text1.
When I used STOP instead of STOPME, the following was produced:
yahuda
yahud
yahu
yah
ya
y
ya
yah
yahu
yahud
yahuda

I don't understand why.  Can someone please explain this.

Ray Catzel


-----Original Message-----
From:	Yehuda Katz [SMTP:yehuka@beitberl.beitberl.ac.il]
Sent:	Tuesday, June 17, 1997 3:41 PM
To:	Jim Muller
Cc:	Logo-L
Subject:	LOGO-L> Word Sculpturing

Hello Jim,

I don't know if you have the following program in your arsenal:

=============================
to main
ct ts
type "|Give me a word ==> |
sculpture rw
end

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

Enjoy. D you need other sculptures of similar nature?

Regards...

[[Yehuda]]

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

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