Если ожидаемое, должно быть таким:

И у вас в коде всё в порядке. То наверно, это "баг компилятора" ...

Нет исходя из содержимого файла Palette.pal.
У вас построение изображения не соответствует данным палитры.

То что пишите и читаете по 3 байта вовсе не означает что точки размещаются в нужных местах.

Вы пишете в свой файл палитры, диапазоны трёх цветов RGB, по сути трёхмерность. При этом, читаете этот третичный диапазон как двухмерность. У вас не синхронизировано чтение в формуле. Сделайте в вашем втором коде(где создаётся bmp):

Line  = Pow(#PIXEL, 1/3)

И увидете, что ваша палитра станет правильной.  Полный пример чтения вашего  файла палитры, в CanvasGadget:

#PIXEL  = 255 * 255 * 255
Line  = Pow(#PIXEL, 1/3)

Palette = ReadFile(#PB_Any, "Palette.pal")

Macro Get()
  ReadAsciiCharacter(Palette)
EndMacro

If OpenWindow(0, 0, 0, Line+20, Line+20, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CanvasGadget(0, 10, 10, Line, Line)
  
  StartDrawing(CanvasOutput(0))
  For x = 0 To  Line-1
    For y = 0 To  Line-1
      Plot(x, y,  RGB(Get(),  Get(),  Get()))
    Next
  Next
  StopDrawing()
  
  Repeat
    Event = WaitWindowEvent()
  Until Event = #PB_Event_CloseWindow
EndIf

Но, зачем такие сложности, зачем создавать файл в 50Мб, при этом делать 50млн. записей и соответствующую кучу чтений? Это микровыстрел в жёсткий диск для всех, кто будет это делать. Можно более удобно записать и прочитать. Ну и к тому же в PB, есть встроенные способы работы с градиентами, которые можно подогнать под необходимую вам палитру.

P.S. на будущее, к вам просьба. Если задаёте вопрос, то, задавайте его как можно развёрнутее (если вы конечно не "тролль"). Не стесняйтесь писать больше и в том числе прилагать скриншоты(при необходимости, либо для правильного визуального восприятия, либо если что-то сложно описать).
Чем лучше, вы опишете свой вопрос, тем более вероятнее вам лучше и ответят. Никто не обязан догадываться, что вы там имеете ввиду, в своих двух фразах.

Отредактировано Webarion (06.10.2023 02:12:35)

Ок, принимается. Не работал с файлами так подробно, поэтому описал в этом отношении только своё вИдение. И всё же я пока ещё насторожен в последовательности CreateFile() - Write...
В чём разница в принципах:
1. - CreateFile()-Write-Write.....Конец программы
2. - OpenFile()-Write-Write...CloseFile()

Дайте хорошие ссылки почитать, либо неплохо было бы обсудить эту тему в отдельной ветке.

P.S. Кстати AZJIO, у тебя в документации на CreateFile, ничего не написано о закрытии файла. Но, в примере кода присутствует CloseFile(0). Нужно бы это как-то обрулить в самой документации. Т.е. понимание в какой момент, действительно идёт запись на диск, допустим, если данные не превышают буфер. Так и хранятся в памяти, ожидая закрытия программы?

Отредактировано Webarion (09.10.2023 21:54:26)

Спс. Лан, я потестю это всё просто ради интереса.

Отредактировано Webarion (09.10.2023 21:47:29)

И что теперь, не отклоняться ни от одного слова?
Да, ты не автор основного перевода. Но ты сделал большой труд.
И ты имеешь право вносить изменения, на своём языке.
Для этого и существует логика Git имеющая разные версии и мнения.

Отредактировано Webarion (05.10.2023 10:13:41)