[Date Index] [Thread Index] [Author Index]

Simple display questions

• To: mathgroup at smc.vnet.net
• Subject: [mg126839] Simple display questions
• From: "Ste[hen Gray" <stevebg at roadrunner.com>
• Date: Tue, 12 Jun 2012 02:58:57 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

I have this code:

p0 = {{0, 0, 0}, {2,1,2}, {4,1,2}, {3,3,2}, {
    1,2,1}, {2,1,1}};
p = Transpose[{p0, Append[Rest[p0], First[p0]]}];
c = Table[Hue[Mod[i, 7]/7], {i, Length[p]}];
Graphics3D[Thread[{c, Cylinder[#, 0.07] & /@ p}], Boxed -> True,
  Axes -> True, AxesLabel -> {x, y, z}, ViewPoint -> {20, 20, 20},
  AspectRatio -> 1]

I haven't  used Mathematica for 5 years and I have forgotten a lot.

1. How do I get a label on each point? 1,2,3,4,5,6 would be OK.
2. How do I control the size and color, etc. of those labels?
3. When I move the six points (actually I use Manipulate), the size of 
the box changes, making the change in the polygon confusing. How do I 
keep the box from changing?
4. I assume there is no way to drag the points on the display and have 
the coordinates change accordingly. (Maybe it can in 2D displays?)

Thank you for any info.

Steve Gray

• Follow-Ups:
  • Re: Simple display questions
    • From: Bob Hanlon <hanlonr357@gmail.com>