Re: MultipleListPlot MakeSymbol Issue
- To: mathgroup at smc.vnet.net
- Subject: [mg53423] Re: [mg53404] MultipleListPlot MakeSymbol Issue
- From: "David Park" <djmp at earthlink.net>
- Date: Tue, 11 Jan 2005 01:31:07 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Dimitri,
It is a bit difficult to follow exactly what you want. I'll do the simple
case of a starburst effect using the DrawGraphics package from my web site
below.
Needs["DrawGraphics`DrawingMaster`"]
The following routine creates a fitted triangle to a circle with angular
width 2 alpha. One side of the triangle fits the circle and a single line is
produced by using the StichLineSegments routine from the package.
fittedpoint[\[Alpha]_, height_] :=
StitchLineSegments[{Line[{{Cos[\[Alpha]], Sin[\[Alpha]]}, {height,
0}, {Cos[\[Alpha]], -Sin[\[Alpha]]}}],
ParametricDraw[{Cos[a], Sin[a]}, {a, -\[Alpha], \[Alpha]}]}]
The following routine then produces a starburst plot.
Module[{figure},
figure = fittedpoint[\[Pi]/32.0, 1.3];
figure = {Gold, figure /. Line -> Polygon, Black, figure};
Draw2D[
{RoyalBlue, Disk[{0, 0}, 1],
Table[
figure /.
DrawingTransform[#1Cos[n \[Pi]/16] - #2Sin[n \[Pi]/16] &, #1Sin[
n \[Pi]/16] + #2Cos[n \[Pi]/16] &], {n, 0, 31}],
Black, Circle[{0, 0}, 1]},
AspectRatio -> Automatic,
Background -> Linen,
PlotRange -> {{-1, 1}, {-1, 1}}1.4,
ImageSize -> 450]];
First, a basic pointed figure was produced centered at 0 degrees, with a
width pi/16 and a height of 1.3 and fitted to a unit circle.
Then the figure was extended to a Gold polygon with a Black outline.
Then, using the Draw2D routine, which is just a shortcut for
Show[Graphics...], I drew a RoyalBlue disk, then a table of 32 figures
rotated in increments of pi/16. The DrawingTransform routine from the
package was used to produce the rotations. Finally I drew a Black outline
for the unit circle.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Pennyrue at aol.com [mailto:Pennyrue at aol.com]
To: mathgroup at smc.vnet.net
I am trying to rotate an elipse about a fixed point, so that
every pi/16, or so, increment is shown. A sort or spirograph type effect.
So far I've got the elipse rotating around a circle, but the
axes stay fixed as it rotates, it looks like a fat football.
MultipleListPlot[mycircle,SymbolShape->MakeSymbol[{Line[{myelipse}]}]]
Is there a way to transform the myelipse list as it rotates
according to mycircle or the origin?
Another related question. Increasing the size of myelipse is easily done by
n*myelipse, but what about increasing the line thickness?
I assume there must be another package beyond standard add-ons
that can allow both of these tasks?
By the way I'm actually rotating complicated looking parametric equations
following other parametric equations, I just thought a circle and elipse
would be easy to visualize. Thus a solution that would work for any object
to follow the path around any other object with orientation towards the
origin would be ideal. For example, a W looking line rotating around a
circle so the result is a starburst/ray effect.
Thanks,
Dimitri Vorkapich
pennyrue at aol.com
-----------------