luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
gambas-source-code/main/lib/geom/cpoint_temp.h

259 lines
30 KiB
C
Raw Normal View History

[GB.DRAW] * NEW: Remove geometry classes and put them in the gb.geom component. [GB.GEOM] * NEW: New hidden component that implements all geometry classes: Point, PointF, Rect and RectF. git-svn-id: svn://localhost/gambas/trunk@5641 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-05-04 19:23:17 +02:00
/***************************************************************************
cpoint_temp.h
[CONFIGURATION] * NEW: Update copyright year to 2013. [GB.FORM] * NEW: ImageView is a new control that allows to view an image inside a scrolled view, at different zoom levels. * BUG: FileProperties now works correctly if 'gb.desktop' is not used. * NEW: The FileProperties preview tab now uses an ImageView control and has a toolbar to zoom the preview. * BUG: Add the 'linux' and 'gnu' icon in the stock icon list. git-svn-id: svn://localhost/gambas/trunk@5770 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-08-03 17:38:01 +02:00
(c) 2000-2013 Benoît Minisini <gambas@users.sourceforge.net>
[GB.DRAW] * NEW: Remove geometry classes and put them in the gb.geom component. [GB.GEOM] * NEW: New hidden component that implements all geometry classes: Point, PointF, Rect and RectF. git-svn-id: svn://localhost/gambas/trunk@5641 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-05-04 19:23:17 +02:00
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., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
***************************************************************************/
#define IMPLEMENT_POINT_CLASS(__struct, __name, __gtype, __ctype, __sign, __return, __this, __rstruct, __rname) \
\
__struct * __struct##_create(__ctype x, __ctype y) \
{ \
__struct *p = GB.New(GB.FindClass(#__name), NULL, NULL); \
p->x = x; \
p->y = y; \
return p; \
} \
\
static inline __struct *__struct##_make(__struct *a, const __ctype x, const __ctype y) \
{ \
if (a->ob.ref <= 1) \
{ \
a->x = x; \
a->y = y; \
return a; \
} \
else \
return __struct##_create(x, y); \
} \
\
static __struct *_add_##__name(__struct *a, __struct *b, bool invert) \
{ \
return __struct##_make(a, a->x + b->x, a->y + b->y); \
} \
\
static __struct *_sub_##__name(__struct *a, __struct *b, bool invert) \
{ \
return __struct##_make(a, a->x - b->x, a->y - b->y); \
} \
\
static __struct *_mulf_##__name(__struct *a, double f, bool invert) \
{ \
return __struct##_make(a, a->x * f, a->y * f); \
} \
\
static __struct *_mulo_##__name(__struct *a, void *b, bool invert) \
{ \
return NULL; \
} \
\
static __struct *_divf_##__name(__struct *a, double f, bool invert) \
{ \
if (invert) \
return NULL; \
if (f == 0.0) \
return NULL; \
\
return __struct##_make(a, a->x / f, a->y / f); \
} \
\
static __struct *_divo_##__name(__struct *a, void *b, bool invert) \
{ \
return NULL; \
} \
\
static int _equal_##__name(__struct *a, __struct *b, bool invert) \
{ \
return a->x == b->x && a->y == b->y; \
} \
\
[DEVELOPMENT ENVIRONMENT] * NEW: Complete the french translation. [INTERPRETER] * BUG: Class reimplementation of Abs() now can return an object or a floating-point number. [GB.COMPLEX] * BUG: Abs() on a Complex returns a Float. [GB.GEOM] * BUG: Abs() on a Point or a PointF returns a Float. [GB.GSL] * BUG: Abs() on a Complex returns a Float. git-svn-id: svn://localhost/gambas/trunk@5835 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-09-08 01:09:01 +02:00
static double _fabs_##__name(__struct *a) \
[GB.DRAW] * NEW: Remove geometry classes and put them in the gb.geom component. [GB.GEOM] * NEW: New hidden component that implements all geometry classes: Point, PointF, Rect and RectF. git-svn-id: svn://localhost/gambas/trunk@5641 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-05-04 19:23:17 +02:00
{ \
return hypot(a->x, a->y); \
} \
\
static __struct *_neg_##__name(__struct *a) \
{ \
return __struct##_make(a, -a->x, -a->y); \
} \
\
static GB_OPERATOR_DESC _operator_##__name = \
{ \
.equal = (void *)_equal_##__name, \
.add = (void *)_add_##__name, \
.sub = (void *)_sub_##__name, \
.mulf = (void *)_mulf_##__name, \
.mulo = (void *)_mulo_##__name, \
.divf = (void *)_divf_##__name, \
.divo = (void *)_divo_##__name, \
[DEVELOPMENT ENVIRONMENT] * NEW: Complete the french translation. [INTERPRETER] * BUG: Class reimplementation of Abs() now can return an object or a floating-point number. [GB.COMPLEX] * BUG: Abs() on a Complex returns a Float. [GB.GEOM] * BUG: Abs() on a Point or a PointF returns a Float. [GB.GSL] * BUG: Abs() on a Complex returns a Float. git-svn-id: svn://localhost/gambas/trunk@5835 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-09-08 01:09:01 +02:00
.fabs = (void *)_fabs_##__name, \
[GB.DRAW] * NEW: Remove geometry classes and put them in the gb.geom component. [GB.GEOM] * NEW: New hidden component that implements all geometry classes: Point, PointF, Rect and RectF. git-svn-id: svn://localhost/gambas/trunk@5641 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-05-04 19:23:17 +02:00
.neg = (void *)_neg_##__name, \
}; \
\
char *__struct##_to_string(void *a, bool local) \
{ \
char *result = NULL; \
char *str; \
int len; \
\
__ctype x = ((__struct *)a)->x; \
__ctype y = ((__struct *)a)->y; \
\
result = GB.AddChar(result, '['); \
\
GB.NumberToString(local, x, NULL, &str, &len); \
result = GB.AddString(result, str, len); \
\
result = GB.AddChar(result, local ? ' ' : ','); \
\
GB.NumberToString(local, y, NULL, &str, &len); \
result = GB.AddString(result, str, len); \
\
result = GB.AddChar(result, ']'); \
\
return result; \
} \
\
static bool _convert_##__name(void *a, GB_TYPE type, GB_VALUE *conv) \
{ \
if (a) \
{ \
[DEVELOPMENT ENVIRONMEMNT] * BUG: ImageEditor: Fix a crash that occurs after something having pasted. [EXAMPLES] * NEW: Md2Model example has been redesigned. It now displays a lot of models between six different ones. [INTERPRETER] * BUG: Fix a crash when an error is raised while the startup class is not ready. [GB.GEOM] * BUG: Fix the conversion from Point/PointF to Float that internally uses the Abs() function. [GB.GTK] * NEW: Visible trayicons prevent the eventloop from stopping. [GB.OPENGL.SGE] * NEW: The component sources are now located inside the gb.opengl directory. * NEW: The component interface has been redesigned. [GB.QT4] * NEW: Visible trayicons prevent the eventloop from stopping. [GB.QT4.OPENGL] * BUG: The OpenGL clear color is now taken into account when clearing the area before calling the Draw event handler. git-svn-id: svn://localhost/gambas/trunk@5836 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-09-08 19:15:55 +02:00
double norm = _fabs_##__name(a); \
[GB.DRAW] * NEW: Remove geometry classes and put them in the gb.geom component. [GB.GEOM] * NEW: New hidden component that implements all geometry classes: Point, PointF, Rect and RectF. git-svn-id: svn://localhost/gambas/trunk@5641 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2013-05-04 19:23:17 +02:00
\
switch (type) \
{ \
case GB_T_FLOAT: \
conv->_float.value = norm; \
return FALSE; \
\
case GB_T_SINGLE: \
conv->_single.value = norm; \
return FALSE; \
\
case GB_T_INTEGER: \
case GB_T_SHORT: \
case GB_T_BYTE: \
conv->_integer.value = norm; \
return FALSE; \
\
case GB_T_LONG: \
conv->_long.value = norm; \
return FALSE; \
\
case GB_T_STRING: \
case GB_T_CSTRING: \
conv->_string.value.addr = __struct##_to_string(a, type == GB_T_CSTRING); \
conv->_string.value.start = 0; \
conv->_string.value.len = GB.StringLength(conv->_string.value.addr); \
return FALSE; \
\
default: \
if (type == GB.FindClass("Point")) \
{ \
conv->_object.value = CPOINT_create(((__struct *)a)->x, ((__struct *)a)->y); \
return FALSE; \
} \
if (type == GB.FindClass("PointF")) \
{ \
conv->_object.value = CPOINTF_create(((__struct *)a)->x, ((__struct *)a)->y); \
return FALSE; \
} \
else \
return TRUE; \
} \
} \
else \
return TRUE; \
} \
\
\
BEGIN_METHOD(__name##_new, __gtype x; __gtype y; __gtype w; __gtype h) \
\
if (!MISSING(x) && !MISSING(y)) \
{ \
__this->x = VARG(x); \
__this->y = VARG(y); \
} \
\
END_METHOD \
\
BEGIN_METHOD(__name##_call, __gtype x; __gtype y) \
\
GB.ReturnObject(__struct##_create(VARGOPT(x, 0), VARGOPT(y, 0))); \
\
END_METHOD \
\
BEGIN_PROPERTY(__name##_X) \
\
if (READ_PROPERTY) \
__return(__this->x); \
else \
__this->x = VPROP(__gtype); \
\
END_PROPERTY \
\
BEGIN_PROPERTY(__name##_Y) \
\
if (READ_PROPERTY) \
__return(__this->y); \
else \
__this->y = VPROP(__gtype); \
\
END_PROPERTY \
\
BEGIN_METHOD_VOID(__name##_Copy) \
\
GB.ReturnObject(__struct##_create(__this->x, __this->y)); \
\
END_METHOD \
\
BEGIN_METHOD(__name##_InRect, GB_OBJECT rect) \
\
__rstruct *rect = VARG(rect); \
\
if (GB.CheckObject(rect)) \
return; \
\
GB.ReturnBoolean( \
(__this->x >= rect->x) && (__this->x < (rect->x + rect->w)) \
&& (__this->y >= rect->y) && (__this->y < (rect->y + rect->h)) \
); \
\
END_METHOD \
\
GB_DESC __name##Desc[] = \
{ \
GB_DECLARE(#__name, sizeof(__struct)), \
\
GB_METHOD("_new", NULL, __name##_new, "[(X)" __sign "(Y)" __sign), \
GB_STATIC_METHOD("_call", #__name, __name##_call, "[(X)" __sign "(Y)" __sign), \
\
GB_PROPERTY("X", __sign, __name##_X), \
GB_PROPERTY("Y", __sign, __name##_Y), \
\
GB_METHOD("Copy", #__name, __name##_Copy, NULL), \
GB_METHOD("InRect", "b", __name##_InRect, "(Rectangle)" #__rname ";"), \
\
GB_INTERFACE("_operator", &_operator_##__name), \
GB_INTERFACE("_convert", &_convert_##__name), \
\
GB_END_DECLARE \
};
Reference in a new issue Copy permalink