Блоковый вывод графики

[PSV]

Хаюшки!

В мою программу (на VB ) на достаточно высокой скорости (USB 1.1) поступают картинки построчно в виде пикселей (градации серого), нужно их выводить на экран (форму). Как это сделать побыстрее и покрасивее? Попиксельно рисовать не есть хорошо. Вроде есть API-функции постраничного вывода графики - строится картинка в памяти, потом выводится. Не подскажете данные функции и мож пример использования.

[GSerg]

Подскажем...
GetDIBits сотоварищи...

Ща получишь the most cool example, погодь...

[tyomitch]

CreateDC, CreateDIBSection, SelectObject, заполняешь, BitBlt, DeleteObject, DeleteDC.

[GSerg]

Что?!?

Кто снёс старый VBStreets?!?
Там офигенный фрактальный пример был!

[tyomitch]

Подскажем...
GetDIBits сотоварищи...

а он-то здесь при чём? Скорее уж, наоборот, SetDIBitsToDevice. Даже, пожалуй, лучше, чем моя последовательность...

[tyomitch]

Мандельброт есть в поставке QB... Кинуть сюда, или у тебя есть свой?

[GSerg]

Неее, тот, кто не видел тамошнего, не проникнется его крутизной

Оригинальный алгоритм рисовал фрактал прямо на форме примерно за 140 секунд.
Потом пришёл Aquarius, и алгоритм стал рисовать прямо на форме примерно за 0.8 секунды.

[tyomitch]

ICIM, вот Мандельброт из QB, рисующий прямо по форме (у меня - за пару секунд).

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

DefInt A-Z         ' Default variable type is integer

Sub Mandelbrot()

' Set maximum number of iterations per point:
Const MAXLOOP = 30, MAXSIZE = 1000000

' Loop through each pixel in viewport and calculate
' whether or not it is in the Mandelbrot Set:
For Y = 0 To ScaleHeight   ' Loop through every line in
                           ' the viewport.
   PSet (0, LogicY)        ' Plot leftmost pixel in the line.
   OldColor = 0            ' Start with background color.

   For X = 0 To ScaleWidth ' Loop through every pixel in
                           ' the line.
      MandelX& = X
      MandelY& = Y

      ' Do the calculations to see if this point is in
      ' the Mandelbrot Set:
      For I = 1 To MAXLOOP
         RealNum& = MandelX& * MandelX&
         ImagNum& = MandelY& * MandelY&
         If (RealNum& + ImagNum&) >= MAXSIZE Then Exit For
         MandelY& = (MandelX& * MandelY&) \ 250 + Y
         MandelX& = (RealNum& - ImagNum&) \ 500 + X
      Next I

      ' Assign a color to the point:
      PColor = I Mod 16

      ' If color has changed, draw a line from the
      ' last point referenced to the new point,
      ' using the old color:
      If PColor <> OldColor Then
         Line -(X, Y), QBColor(OldColor)
         OldColor = PColor
      End If

   Next X

   ' Draw the last line segment to the right edge of
   ' the viewport:
   Line -(X, Y), QBColor(OldColor)
Next Y
End Sub

Private Sub Form_Load()
    ScaleMode = vbPixels
    AutoRedraw = True
    WindowState = vbMaximized
    Show
    Mandelbrot
End Sub


А кто такой Aquarius?

[Ennor]

Подозреваю, что вот этот:
http://bbs.vbstreets.ru/profile.php?mod ... ile&u=1802

[tyomitch]

А, это? http://bbs.vbstreets.ru/viewtopic.php?p=12480#12480
Да уж, хотелось бы взглянуть... Ни у кого на винте не сохранилось?