SQR DUP GET_DISTANCE CURRTIME VAR CURRTIME SELFSTARTTIME VAR SELFSTART

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
; : SQR DUP * //;
; : GET_DISTANCE
'CURRTIME' VAR ->CURRTIME
'SELFSTARTTIME' VAR ->SELFSTARTTIME
'SELFACCELY' VAR ->SELFACCELY
'SELFACCELX' VAR ->SELFACCELX
'SELFVELY' VAR ->SELFVELY
'SELFVELX' VAR ->SELFVELX
'SELFY' VAR ->SELFY
'SELFX' VAR ->SELFX
'OBJSTARTTIME' VAR ->OBJSTARTTIME
'OBJACCELY' VAR ->OBJACCELY
'OBJACCELX' VAR ->OBJACCELX
'OBJVELY' VAR ->OBJVELY
'OBJVELX' VAR ->OBJVELX
'OBJY' VAR ->OBJY
'OBJX' VAR ->OBJX
'SELFT' VAR @CURRTIME @SELFSTARTTIME - ->SELFT
'OBJT' VAR @CURRTIME @OBJSTARTTIME - ->OBJT
'CURRSX' VAR @SELFX @SELFT @SELFVELX * + @SELFACCELX @SELFT SQR * 2 / + ->CURRSX
'CURRSY' VAR @SELFY @SELFT @SELFVELY * + @SELFACCELY @SELFT SQR * 2 / + ->CURRSY
'CURROX' VAR @OBJX @OBJT @OBJVELX * + @OBJACCELX @OBJT SQR * 2 / + ->CURROX
'CURROY' VAR @OBJY @OBJT @OBJVELY * + @OBJACCELY @OBJT SQR * 2 / + ->CURROY
@CURRSX @CURROX - SQR @CURRSY @CURROY - SQR +
//;