Не работает Palette при выводе Line ,BF

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Форум » Freebasic » Вопросы по языку FreeBasic » Не работает Palette при выводе Line ,BF (Не работает Palette при выводе Line ,BF в программе)

Не работает Palette при выводе Line ,BF

Маленький_слоник

Дата: Вторник, 21.05.2013, 15:06 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 2

Репутация: 0

Статус: Offline

В прилагаемой в архиве программе не работает оператор Palette
Программа его полностью игнорирует. sad

Выводит казюку.
Чтобы убедиться в этом достаточно активировать строку 29
и убрать строку 30.
Почему, может кто нибудь знает? В чем ошибка?
Как правильно?
Про функцию вывода из файла BMP знаю
Хочется чтоб в этой программе заработало. smile

Что должно получиться: - вывод BMP файла квадратиками 4*4Palette

'Объявляем массив под bmp изображение
Dim As byte BUFF_PICT(46078)

'Читаем файл no_Palette.bmp в массив
Open "no_Palette.bmp" For Binary Access Read As #1
Dim As Integer count
For count=1 to 46078
GET #1,count,BUFF_PICT(count-1),1
Next count

Screen 21 'Объявляем окно

DIM as INTEGER x,y,countt
DIM as byte i

' загружаем палитру ???
For i=0 To 255
' Palette i, BUFF_PICT(54+i*4), BUFF_PICT(55+i*4), BUFF_PICT(56+i*4)
Palette i, 128, 128, 128 ' ЕСЛИ РАСКОМЕНТАРИТЬ ТО НИЧЕГО НЕ ПРОИЗОЙДЕТ !!!!!!?????????
Next i

'вывим квадратикм по цветам
countt=1078
FOR y=0 to 150-1
FOR x=0 to 300-1
'Input #fp, title(y,x)
Line (x*4,(149-y)*4)-(x*4+4,(149-y)*4+4), BUFF_PICT(countt),BF
countt=countt+1
NEXT x
NEXT y

Sleep

Изображение bmp файл 300*150 8 бит цветности

Сообщение отредактировал Маленький_слоник - Вторник, 21.05.2013, 15:19