Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Arranging disks (or any object for that matter) be
Replies: 6   Last Post: Apr 13, 2013 8:36 PM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
David Park

Posts: 1,560
Registered: 5/19/07
Re: Arranging disks (or any object for that matter) be
Posted: Apr 13, 2013 8:36 PM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

Clif,

The previous Presentations solution can be easily modified for this.

<< Presentations`

I scale the turtle down so it can walk basically on a unit circle.

turtleShape = {Darker[Green], Thickness[1/32],
Circle[{-1, .7}, .5, {8 Pi/6, 3 Pi/2}],
EdgeForm[Directive[Thick, White]], Disk[{1, 0}, .5, {0, Pi}],
Disk[{0, 0}, 1, {0, Pi}], Disk[{-.5, 0}, .25, {Pi, 2 Pi}],
Disk[{.5, 0}, .25, {Pi, 2 Pi}], White, Disk[{1.2, .3}, .04]} //
ScaleOp[1/5, {0, 0}];

This provides the dynamic, again with a completely fixed background. Each
turtle is rotated and then translated into position. I added a circle as a
base for the turtles, who are arrayed clockwise about the circle.

DynamicModule[{numDisks = 0, angle = 0},
pagelet[
phrase["Number of Disks:", Spacer[10],
SetterBar[
Dynamic[numDisks, (numDisks = #;
angle = -2 \[Pi]/Max[1, numDisks]) &], Range[0, 9]]],
Draw2D[
{{GrayLevel[0.5], ComplexCircle[0, 0.96]},
Dynamic@
Table[
turtleShape // RotateOp[(nn - 1) angle - \[Pi]/2, {0, 0}] //
TranslateOp[ToCoordinates[Exp[I (nn - 1) angle]]], {nn, 1,
numDisks}]},
PlotRange -> 1.5,
Background -> LightBrown,
ImageSize -> 500]
]
]


David Park
djmpark@comcast.net
http://home.comcast.net/~djmpark/index.html




From: Clif McInnis [mailto:c_mcinnis@hotmail.com]

Bob,

Thank you, that works very well. I am wondering if it is possible to put an
object in the place of the disk. I have a little turtle shape (the code
below)that I had tried to substitute for the line " Disk[{Cos[a], Sin[a]},
3/Max[8, n]]" which did not work out too well. My guess is that it would
work if I would assign the {x,y} values of the semi disk that makes the
shell to Cos[a],Sin[a] and then related the other parts of the shape to
those coordinates, however before I undertook that endeavor I thought that I
would just ask you to give me a yes/no answer as to whether it would even be
a possibility. Again Thank You for your help.

Sincerely -- Clifton McInnis


Graphics[{
Darker[Green], Thickness[1/32],
Circle[{-1, .7}, .5, {8 Pi/6, 3 Pi/2}],
EdgeForm[Directive[Thick, White]], Disk[{1, 0}, .5, {0, Pi}],
Disk[{0, 0}, 1, {0, Pi}], Disk[{-.5, 0}, .25, {Pi, 2 Pi}],
Disk[{.5, 0}, .25, {Pi, 2 Pi}], White, Disk[{1.2, .3}, .04]}]





Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.