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>
- v. 6, third argument to rectangle