Lib_beta: Перенаправления вывода в картинку/на дисплей

[odd]

Пока что библиотеки для облегчения генерации картинок не было.
Я решил исправить это досадное недоразумение.
Библиотека крайне простая. Новые функции такие:

 
CreateImage(w: integer; h: integer) - Создать пустую (белую) картинку с размерами w * h
    Если w и h равны 0 - картинка удаляется (с очисткой памяти).
 
Replace - Переключить фокус вывода с дисплея в картинку и наоборот.
    После переключения фокуса вывода в картинке можно рисовать стандартными методами MIDletPascal
    (рисовать примитивы: линии, точки, круги, дуги; надписи; выводить в неё др. картинки и проч.)
 
image GetImage - Получить картинку, которая сейчас находится НЕ в фокусе вывода
    Т.е. если фокус вывода сейчас стоит на дисплее - вернется ваша сгенерированная картинка.
    Если фокус на картинке - вернется скриншот вашего дисплея.
    
PutImage(im: image) - Поменять картинку, которая сейчас находится НЕ в фокусе вывода на свою

Практически пример ипользования прилагается.

[Cliffe Snake]

Классно!! теперь можна декали юзать вовсю. Odd, красава =)))

[Вредитель]

хм, спасибо.....а можно более одной картинки(в будущем)?

[m1kc.]

odd, у меня непонятные глюки при использовании PutImage. При попытке изменить скормленное либе изображение программа намертво зависает.

P.S. Проверено на К770 и W510. На эмуле, как ни странно, все ОК.

P.P.S.

img:=imloadjsr75.loadimage('/'+FormGetText(xf)); //Загрузка проходит нормально, это я проверял.
CreateImage(0,0); // Это на всякий случай.
memclean.clean;
CreateImage(GetImageWidth(img),GetImageHeight(img)); // Ну и это на всякий случай. Без нее тоже зависает. 
PutImage(img);
memclean.clean; 


[odd]

Странно всё это. Буду разбираться.

[odd]

А как запинается? Зависает?

Приведи ещё кусок кода далее, посмотрим как ты генерируешь картинку.
Пока при чтении ресурса явных ошибок не нашел.

[cherepets]

odd, если за год не нашел - забей, не найдешь уже...

[Dj_Alex]

у меня вылетает MP 2.02 при компиляции с этой либой. Пробовал в 3 версии, вылетает компилятор на строчке
using external library Lib_beta.class

Если либу исключить и закомментировать ее команды, то компилится норм.
Возможен ли конфликт с кодом или с другой либой (юзаю еще lib_gfx)?


upd

изменил порядок в uses и скомпилировалось без ошибки, так значит либы конфликтуют?

[odd]

Бывают и такие конфликты. Но библиотека пашет.

[nil0q]

Где-то читал, что в джаве можно массив чисел скинуть на экран. Типа, создаёшь массив целых чисел (столько же элементов, сколько пикселей на экране), заполняешь его (число=цвет RGBA), вызываешь какую-то функцию, и массив копируется в видеопамять. Такое реально в эту процедуру засунуть? (должно быть намного быстрее, чем забивание экрана точками через plot, установка одной точки занимает 7 мкс, а присваивание типа а:=б всего 30 нс)

__________

Извиняюсь, нашёл
http://http://forum.boolean.name/showthread.php?t=4621

[odd]

Такое действительно есть. Кому-то надо? Можно добавить в какую-либо библиотеку.

[_Nox_]

добавь, было бы хорошо

[odd]

Добавил работу с массивом точек.
Новые команды:

create_array(w: integer; h: integer) - создать картинку в виде массива точек размерами w * h

clear_array - очистить память от массива точек

draw_array(x: integer; y: integer) - вывести картинку (из массива точек) на экран (без перерисовки)
    x, y - координаты левого верхнего угла картинки
    поддерживается полупрозрачность!
    
poke(x: integer; y: integer; color: integer) - записать точку в массив точек
    x, y - координаты точки в массиве
    color - ARGB цвет точки (подсчитаете на научном калькуляторе)
    
integer peek(x: integer; y: integer) - прочитать значение цвета в точке из массива точек
    x, y - координаты точки в массиве 


Простейший пример работы с массивом чисел:

Program BetaTest;
Uses beta;
Var im: image;
Begin
    CreateImage(100, 100); // Создаем картинку 100*100    
    Replace; // Переключаем поток вывода на нашу картинку
    
    DrawText('odd was here', 0, 0); // Рисуем что-то на картинке
    DrawImage(LoadImage('/icon.png'), 5, 16); // Для примера выводим в нашу картинку др. картинку
    
    Replace; // Переключаем фокус вывода назад. Теперь вывод будет идти на дисплей
    SetColor(0, 255, 0); FillRect(0, 0, GetWidth, GetHeight); // Закрашиваем дисплей
    im:=GetImage; // Извлекаем полученную картинку в переменную (можно и не в переменную, а вставить внутрь функции DrawImage)
    DrawImage(im, 5, 5); // Выводим сгенерированную картинку на дисплей
    Repaint;    
    Delay(5000);
    
    // Работа с массивом точек
    
    SetColor(255, 255, 255); FillRect(0, 0, GetWidth, GetHeight); // Закрашиваем дисплей
    create_array(100, 50); // Создаем массив точек
    poke(1, 5, 4278190335); // Закрашиваем точку (1, 5) цветом FF0000FF = 4278190335
    draw_array(0, 0); // Выводим массив на дисплей
    Repaint;    
    Delay(5000);
    
End. 


[psih1]

так теперь можно сделать paint на мр?

[odd]

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

так теперь можно сделать paint на мр?

Можно. Кстати, могу добавить функцию для быстрого помещения любой картинки в массив.