ref: 76d765700afcf35a6cd8b44593697c5e36186498
parent: 6e8d03dbe4e3f84c5aff74e8f72c8bd69e06009e
author: phil9 <[email protected]>
date: Thu Dec 1 00:38:19 EST 2022
implement quad()
--- a/api.c
+++ b/api.c
@@ -287,8 +287,36 @@
return 0;
}
-int ctranspose(lua_State *L)
+int
+cquad(lua_State *L)
{+ Point p[5];
+ int x1, y1, x2, y2, x3, y3, x4, y4;
+
+ x1 = luaL_checkinteger(L, 1);
+ y1 = luaL_checkinteger(L, 2);
+ x2 = luaL_checkinteger(L, 3);
+ y2 = luaL_checkinteger(L, 4);
+ x3 = luaL_checkinteger(L, 5);
+ y3 = luaL_checkinteger(L, 6);
+ x4 = luaL_checkinteger(L, 7);
+ y4 = luaL_checkinteger(L, 8);
+ p[0] = addpt(origin, Pt(x1, y1));
+ p[1] = addpt(origin, Pt(x2, y2));
+ p[2] = addpt(origin, Pt(x3, y3));
+ p[3] = addpt(origin, Pt(x4, y4));
+ p[4] = p[0];
+ if(!nofill)
+ fillpoly(canvas, p, 4, 0, fill, ZP);
+ if(!nostroke)
+ poly(canvas, p, 5, 0, 0, strokewidth, stroke, ZP);
+ return 0;
+
+}
+
+int
+ctranspose(lua_State *L)
+{int x, y;
x = luaL_checkinteger(L, 1);
@@ -322,6 +350,7 @@
registerfunc(L, "ellipse", cellipse);
registerfunc(L, "arc", carc);
registerfunc(L, "triangle", ctriangle);
+ registerfunc(L, "quad", cquad);
registerfunc(L, "transpose", ctranspose);
}