Отрисовка в разных потоках

@Quiet Snow · Регистрация: 25.04.2010

Студворк — интернет-сервис помощи студентам

Господа, давайте делиться опытом, какой код наиболее грамотный.
Суть вопроса: В справке написано - нельзя, но как говорится, если очень
хочется - то можно.
Опытным путём я умудрился понять, что в потоках рисует более чем отлично.
Делаю так: создаю окно, в окне скрин, гружу парочку прозрачных спрайтов или создаю их в
имаджах и переделываю в спрайт(прогу уже выкладывал тут). Создаю поток, в котором эти
спрайты в бесконечном цикле многократно рисуются. Пользую функции:

DisplaySprite
DisplayTransparentSprite
DisplayTranslucentSprite

В основной программе сканирую клавиатуру, мышку и ВНИМАНИЕ!!!
очень осторожно сканирую события таким образом, чтобы в момент отрисови в потоке, не
вызывалась функция WindowEvent().
Так вот вопрос как при таком раскладе сделать так, чтобы нажав кнопку Win можно было выйти в
винду ( ReleaseMouse(1) ) и соответственно войти обратно без последствий( у меня либо появляется
серый экран взаместо рисуемой области, либо мыша приобретает форму весов и при клике на окно
не заходит обратно). Функцию WaitWindowEvent() я по понятным причинам не рассматриваю т.к. она
блокирует программу, а мне нужно, чтобы и в основной программе(не в потоке) мог что-то ещё
обрабатывать.

В потоке у меня примерно так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 Global NowDrawing, NoThreadDraw
 Procedure OtdPotok (*Prm)
  Repeat
 
        If NoThreadDraw = 0     ; Рисуем если допустимо
           NowDrawing = 1   ;  Оповещаем основную прогу, что рисуем
                                   ;   чтобы она не делала ничего "лишнего"
          ClearScreen($FFFFFF)  ;  Очистим экран белым
 
           For i = 1 To 20      ; Рисуем кучу спрайтиков сеткой, для теста
              For y = my To my + 750 Step 16: For x = mx To mx + 1200 Step 16
                  DisplaySprite(NewSPR, x, y)
              Next: Next
           Next
 
          SimpleCur ()   ; Нарисуем курсор
          FlipBuffers()
          ;Delay(1)           ;  Ожидание, думаю аппаратная отрисовка
                                 ;  может тут ещё какое-то время работать
                                 ;  Чисто предположение
           NowDrawing = 0  ; Оповестим программу, что она может делать
                                  ; всё, что запрещено во время отрисовки
          Delay(1)           ; Время на выполнение инструкций основной программой
      EndIf
 
  Until All_Threads_End
 EndProcedure

В основной программе примерно так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
  MyThread = CreateThread (@OtdPotok(), 0)    ; Создать поток
  Delay(50)       ; Подождать пока он активируется
  ThreadPriority(MyThread, 32)   ;  Сделаем поток "ненасытным"
 
 
Repeat
   InputALL ()   ; Опрос клавы, мышки и калькуляция координат мышки(своя ф-ция)
 
     ; Если ничего не рисуем, то опросим окно на наличие событий
    If NowDrawing = 0
       Event = WindowEvent()
    EndIf
     ;  Вот с этим работает всё нормально, но нам это не нужно
     ;Event = WaitWindowEvent()
 
       If KeyboardReleased(219)   ;  Кнопка Win
         Repeat: Until NowDrawing = 0
         ReleaseMouse(1): FirstClick = 1: NoThreadDraw = 1
       EndIf
 
       ;  Вот эту вставку написал давно, поэтому немного подзабыл
       ;  что она делает, в программе без потоков она работает отлично
       Select Event 
          Case #PB_Event_CloseWindow: End     ; Закрыть окно
          Case #PB_Event_RestoreWindow
          Repeat: Until NowDrawing = 0
          ReleaseMouse(0): NoThreadDraw = 0
          Case 513                                        ; Возврат в программу
            Repeat: Until NowDrawing = 0
            ReleaseMouse(0)
            If FirstClick: SetMouseXY (WindowMouseX(f), WindowMouseY(f))
            NoThreadDraw = 0
            FirstClick = 0: EndIf
        EndSelect
 
  Delay(5)    ;  Чтобы прога не жрала весь процессор
Until KeyboardReleased(#PB_Key_Escape)
All_Threads_End = 1   ; Говорим потоку, чтобы он сворачивался
Delay(50)                 ; Время чтобы "убился" поток

Короче говоря, хочется узнать, как всё это заставить нормально работать, а если это
невозможно - убедиться в этом.
С потоками работал мало и многого не представляю, как использовать семафоры и мьютексы пока
не допёр, не очень хочется юзать какие-либо суперсложные механизмы...

Доп информация: Если убрать Delay в 36 строчке - прога заработает, но опять же, как тогда
в основной программе "что-либо делать"? Нужно, чтобы она и через такие промежутки могла
нормально среагировать.

@Pro_grammer · 27.11.2011, 20:24

Сообщение от >Quiet Snow<

У меня на Geforce 6600 показывает 30 и 23 соотв.

На работе стоит быстрый комп, видюха не знаю какая, а проц iCore7. Там интересная закономерность высветилась:
При работе с потоками FPS практически мало зависит от кол-ва спрайтов на экране. Т.е при 1 спрайте ( в нижнем правом углу) значение 79, при всех спрайтах ( курсор в верхнем левом углу) значение FPS = 64.
А если код в одном потоке, то зависимость страшная - при полной нагрузке спрайтами FPS=240, а при 1 спрайте FPS=2010(!), т.е разница почти в 10 раз.

Но в любом случае в однопоточном режиме работает гораздо быстрее, это факт.

@Quiet Snow · 27.11.2011, 21:46 **[ТС]**

Pro_grammer, спасибо за ценную информацию.
Чем больше тестов, тем более объективную информацию мы сможем извлечь о работе этих двух программ.
Я изначально знал, что у второй FPS будет больше, правда не думал, что настолько.

Прога - далеко не идеал, может быть кто-то сможет её улучшить на благо всего pure сообщества.
Цель программы: показать принцип, использующийся при отрисовке в отдельном потоке, ну и
показать, что это не так уж невозможно как нам гласит справка.

Новые блоги и статьи Все статьи Все блоги /
Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	27.11.2011, 21:46 [ТС]
	Pro_grammer, спасибо за ценную информацию. Чем больше тестов, тем более объективную информацию мы сможем извлечь о работе этих двух программ. Я изначально знал, что у второй FPS будет больше, правда не думал, что настолько. Прога - далеко не идеал, может быть кто-то сможет её улучшить на благо всего pure сообщества. Цель программы: показать принцип, использующийся при отрисовке в отдельном потоке, ну и показать, что это не так уж невозможно как нам гласит справка. 0