extern "C" { #include "lua.h" #include "lauxlib.h" } #include "bitmap-plot.h" #include "lua-cpp-utils.h" #include "lua-plot-cpp.h" #include "gs-types.h" #include "canvas.h" #include "colors.h" #include "agg-pixfmt-config.h" #include "platform_support_ext.h" void bitmap_save_image_cpp (sg_plot *p, const char *fn, unsigned w, unsigned h, gslshell::ret_status& st) { agg::rendering_buffer rbuf_tmp; unsigned row_size = w * (gslshell::bpp / 8); unsigned buf_size = h * row_size; unsigned char* buffer = new(std::nothrow) unsigned char[buf_size]; if (!buffer) { st.error("cannot allocate memory", "plot save"); return; } rbuf_tmp.attach(buffer, w, h, gslshell::flip_y ? row_size : -row_size); canvas can(rbuf_tmp, w, h, colors::white); agg::trans_affine mtx(w, 0.0, 0.0, h, 0.0, 0.0); agg::rect_base r = rect_of_slot_matrix(mtx); can.clear_box(r); p->draw(can, mtx, NULL); bool success = platform_support_ext::save_image_file (rbuf_tmp, fn, gslshell::pixel_format); if (! success) st.error("cannot save image file", "plot save"); delete [] buffer; } int bitmap_save_image (lua_State *L) { sg_plot *p = object_check(L, 1, GS_PLOT); const char *fn = luaL_checkstring (L, 2); int w = luaL_optint (L, 3, 480), h = luaL_optint (L, 4, 480); if (w <= 0 || w> 1024 * 8) luaL_error (L, "width out of range"); if (h <= 0 || h> 1024 * 8) luaL_error (L, "height out of range"); gslshell::ret_status st; bitmap_save_image_cpp (p, fn, w, h, st); if (st.error_msg()) return luaL_error (L, "%s in %s", st.error_msg(), st.context()); return 0; }