Быстрый попиксельный вывод массива

[D8M]

VT
Непойму я чегото... У меня:

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

    mfrm.out.Cls
    mfrm.out.Refresh

Работает в 10 раз быстрее чем:

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

mfrm.out.Line (0, 0)-(600, 600), , BF
mfrm.out.Refresh

Как получаеться, что у тебя наоборот?

(при тесте cls это я учел, поставив сразу после .cls вызов .pset).

Поставив там псет ты убил 5000-6000 фпс Ты хочешь сказать что когда я вызываю cls без последующих граффических операций, на самом деле ничего не отрисовываеться? Так это не так!

tyomitch
Тоесть сначала CreateCompatibleDc потом CreateDIBSection потом SelectObject, потом в созданный буффер нарисовать тайлы, а потом BitBlt на форму?

А как при помощи RtlFillMemory заполнить весь массив.
Так?

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

FillMemory ByVal bBytes(0), UCase(bbytes)*32,255

Непонимаю я немного как сразу весь массив Long заполнить, помоги плиз

[tyomitch]

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

UCase(bbytes)*32

жжош.

Что у тебя в массиве bBytes -- байты или лонги?

[D8M]

tyomitch

жжош

Угу. Я просто не пойму как можно заполнить сразу весь массив без цикла.

Что у тебя в массиве bBytes -- байты или лонги?

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

Dim bBytes() As Long

[Amed]

32!? UCase!? UCase (Long)!?

[VT]

D8M
Чистый псет дает ~36 000 fps. Так что влиять на производительность катастрофически он не должен. А влияет. Отсюда выводы.

Кроме того. Если псет убрать (а рефреша у меня нигде не было), получается:
cls - 266 000 fps. Я не думаю, что с такой скоростью возможно отрисовывать размер 600*600. Если считать, что ОдинПиксель-ОдинТакт, то тактовая частота как минимум 95 Гигагерц. А у меня в процессоре их всего 1.7.
Есть и другая бяка. Если тем же методом прикинуть частоту по скорости работы .line, получается 2.8GHz, что тоже подозрительно и говорит от том, что так прикидывать не совсем верно.

По этому я и хочу сказать, что при вызове .cls реальной отрисовки не происходит.

Есть еще интересное явление. Если создать очень большой PictureBox, со включенным AutoRedraw, то при его создании ничего плохого не происходит. И при .cls - тоже. А вот при вызове pset возникнет ошибка Can't create autoredraw image. Ну, конечно, picturebox должен иметь действительно большие размеры. Думаю, 8000*8000 должнно хватить, вообще зависит от компа.

И еще.
mfrm.Image.Handle меняется после вызова .cls

И еще. Доведу дело до абсурда: проверю на оч. большом рисунке.
Скорость работы одинокого .cls одинакова при размерах 100*100 и 4000*4000. Правда, для .autoredraw=false это не верно - там зависит.
А метод line в применении к picturebox размером 4000*4000 дает уже всего 10fps, что говорит о том, что отрисовка действительно происходит. А cls+pset дают лишь 2,5fps при этом же размере (видимо падает, так как приходится еще и выделять память каждый раз).

[VT]

ВНИМАНИЕ. Кто скачивал Lichita.rar моего авторства! Я нашел у себя вирус! Win32.Sality.e. По сему, просканируйте компьютер на вирусы.

И извините за невнимательность.

[Саша_ОР]

Люди, а как с помощью SetDIBitsToDevice переворачивать картинку на прямой угол, а то у меня изображение вверх ногами?

[Mikle]

Саша_ОР
Если картинка "вверх ногами", то поворот на прямой угол не поможет. А SetDIBitsToDevice всего лишь отображает массив на экран. Если картинка "вверх ногами" - поменяй в массиве строки местами.

[tyomitch]

В WinNT для поворота картинки есть функция PlgBlt.

[GSerg]

На самом деле, надо просто поставить минус перед высотой...

[tyomitch]

Так это выйдет вверх ногами, а хотят будто бы на прямой угол?

[GSerg]

а то у меня изображение вверх ногами?

[Саша_ОР]

Спасибо! Минусы перед высотой делают свое дело...

А то следующий код, меняющий строки, мне очень не нравится:

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


  'медленно, но верно...
  Dim N As Long: N = -1
  Dim t As Long
  t = screen_width * screen_height + screen_width
  For y = 0 To screen_height - 1
    t = t - screen_width * 2
    For x = 0 To screen_width - 1
      N = N + 1
      memory32draw(N) = memory32(t)
      t = t + 1
    Next x
  Next y