DreamShell lua source code

[zaero]

Вот чем я занимаюсь на парах по Инженерной Компьютерной Графике:

Код:

-- Engineering computer graphics (straight line on planes) by zaero
-- http://bbrclan.dc-swat.net.ru/dreamshell/


SDL.SDL_BlitSurface = SDL.SDL_UpperBlit;

SDL.SDL_Init(SDL.SDL_INIT_VIDEO);

--DS.ds_draw_shutdown();

flags = SDL.bit_or(SDL.SDL_HWSURFACE, SDL.SDL_DOUBLEBUF);
screen = SDL.SDL_SetVideoMode(640,480,16,flags);
    SDL.SDL_drawLine_TG(screen, 510, 40, 510, 30, 255, 0, SDL.SDL_TG_ANTIALIAS);
    SDL.SDL_drawLine_TG(screen, 100, 240, 240, 240, 255, 0, SDL.SDL_TG_ANTIALIAS);
    SDL.SDL_drawLine_TG(screen, 510, 450, 510, 30, 255, 0, SDL.SDL_TG_ANTIALIAS);

for i=1,400,1 do
i1=i/4
i2=i
i3=i/2
   SDL.SDL_putPixel(screen, 110+i2, 240, 255);
   SDL.SDL_putPixel(screen, 510, 40+i2, 255);
   SDL.SDL_putPixel(screen, 20+i2, 150, 255);
   SDL.SDL_putPixel(screen, 220+i2, 350, 255);
   SDL.SDL_putPixel(screen, 110+i2, 40, 255);
   SDL.SDL_putPixel(screen, 110+i2, 440, 255);
   SDL.SDL_putPixel(screen, 110, 40+i2, 255);
  
   SDL.SDL_putPixel(screen, 20+i3, 150+i3, 255);
   SDL.SDL_putPixel(screen, 420+i3, 150+i3, 255);
   SDL.SDL_drawTriangle_TG(screen, 510, 5, 515, 30, 505, 30, 255*i3+i3, 0,SDL.SDL_TG_ANTIALIAS);
   SDL.SDL_drawTriangle_TG(screen, 70, 240, 100, 245, 100, 235, 255*i3+i3, 0,SDL.SDL_TG_ANTIALIAS);
   SDL.SDL_putPixel(screen,200+i1, 240+i1, 4000);
end



   SDL.SDL_drawCircle_TG(screen, 340, 240, 5, 4000, 0, SDL.SDL_TG_ANTIALIAS);
   SDL.SDL_drawCircle_TG(screen, 340, 120, 5, 4000, 0, SDL.SDL_TG_ANTIALIAS);
   SDL.SDL_drawLine_TG(screen, 340, 240, 340, 120, 4000, 0, SDL.SDL_TG_ANTIALIAS)

   SDL.SDL_drawCircle_TG(screen, 200, 240, 5, 4000, 0, SDL.SDL_TG_ANTIALIAS);
   SDL.SDL_drawCircle_TG(screen, 200, 100, 5, 4000, 0, SDL.SDL_TG_ANTIALIAS);
   SDL.SDL_drawCircle_TG(screen, 300, 340, 5, 4000, 0, SDL.SDL_TG_ANTIALIAS);
   SDL.SDL_drawLine_TG(screen, 200, 240, 200, 100, 4000, 0, SDL.SDL_TG_ANTIALIAS)

SDL.SDL_Flip(screen);
SDL.SDL_Delay(10000);

--DS.ds_draw_init();