残像は半透明で消していけばそれらしいものはできますが、
『軌跡』となると以前の座標を保存している必要があります。
screen 0,320,240,0
LV=3 ; 軌跡の長さ(1〜7)
len=2<<LV
mask=len-1
col=256/len
dim xbf,len
dim ybf,len
idx=0
repeat
redraw 0
color 0,0,0 : boxf
xbf(idx)=mousex
ybf(idx)=mousey
idx=(idx+1)&mask
p=idx
c=0
repeat len
color c,c,c
line xbf(p),ybf(p)
line xbf(p),ybf(p),0,0
p=(p+1)&mask
c=c+col
loop
redraw 1
await 10
loop
常に配列にマウスカーソルの座標を格納しておき、それらを使って線をひいています。
格納先は1ずつずらして、いっぱいになったら0番目に戻って使いまわしています。
idx=(idx+1)&mask がそれで、idxが+1してその数になるときにidxを0にする計算です。
maskが1,2,4,8,16,32,...のときだけ使えます。