| Author |
Comment/Response |
Michael
|
 06/01/12 11:23am
Wrap helix in Line:
helix =
Table[{0.5 + 0.4 Cos[t], 0.5 + 0.4 Sin[t], t/(4 Pi)}, {t, 0, 4 Pi,
Pi/64}];
Graphics3D[{
Map[{PointSize[0.04], Apply[RGBColor, #], Point[#]} &, UCC],
{Text["Red", {0.6, -0.07, 0}], Text["1", {1, 0.07, 0}]},
{Text["Green", {0.05, .4, .2}], Text["1", {0, .9, 0.1}],
Text["0", {0, -0.075, 0}]},
{Text["Blue", {0.025, 0.025, 0.7}], Text["1", {0, 0.05, 1.0}]},
{Line[{{0, 0, 0}, {0, 1, 0}, {1, 1, 0}, {1, 0, 0}, {0, 0, 0}}]},
{Line[{{0, 0, 1}, {0, 1, 1}, {1, 1, 1}, {1, 0, 1}, {0, 0, 1}}],
Line[{{0, 0, 0}, {0, 0, 1}}],
Line[{{0, 1, 0}, {0, 1, 1}}],
Line[{{1, 1, 0}, {1, 1, 1}}],
Line[{{1, 0, 0}, {1, 0, 1}}]},
Line[helix]
}
,
{
Boxed -> False,
AspectRatio -> Automatic, Boxed -> False,
PlotRange -> {{-0.02, 1.02}, {-0.02, 1.02}, {-0.02, 1.02}},
Lighting -> None, Axes -> False, AxesLabel -> {" ", " ", " "},
AxesEdge -> {Automatic, {-1, -1}, Automatic},
Ticks -> {{0, 1}, {1}, {1}}, ImageSize -> 300
}
]
URL: , |
|
