21 lines
358 B
Plaintext
21 lines
358 B
Plaintext
goto2*(:IN!=0)
|
|
:GC=1 if:IN<0 then ::="reset" :IN=1 end
|
|
a=cos :GY b=sin :GY d=cos :GP e=sin :GP f=cos :GR g=sin :GR
|
|
:JZ=a*d-b*g*e :JX=-b*d-a*g*e :JY=f*e :HZ=-b*f :HX=-a*f :HY=-g
|
|
:IZ=-a*e-b*g*d :IX=b*e-a*g*d :IY=f*d goto3*:IN
|
|
|
|
|
|
:GC=1 if:IN<0 then::="reset" :IN=1 end
|
|
goto9*:IN
|
|
|
|
//If you use the LEQGyro then goto8 on line1 in stead of 2
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//By Azurethi
|