あと floor は不要です (gpset 命令は内部的に引数の座標を floor するので) のでこれもなくすと更に速くなります。