funcs_draw.cpp

   1 /*
   2 Copyright (c)2006-2007 - Brett Lajzer
   3
   4 See LICENSE for license information.
   5 */
   6
   7 #include "lua.hpp"
   8 #include "SDL/SDL.h"
   9 #include "SDL/SDL_gfxPrimitives.h"
  10 #include "globals.h"
  11 #include "funcs_draw.h"
  12
  13 //
  14 // direct drawing functions
  15 //
  16 int l_draw_pixel(lua_State *L){
  17         pixelRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6));
  18         return 0;
  19 }
  20
  21 int l_draw_line(lua_State *L){
  22         if((int)lua_tonumber(L,1) == (int)lua_tonumber(L,3)){
  23                 vlineRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  24         }else{
  25                 if((int)lua_tonumber(L,2) == (int)lua_tonumber(L,4)){
  26                         hlineRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,3), (int)lua_tonumber(L,2),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  27                 }else{
  28                         lineRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  29                 }
  30         }
  31         return 0;
  32 }
  33
  34 int l_draw_rect(lua_State *L){
  35         rectangleRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  36         return 0;
  37 }
  38
  39 int l_draw_frect(lua_State *L){
  40         boxRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  41         return 0;
  42 }
  43
  44 int l_draw_circle(lua_State *L){
  45         circleRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7));
  46         return 0;
  47 }
  48
  49 int l_draw_fcircle(lua_State *L){
  50         filledCircleRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7));
  51         return 0;
  52 }
  53
  54 int l_draw_ellipse(lua_State *L){
  55         ellipseRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  56         return 0;
  57 }
  58
  59 int l_draw_fellipse(lua_State *L){
  60         filledEllipseRGBA(screen, (int)lua_tonumber(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3),(int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  61         return 0;
  62 }
  63
  64 //
  65 // intermediate drawing functions
  66 //
  67 int l_draw_pixel_i(lua_State *L){
  68         pixelRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7));
  69         return 0;
  70 }
  71
  72 int l_draw_line_i(lua_State *L){
  73         if((int)lua_tonumber(L,2) == (int)lua_tonumber(L,4)){
  74                 vlineRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8),(int)lua_tonumber(L,9));
  75         }else{
  76                 if((int)lua_tonumber(L,3) == (int)lua_tonumber(L,5)){
  77                         hlineRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,4), (int)lua_tonumber(L,3),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8),(int)lua_tonumber(L,9));
  78                 }else{
  79                         lineRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8),(int)lua_tonumber(L,9));
  80                 }
  81         }
  82         return 0;
  83 }
  84
  85 int l_draw_rect_i(lua_State *L){
  86         rectangleRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8),(int)lua_tonumber(L,9));
  87         return 0;
  88 }
  89
  90 int l_draw_frect_i(lua_State *L){
  91         boxRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8),(int)lua_tonumber(L,9));
  92         return 0;
  93 }
  94
  95 int l_draw_circle_i(lua_State *L){
  96         circleRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
  97         return 0;
  98 }
  99
 100 int l_draw_fcircle_i(lua_State *L){
 101         filledCircleRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8));
 102         return 0;
 103 }
 104
 105 int l_draw_ellipse_i(lua_State *L){
 106         ellipseRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8),(int)lua_tonumber(L,9));
 107         return 0;
 108 }
 109
 110 int l_draw_fellipse_i(lua_State *L){
 111         filledEllipseRGBA((SDL_Surface*)lua_touserdata(L,1), (int)lua_tonumber(L,2), (int)lua_tonumber(L,3), (int)lua_tonumber(L,4),(int)lua_tonumber(L,5),(int)lua_tonumber(L,6),(int)lua_tonumber(L,7),(int)lua_tonumber(L,8),(int)lua_tonumber(L,9));
 112         return 0;
 113 }
 114
 115
 116 //int l_draw_(lua_State *L){
 117 //
 118         //return 0;
 119 //}