Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: fun with 6.0 graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76756] Re: fun with 6.0 graphics
  • From: dimitris <dimmechan at yahoo.com>
  • Date: Sat, 26 May 2007 04:55:09 -0400 (EDT)
  • References: <200705110933.FAA06232@smc.vnet.net><f21g6n$7hg$1@smc.vnet.net>

Oh my God!

Just Marvelous!

Dimitris

 /  Selwyn Hollis       :
> 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: Re: matrices with arbitrary dimensionality
  • Next by Date: Re: packages question
  • Previous by thread: Re: Re: Re: v. 6, third argument to rectangle
  • Next by thread: Re: v. 6, third argument to rectangle