Monkey 2 Splash Screen.

[Richard BetsonParticipant]

I ended up messing around making a Monkey 2 splash screen. Above is a short video of what I had in mind. Below are the bump-map resources so you can give it a go.

Attachments:

1. 

   monkey2logo.png
   

2. 

   monkey2logo_N.png
   

3. 

   monkey2logo_S.png
   

4. 

   monkey2title.png
   

[Richard BetsonParticipant]

The rest of the title resources.

Attachments:

1. 

   monkey2title_N.png
   

2. 

   monkey2title_S.png
   

[Richard BetsonParticipant]

I have posted (Zip file) code and resources to my monkey splash screen demo here.

For completeness below is the light image and code for the splash screen. You will need resources above as well.

Monkey

'Monkey 2 Splash Screen 'Author: Richard R Betson 'License: Public Domain Namespace monkey2splash #Import "assets/" #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field _monkey2logo:Image Field _monkey2title:Image Field _light:Image Field mlp:Float Field _device_width:Float Field _device_height:Float Method New() Super.New( "Monkey 2 Splash Screen",1280,720, WindowFlags.Resizable | WindowFlags.Maximized ) ClearColor=Color.Black '************ Notice ********** 'The specular and normal maps are loaded in reverse order. 'This allows for the lighting effect I was after. '--------------------------------------------------------- Self._monkey2logo=Image.LoadBump( "asset::monkey2logo.png","asset::monkey2logo_S.png","asset::monkey2logo_N.png", 1.5,False,Null,TextureFlags.FilterMipmap) Self._monkey2title=Image.LoadBump( "asset::monkey2title.png","asset::monkey2title_S.png","asset::monkey2title_N.png" ,100.5,False,Null,TextureFlags.FilterMipmap) Self._monkey2title.Handle=New Vec2f(.5,.5) Self._light=Image.LoadLight( "asset::light.png",Null,TextureFlags.Filter) Self._light.Handle=New Vec2f(.5,.5) End Method OnRender( canvas:Canvas ) Override Self._device_height=canvas.Viewport.BottomRight.Y Self._device_width=canvas.Viewport.BottomRight.X Self.mlp=Self.mlp+2.5 If Self.mlp>600 Self.mlp=600 Endif If Keyboard.KeyHit(Key.Space) Then mlp=0 canvas.AmbientLight=New Color(.6,.6,.6) canvas.BeginLighting() canvas.DrawImage(Self._monkey2logo,(Self._device_width*.5)-256,(Self._device_height*.5)-256) canvas.DrawImage(Self._monkey2title,(Self._device_width*.5),(Self._device_height*.5)+ 300) Self._light.Scale=New Vec2f( 15+(mlp*.1) ,15+(mlp*.1)) Self._light.Color=New Color(.5,.5,.5) canvas.AddLight( Self._light , ((Self._device_width*.5)-880) + mlp, ((Self._device_height*.5)+306) + mlp)', 15+(mlp*.1) ,15+(mlp*.1)) canvas.EndLighting() canvas.DrawText("Hit spacebar to play splash.",10,10) App.RequestRender() End End Function Main() New AppInstance New MyWindow App.Run() 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 85 86 87

'Monkey 2 Splash Screen 'Author: Richard R Betson 'License: Public Domain     Namespace monkey2splash   #Import "assets/" #Import "<std>" #Import "<mojo>"     Using std.. Using mojo..     Class MyWindow Extends Window   Field _monkey2logo:Image Field _monkey2title:Image Field _light:Image Field mlp:Float Field _device_width:Float Field _device_height:Float   Method New() Super.New( "Monkey 2 Splash Screen",1280,720, WindowFlags.Resizable | WindowFlags.Maximized ) ClearColor=Color.Black '************ Notice ********** 'The specular and normal maps are loaded in reverse order. 'This allows for the lighting effect I was after. '--------------------------------------------------------- Self._monkey2logo=Image.LoadBump( "asset::monkey2logo.png","asset::monkey2logo_S.png","asset::monkey2logo_N.png", 1.5,False,Null,TextureFlags.FilterMipmap) Self._monkey2title=Image.LoadBump( "asset::monkey2title.png","asset::monkey2title_S.png","asset::monkey2title_N.png" ,100.5,False,Null,TextureFlags.FilterMipmap) Self._monkey2title.Handle=New Vec2f(.5,.5) Self._light=Image.LoadLight( "asset::light.png",Null,TextureFlags.Filter) Self._light.Handle=New Vec2f(.5,.5)   End Method OnRender( canvas:Canvas ) Override Self._device_height=canvas.Viewport.BottomRight.Y Self._device_width=canvas.Viewport.BottomRight.X Self.mlp=Self.mlp+2.5 If Self.mlp>600 Self.mlp=600 Endif If Keyboard.KeyHit(Key.Space) Then mlp=0 canvas.AmbientLight=New Color(.6,.6,.6) canvas.BeginLighting()   canvas.DrawImage(Self._monkey2logo,(Self._device_width*.5)-256,(Self._device_height*.5)-256) canvas.DrawImage(Self._monkey2title,(Self._device_width*.5),(Self._device_height*.5)+ 300) Self._light.Scale=New Vec2f( 15+(mlp*.1) ,15+(mlp*.1)) Self._light.Color=New Color(.5,.5,.5) canvas.AddLight( Self._light , ((Self._device_width*.5)-880) + mlp, ((Self._device_height*.5)+306) + mlp)', 15+(mlp*.1) ,15+(mlp*.1))   canvas.EndLighting()   canvas.DrawText("Hit spacebar to play splash.",10,10)   App.RequestRender() End End   Function Main()   New AppInstance New MyWindow App.Run() End

Attachments:

1. 

   light.png
   

[nerobotParticipant]

Nice looking!

[Richard BetsonParticipant]

So I was thinking this.

[AmonParticipant]

That looks pretty cool.

[JesseParticipant]

I like it. What it says is catchy and the monkey/image logo is really good. Maybe add some type of a more artistic font for the descriptive.

[Richard BetsonParticipant]

^Right on… Thanks.

I’m going to package this up and submit it to github/bananas (hopefully Mark likes it). If anyone would like to post an alternative font I would be open to possibly including it. The “Friendly. Open Source. Awesome!” text is currently a font size of 48 and an image size of 1024×100. I would like to keep the color the same

I’m hoping that others see the value of using this splash screen on their projects, especially the flashy and well done ones.

[Author]

Posts