10

I’m trying to make rocket flame and jet engine fire that is a Graphics3D object so that it can be used with a 3D rocket project.

There are many types of such flames, but for starters I would like the blue flame as seen here. Any ideas?

thrust vector jet flame Blue flame

These sites don't do what I'm looking for.

Click (http://demonstrations.wolfram.com/RocketFire/) Click (Creating ghost trail effects)

I want to mimic that transparent effect of seeing through the middle of the flame that is visible in the images above. So far I have not been able to get even basic translucent effects right. Nothing I tried was even remotely like the above pictures, so my code is not very useful.

J. M.'s missing motivation
  • 124,525
  • 11
  • 401
  • 574
kmutiny
  • 101
  • 3
  • 5
    Mathematica isn't really the right tool for this. You can create the shape in Mathematica, but then the best way to continue would be to export it and use a raytracer to render it. – Szabolcs Nov 06 '14 at 20:59
  • 1
    Related: How to create blurred Graphics3D objects? Try Image3D. –  Nov 06 '14 at 21:16
  • 3
    @Szabolcs, I guess for getting a reasonable effect one can well try to make an opacity field and then pixel by pixel evaluate the integral. Raytracer is a more general tool, which is neededed for reflection/refraction problems, but here it could be treated a bit simpler. – Alexey Bobrick Nov 06 '14 at 23:05

1 Answers1

18

Probably not that useful, but it turned out looking cool.

temp[x_, y_, z_] := 10000 Exp[-Sqrt[4 + (z - 5)^2]/50]*40/(40 + x^2 + y^2);
Graphics3D[{Opacity[0.5],
  Raster3D[
   Table[Append[List @@ ColorData["BlackBodySpectrum"][#], 
       Clip[(# - 6000) (10000 - #)^2/2.5*^10]] &@
     temp[x, y, z], {x, -5, 5, 1/2}, {y, -5, 5, 1/2}, {z, 0, 30, 1/2}]]
  }, Axes -> True, Background -> Black]

Mathematica graphics

Michael E2
  • 235,386
  • 17
  • 334
  • 747
  • 1
    Great! Only now I'll be involuntarily hearing The Prodigy in my head for the rest of the evening. – Yves Klett Nov 07 '14 at 17:59
  • 2
    Nice, but need a heat control slider :) Manipulate[ Graphics3D[ {Opacity[op], Raster3D[Table[Append[List @@ ColorData["BlackBodySpectrum"][#], Clip[(# - 6000) (10000 - #)^2/2.5*^10]] &@temp[x, y, z], {x, -5, 5, 1/2}, {y, -5, 5, 1/2}, {z, 0, 30, 1/2}]] },Axes -> True, Background -> Black], {{op, .5, "How hot?"}, 0, 1, .1}, SynchronousUpdating -> False, Initialization :> (temp[x_, y_, z_] := 10000 Exp[-Sqrt[4 + (z - 5)^2]/50]*40/(40 + x^2 + y^2) )] Mathematica graphics – Nasser Nov 07 '14 at 18:32
  • @Michael E2 Very cool!! – Bob Brooks Aug 19 '15 at 15:48
  • love the graphics ! +1 – Ali Hashmi May 22 '17 at 22:10