iOS Question [SOLVED] How to use an OBJC code

[Star-Dust]

I wanted to rotate them on all three axes. I found this code (here)
How can I do it in B4i?

// flipping view along axis
// this will rotate view in 3D along any axis

[UIView beginAnimations:nil context:nil];
CATransform3D _3Dt = CATransform3DRotate(self.layer.transform, 3.14, 1.0, 0.0,0.0);
[UIView setAnimationRepeatCount:100];
[UIView setAnimationDuration:0.08];
self.layer.transform=_3Dt;
[UIView commitAnimations]

 

[JordiCP]

This a small working example



The code

Spoiler

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page
  
    Dim myIV As ImageView
    Dim myAngle As Int=0
End Sub

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.Title = "3D rotations rule!"
    Page1.RootPanel.Color = Colors.White
    NavControl.ShowPage(Page1)
  
    myIV.Initialize("myIV")
    myIV.ContentMode = myIV.MODE_FILL
    myIV.Bitmap = LoadBitmap(File.DirAssets, "testpic.png")
End Sub

Private Sub Page1_Resize(Width As Int, Height As Int)
    Dim WW As Int = 6*Width/8    'Just to center it with nice dimensions
    Dim HH As Int = WW
    Page1.RootPanel.addview(myIV, (Width-WW)/2, (Height-WW)/2, WW, HH)
End Sub

Private Sub Application_Background
End Sub

Sub  Page1_Click
    Dim no As NativeObject = Me
    myAngle = (myAngle+10) Mod 360
    no.RunMethod("rotateView::",Array(myIV, myAngle))
End Sub

#if OBJC
- (void)rotateView:(UIView*)mView :(NSInteger)mAngle {
    //Apply ransformation to the PLANE
    CATransform3D t = CATransform3DIdentity;
    //Add the perspective!!!
    t.m34 = 1.0/ -500;    // Play with this for depth changes
    t = CATransform3DRotate(t, mAngle * M_PI / 180.0f, 0, 1, 0);
    mView.layer.transform = t;
}
#End If

 

[Star-Dust]

Thanks it works.
As you understand, I'm inserting 3D rotations in the B4X views of my library
I already know how to do for Android (RotateX, Pivot etc ..) I was missing the method for IOS.

but ine question... Why this?

 myAngle = (myAngle+10) Mod 360

 

[JordiCP]

As you understand, I'm inserting 3D rotations in the B4X views of my library

You are a 3D addict!

but ine question... Why this?

myAngle = (myAngle+10) Mod 360

It was just for the demo example: each time you click, the rotation angle increases

 

[Star-Dust]

BUT if I wanted to pass more parameters?
These are stupid questions for those who know Object-C ... but it's the first time I'm dealing with this language and it's different from anything I've ever seen

Sub  Page1_Click
    Dim no As NativeObject = Me
    no.RunMethod("rotateView::",Array(myIV, myAngleX, myAngleY, myAngleZ))
End Sub

#if OBJC
- (void)rotateView:(UIView*)mView :(NSInteger)mAngle { --- ??????????????
    //Apply ransformation to the PLANE
    CATransform3D t = CATransform3DIdentity;
    //Add the perspective!!!
    t.m34 = 1.0/ -500;    // Play with this for depth changes
    t = CATransform3DRotate(t, mAngle * M_PI / 180.0f, 0, 1, 0);
    mView.layer.transform = t;
}
#End If

 

[JordiCP]

BUT if I wanted to pass more parameters?
These are stupid questions for those who know Object-C ... but it's the first time I'm dealing with this language and it's different from anything I've ever seen

Also learning, agree that syntax scares a bit at the beginning...

Sub  Page1_Click
    Dim no As NativeObject = Me
    'Rule: as many ":" as parameters
   ' Using here only one base-angle to make it usable in the original demo
    no.RunMethod("rotateView::::",Array(myIV, myAngle, myAngle/2, myAngle/3))
End Sub

#if OBJC
- (void)rotateView:(UIView*)mView :(NSInteger)mAngleX :(NSInteger)mAngleY :(NSInteger)mAngleZ  { 
    //Apply transformation to the PLANE
    CATransform3D t = CATransform3DIdentity;
    //Add the perspective!!!
    t.m34 = 1.0/ -500;    // Play with this for depth changes
    t = CATransform3DRotate(t, mAngleX * M_PI / 180.0f, 1, 0, 0);
    t = CATransform3DRotate(t, mAngleY * M_PI / 180.0f, 0, 1, 0);
    t = CATransform3DRotate(t, mAngleZ * M_PI / 180.0f, 0, 0, 1);
    mView.layer.transform = t;
}
#End If

 

[Star-Dust]

Also learning, agree that syntax scares a bit at the beginning...

Sub  Page1_Click
    Dim no As NativeObject = Me
    'Rule: as many ":" as parameters
   ' Using here only one base-angle to make it usable in the original demo
    no.RunMethod("rotateView::::",Array(myIV, myAngle, myAngle/2, myAngle/3))
End Sub

#if OBJC
- (void)rotateView:(UIView*)mView :(NSInteger)mAngleX :(NSInteger)mAngleY :(NSInteger)mAngleZ  {
    //Apply transformation to the PLANE
    CATransform3D t = CATransform3DIdentity;
    //Add the perspective!!!
    t.m34 = 1.0/ -500;    // Play with this for depth changes
    t = CATransform3DRotate(t, mAngleX * M_PI / 180.0f, 1, 0, 0);
    t = CATransform3DRotate(t, mAngleY * M_PI / 180.0f, 0, 1, 0);
    t = CATransform3DRotate(t, mAngleZ * M_PI / 180.0f, 0, 0, 1);
    mView.layer.transform = t;
}
#End If

I tried and tried again, read tutorial. I've tried the code you mentioned ... only I did not understand what the ":" was for ... the number of parameters.

He signaled me an error.

Thank's