Private Sub Camera_Ready (Success As Boolean)
If Success Then
r.target = cam
nativeCam = r.GetField("camera")
r.target = nativeCam
parameters = r.RunMethod("getParameters")
Log("Parameter: " & parameters)
SetDisplayOrientation ''-- needed to call this to set
Else
Log("success = false, " & LastException)
End If
CallSub2(target, event & "_ready", Success)
End Sub