a=John_Time jt -100 30 color red [mow1] wait 1 bg white jt 0 0 john_time=2 John_Mow tina_time=1 Tina_Mow joined_time=0.2 Mow_Together local s1 s2 s3 a1 x x1 s1=john_time s2=tina_time s3=(s1+s2)/(s1*s2) if a<=0 [a1 =-a] else [a1=a] x=-100 x1=100 loop 200000*(s1/(s1+s2))*s3*joined_time[ jt x 30 color red [fd 50 bk 100] x=x+1/1000*s2/s1 jt x1 30 color rgb 0 255 0 [fd 50 bk 100] x1=x1 - 1/1000] jt 100 30 color rgb 0 255 0 [mow2] wait 1 bg white jt 0 0 local a1 if a<=0 [a1 =-a] else [a1=a] duration=1 repeat a1*100000*duration [ fd 50 bk 100 jt 1/500/a/duration 0] duration=0.5 repeat 100000*duration [ fd 50 bk 100 jt 1/500/duration 0] duration=0.5*Tina_Time/John_Time repeat 100000*duration [ fd 50 bk 100 jt -1/500/duration 0]