MathGroup Archive 2007

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

Search the Archive

fun with 6.0 graphics


Submitted for your amusement:

f[x_]:=Piecewise[{{-0.032*x^3+0.36*x^2+0.5,
0<=x<=1.25},{Sqrt[1.25^2-(x-2)^2],1.25<=x<=3.25}}];
bulb[color_:GrayLevel[0.62],bkgrnd_:LightBrown]:=Show[
ParametricPlot3D[{x,f[x]Sin[\[Theta]],f[x]Cos[\[Theta]]},
{x,0,3.25},{\[Theta],0,2*Pi},Mesh->None,
PlotStyle->{Glow[color],Opacity[0.85]},Exclusions->None],
ParametricPlot3D[{x,
Tanh[10*(x+0.75)]*(0.5*Sin[\[Theta]]+0.02*Cos[40*x]),
Tanh[10*(x+0.75)]*(0.5*Cos[\[Theta]]+
0.02*Sin[40*x])},{x,-0.75,0},{\[Theta],0,2*Pi},
PlotStyle->{Gray},Mesh->None],
Graphics3D[{FaceForm[LightGray],EdgeForm[],
Cylinder[{{-0.67,0,0},{-0.65,0,0}},0.075]}],
Graphics3D[{FaceForm[LightGray],EdgeForm[],
Cylinder[{{-0.76,0,0},{-0.725,0,0}},0.125]}],
Graphics3D[{FaceForm[Black],EdgeForm[],
Cylinder[{{-0.725,0,0},{-0.67,0,0}},0.25]}],Axes->None,
Boxed->False,PlotRange->All,Lighting->"Neutral",
ViewVertical->{1,0,0},Background->bkgrnd];

bulb[]

GraphicsGrid[{{bulb[Red],bulb[Yellow],bulb[Green]},
{bulb[Cyan],bulb[Blue],bulb[Purple]}},Spacings->0]


  • Prev by Date: missing from 6.0 documentation
  • Next by Date: Re: Using Locators in Mathematica v6
  • Previous by thread: Re: Re: v. 6, third argument to rectangle
  • Next by thread: Re: Re: Re: v. 6, third argument to rectangle