--- /dev/null
+/*
+ * File: xfspline.cc
+ * Purpose:
+ * Author: Julian Smart
+ * Created: 1993
+ * Updated: August 1994
+ * RCS_ID: $Id$
+ * Copyright: (c) 1993, AIAI, University of Edinburgh
+ */
+
+// Must be a comment as this file is #include\'d by wb_dc.cc
+/* static const char sccsid[] = "@(#)xfspline.cc 1.3 5/9/94"; */
+
+/*
+ * FIG : Facility for Interactive Generation of figures
+ * Copyright (c) 1985 by Supoj Sutanthavibul
+ */
+
+
+#if USE_SPLINES
+
+////#define wx_round(a) (int)((a)+.5)
+//#define wx_round(a) (a)
+
+class wxSpline: public wxObject
+{
+ public:
+ int type;
+ wxList *points;
+
+ wxSpline(wxList *list);
+ void DeletePoints(void);
+
+ // Doesn't delete points
+ ~wxSpline(void);
+};
+
+void wx_draw_open_spline(wxDC *dc, wxSpline *spline);
+
+#if USE_POSTSCRIPT
+void wx_draw_open_spline_ps(wxPostScriptDC *dc, wxSpline *s);
+#endif
+
+void wx_quadratic_spline(double a1, double b1, double a2, double b2,
+ double a3, double b3, double a4, double b4);
+void wx_clear_stack(void);
+int wx_spline_pop(double *x1, double *y1, double *x2, double *y2, double *x3,
+ double *y3, double *x4, double *y4);
+void wx_spline_push(double x1, double y1, double x2, double y2, double x3, double y3,
+ double x4, double y4);
+static bool wx_spline_add_point(double x, double y);
+static void wx_spline_draw_point_array(wxDC *dc);
+wxSpline *wx_make_spline(int x1, int y1, int x2, int y2, int x3, int y3);
+
+void wxDC::DrawSpline(int n, wxPoint points[])
+{
+ wxList list;
+ int i;
+ for (i =0; i < n; i++)
+ list.Append((wxObject*)&points[i]);
+ DrawSpline((wxList *)&list);
+}
+
+void wxDC::DrawSpline(wxList *list)
+{
+ wxSpline spline(list);
+
+ wx_draw_open_spline(this, &spline);
+}
+
+
+wxList wx_spline_point_list;
+
+void wx_draw_open_spline(wxDC *dc, wxSpline *spline)
+{
+ wxPoint *p;
+ double cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4;
+ double x1, y1, x2, y2;
+
+ wxNode *node = spline->points->First();
+ p = (wxPoint *)node->Data();
+
+ x1 = p->x;
+ y1 = p->y;
+
+ node = node->Next();
+ p = (wxPoint *)node->Data();
+
+ x2 = p->x;
+ y2 = p->y;
+ cx1 = (double)((x1 + x2) / 2);
+ cy1 = (double)((y1 + y2) / 2);
+ cx2 = (double)((cx1 + x2) / 2);
+ cy2 = (double)((cy1 + y2) / 2);
+
+ wx_spline_add_point(x1, y1);
+
+ while ((node = node->Next()) != NULL)
+ {
+ p = (wxPoint *)node->Data();
+ x1 = x2;
+ y1 = y2;
+ x2 = p->x;
+ y2 = p->y;
+ cx4 = (double)(x1 + x2) / 2;
+ cy4 = (double)(y1 + y2) / 2;
+ cx3 = (double)(x1 + cx4) / 2;
+ cy3 = (double)(y1 + cy4) / 2;
+
+ wx_quadratic_spline(cx1, cy1, cx2, cy2, cx3, cy3, cx4, cy4);
+
+ cx1 = cx4;
+ cy1 = cy4;
+ cx2 = (double)(cx1 + x2) / 2;
+ cy2 = (double)(cy1 + y2) / 2;
+ }
+
+ wx_spline_add_point((double)wx_round(cx1), (double)wx_round(cy1));
+ wx_spline_add_point(x2, y2);
+
+ wx_spline_draw_point_array(dc);
+
+}
+
+#if USE_POSTSCRIPT
+void wx_draw_open_spline_ps(wxPostScriptDC *dc, wxSpline *s)
+{
+ double a, b, c, d, x1, y1, x2, y2, x3, y3;
+ wxPoint *p, *q;
+ if (dc->GetAutoSetting())
+ dc->SetPen(* dc->GetPen());
+
+ wxNode *node = s->points->First();
+ p = (wxPoint *)node->Data();
+
+ x1 = p->x; y1 = p->y;
+
+ node = node->Next();
+ p = (wxPoint *)node->Data();
+ c = p->x; d = p->y;
+ x3 = a = (double)(x1 + c) / 2;
+ y3 = b = (double)(y1 + d) / 2;
+
+ *(dc->GetStream()) << "newpath " << x1 << " " << dc->GetYOrigin() - y1 << " moveto " << x3 << " " << dc->GetYOrigin() - y3;
+ *(dc->GetStream()) << " lineto\n";
+ dc->CalcBoundingBox((double)x1, (double)(dc->GetYOrigin() - y1));
+ dc->CalcBoundingBox((double)x3, (double)(dc->GetYOrigin() - y3));
+
+ while ((node = node->Next()) != NULL)
+ {
+ q = (wxPoint *)node->Data();
+
+ x1 = x3; y1 = y3;
+ x2 = c; y2 = d;
+ c = q->x; d = q->y;
+ x3 = (double)(x2 + c) / 2;
+ y3 = (double)(y2 + d) / 2;
+ *(dc->GetStream()) << x1 << " " << dc->GetYOrigin() - y1 << " " << x2 << " " << dc->GetYOrigin() - y2 << " ";
+ *(dc->GetStream()) << x3 << " " << dc->GetYOrigin() - y3 << " DrawSplineSection\n";
+
+ dc->CalcBoundingBox((double)x1, (double)(dc->GetYOrigin() - y1));
+ dc->CalcBoundingBox((double)x3, (double)(dc->GetYOrigin() - y3));
+ }
+ /*
+ * At this point, (x2,y2) and (c,d) are the position of the
+ * next-to-last and last point respectively, in the point list
+ */
+ *(dc->GetStream()) << c << " " << dc->GetYOrigin() - d << " lineto stroke\n";
+}
+#endif
+
+/********************* CURVES FOR SPLINES *****************************
+
+ The following spline drawing routine is from
+
+ "An Algorithm for High-Speed Curve Generation"
+ by George Merrill Chaikin,
+ Computer Graphics and Image Processing, 3, Academic Press,
+ 1974, 346-349.
+
+ and
+
+ "On Chaikin's Algorithm" by R. F. Riesenfeld,
+ Computer Graphics and Image Processing, 4, Academic Press,
+ 1975, 304-310.
+
+***********************************************************************/
+
+#define half(z1, z2) ((z1+z2)/2.0)
+#define THRESHOLD 5
+
+/* iterative version */
+
+void wx_quadratic_spline(double a1, double b1, double a2, double b2, double a3, double b3, double a4,
+ double b4)
+{
+ register double xmid, ymid;
+ double x1, y1, x2, y2, x3, y3, x4, y4;
+
+ wx_clear_stack();
+ wx_spline_push(a1, b1, a2, b2, a3, b3, a4, b4);
+
+ while (wx_spline_pop(&x1, &y1, &x2, &y2, &x3, &y3, &x4, &y4)) {
+ xmid = (double)half(x2, x3);
+ ymid = (double)half(y2, y3);
+ if (fabs(x1 - xmid) < THRESHOLD && fabs(y1 - ymid) < THRESHOLD &&
+ fabs(xmid - x4) < THRESHOLD && fabs(ymid - y4) < THRESHOLD) {
+ wx_spline_add_point((double)wx_round(x1), (double)wx_round(y1));
+ wx_spline_add_point((double)wx_round(xmid), (double)wx_round(ymid));
+ } else {
+ wx_spline_push(xmid, ymid, (double)half(xmid, x3), (double)half(ymid, y3),
+ (double)half(x3, x4), (double)half(y3, y4), x4, y4);
+ wx_spline_push(x1, y1, (double)half(x1, x2), (double)half(y1, y2),
+ (double)half(x2, xmid), (double)half(y2, ymid), xmid, ymid);
+ }
+ }
+}
+
+
+/* utilities used by spline drawing routines */
+
+
+typedef struct wx_spline_stack_struct {
+ double x1, y1, x2, y2, x3, y3, x4, y4;
+}
+ Stack;
+
+#define SPLINE_STACK_DEPTH 20
+static Stack wx_spline_stack[SPLINE_STACK_DEPTH];
+static Stack *wx_stack_top;
+static int wx_stack_count;
+
+void wx_clear_stack(void)
+{
+ wx_stack_top = wx_spline_stack;
+ wx_stack_count = 0;
+}
+
+void wx_spline_push(double x1, double y1, double x2, double y2, double x3, double y3, double x4, double y4)
+{
+ wx_stack_top->x1 = x1;
+ wx_stack_top->y1 = y1;
+ wx_stack_top->x2 = x2;
+ wx_stack_top->y2 = y2;
+ wx_stack_top->x3 = x3;
+ wx_stack_top->y3 = y3;
+ wx_stack_top->x4 = x4;
+ wx_stack_top->y4 = y4;
+ wx_stack_top++;
+ wx_stack_count++;
+}
+
+int wx_spline_pop(double *x1, double *y1, double *x2, double *y2,
+ double *x3, double *y3, double *x4, double *y4)
+{
+ if (wx_stack_count == 0)
+ return (0);
+ wx_stack_top--;
+ wx_stack_count--;
+ *x1 = wx_stack_top->x1;
+ *y1 = wx_stack_top->y1;
+ *x2 = wx_stack_top->x2;
+ *y2 = wx_stack_top->y2;
+ *x3 = wx_stack_top->x3;
+ *y3 = wx_stack_top->y3;
+ *x4 = wx_stack_top->x4;
+ *y4 = wx_stack_top->y4;
+ return (1);
+}
+
+static bool wx_spline_add_point(double x, double y)
+{
+ wxPoint *point = new wxPoint ;
+ point->x = (int) x;
+ point->y = (int) y;
+ wx_spline_point_list.Append((wxObject*)point);
+ return TRUE;
+}
+
+static void wx_spline_draw_point_array(wxDC *dc)
+{
+ dc->DrawLines(&wx_spline_point_list, (double)0.0, (double)0.0);
+ wxNode *node = wx_spline_point_list.First();
+ while (node)
+ {
+ wxPoint *point = (wxPoint *)node->Data();
+ delete point;
+ delete node;
+ node = wx_spline_point_list.First();
+ }
+}
+
+wxSpline::wxSpline(wxList *list)
+{
+ points = list;
+}
+
+wxSpline::~wxSpline(void)
+{
+}
+
+void wxSpline::DeletePoints(void)
+{
+ for(wxNode *node = points->First(); node; node = points->First())
+ {
+ wxPoint *point = (wxPoint *)node->Data();
+ delete point;
+ delete node;
+ }
+ delete points;
+}
+
+#if USE_POSTSCRIPT
+
+// Make a 3-point spline
+void wxPostScriptDC::DrawSpline(long x1, long y1, long x2, long y2, long x3, long y3)
+{
+ wxList *point_list = new wxList;
+
+ wxPoint *point1 = new wxPoint;
+ point1->x = x1; point1->y = y1;
+ point_list->Append((wxObject*)point1);
+
+ wxPoint *point2 = new wxPoint;
+ point2->x = x2; point2->y = y2;
+ point_list->Append((wxObject*)point2);
+
+ wxPoint *point3 = new wxPoint;
+ point3->x = x3; point3->y = y3;
+ point_list->Append((wxObject*)point3);
+
+ wxSpline spline(point_list);
+
+ wx_draw_open_spline_ps(this, &spline);
+ spline.DeletePoints();
+}
+
+void wxPostScriptDC::DrawSpline(wxList *list)
+{
+ wxSpline spline(list);
+
+ wx_draw_open_spline_ps(this, &spline);
+}
+
+void wxPostScriptDC::DrawSpline(int n, wxPoint points[])
+{
+ wxList list;
+ int i;
+ for (i =0; i < n; i++)
+ list.Append((wxObject*)&points[i]);
+ DrawSpline((wxList *)&list);
+}
+
+
+#endif // USE_POSTSCRIPT
+
+#endif // USE_SPLINES
+
projects / wxWidgets.git / blobdiff