ScanLine работает некорректно

@ofx · Регистрация: 22.08.2012

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

Здравсвтуйте, вот такая функция:

C++
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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
TColor *ptr; 
 double D,l1,l2;
try
  {
    pBitmap->Assign( Form1->Image1->Picture->Bitmap);
    double h = pBitmap->Height;
    double w =  pBitmap->Width ;
    for (int y1 = 0; y1 < 100; y1++)
    {
     for (int y = 0; y < pBitmap->Height; y++)
     { 
      ptr = (TColor *)pBitmap->ScanLine[y];
      for (int x = 0; x < pBitmap->Width; x++) 
      { 
         l1 = sqrt(((w/2)-x)*((w/2)-x)+((h/2)-y)*((h/2)-y))  ;
         l2 = sqrt(((w/2)-x)*((w/2)-x)+(((h/2)-5)-y)*(((h/2)-5)-y))  ;
         l1!=0 ? D = ((l2)  -  ( l1)) / (l1) : D = 0;
         ptr[x] = RGB(D*100*y1,0,0);
      }
     }    
    Form1->Image1->Picture->Bitmap->Assign(pBitmap) ;
    Application->ProcessMessages();
    }
  }
  catch (...)
  {
    ShowMessage("Could not load or alter bitmap");
  }
}

Этот код выдает вот это:
http://s10.postimage.org/3p2dg1n1h/scanline.png

А должно быть вот такое (вывод через пиксели):
http://s10.postimage.org/3nsfmml7p/pixels.png

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

@Avazart · 22.08.2012, 20:10

Монохромную ?

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

@ofx · 22.08.2012, 20:26 **[ТС]**

Сообщение от kzru_hunter

понятно, плохо читал,
а как ту получить, которая первая?

Надо установить pBitmap->PixelFormat = pf24bit;
А синяя получается если 32 бита.

Ага, зарабатола. Avazart спасибо. Справка у билдера видать устарела сильно.

@Avazart · 22.08.2012, 20:28

http://docs.embarcadero.com/pr... nLine.html

@kzru_hunter · 22.08.2012, 20:35

Сообщение от ofx

Надо установить pBitmap->PixelFormat = pf24bit;

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

@Avazart · 22.08.2012, 20:37

Можно еще с рандомом поиграться

C++
1
2
3
4
         ptr[x].rgbtRed = D*100*y1;
         srand( D*100*y1 );
         ptr[x].rgbtGreen= rand()%255;
         ptr[x].rgbtBlue= rand()%255;

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	22.08.2012, 20:10
	Монохромную ? То бок у него получился, как я понимаю из за отсутствия предварительной заливки, плюс он пытался видимо загружать картинку с файла поэтому смещение. 1

@Avazart 8489 / 6156 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	22.08.2012, 20:28
	http://docs.embarcadero.com/pr... nLine.html 1