forum.boolean.name - Lib_imgs: выводим картинку на картинку

по просьбе трудящихся добавил возможность рисования на картинках нескольких основных примитивов:

PHP код:




// установить цвет пера для рисования на картинках (можно полупрозрачный) 
procedure imgsetcolor(color: integer); 
 
// получить цвет пера для рисования на картинках 
function imggetcolor: integer; 
 
// установить непрозрачность пера для рисования на картинках (0/1) 
procedure solid(value: integer); 
 
// получить состояние непрозрачности пера для рисования на картинках (0/1) 
function getsolid: integer; 
 
// линия на картинке 
function imgline(img: image; x1, y1, x2, y2: integer): image; 
 
// прямоугольник на картинке 
function imgrect(img: image; x, y, w, h: integer): image; 
 
// закрашенный прямоугольник на картинке 
function imgfillrect(img: image; x, y, w, h: integer): image; 
 
// эллипс на картинке 
function imgellipse(img: image; x, y, w, h: integer): image; 
 
// залитый эллипс на картинке 
function imgfillellipse(img: image; x, y, w, h: integer): image; 
 
// заливка на картинке 
function imgfill(img: image; x, y: integer): image; 
 
// сектор на картинке 
function imgarc(img: image; x, y, w, h, a1, a2: integer): image; 
 
// кривая на картинке (все опорные точки лежат на кривой) 
function imgbow(img: image; x1, y1, x2, y2, x3, y3: integer): image; 
 
// кривая на картинке (2-я опорная точка не лежит на кривой) 
function imgbezier(img: image; x1, y1, x2, y2, x3, y3: integer): image;

и немного поправил заливку экрана:

PHP код:




// быстрая заливка экрана цветом col 
procedure cls(col: integer); 
 
// заливка экрана полупрозрачным цветом col 
procedure clsa(col: integer); 
 
// заливка экрана 
procedure scrfill(x, y);

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