Services & ResourcesWolfram ForumsMathGroup Archive

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

fun with 6.0 graphics

• To: mathgroup at smc.vnet.net
• Subject: [mg76542] fun with 6.0 graphics
• From: Selwyn Hollis <sh2.7183 at earthlink.net>
• Date: Wed, 23 May 2007 05:43:22 -0400 (EDT)
• References: <200705110933.FAA06232@smc.vnet.net> <f21g6n$7hg$1@smc.vnet.net> <200705140733.DAA22822@smc.vnet.net> <f2bro8$g3v$1@smc.vnet.net> <200705181010.GAA12971@smc.vnet.net> <200705220655.CAA20120@smc.vnet.net>

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]

• References:
  • v. 6, third argument to rectangle
    • From: rip pelletier <bitbucket@comcast.net>
  • Re: v. 6, third argument to rectangle
    • From: rip pelletier <bitbucket@comcast.net>
  • Re: v. 6, third argument to rectangle
    • From: rip pelletier <bitbucket@comcast.net>
  • Re: Re: v. 6, third argument to rectangle
    • From: Andrzej Kozlowski <akoz@mimuw.edu.pl>