On Oct 29, 3:50 pm, Brian Adkins <lojicdot...@[EMAIL PROTECTED]
> wrote:
> On Oct 29, 3:44 pm, a11 <ashabsu...@[EMAIL PROTECTED]
> wrote:
>
> > Hi
>
> > I am trying to draw a spiral nautilus using recursion in logo . I
> > try to draw a tail , a spiral which grows in size and a curve which
> > chambers . Can anyone help me with this ?
>
> Can you ask a more specific question and/or post some code exhibiting
> the problem you're experiencing?
I have the code below . I draw a tail and a spiralrd , then a curve
for the chambers and continue with spiralrd , curve , tail to get a
figure which looks like this
http://www.allposters.com/-sp/Nautilus-Shell-Posters_i356711_.htm
TO tail :tsize1
repeat 3[bk :tsize1 lt 10]
repeat 3[rt 10 fd :tsize1]
end
to spiralrd :s :min :dec :tsize1 :csize
if :s <= :min stop
repeat 6[fd :s lt 10]
CURVE :CSIZE
tail :tsize1
pd spiralrd :s/:dec :min :dec :tsize1/:dec :csize/:dec
end
to curve :csize
pd repeat 6[lt 25 fd :csize ]
repeat 6[bk :csize rt 25]
end
to chnaut
make "s 30
make "tsize1 30
make "csize 30
make "dec 2
make "min 1
pu home setxy[0 0]
pd rt 180 rt 90 tail :tsize1
spiralrd :s :min :dec :tsize1 :csize
end
|
