Re: spiral cipher

• To: mathgroup at smc.vnet.net
• Subject: [mg55833] Re: spiral cipher
• From: zak <chocolatez at gmail.com>
• Date: Thu, 7 Apr 2005 05:10:18 -0400 (EDT)
• Reply-to: zak <chocolatez at gmail.com>
• Sender: owner-wri-mathgroup at wolfram.com

```sorry for the mistake, i mean ploting the first 10000 digits of pi
will show the figure:
http://img131.exs.cx/my.php?loc=img131&image=graph2mg.jpg
indeed i have a difficulty in copy and past from N[Pi,10000]  and then
IntegerDigits[...10000digits] then copy the result and paste to dat
variable.
regards
zak
===========================
From: zak <chocolatez at gmail.com>
To: mathgroup at smc.vnet.net
Subject: [mg55833] Re: spiral cipher
Trash this message | Report phishing | Show original
Thanks DrBob
yes this is what i want ,a move like the LOGO language instructions, i
wish wolfram may have special functions for this, this has a benefit
for controling small toy cars via mathlink like move left up right
down and so on, or with an angle.
if we give the first 1000 digits of Pi as a list to DrBob routine we
will see a plot something like the continents of the earth, try it
regards
zak
===============================
From: DrBob <drbob at bigfoot.com>
To: mathgroup at smc.vnet.net
Subject: [mg55833] Re: [mg55777] Re: spiral cipher
Trash this message | Report phishing | Show original
I understood the problem very differently:

dat = (ToCharacterCode["i love apples and cats"] /. (32 -> Sequence[])) - 96;
right = {1, 0}; north = {0, 1};
Show@Graphics@Line@FoldList[
Plus,
{0, 0},
dat*PadRight[{}, Length@dat, {right, north, -right, -north}]]

Bobby

```

• Prev by Date: Re: How do I remove operator status?
• Next by Date: Complex Function Graphics for Mathematica
• Previous by thread: spiral cipher
• Next by thread: Re: Re: spiral cipher