Is there a way to set model/mesh alpha?

[DruggedBunnyParticipant]

I want my cubes to fade out, but I haven’t found any way to set alpha level so far… do I need to fiddle with the materials somehow?

I’ve tried creating a PbrMaterial using Color with alpha, and PbrMaterial.BlendMode = BlendMode.Alpha, but that doesn’t work. See highlighted Game.New portion:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Class Game Extends Window Field scene:Scene Field cam:Camera Field light:Light Field background:Model Field cube:Model Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () cam = New Camera light = New Light background = Model.CreateBox (New Boxf (-5, -5, -1, 5, 5, 1), 8, 8, 8, New PbrMaterial (Color.White)) background.Move (5, 0, 5) ' -------------------------------------------------------------------------------------------------- Local alpha:Float = 0.25 Local pm:PbrMaterial = New PbrMaterial (New Color (0, 1, 0, alpha)) pm.BlendMode = BlendMode.Alpha cube = Model.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5), 8, 8, 8, pm) cube.Move (0, 0, 2.5) ' -------------------------------------------------------------------------------------------------- scene.AmbientLight = Color.White * 0.75 scene.ClearColor = Color.Sky * 0.75 cam.Near = 0.01 cam.Far = 1000 light.CastsShadow = True light.Range = 1000 light.Move (0, 50, 10) light.PointAt (cube) End Method OnRender (canvas:Canvas) Override If Keyboard.KeyHit (Key.Escape) Then App.Terminate () cube.Rotate (0.1, 0.2, 0.4) RequestRender () scene.Update () scene.Render (canvas, cam) End End Function Run3D (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center) New AppInstance New Game (title, width, height, flags) App.Run () End Function Main () Run3D ("3D Scene", 960, 540, WindowFlags.Center) ' 1/4 HD! ' Run3D ("3D Scene", 1920, 1080, WindowFlags.Fullscreen) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

#Import "<std>" #Import "<mojo>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d..   Class Game Extends Window    Field scene:Scene Field cam:Camera Field light:Light Field background:Model Field cube:Model Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) scene = Scene.GetCurrent () cam = New Camera light = New Light   background = Model.CreateBox (New Boxf (-5, -5, -1, 5, 5, 1), 8, 8, 8, New PbrMaterial (Color.White)) background.Move (5, 0, 5) ' -------------------------------------------------------------------------------------------------- Local alpha:Float = 0.25 Local pm:PbrMaterial = New PbrMaterial (New Color (0, 1, 0, alpha)) pm.BlendMode = BlendMode.Alpha cube = Model.CreateBox (New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5), 8, 8, 8, pm) cube.Move (0, 0, 2.5)   ' -------------------------------------------------------------------------------------------------- scene.AmbientLight = Color.White * 0.75 scene.ClearColor = Color.Sky * 0.75   cam.Near = 0.01 cam.Far = 1000 light.CastsShadow = True light.Range = 1000   light.Move (0, 50, 10) light.PointAt (cube)   End   Method OnRender (canvas:Canvas) Override If Keyboard.KeyHit (Key.Escape) Then App.Terminate () cube.Rotate (0.1, 0.2, 0.4) RequestRender () scene.Update () scene.Render (canvas, cam) End End Function Run3D (title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Center) New AppInstance New Game (title, width, height, flags) App.Run () End Function Main () Run3D ("3D Scene", 960, 540, WindowFlags.Center) ' 1/4 HD! ' Run3D ("3D Scene", 1920, 1080, WindowFlags.Fullscreen) End

Obviously, the expectation here is that the background will show through the green cube…

[Mark SiblyKeymaster]

The is no transparency yet apart from sprites.

[Author]

Posts