;HSP3.0　物を指定した角度に進ませるサンプル
randomize:FF=16*16-1
repeat
x1=x2:y1=y2:x2=rnd(640):y2=rnd(480)
repeat FF
x=((x2*cnt)+(x1*(FF-cnt))) /FF
y=((y2*cnt)+(y1*(FF-cnt))) /FF
pos x2,y2:color 255,0,0:mes "●"
pos x,y:color 0,0,255:mes "●"
redraw 1:wait 0:redraw 2:color:boxf
loop:loop


もし三角関数とかいやなら、なんかこういうやり方もあるみたい
ちなみに上をこう書き換えると高速版
>redraw 1:wait 0:redraw 2:color:boxf
>loop:loop
loop:redraw 1:wait 0:redraw 2:color:boxf:loop