revRotatePoly Pilot Error?
Posted: Thu Dec 03, 2015 12:41 pm
I have this subroutine in 7.0.1C:
The first "answer" gives me the appropriate parameter values. The object does not rotate, the second "answer" is not executed, and revRotatePoly appears to execute an "exit to top" - no errors, and control returns. I have the same results in 5.5.5 and 8.0. It is a "polygon" and I have tried the trick I saw from Berndt to set the points to the effective points. If I replace the revRotatePoly line with a test (commented out in the above code) it works and the second answer executes.
Any ideas of what I'm doing wrong? I have had revRotatePoly working in the past, but I must be having a senior moment, I can't get this to work.
Thanks!
Code: Select all
on idRotate pParms
local tObjectName, tRotation
put item 1 of pParms into tObjectName
put item 2 of pParms into tRotation
answer pParms
revRotatePoly tObjectName, tRotation
// set the width of grc tObjectName to 300
answer "Done"
end idRotate
Any ideas of what I'm doing wrong? I have had revRotatePoly working in the past, but I must be having a senior moment, I can't get this to work.
Thanks!