Re: AxesLabel parallel to 3D axes?
- To: mathgroup at smc.vnet.net
- Subject: [mg111588] Re: AxesLabel parallel to 3D axes?
- From: telefunkenvf14 <rgorka at gmail.com>
- Date: Fri, 6 Aug 2010 06:58:12 -0400 (EDT)
- References: <i2rm0a$r4c$1@smc.vnet.net> <i33cps$820$1@smc.vnet.net>
On Aug 4, 4:50 am, Fred Klingener <gigabitbuc... at BrockEng.com> wrote: > On Aug 3, 6:35 am, David Reiss <dbre... at gmail.com> wrote: > > > ... > > Here's a little project: create the open to StarWars along with a > > flyarround > > >http://en.wikipedia.org/wiki/Star_Wars_opening_crawl > > > --David > > This is all I got. > > testStyle = Style[ > "It is a period of civil war. > Rebel spaceships, striking > from a hidden base, have > won their first victory > against the evil Galactic > Empire.\n > During the battle, rebel > spies managed to steal > secret plans to the Empire\[CloseCurlyQuote]s > ultimate weapon, the > DEATH STAR, an armored > space station with enough > power to destroy an entire > planet.\n > Pursued by the Empire\[CloseCurlyQuote]s > sinister agents, Princess > Leia races home aboard her > starship, custodian of the > stolen plans that can save > her people and restore > freedom to the galaxy..." > , FontFamily -> "Helvetica" > , Bold > , FontSize -> 24 > , ShowStringCharacters -> False > , TextJustification -> 1 > ] (* Style *) > > Text3D[s_, pos_: {0., 0., 0.}, opos_: {0., 0.}] := > Module[{polys, x0, y0, xMin, xMax, yMin, yMax} > (* Convert the styled string to Polygon representation *) > , polys = > Cases[ > ImportString[ > ExportString[ > s > , "PDF" > , ShowStringCharacters -> False > ] (* ExportString *) > , "PDF" > ] (* ImportString *) > , _Polygon > , Infinity > ]; > (* Get the min, > max and extents *){{xMin, xMax, x0}, {yMin, yMax, > y0}} = {Min[#], Max[#], > Mean[#]} & /@ (Cases[polys, {x_, y_} :> #, Infinity] & /@ {x, > y}); > (* outer Translate positions the 3D polygons in the scene *) > Translate[ > (* Translate and Scale the 2D polygons *) > (Scale[ > Translate[ > polys > , -{x0, y0} - opos {(xMax - xMin)/2., (yMax - yMin)/2.} > ] (* Translate *) > , 1/72. (* > inches per point *) > , {0, 0} (* > scaled relative to the origin *) > ] )(* > Scale *) /. {x_, y_} -> {x, y, 0.} > , pos] > ] (* Module *) > > text = Text3D[testStyle]; > > Manipulate[ > Graphics3D[{ > FaceForm[Yellow] > , EdgeForm[None] > , Translate[text, {0., yt, 0.}] > } > , Boxed -> False > , PlotRange -> {{-2, 2}, {-8, 8}, {-1, 1}} > , Background -> Black > , ViewPoint -> {0.0, -1, +0.25} > , ViewCenter -> {0.5, 0.5, 0.5} > , ViewVertical -> {0., 0., 1.} > , ViewAngle -> 15 Degree > , ImageSize -> {450, 300} > ] > , {yt, -10, 2, 0.25, Animator, DisplayAllSteps -> True} > ] > > Fred Klingener Very cool. For some reason the font gets all mashed together on my machine when I leave it set to "Bold"... Two resources you may already have: http://library.wolfram.com/infocenter/MathSource/4535/ http://library.wolfram.com/infocenter/Conferences/196/ -RG