Window.ClearColor vs canvas.Clear(color)

[therevillsParticipant]

I’m using a virtual resolution in letterbox mode and I want to change the background colour from black to a light bluish colour.

When using ClearColor and when I “fade to black” using DrawRect(0, 0, width, height) the “border” color is still the bluish colour:

Monkey

bgColor = New Color(109.0/255.0, 194.0/255.0, 202/255.0) Window.ClearColor = bgColor

1 2 3

bgColor = New Color(109.0/255.0, 194.0/255.0, 202/255.0) Window.ClearColor = bgColor

If I keep the ClearColor as black and use canvas.Clear to have my background as the bluish colour the borders keep black, which is what I want but there is a performance hit:

Monkey

canvas.Clear(bgColor)

1 2 3

canvas.Clear(bgColor)

Is there any other solutions I am missing?

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 320,200 ) Class MyWindow Extends Window Field _ratio:Float = 1 Method New() Super.New( "My Window",800,600,WindowFlags.Resizable ) Layout="letterbox" ClearColor = New Color(109.0/255.0, 194.0/255.0, 202/255.0) End Method OnRender( canvas:Canvas ) Override _ratio -= 0.005 If _ratio < 0 Then _ratio = 1 App.RequestRender() canvas.Color = Color.White canvas.DrawText( "Hello World",Width/2,Height/2,.5,.5 ) canvas.Color = Color.Black canvas.Alpha = 1 - _ratio canvas.DrawRect(0,0,Width,Height) canvas.Color = Color.White canvas.Alpha = 1 End Method OnMeasure:Vec2i() Override Return Size 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Const Size:=New Vec2i( 320,200 )   Class MyWindow Extends Window Field _ratio:Float = 1 Method New() Super.New( "My Window",800,600,WindowFlags.Resizable ) Layout="letterbox" ClearColor = New Color(109.0/255.0, 194.0/255.0, 202/255.0) End   Method OnRender( canvas:Canvas ) Override _ratio -= 0.005 If _ratio < 0 Then _ratio = 1 App.RequestRender() canvas.Color = Color.White canvas.DrawText( "Hello World",Width/2,Height/2,.5,.5 ) canvas.Color = Color.Black canvas.Alpha = 1 - _ratio canvas.DrawRect(0,0,Width,Height) canvas.Color = Color.White canvas.Alpha = 1 End   Method OnMeasure:Vec2i() Override Return Size End End   Function Main() New AppInstance New MyWindow App.Run() End

Attachments:

1. 

   Capture.png
   

[AdamStrangeParticipant]

use clearcolor for the entire window color

with your ‘own’ window you will need to clear the color to black first
canvas.Color = Color.Black
canvas.DrawRect( 0, 0, Width, Height )

then the alpha stuff will fade to black as you wanted

[Mark SiblyKeymaster]

Here’s a little demo of manually drawing letterbox borders yourself.

This allows you to turn of windows clearing so there is 0 overdraw, I’m not sure it’ll be significantly faster, or even any faster at all as window clearing should be pretty fast. But it’s still nice to be able to customize letterbox borders…

If it is significantly faster, it’s probably worth adding an option similar to Window.ClearEnabled to automate it.

It uses the currently undocumented View.RenderBounds property, but it should be pretty obvious what this does, ie: it’s the view ‘bounds’  in windows coordinates. View bounds is view rect + padding + border + margin.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class GameView Extends View Method New() Layout="letterbox" End Method OnRender( canvas:Canvas ) Override RequestRender() canvas.Clear( Color.Blue ) canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) End Method OnMeasure:Vec2i() Override Return New Vec2i( 320,200 ) End End Class MyWindow Extends Window Method New() Super.New( "VRES test",640,480,WindowFlags.Resizable ) Local gameView:=New GameView ContentView=gameView ClearEnabled=False End Method OnRender( canvas:Canvas ) Override Local rect:=ContentView.RenderBounds canvas.Color=Color.Red 'left border? If rect.Left canvas.DrawRect( 0,0,rect.Left,Height ) 'right border? If rect.Right<Width canvas.DrawRect( rect.Right,0,Width-rect.Right,Height ) 'top border? If rect.Top canvas.DrawRect( 0,0,Width,rect.Top ) 'bottom border? If rect.Bottom<Height canvas.DrawRect( 0,rect.Bottom,Width,Height-rect.Bottom ) 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

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class GameView Extends View Method New() Layout="letterbox" End Method OnRender( canvas:Canvas ) Override RequestRender() canvas.Clear( Color.Blue ) canvas.DrawText( "Hello World!",Width/2,Height/2,.5,.5 ) End Method OnMeasure:Vec2i() Override Return New Vec2i( 320,200 ) End   End     Class MyWindow Extends Window   Method New()   Super.New( "VRES test",640,480,WindowFlags.Resizable ) Local gameView:=New GameView ContentView=gameView ClearEnabled=False End Method OnRender( canvas:Canvas ) Override Local rect:=ContentView.RenderBounds   canvas.Color=Color.Red 'left border? If rect.Left canvas.DrawRect( 0,0,rect.Left,Height ) 'right border? If rect.Right<Width canvas.DrawRect( rect.Right,0,Width-rect.Right,Height ) 'top border? If rect.Top canvas.DrawRect( 0,0,Width,rect.Top ) 'bottom border? If rect.Bottom<Height canvas.DrawRect( 0,rect.Bottom,Width,Height-rect.Bottom ) End   End   Function Main()   New AppInstance New MyWindow App.Run() End

[therevillsParticipant]

Thanks Mark, I’ll have a look

[Author]

Posts