Alpha and draw commands(rect/triangle)

[PakzParticipant]

How does the Alpha commands work with commands like drawrect?

I wanted to draw two sets of triangles on top of each other where the second set was transparent. But I spend a long time looking for and trying but it did not work.

I tried the canvas popmatrix and alpha and new color alpha. No result.

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New() End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method canvas.Color = Color.Black canvas.DrawRect(100,100,100,100) canvas.BlendMode = BlendMode.Alpha canvas.Color = New Color(0.5,0.5,0.5,0.5) canvas.DrawRect(50,50,200,200) ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function

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

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window     Method New() End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method canvas.Color = Color.Black canvas.DrawRect(100,100,100,100) canvas.BlendMode = BlendMode.Alpha canvas.Color = New Color(0.5,0.5,0.5,0.5) canvas.DrawRect(50,50,200,200) ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class   Function Main() New AppInstance New MyWindow App.Run() End Function

Help!

[therevillsParticipant]

Looks fine here… try adding something in the background so you can see the transparency:

Monkey

[crayon-5cb9d3076f42a825019410 inline="true" ]#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class Box Field x:Int, y:Int, w:Int, h:Int Field color:Color Method Draw(canvas:Canvas) canvas.Color = color canvas.DrawRect(x, y, w, h) End End Class MyWindow Extends Window Field listOfBoxs:List<Box> = New List<Box> Method New() For Local i:Int = 0 To 100 Local b:= New Box b.x = Rnd(0, 640) b.y = Rnd(0, 480) b.w = Rnd(10, 100) b.h = Rnd(10, 100) b.color = New Color(Rnd(.5, 1), Rnd(.5, 1), Rnd(.5, 1), 1) listOfBoxs.AddLast(b) End End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method For Local b:Box = Eachin listOfBoxs b.Draw(canvas) End canvas.Color = Color.Black canvas.DrawRect(100,100,100,100) canvas.BlendMode = BlendMode.Alpha canvas.Color = New Color(0.5, 0.5, 0.5, 0.65) canvas.DrawRect(150,50,200,200) ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function

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

[crayon-5cb9d3076f42a825019410 inline="true" ]#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class Box Field x:Int, y:Int, w:Int, h:Int Field color:Color Method Draw(canvas:Canvas) canvas.Color = color canvas.DrawRect(x, y, w, h) End End   Class MyWindow Extends Window   Field listOfBoxs:List<Box> = New List<Box> Method New() For Local i:Int = 0 To 100 Local b:= New Box b.x = Rnd(0, 640) b.y = Rnd(0, 480) b.w = Rnd(10, 100) b.h = Rnd(10, 100) b.color = New Color(Rnd(.5, 1), Rnd(.5, 1), Rnd(.5, 1), 1) listOfBoxs.AddLast(b) End End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method   For Local b:Box = Eachin listOfBoxs b.Draw(canvas) End   canvas.Color = Color.Black canvas.DrawRect(100,100,100,100) canvas.BlendMode = BlendMode.Alpha canvas.Color = New Color(0.5, 0.5, 0.5, 0.65) canvas.DrawRect(150,50,200,200) ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class   Function Main() New AppInstance New MyWindow App.Run() End Function

[/crayon]

[PakzParticipant]

thanks:)

[Author]

Posts