DreamShell lua source code

[SWAT]

Окончательно решился обучению вас скриптам :)
Привожу примеры скриптов с использованием SDL.
Скрипт выполнены в 2 версиях, одна для интерпритатора скриптов для РС, сделанный мной с поддержкой SDL специально для проверки скриптов на РС, он находится в DreamShell Service v5.
Вторая непосредственно для DreamShell.
Скрипт включает в себя функции для загрузки и показа картинок на экране:

DreamShell Service version

Код:

-- DreamShell lua SDL Test 2, Load and display images
-- Created by SWAT

SDL.SDL_BlitSurface = SDL.SDL_UpperBlit;

function ShowIMG(file, screen)
local img_t

img_t = SDL.IMG_Load(file);

   if img_t == nil then
       print("DS_ERROR: Couldn't load ", file);
     return;
   end

SDL.SDL_BlitSurface(img_t, NULL, screen, NULL);
SDL.SDL_Flip(screen);
SDL.SDL_FreeSurface(img_t);
end


function ShowIMG_xy(file, screen, x, y)
local img_t, dest

dest = SDL.SDL_Rect_new();

img_t = SDL.IMG_Load(file);

     if img_t == nil then
         print("DS_ERROR: Couldn't load ", file);
       return;
     end
     
   dest.x = x
   dest.y = y
   dest.w = img_t.w
   dest.h = img_t.h
   
   SDL.SDL_BlitSurface(img_t, NULL, screen, dest);
   SDL.SDL_Flip(screen);
   SDL.SDL_FreeSurface(img_t);
end


-- Инициализируем SDL
SDL.SDL_Init(SDL.SDL_INIT_VIDEO);

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


-- Показываем картинку
ShowIMG("image.jpg", screen)

-- Ждем 3 секунды
SDL.SDL_Delay(3000);

-- Показываем картинку с указанием координат
ShowIMG_xy("image.jpg", screen, 100, 50)

-- Ждем 3 секунды
SDL.SDL_Delay(3000);

DreamShell version

Код:

-- DreamShell lua SDL Test 2, Load and display images
-- Created by SWAT

SDL.SDL_BlitSurface = SDL.SDL_UpperBlit;

function ShowIMG(file, screen)
local img_t

img_t = SDL.IMG_Load(file);

   if img_t == nil then
       print("DS_ERROR: Couldn't load ", file);
     return;
   end

SDL.SDL_BlitSurface(img_t, NULL, screen, NULL);
SDL.SDL_Flip(screen);
SDL.SDL_FreeSurface(img_t);
end


function ShowIMG_xy(file, screen, x, y)
local img_t, dest

dest = SDL.SDL_Rect_new();

img_t = SDL.IMG_Load(file);

     if img_t == nil then
         print("DS_ERROR: Couldn't load ", file);
       return;
     end
     
   dest.x = x
   dest.y = y
   dest.w = img_t.w
   dest.h = img_t.h
   
   SDL.SDL_BlitSurface(img_t, NULL, screen, dest);
   SDL.SDL_Flip(screen);
   SDL.SDL_FreeSurface(img_t);
end


-- Закрываем графику DreamShell
DS.ds_draw_shutdown();

-- Показываем картинку
ShowIMG("/rd/image/logos/DSXT1.jpg", DS.screen)

-- Ждем 3 секунды
SDL.SDL_Delay(3000);

-- Показываем картинку с указанием координат
ShowIMG_xy("/rd/image/logos/DSXT1.jpg", DS.screen, 100, 50)

-- Ждем 3 секунды
SDL.SDL_Delay(3000);

-- Инициализируем назад графику DreamShell
DS.ds_draw_init();