Рисуем спрайт на спрайте

[Don Leno]

Написал простенький класс для своих спрайтов (исходник ниже). Теперь задался вопросом как мне отрисовать на одном спрайте другой? К примеру:

Код: Выделить всё

Dim Spr1 asw New Sprite
Dim Spr2 asw New Sprite

Spr1.Draw Spr2

Подумываю использовать CopyMemory для копирования из одного массива в другой, но спрашивается как достучаться до их массивов?? Подскажите пжл-та как реализуется подобная задача? Пусть не обязательно через CopyMemory, рассмотрю и альтернативы.

[Mikle]

как достучаться до их массивов?

Вычисляешь область пересечения приёмника и источника, построчно вызываешь CopyMemory, передавая туда ByVal указатели, как например вычисляется указатель в SR2D:

Код: Выделить всё

Public Property Get DataPTR(ByVal x As Long, ByVal y As Long) As Long
  DataPTR = VarPtr(cBuf(x + y * meWidth))
End Property


[Don Leno]

Спс Mikle. Обязательно воспользуюсь! А есть еще какие нитб альтернативные варианты? Спрашиваю интереса ради. Кстати я написал сабу Draw но если закинуть ее в мой главный цикл сжирает сразу аж 80 фпс!!! Ужас!

У меня проблема выскакивает ошибка если метод применить на еще не созданом спрайте, ведь тогда массив не инициализируется и выкидывает сообщение "нижний индекс вне диапозона". Как не допустить такой ошибки. Есть возможность проверить создан ли спрайт прежде чем с ним работать?

[Mikle]

У меня проблема выскакивает ошибка если метод применить на еще не созданом спрайте, ведь тогда массив не инициализируется и выкидывает сообщение "нижний индекс вне диапозона". Как не допустить такой ошибки. Есть возможность проверить создан ли спрайт прежде чем с ним работать?

Возможность есть, но нужно ли это? Если идёт обращение к неинициализированному спрайту, значит что-то недосмотренно в программе, так быть не должно.

[Don Leno]

Я просто думал отлавливать данную ошибку и выводить мессенджбокс с сообщением "экземпляр спрайта не был создан!" Или тп. А все таки как делается подобная проверка? Или это слишком сложно?

[Mikle]

Я просто думал отлавливать данную ошибку и выводить мессенджбокс с сообщением "экземпляр спрайта не был создан!" Или тп.

Это можно сделать с помощью On Local Error в процедуре Draw.

[The trick]

Я просто думал отлавливать данную ошибку и выводить мессенджбокс с сообщением "экземпляр спрайта не был создан!" Или тп. А все таки как делается подобная проверка? Или это слишком сложно?

Да просто изначально создавай спрайт 1x1 пиксел в Class_Initialize и не будет возникать такой ошибки.

[Mikle]

Да просто изначально создавай спрайт 1x1 пиксел в Class_Initialize и не будет возникать такой ошибки.

Я так сделал в SR2D, но иногда сомневаюсь в этом решении. Если я допускаю ошибку, забываю где-то загрузить изображение, то программа работает, как ни в чем не бывало, но результат неверный и это не всегда явно видно.

[The trick]

Я так сделал в SR2D, но иногда сомневаюсь в этом решении. Если я допускаю ошибку, забываю где-то загрузить изображение, то программа работает, как ни в чем не бывало, но результат неверный и это не всегда явно видно.

Такой подход используется в GDI, там при создании DC в него автоматом выбирается монохромный битмап 1x1 пиксель:

Note: When a memory device context is created, it initially has a 1-by-1 monochrome bitmap selected into it. If this memory device context is used in CreateCompatibleBitmap, the bitmap that is created is a monochrome bitmap. To create a color bitmap, use the HDC that was used to create the memory device context, as shown in the following code:

Ссылка.

[Don Leno]

Так по мне msgbox вызывать лучше. Так я узнаю о своей ошибке. Потом можно вообще эту функцию удалить за ненадобностью... спс всем))

Mikle, так?

Код: Выделить всё

On Local Error Goto Err

Err:
msgbox "No Create Sprite!"


[Mikle]

так?

Так. Точнее так:

Код: Выделить всё

Sub Draw ()
  On Local Error Goto Err
  ' Здесь рисуем
  Exit Sub
Err:
  ' Анализируем причины ошибки
  msgbox "Причина ошибки"
EndSub