[angvelem]

Спасибо, всё получилось. С учётом того, что функция BitBlt дуракоустойчива, нет смысла что-либо добавлять ещё к приведённому примеру, меняем только строку
while a<w на while a<w+h.