to tuxing
cs stampoval 25 100 true setxy -25 -60 stampoval 5 80 true setxy 25 -60 stampoval 5 80 true
make pp pid
end
to hang ;跟踪鼠标 主程序
tuxing
pu ask pp  [ repeat 10000 [wait 1 fd 1 seth towards mouse ]  ]  pd
end
