gambas-source-code/main/lib/draw/CDraw.c
Benoît Minisini 8e7661d2c6 [GB.DRAW]
* BUG: Paint.RichText() has been removed.

[GB.GTK]
* BUG: Paint.Arc() draws in the same direction as in gb.qt4.
* BUG: Paint.RichText() has been removed.
* BUG: PaintBrush.Matrix now behaves the same as in gb.qt4.

[GB.QT4]
* NEW: Paint.Text() has been implemented.
* BUG: Paint.Begin() now initializes the underlying pen the same way as in 
  gb.gtk.


git-svn-id: svn://localhost/gambas/trunk@2542 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2009-12-29 21:42:40 +00:00

1201 lines
26 KiB
C

/***************************************************************************
CDraw.c
(c) 2000-2009 Benoît Minisini <gambas@users.sourceforge.net>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
***************************************************************************/
#define __CDRAW_C
#include "gb.image.h"
#include "matrix.h"
#include "main.h"
#include "CDraw.h"
static GB_DRAW *_current = NULL;
#define THIS _current
#define DRAW _current->desc
#define THIS_MATRIX ((MATRIX *)&(THIS->matrix))
static bool check_device()
{
if (!_current)
{
GB.Error("No current device");
return TRUE;
}
else
return FALSE;
}
PUBLIC GB_DRAW *DRAW_get_current()
{
check_device();
return _current;
}
#define CHECK_DEVICE() if (check_device()) return
bool DRAW_begin(void *device)
{
GB_DRAW_DESC *desc;
GB_DRAW *draw;
GB_CLASS klass;
klass = GB.GetClass(device);
if (klass == GB.FindClass("Class"))
{
klass = (GB_CLASS)device;
desc = (GB_DRAW_DESC *)GB.GetClassInterface(klass, "StaticDraw");
}
else
{
desc = (GB_DRAW_DESC *)GB.GetClassInterface(klass, "Draw");
}
if (!desc)
{
GB.Error("Not a drawable object");
return TRUE;
}
GB.Alloc(POINTER(&draw), sizeof(GB_DRAW));
GB.Alloc(POINTER(&draw->extra), desc->size);
memset(draw->extra, 0, desc->size);
draw->desc = desc;
draw->previous = _current;
GB.Ref(device);
draw->device = device;
_current = draw;
MATRIX_init(THIS_MATRIX);
draw->save = NULL;
draw->xform = FALSE;
if (!draw->desc->Begin(draw))
{
DRAW->SetBackground(draw, GB_DRAW_COLOR_DEFAULT);
DRAW->SetForeground(draw, GB_DRAW_COLOR_DEFAULT);
DRAW->Fill.SetColor(draw, GB_DRAW_COLOR_DEFAULT);
return FALSE;
}
else
return TRUE;
}
BEGIN_METHOD(CDRAW_begin, GB_OBJECT device)
void *device = VARG(device);
if (GB.CheckObject(device))
return;
DRAW_begin(device);
END_METHOD
void DRAW_end()
{
GB_DRAW *draw;
if (!_current)
return;
draw = _current;
_current = _current->previous;
draw->desc->End(draw);
GB.Unref(POINTER(&draw->device));
GB.Free(POINTER(&draw->extra));
GB.Free(POINTER(&draw));
}
BEGIN_METHOD_VOID(CDRAW_end)
DRAW_end();
END_METHOD
BEGIN_METHOD_VOID(CDRAW_exit)
while (_current)
DRAW_end();
END_METHOD
BEGIN_METHOD_VOID(CDRAW_save)
CHECK_DEVICE();
DRAW->Save(THIS);
END_METHOD
BEGIN_METHOD_VOID(CDRAW_restore)
CHECK_DEVICE();
DRAW->Restore(THIS);
END_METHOD
BEGIN_PROPERTY(CDRAW_device)
CHECK_DEVICE();
GB.ReturnObject(THIS->device);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_width)
CHECK_DEVICE();
GB.ReturnInteger(THIS->width);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_height)
CHECK_DEVICE();
GB.ReturnInteger(THIS->height);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_resolution)
CHECK_DEVICE();
GB.ReturnInteger(THIS->resolution);
END_PROPERTY
static void handle_int_property(void *_param, int (*get)(GB_DRAW *), void (*set)(GB_DRAW *, int))
{
if (READ_PROPERTY)
GB.ReturnInteger((*get)(THIS));
else
(*set)(THIS, VPROP(GB_INTEGER));
}
BEGIN_PROPERTY(CDRAW_background)
CHECK_DEVICE();
handle_int_property(_param, DRAW->GetBackground, DRAW->SetBackground);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_foreground)
CHECK_DEVICE();
handle_int_property(_param, DRAW->GetForeground, DRAW->SetForeground);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_clip_x)
int val;
CHECK_DEVICE();
DRAW->Clip.Get(THIS, &val, NULL, NULL, NULL);
GB.ReturnInteger(val);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_clip_y)
int val;
CHECK_DEVICE();
DRAW->Clip.Get(THIS, NULL, &val, NULL, NULL);
GB.ReturnInteger(val);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_clip_w)
int val;
CHECK_DEVICE();
DRAW->Clip.Get(THIS, NULL, NULL, &val, NULL);
GB.ReturnInteger(val);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_clip_h)
int val;
CHECK_DEVICE();
DRAW->Clip.Get(THIS, NULL, NULL, NULL, &val);
GB.ReturnInteger(val);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_clip_enabled)
CHECK_DEVICE();
if (READ_PROPERTY)
GB.ReturnBoolean(DRAW->Clip.IsEnabled(THIS));
else
DRAW->Clip.SetEnabled(THIS, VPROP(GB_BOOLEAN));
END_PROPERTY
BEGIN_METHOD(CDRAW_clip, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h)
CHECK_DEVICE();
DRAW->Clip.Set(THIS, VARG(x), VARG(y), VARG(w), VARG(h));
END_PROPERTY
BEGIN_PROPERTY(CDRAW_invert)
CHECK_DEVICE();
if (READ_PROPERTY)
GB.ReturnBoolean(DRAW->IsInverted(THIS));
else
DRAW->SetInverted(THIS, VPROP(GB_BOOLEAN));
END_PROPERTY
BEGIN_PROPERTY(CDRAW_transparent)
CHECK_DEVICE();
if (READ_PROPERTY)
GB.ReturnBoolean(DRAW->IsTransparent(THIS));
else
DRAW->SetTransparent(THIS, VPROP(GB_BOOLEAN));
END_PROPERTY
BEGIN_PROPERTY(CDRAW_font)
CHECK_DEVICE();
if (READ_PROPERTY)
GB.ReturnObject(DRAW->GetFont(THIS));
else
DRAW->SetFont(THIS, VPROP(GB_OBJECT));
END_PROPERTY
BEGIN_PROPERTY(CDRAW_line_width)
CHECK_DEVICE();
handle_int_property(_param, DRAW->Line.GetWidth, DRAW->Line.SetWidth);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_line_style)
CHECK_DEVICE();
handle_int_property(_param, DRAW->Line.GetStyle, DRAW->Line.SetStyle);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_fill_color)
CHECK_DEVICE();
handle_int_property(_param, DRAW->Fill.GetColor, DRAW->Fill.SetColor);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_fill_style)
CHECK_DEVICE();
handle_int_property(_param, DRAW->Fill.GetStyle, DRAW->Fill.SetStyle);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_fill_x)
int x, y;
CHECK_DEVICE();
DRAW->Fill.GetOrigin(THIS, &x, &y);
if (READ_PROPERTY)
GB.ReturnInteger(x);
else
DRAW->Fill.SetOrigin(THIS, VPROP(GB_INTEGER), y);
END_PROPERTY
BEGIN_PROPERTY(CDRAW_fill_y)
int x, y;
CHECK_DEVICE();
DRAW->Fill.GetOrigin(THIS, &x, &y);
if (READ_PROPERTY)
GB.ReturnInteger(y);
else
DRAW->Fill.SetOrigin(THIS, x, VPROP(GB_INTEGER));
END_PROPERTY
BEGIN_METHOD(CDRAW_point, GB_INTEGER x; GB_INTEGER y)
int x, y;
CHECK_DEVICE();
x = VARG(x);
y = VARG(y);
if (THIS->xform)
MATRIX_map_point(THIS_MATRIX, &x, &y);
DRAW->Draw.Point(THIS, x, y);
END_METHOD
BEGIN_METHOD(CDRAW_line, GB_INTEGER x1; GB_INTEGER y1; GB_INTEGER x2; GB_INTEGER y2)
int x1, y1, x2, y2;
CHECK_DEVICE();
x1 = VARG(x1);
y1 = VARG(y1);
x2 = VARG(x2);
y2 = VARG(y2);
if (THIS->xform)
{
MATRIX_map_point(THIS_MATRIX, &x1, &y1);
MATRIX_map_point(THIS_MATRIX, &x2, &y2);
}
DRAW->Draw.Line(THIS, x1, y1, x2, y2);
END_METHOD
BEGIN_METHOD(CDRAW_rect, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h)
int x, y, w, h;
CHECK_DEVICE();
x = VARG(x);
y = VARG(y);
w = VARG(w);
h = VARG(h);
if (w < 0)
x += w, w = (-w);
if (h < 0)
y += h, h = (-h);
if (THIS->xform)
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
if (w < 1 || h < 1)
return;
DRAW->Draw.Rect(THIS, x, y, w, h);
END_METHOD
BEGIN_METHOD(CDRAW_fill_rect, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER color)
int x, y, w, h;
int fill_style, line_style, fill_color;
CHECK_DEVICE();
x = VARG(x);
y = VARG(y);
w = VARG(w);
h = VARG(h);
if (w < 0)
x += w, w = (-w);
if (h < 0)
y += h, h = (-h);
if (THIS->xform)
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
if (w < 1 || h < 1)
return;
line_style = DRAW->Line.GetStyle(THIS);
DRAW->Line.SetStyle(THIS, 0);
fill_style = DRAW->Fill.GetStyle(THIS);
DRAW->Fill.SetStyle(THIS, 1);
fill_color = DRAW->Fill.GetColor(THIS);
if (MISSING(color))
DRAW->Fill.SetColor(THIS, DRAW->GetBackground(THIS));
else
DRAW->Fill.SetColor(THIS, VARG(color));
DRAW->Draw.Rect(THIS, x, y, w, h);
DRAW->Line.SetStyle(THIS, line_style);
DRAW->Fill.SetStyle(THIS, fill_style);
DRAW->Fill.SetColor(THIS, fill_color);
END_METHOD
BEGIN_METHOD_VOID(CDRAW_clear)
int fill_style, line_style, fill_color, bg_color;
CHECK_DEVICE();
line_style = DRAW->Line.GetStyle(THIS);
DRAW->Line.SetStyle(THIS, 0);
fill_style = DRAW->Fill.GetStyle(THIS);
DRAW->Fill.SetStyle(THIS, 1);
bg_color = DRAW->GetBackground(THIS);
DRAW->SetBackground(THIS, GB_DRAW_COLOR_DEFAULT);
fill_color = DRAW->Fill.GetColor(THIS);
DRAW->Fill.SetColor(THIS, DRAW->GetBackground(THIS));
DRAW->Draw.Rect(THIS, 0, 0, THIS->width, THIS->height);
DRAW->Line.SetStyle(THIS, line_style);
DRAW->Fill.SetStyle(THIS, fill_style);
DRAW->SetBackground(THIS, bg_color);
DRAW->Fill.SetColor(THIS, fill_color);
END_METHOD
// BEGIN_METHOD(CDRAW_round_rect, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_FLOAT round)
//
// CHECK_DEVICE();
// DRAW->Draw.RoundRect(THIS, VARG(x), VARG(y), VARG(w), VARG(h), VARGOPT(round, 0.25));
//
// END_METHOD
BEGIN_METHOD(CDRAW_ellipse, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_FLOAT start; GB_FLOAT end)
int x, y, w, h;
CHECK_DEVICE();
x = VARG(x);
y = VARG(y);
w = VARG(w);
h = VARG(h);
if (THIS->xform)
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
if (w < 1 || h < 1)
return;
DRAW->Draw.Ellipse(THIS, x, y, w, h, VARGOPT(start, 0.0), VARGOPT(end, 0.0));
END_METHOD
BEGIN_METHOD(CDRAW_circle, GB_INTEGER x; GB_INTEGER y; GB_INTEGER radius; GB_FLOAT start; GB_FLOAT end)
int x, y, w, h;
int radius;
CHECK_DEVICE();
radius = VARG(radius);
if (radius <= 0)
return;
x = VARG(x) - radius + 1;
y = VARG(y) - radius + 1;
w = radius * 2 - 1;
h = radius * 2 - 1;
if (THIS->xform)
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
DRAW->Draw.Ellipse(THIS, x, y, w, h, VARGOPT(start, 0.0), VARGOPT(end, 0.0));
END_METHOD
BEGIN_METHOD(CDRAW_text, GB_STRING text; GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER align)
int x, y, w, h;
CHECK_DEVICE();
x = VARG(x);
y = VARG(y);
w = VARGOPT(w, -1);
h = VARGOPT(h, -1);
if (THIS->xform)
{
if (w < 0 || h < 0)
MATRIX_map_point(THIS_MATRIX, &x, &y);
else
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
}
DRAW->Draw.Text(THIS, STRING(text), LENGTH(text), x, y, w, h, VARGOPT(align, GB_DRAW_ALIGN_DEFAULT));
END_METHOD
BEGIN_METHOD(CDRAW_text_width, GB_STRING text)
int w;
CHECK_DEVICE();
DRAW->Draw.TextSize(THIS, STRING(text), LENGTH(text), &w, NULL);
GB.ReturnInteger(w);
END_METHOD
BEGIN_METHOD(CDRAW_text_height, GB_STRING text)
int h;
CHECK_DEVICE();
DRAW->Draw.TextSize(THIS, STRING(text), LENGTH(text), NULL, &h);
GB.ReturnInteger(h);
END_METHOD
BEGIN_METHOD(CDRAW_rich_text, GB_STRING text; GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER align)
int x, y, w, h;
CHECK_DEVICE();
x = VARG(x);
y = VARG(y);
w = VARGOPT(w, -1);
h = VARGOPT(h, -1);
if (THIS->xform)
{
if (w < 0 || h < 0)
MATRIX_map_point(THIS_MATRIX, &x, &y);
else
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
}
DRAW->Draw.RichText(THIS, STRING(text), LENGTH(text), x, y, w, h, VARGOPT(align, GB_DRAW_ALIGN_DEFAULT));
END_METHOD
BEGIN_METHOD(CDRAW_rich_text_width, GB_STRING text)
int w;
CHECK_DEVICE();
DRAW->Draw.RichTextSize(THIS, STRING(text), LENGTH(text), -1, &w, NULL);
GB.ReturnInteger(w);
END_METHOD
BEGIN_METHOD(CDRAW_rich_text_height, GB_STRING text; GB_INTEGER width)
int w = VARGOPT(width, -1);
int h;
CHECK_DEVICE();
DRAW->Draw.RichTextSize(THIS, STRING(text), LENGTH(text), w, NULL, &h);
GB.ReturnInteger(h);
END_METHOD
BEGIN_METHOD(CDRAW_polyline, GB_OBJECT points)
uint n;
GB_ARRAY points = VARG(points);
int *coord;
CHECK_DEVICE();
n = GB.Array.Count(points) / 2;
if (n == 0)
return;
coord = (int *)GB.Array.Get(points, 0);
if (THIS->xform)
coord = MATRIX_map_array(THIS_MATRIX, coord, n);
DRAW->Draw.Polyline(THIS, n, coord);
if (THIS->xform)
MATRIX_free_array(&coord);
END_METHOD
BEGIN_METHOD(CDRAW_polygon, GB_OBJECT points)
uint n;
GB_ARRAY points = VARG(points);
int *coord;
CHECK_DEVICE();
n = GB.Array.Count(points) / 2;
if (n == 0)
return;
coord = (int *)GB.Array.Get(points, 0);
if (THIS->xform)
coord = MATRIX_map_array(THIS_MATRIX, coord, n);
DRAW->Draw.Polygon(THIS, n, coord);
if (THIS->xform)
MATRIX_free_array(&coord);
END_METHOD
BEGIN_METHOD(CDRAW_picture, GB_OBJECT picture; GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER sx; GB_INTEGER sy; GB_INTEGER sw; GB_INTEGER sh)
GB_PICTURE picture = VARG(picture);
GB_PICTURE_INFO info;
int x, y, w, h;
CHECK_DEVICE();
if (GB.CheckObject(picture))
return;
DRAW->GetPictureInfo(THIS, picture, &info);
x = VARGOPT(x, 0);
y = VARGOPT(y, 0);
w = VARGOPT(w, info.width);
h = VARGOPT(h, info.height);
w = VARGOPT(w, -1);
h = VARGOPT(h, -1);
if (THIS->xform)
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
DRAW->Draw.Picture(THIS, picture,
x, y, w, h,
VARGOPT(sx, 0), VARGOPT(sy, 0), VARGOPT(sw, -1), VARGOPT(sh, -1));
END_METHOD
BEGIN_METHOD(CDRAW_image, GB_OBJECT image; GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER sx; GB_INTEGER sy; GB_INTEGER sw; GB_INTEGER sh)
GB_IMAGE image = VARG(image);
int x, y, w, h;
GB_IMG *info = (GB_IMG *)image;
CHECK_DEVICE();
if (GB.CheckObject(image))
return;
x = VARGOPT(x, 0);
y = VARGOPT(y, 0);
w = VARGOPT(w, info->width);
h = VARGOPT(h, info->height);
if (THIS->xform)
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
DRAW->Draw.Image(THIS, image,
x, y, w, h,
VARGOPT(sx, 0), VARGOPT(sy, 0), VARGOPT(sw, -1), VARGOPT(sh, -1));
END_METHOD
static uint blend_color(uint col, uint gray, uint alpha)
{
gray *= (0xFF - alpha);
return
((col & 0xFF) * alpha + gray) >> 8
| ((((col >> 8) & 0xFF) * alpha + gray) >> 8) << 8
| ((((col >> 16) & 0xFF) * alpha + gray) >> 8) << 16;
}
BEGIN_METHOD(CDRAW_zoom, GB_OBJECT image; GB_INTEGER zoom; GB_INTEGER x; GB_INTEGER y; GB_INTEGER sx; GB_INTEGER sy; GB_INTEGER sw; GB_INTEGER sh)
GB_IMAGE image = VARG(image);
GB_IMG *info = (GB_IMG *)image;
int zoom, size, size2;
int x, y, sx, sy, sw, sh;
int i, j, xr, yr;
uint col, col1, col2, last_col;
bool border;
int fill_style, fill_color;
uint a;
bool opaque;
CHECK_DEVICE();
if (GB.CheckObject(image))
return;
zoom = VARG(zoom);
if (zoom < 1)
{
GB.Error("Bad zoom factor");
return;
}
x = VARGOPT(x, 0);
y = VARGOPT(y, 0);
sx = VARGOPT(sx, 0);
sy = VARGOPT(sy, 0);
sw = VARGOPT(sw, info->width);
sh = VARGOPT(sh, info->height);
DRAW_NORMALIZE(x, y, sw, sh, sx, sy, sw, sh, info->width, info->height);
//DRAW->Fill.GetOrigin(THIS, &ox, &oy);
border = DRAW->Line.GetStyle(THIS);
if (zoom == 1 && !border)
{
DRAW->Fill.SetStyle(THIS, 1);
DRAW->Fill.SetColor(THIS, 0x979797);
DRAW->Draw.Rect(THIS, x, y, sw, sh);
DRAW->Draw.Image(THIS, image, x, y, -1, -1, sx, sy, sw, sh);
}
else
{
//IMAGE.Convert(info, GB_IMAGE_BGRA);
// May have to convert the image data
//if (info->format != GB_IMAGE_BGRA && info->format != GB_IMAGE_BGRX)
// GB.Alloc(POINTER(&conv), sw * sizeof(int));
size = zoom;
size2 = size / 2;
//if (border) size++;
fill_style = DRAW->Fill.GetStyle(THIS);
fill_color = DRAW->Fill.GetColor(THIS);
//last_style = -1;
//style = border;
last_col = 0;
col1 = 0;
col2 = 0;
a = 0xFF;
opaque = TRUE;
DRAW->Fill.SetStyle(THIS, 1); // FILL_SOLID
DRAW->Fill.SetColor(THIS, 0);
for (j = sy, yr = y; j < (sy + sh); j++, yr += zoom)
{
for (i = sx, xr = x; i < (sx + sw); i++, xr += zoom)
{
col = IMAGE.GetPixel(info, i, j);
if (col != last_col)
{
last_col = col;
a = (col >> 24) ^ 0xFF;
col &= 0xFFFFFF;
if (a < 0xFF)
{
if (a == 0)
{
col1 = 0x808080;
col2 = 0xC0C0C0;
}
else
{
col1 = blend_color(col, 0x80, a);
col2 = blend_color(col, 0xC0, a);
}
opaque = FALSE;
}
else
{
opaque = TRUE;
DRAW->Fill.SetColor(THIS, col);
}
}
if (opaque)
DRAW->Draw.Rect(THIS, xr, yr, size + 1, size + 1);
else
{
DRAW->Fill.SetColor(THIS, col1);
DRAW->Line.SetStyle(THIS, 0);
DRAW->Draw.Rect(THIS, xr, yr, size, size);
DRAW->Fill.SetColor(THIS, col2);
DRAW->Draw.Rect(THIS, xr + size2, yr, size - size2, size2);
DRAW->Draw.Rect(THIS, xr, yr + size2, size2, size - size2);
DRAW->Line.SetStyle(THIS, border);
if (border && a >= 16)
{
DRAW->Fill.SetStyle(THIS, 0);
DRAW->Draw.Rect(THIS, xr, yr, size + 1, size + 1);
DRAW->Fill.SetStyle(THIS, 1);
}
}
}
}
DRAW->Fill.SetStyle(THIS, fill_style);
DRAW->Fill.SetColor(THIS, fill_color);
}
END_METHOD
BEGIN_METHOD(CDRAW_tile, GB_OBJECT picture; GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h)
int x, y, w, h;
GB_PICTURE picture = VARG(picture);
CHECK_DEVICE();
if (GB.CheckObject(picture))
return;
x = VARG(x);
y = VARG(y);
w = VARG(w);
h = VARG(h);
if (THIS->xform)
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h);
DRAW->Draw.TiledPicture(THIS, picture, x, y, w, h);
END_METHOD
BEGIN_METHOD_VOID(CDRAW_reset)
CHECK_DEVICE();
MATRIX_reset(THIS_MATRIX);
THIS->xform = FALSE;
END_METHOD
BEGIN_METHOD_VOID(CDRAW_push)
MATRIX *save;
CHECK_DEVICE();
GB.Alloc(POINTER(&save), sizeof(MATRIX));
*save = *THIS_MATRIX;
save->next = THIS->save;
THIS->save = save;
END_METHOD
BEGIN_METHOD_VOID(CDRAW_pop)
MATRIX *save;
CHECK_DEVICE();
if (!THIS->save)
{
MATRIX_reset(THIS_MATRIX);
return;
}
save = THIS->save;
THIS->save = save->next;
*THIS_MATRIX = *save;
GB.Free(POINTER(&save));
END_METHOD
BEGIN_METHOD(CDRAW_translate, GB_FLOAT dx; GB_FLOAT dy)
double dx = VARG(dx);
double dy = VARG(dy);
CHECK_DEVICE();
MATRIX_translate(THIS_MATRIX, dx, dy);
THIS->xform = !THIS->matrix.identity;
END_METHOD
BEGIN_METHOD(CDRAW_scale, GB_FLOAT dx; GB_FLOAT dy)
double dx = VARG(dx);
double dy = VARG(dy);
CHECK_DEVICE();
MATRIX_scale(THIS_MATRIX, dx, dy);
THIS->xform = !THIS->matrix.identity;
END_METHOD
// BEGIN_METHOD(CDRAW_rotate, GB_FLOAT a)
//
// double a = VARG(a);
//
// DP->rotate(a);
// if (DPM)
// DPM->rotate(a);
//
// END_METHOD
/****************************************************************************
Style API
****************************************************************************/
#define GET_COORD() \
int x, y, w, h; \
\
CHECK_DEVICE(); \
\
x = VARG(x); \
y = VARG(y); \
w = VARG(w); \
h = VARG(h); \
\
if (THIS->xform) \
MATRIX_map_rect(THIS_MATRIX, &x, &y, &w, &h); \
\
if (w < 1 || h < 1) \
return;
BEGIN_METHOD(CDRAW_style_arrow, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER type; GB_INTEGER state)
GET_COORD();
DRAW->Style.Arrow(THIS, x, y, w, h, VARG(type), VARGOPT(state, GB_DRAW_STATE_NORMAL));
END_METHOD
BEGIN_METHOD(CDRAW_style_check, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER value; GB_INTEGER state)
GET_COORD();
DRAW->Style.Check(THIS, x, y, w, h, VARG(value), VARGOPT(state, GB_DRAW_STATE_NORMAL));
END_METHOD
BEGIN_METHOD(CDRAW_style_option, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_BOOLEAN value; GB_INTEGER state)
GET_COORD();
DRAW->Style.Option(THIS, x, y, w, h, VARG(value), VARGOPT(state, GB_DRAW_STATE_NORMAL));
END_METHOD
BEGIN_METHOD(CDRAW_style_separator, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_BOOLEAN vertical; GB_INTEGER state)
GET_COORD();
DRAW->Style.Separator(THIS, x, y, w, h, VARGOPT(vertical, FALSE), VARGOPT(state, GB_DRAW_STATE_NORMAL));
END_METHOD
BEGIN_METHOD(CDRAW_style_focus, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h)
GET_COORD();
DRAW->Style.Focus(THIS, x, y, w, h);
END_METHOD
BEGIN_METHOD(CDRAW_style_button, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_BOOLEAN value; GB_INTEGER state)
GET_COORD();
DRAW->Style.Button(THIS, x, y, w, h, VARG(value), VARGOPT(state, GB_DRAW_STATE_NORMAL));
END_METHOD
BEGIN_METHOD(CDRAW_style_panel, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_INTEGER border; GB_INTEGER state)
GET_COORD();
DRAW->Style.Panel(THIS, x, y, w, h, VARG(border), VARGOPT(state, GB_DRAW_STATE_NORMAL));
END_METHOD
BEGIN_METHOD(CDRAW_style_handle, GB_INTEGER x; GB_INTEGER y; GB_INTEGER w; GB_INTEGER h; GB_BOOLEAN vertical; GB_INTEGER state)
GET_COORD();
DRAW->Style.Handle(THIS, x, y, w, h, VARGOPT(vertical, FALSE), VARGOPT(state, GB_DRAW_STATE_NORMAL));
END_METHOD
GB_DESC CDrawClipDesc[] =
{
GB_DECLARE(".Draw.Clip", 0), GB_VIRTUAL_CLASS(),
GB_STATIC_PROPERTY_READ("X", "i", CDRAW_clip_x),
GB_STATIC_PROPERTY_READ("Y", "i", CDRAW_clip_y),
GB_STATIC_PROPERTY_READ("W", "i", CDRAW_clip_w),
GB_STATIC_PROPERTY_READ("H", "i", CDRAW_clip_h),
GB_STATIC_PROPERTY_READ("Width", "i", CDRAW_clip_w),
GB_STATIC_PROPERTY_READ("Height", "i", CDRAW_clip_h),
GB_STATIC_PROPERTY("Enabled", "b", CDRAW_clip_enabled),
GB_STATIC_METHOD("_call", NULL, CDRAW_clip, "(X)i(Y)i(Width)i(Height)i"),
GB_END_DECLARE
};
GB_DESC CDrawStyleDesc[] =
{
GB_DECLARE(".Draw.Style", 0), GB_VIRTUAL_CLASS(),
GB_STATIC_METHOD("Arrow", NULL, CDRAW_style_arrow, "(X)i(Y)i(Width)i(Height)i(Type)i[(Flag)i]"),
GB_STATIC_METHOD("Check", NULL, CDRAW_style_check, "(X)i(Y)i(Width)i(Height)i(Value)i[(Flag)i]"),
GB_STATIC_METHOD("Option", NULL, CDRAW_style_option, "(X)i(Y)i(Width)i(Height)i(Value)b[(Flag)i]"),
GB_STATIC_METHOD("Separator", NULL, CDRAW_style_separator, "(X)i(Y)i(Width)i(Height)i[(Vertical)b(Flag)i]"),
GB_STATIC_METHOD("Focus", NULL, CDRAW_style_focus, "(X)i(Y)i(Width)i(Height)i"),
GB_STATIC_METHOD("Button", NULL, CDRAW_style_button, "(X)i(Y)i(Width)i(Height)i(Value)b[(Flag)i]"),
GB_STATIC_METHOD("Panel", NULL, CDRAW_style_panel, "(X)i(Y)i(Width)i(Height)i(Border)i[(Flag)i]"),
GB_STATIC_METHOD("Handle", NULL, CDRAW_style_handle, "(X)i(Y)i(Width)i(Height)i[(Vertical)b(Flag)i]"),
GB_END_DECLARE
};
GB_DESC CDrawDesc[] =
{
GB_DECLARE("Draw", 0), GB_VIRTUAL_CLASS(),
GB_STATIC_METHOD("_exit", NULL, CDRAW_exit, NULL),
GB_STATIC_METHOD("Begin", NULL, CDRAW_begin, "(Device)o"),
GB_STATIC_METHOD("End", NULL, CDRAW_end, NULL),
GB_STATIC_METHOD("Save", NULL, CDRAW_save, NULL),
GB_STATIC_METHOD("Restore", NULL, CDRAW_restore, NULL),
GB_STATIC_PROPERTY_READ("Device", "o", CDRAW_device),
GB_STATIC_PROPERTY_READ("W", "i", CDRAW_width),
GB_STATIC_PROPERTY_READ("H", "i", CDRAW_height),
GB_STATIC_PROPERTY_READ("Width", "i", CDRAW_width),
GB_STATIC_PROPERTY_READ("Height", "i", CDRAW_height),
GB_STATIC_PROPERTY_READ("Resolution", "i", CDRAW_resolution),
GB_STATIC_PROPERTY_SELF("Clip", ".Draw.Clip"),
GB_STATIC_PROPERTY_SELF("Style", ".Draw.Style"),
GB_STATIC_PROPERTY("Background", "i", CDRAW_background),
GB_STATIC_PROPERTY("Foreground", "i", CDRAW_foreground),
//GB_STATIC_PROPERTY("BackColor", "i", CDRAW_background),
//GB_STATIC_PROPERTY("ForeColor", "i", CDRAW_foreground),
GB_STATIC_PROPERTY("Invert", "b", CDRAW_invert),
GB_STATIC_PROPERTY("Transparent", "b", CDRAW_transparent),
GB_STATIC_PROPERTY("Font", "Font", CDRAW_font),
GB_STATIC_PROPERTY("LineWidth", "i", CDRAW_line_width),
GB_STATIC_PROPERTY("LineStyle", "i", CDRAW_line_style),
GB_STATIC_PROPERTY("FillColor", "i", CDRAW_fill_color),
GB_STATIC_PROPERTY("FillStyle", "i", CDRAW_fill_style),
GB_STATIC_PROPERTY("FillX", "i", CDRAW_fill_x),
GB_STATIC_PROPERTY("FillY", "i", CDRAW_fill_y),
GB_STATIC_METHOD("Clear", NULL, CDRAW_clear, NULL),
GB_STATIC_METHOD("Point", NULL, CDRAW_point, "(X)i(Y)i"),
GB_STATIC_METHOD("Line", NULL, CDRAW_line, "(X1)i(Y1)i(X2)i(Y2)i"),
GB_STATIC_METHOD("Rect", NULL, CDRAW_rect, "(X)i(Y)i(Width)i(Height)i"),
GB_STATIC_METHOD("FillRect", NULL, CDRAW_fill_rect, "(X)i(Y)i(Width)i(Height)i[(Color)i]"),
//GB_STATIC_METHOD("RoundRect", NULL, CDRAW_round_rect, "(X)i(Y)i(Width)i(Height)i[(Round)f]"),
GB_STATIC_METHOD("Circle", NULL, CDRAW_circle, "(X)i(Y)i(Radius)i[(Start)f(End)f]"),
GB_STATIC_METHOD("Ellipse", NULL, CDRAW_ellipse, "(X)i(Y)i(Width)i(Height)i[(Start)f(End)f]"),
GB_STATIC_METHOD("Text", NULL, CDRAW_text, "(Text)s(X)i(Y)i[(Width)i(Height)i(Alignment)i)]"),
GB_STATIC_METHOD("TextWidth", "i", CDRAW_text_width, "(Text)s"),
GB_STATIC_METHOD("TextHeight", "i", CDRAW_text_height, "(Text)s"),
GB_STATIC_METHOD("RichText", NULL, CDRAW_rich_text, "(Text)s(X)i(Y)i[(Width)i(Height)i(Alignment)i)]"),
GB_STATIC_METHOD("RichTextWidth", "i", CDRAW_rich_text_width, "(Text)s"),
GB_STATIC_METHOD("RichTextHeight", "i", CDRAW_rich_text_height, "(Text)s[(Width)i]"),
GB_STATIC_METHOD("Polyline", NULL, CDRAW_polyline, "(Points)Integer[]"),
GB_STATIC_METHOD("Polygon", NULL, CDRAW_polygon, "(Points)Integer[]"),
GB_STATIC_METHOD("Picture", NULL, CDRAW_picture, "(Picture)Picture;(X)i(Y)i[(Width)i(Height)i(SrcX)i(SrcY)i(SrcWidth)i(SrcHeight)i]"),
GB_STATIC_METHOD("Tile", NULL, CDRAW_tile, "(Picture)Picture;(X)i(Y)i(Width)i(Height)i"),
GB_STATIC_METHOD("Image", NULL, CDRAW_image, "(Image)Image;(X)i(Y)i[(Width)i(Height)i(SrcX)i(SrcY)i(SrcWidth)i(SrcHeight)i]"),
GB_STATIC_METHOD("Zoom", NULL, CDRAW_zoom, "(Image)Image;(Zoom)i(X)i(Y)i[(SrcX)i(SrcY)i(SrcWidth)i(SrcHeight)i]"),
GB_STATIC_METHOD("Reset", NULL, CDRAW_reset, NULL),
GB_STATIC_METHOD("Push", NULL, CDRAW_push, NULL),
GB_STATIC_METHOD("Pop", NULL, CDRAW_pop, NULL),
GB_STATIC_METHOD("Translate", NULL, CDRAW_translate, "(DX)f(DY)f"),
GB_STATIC_METHOD("Scale", NULL, CDRAW_scale, "(SX)f(SY)f"),
GB_CONSTANT("Normal", "i", GB_DRAW_STATE_NORMAL),
GB_CONSTANT("Disabled", "i", GB_DRAW_STATE_DISABLED),
//GB_CONSTANT("ToolButton", "i", GB_DRAW_STATE_TOOL_BUTTON),
#if 0
GB_STATIC_METHOD("Drawing", NULL, CDRAW_drawing, "(Drawing)Drawing;(X)i(Y)i[(Width)i(Height)i(SrcX)i(SrcY)i(SrcWidth)i(SrcHeight)i]"),
GB_STATIC_METHOD("Rotate", NULL, CDRAW_rotate, "(Angle)f"),
#endif
GB_END_DECLARE
};