LOGO-L> Word Sculpturing

[Yehuda Katz <yehuka@beitberl.beitberl.ac.il>]

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.