DreamShell lua source code

[SWAT]

Вот обещаный пример как нарисовать примитивы в DS lua.
Можно попробовать их как в DS так и в DSS, что для этого нужно, я написал в коментариях.

Код:

-- DreamShell lua SDL Test 3, Draw func from SDL_prime
-- Created by SWAT


SDL.SDL_BlitSurface = SDL.SDL_UpperBlit;

-- Инициализируем SDL(нужно сделать только если пробуем в DSS)
-- SDL.SDL_Init(SDL.SDL_INIT_VIDEO);


-- Закрываем графику DreamShell
-- (Если в DSS пробуем, то удолите эту функцию или поместите в коментарий)
DS.ds_draw_shutdown();


-- Устанавливаем видеорежим
flags = SDL.bit_or(SDL.SDL_HWSURFACE, SDL.SDL_DOUBLEBUF);
screen = SDL.SDL_SetVideoMode(640,480,16,flags);



-- Сделаем функцию для рисовки квадрата из функций для рисовки линий.

function DrawBox(scr, x, y, width, height, clr, alpha, flags)

SDL.SDL_drawLine_TG(scr, x, y, x + width, y, clr, alpha, flags);
SDL.SDL_drawLine_TG(scr, x, y, x, y+height, clr, alpha, flags);
SDL.SDL_drawLine_TG(scr, x+width, y, x + width, y+height, clr, alpha, flags);
SDL.SDL_drawLine_TG(scr, x, y+height, x + width, y + height, clr, alpha, flags);

end



-- Что за параметры функциям я задавал,
-- можно посмотреть в списке внедренных в DS lua функций SDL(конкретно это SDL_prime)


-- Рисуем линию
SDL.SDL_drawLine_TG(screen, 200, 200, 50, 50, 255, 0, SDL.SDL_TG_ANTIALIAS);

-- Круг
SDL.SDL_drawCircle_TG(screen, 300, 300, 20, 255, 0, SDL.SDL_TG_ANTIALIAS);

-- Треугольник
SDL.SDL_drawTriangle_TG(screen, 400, 400, 350, 350, 300, 300, 255, 0, SDL.SDL_TG_ANTIALIAS);

-- Рисуем 1 пиксель
SDL.SDL_putPixel(screen, 320, 240, 255);

-- 1 Пиксель с альфа блендом
SDL.SDL_blendPixel(screen, 310, 240, 255, 0);

-- Квадрат
DrawBox(screen, 100, 100, 50, 50, 255, 0, SDL.SDL_TG_ANTIALIAS);


-- Так как видеорежим мы сделали с двойным буфером,
-- мы меняем местами буфер тот который мы сейчас видим,
-- на тот буфер который мы изменили поместив туда разные объекты.
-- Если после этого мы еще что нибудь нарисуем, то потребуется вызвать эту функцию еще раз.

SDL.SDL_Flip(screen);


-- Ждем 30 секунд и наслаждаемся тем что нарисовали :)

SDL.SDL_Delay(30000);


-- Инициализируем назад графику DreamShell
-- (Если в DSS пробуем, то удолите эту функцию или поместите в коментарий)

DS.ds_draw_init();