I have this and it works but I would like to know how big the objects are. and maybe resize them if needed
Im stuck
my class code. (that works as intended) I just need to know the size
Im stuck
my class code. (that works as intended) I just need to know the size
B4X:
Sub Class_Globals
Public bw As X2BodyWrapper
Private x2 As X2Utils 'ignore
Private IDfirstRPMled As Int = 44
Public myTag As String
Public Posx As Float
Public PosY As Float
End Sub
Public Sub Initialize (wrapper As X2BodyWrapper)
bw = wrapper
x2 = bw.X2
bw.DelegateTo = Me
CreateRPMLED
End Sub
Public Sub Tick (GS As X2GameStep)
If GS.ShouldDraw Then
'Log("myTag :" & myTag)
End If
End Sub
private Sub CreateRPMLED
Log("myTag :" & myTag)
Log("x2.ScreenAABB.TopRight.X:" & x2.ScreenAABB.TopRight.X & " - " & "x2.ScreenAABB.TopRight.Y:" & x2.ScreenAABB.TopRight.Y)
Log("x2.ScreenAABB.BottomLeft.X:" & x2.ScreenAABB.BottomLeft.X & " - " & "x2.ScreenAABB.BottomLeft.Y:" & x2.ScreenAABB.BottomLeft.Y)
For i = 0 To 14 '14
Dim template As X2TileObjectTemplate = x2.mGame.TileMap.GetObjectTemplate(x2.mGame.ObjectLayer,bw.Id+i)
x2.mGame.TileMap.CreateObject(template)
Next
Dim testbod As X2BodyWrapper = x2.GetBodyWrapperById(bw.Id)
Log("testbod.Body.GravityScale : " & testbod.Body.GravityScale)
Log("testbod.X2.ScreenAABB.Width : " & testbod.X2.ScreenAABB.Width & " - " & "testbod.X2.ScreenAABB.Height : " & testbod.X2.ScreenAABB.Height)
End Sub