FreeBasic
Главная
Вход
Регистрация
Вторник, 15.10.2024, 16:22Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Не работает 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
 
haavДата: Вторник, 21.05.2013, 19:38 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 1366
Репутация: 49
Статус: Offline
Привет!

В цикле FOR поставь переменную i с типом Integer и все будет работать.


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Маленький_слоникДата: Среда, 22.05.2013, 11:43 | Сообщение # 3
Рядовой
Группа: Пользователи
Сообщений: 2
Репутация: 0
Статус: Offline
Действительно, палитра стала восприниматься. (УРА!)
Хотя и неправильно. Но с этим уже можно разобраться.
Спасибо. :)
 
  • Страница 1 из 1
  • 1
Поиск: