x1=-70 y1=50 //green start x2=70 y2=50 //red start xmeet=20 ymeet=0 //yellow meet speed1=100 //green speed2=20 // red zzscene jt 1000 0 zzshowme local d d=10 color gray [ spin 4 [repeat 100 [fd 1000 fd -2000 jt d 0 ] jt 0 0] ] linestyle 0 2 [spin 4 [fd 1000 jt 0 0 ]] local t d1 d2 zzgrid jt (-1000*x1 +(1 + 1000)*xmeet) (-1000*y1 +(1 + 1000)*ymeet) mt (1000*x1 +(1 - 1000)*xmeet) (1000*y1 +(1 - 1000)*ymeet) jt (-1000*x2 +(1 + 1000)*xmeet) (-1000*y2 +(1 + 1000)*ymeet) mt (1000*x2 +(1 - 1000)*xmeet) (1000*y2 +(1 - 1000)*ymeet) jt 0 0 jt x1 y1 solid green [circle 10] jt x2 y2 solid red [size 0.3[ngon 3]] jt xmeet ymeet solid yellow [circle 6] d1=sqrt ((xmeet - x1)^2 + (ymeet - y1)^2) d2=sqrt ((xmeet - x2)^2 + (ymeet - y2)^2) speed2_c=speed1*d2/d1 t=0 loop 20000 [t=t+1/20000 jt (x1 + (xmeet - x1)*t) (y1 + (ymeet - y1)*t) color green [circle 3] jt x2 + (xmeet - x2)*t*speed2/speed2_c y2 + (ymeet - y2)*t*speed2/speed2_c color red [circle 3]] local t d1 d2 zzgrid jt (-1000*x1 +(1 + 1000)*xmeet) (-1000*y1 +(1 + 1000)*ymeet) mt (1000*x1 +(1 - 1000)*xmeet) (1000*y1 +(1 - 1000)*ymeet) jt (-1000*x2 +(1 + 1000)*xmeet) (-1000*y2 +(1 + 1000)*ymeet) mt (1000*x2 +(1 - 1000)*xmeet) (1000*y2 +(1 - 1000)*ymeet) jt x1 y1 solid green [circle 10] jt x2 y2 solid red [size 0.3[ngon 3]] jt xmeet ymeet solid yellow [circle 6] jt 0 0 linestyle 0 2 [ JT -70 50 COLOR black [MT -70 0] COLOR black [MT 70 0] COLOR black [MT 70 50]] jt 20 0 COLOR black [MT -70 50] jt 20 0 COLOR black [MT 70 50] JT -48 15 FILL lightpink JT 44 17 FILL lightpink jt 0 0 zzscene1 JT -89 45 size 1.5 [wr "A"] JT -89 -9 size 1.5 [wr "B"] JT 22 -12 size 1.5 [wr "C"] JT 77 54 size 1.5 [wr "D"] JT 77 -8 size 1.5 [wr "E"] jt 1000 0