let unsafe_blit_on_other ra1 ofs1 ra2 ofs2 len = let ofs_diff = ofs2 - ofs1 in for i = ofs1 to ofs1 + len - 1 do unsafe_set ra2 (i + ofs_diff) (unsafe_get ra1 i) done