21 lines
133 B
Plaintext
21 lines
133 B
Plaintext
:calibrate=1
|
|
f=0.8 r=1 goto2+:al
|
|
:frp=(:gp<-r)*f-(:gp>r)*f-:gp :frr=(:gr<-r)*f-(:gr>r)*f-:gr
|
|
:frp=0 :frr=0 goto3*:al
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|