--- /dev/null
+/////////////////////////////////////////////////////////////////////////////
+// Name: misc.cpp
+// Purpose: Miscellaneous OGL support functions
+// Author: Julian Smart
+// Modified by:
+// Created: 12/07/98
+// RCS-ID: $Id$
+// Copyright: (c) Julian Smart
+// Licence: wxWindows licence
+/////////////////////////////////////////////////////////////////////////////
+
+#ifdef __GNUG__
+#pragma implementation "misc.h"
+#endif
+
+// For compilers that support precompilation, includes "wx.h".
+#include <wx/wxprec.h>
+
+#ifdef __BORLANDC__
+#pragma hdrstop
+#endif
+
+#ifndef WX_PRECOMP
+#include <wx/wx.h>
+#endif
+
+#ifdef PROLOGIO
+#include <wx/wxexpr.h>
+#endif
+
+#include <wx/types.h>
+
+#if USE_IOSTREAMH
+#include <iostream.h>
+#else
+#include <iostream>
+#endif
+#include <ctype.h>
+#include <math.h>
+#include <stdlib.h>
+
+#include "basic.h"
+#include "basicp.h"
+#include "misc.h"
+#include "constrnt.h"
+#include "composit.h"
+
+wxFont *g_oglNormalFont;
+
+wxPen *black_pen;
+wxPen *white_background_pen;
+wxPen *transparent_pen;
+wxBrush *white_background_brush;
+wxPen *black_foreground_pen;
+
+char *GraphicsBuffer = NULL;
+wxCursor *GraphicsBullseyeCursor = NULL;
+
+wxList wxObjectCopyMapping(wxKEY_INTEGER);
+
+void wxOGLInitialize()
+{
+ GraphicsBullseyeCursor = new wxCursor(wxCURSOR_BULLSEYE);
+
+ g_oglNormalFont = new wxFont(12, wxMODERN, wxNORMAL, wxNORMAL);
+
+ black_pen = new wxPen("BLACK", 1, wxSOLID);
+
+ white_background_pen = new wxPen("WHITE", 1, wxSOLID);
+ transparent_pen = new wxPen("WHITE", 1, wxTRANSPARENT);
+ white_background_brush = new wxBrush("WHITE", wxSOLID);
+ black_foreground_pen = new wxPen("BLACK", 1, wxSOLID);
+
+ OGLInitializeConstraintTypes();
+
+ // Initialize big buffer used when writing images
+ GraphicsBuffer = new char[3000];
+
+ if (!oglPopupDivisionMenu)
+ {
+ oglPopupDivisionMenu = new wxMenu("", (wxFunction)oglGraphicsDivisionMenuProc);
+ oglPopupDivisionMenu->Append(DIVISION_MENU_SPLIT_HORIZONTALLY, "Split horizontally");
+ oglPopupDivisionMenu->Append(DIVISION_MENU_SPLIT_VERTICALLY, "Split vertically");
+ oglPopupDivisionMenu->AppendSeparator();
+ oglPopupDivisionMenu->Append(DIVISION_MENU_EDIT_LEFT_EDGE, "Edit left edge");
+ oglPopupDivisionMenu->Append(DIVISION_MENU_EDIT_TOP_EDGE, "Edit top edge");
+ }
+}
+
+void wxOGLCleanUp()
+{
+ if (GraphicsBuffer)
+ {
+ delete[] GraphicsBuffer;
+ GraphicsBuffer = NULL;
+ }
+ GraphicsBuffer = NULL;
+ if (oglPopupDivisionMenu)
+ {
+ delete oglPopupDivisionMenu;
+ oglPopupDivisionMenu = NULL;
+ }
+}
+
+wxFont *MatchFont(int point_size)
+{
+ wxFont *font = wxTheFontList->FindOrCreateFont(point_size, wxSWISS, wxNORMAL, wxNORMAL);
+#if 0
+ switch (point_size)
+ {
+ case 4:
+ font = swiss_font_4;
+ break;
+ case 6:
+ font = swiss_font_6;
+ break;
+ case 8:
+ font = swiss_font_8;
+ break;
+ case 12:
+ font = swiss_font_12;
+ break;
+ case 14:
+ font = swiss_font_14;
+ break;
+ case 18:
+ font = swiss_font_18;
+ break;
+ case 24:
+ font = swiss_font_24;
+ break;
+ default:
+ case 10:
+ font = swiss_font_10;
+ break;
+ }
+#endif
+ return font;
+}
+
+int FontSizeDialog(wxFrame *parent, int old_size)
+{
+ if (old_size <= 0)
+ old_size = 10;
+ char buf[40];
+ sprintf(buf, "%d", old_size);
+ wxString ans = wxGetTextFromUser("Enter point size", "Font size", buf, parent);
+ if (ans == "")
+ return 0;
+
+ int new_size = atoi(ans);
+ if ((new_size <= 0) || (new_size > 40))
+ {
+ wxMessageBox("Invalid point size!", "Error", wxOK);
+ return 0;
+ }
+ return new_size;
+/*
+ char *strings[8];
+ strings[0] = "4";
+ strings[1] = "6";
+ strings[2] = "8";
+ strings[3] = "10";
+ strings[4] = "12";
+ strings[5] = "14";
+ strings[6] = "18";
+ strings[7] = "24";
+ char *ans = wxGetSingleChoice("Choose", "Choose a font size", 8, strings, parent);
+ if (ans)
+ {
+ int size;
+ sscanf(ans, "%d", &size);
+ return MatchFont(size);
+ }
+ else return NULL;
+*/
+}
+
+// Centre a list of strings in the given box. xOffset and yOffset are the
+// the positions that these lines should be relative to, and this might be
+// the same as m_xpos, m_ypos, but might be zero if formatting from left-justifying.
+void CentreText(wxDC& dc, wxList *text_list,
+ float m_xpos, float m_ypos, float width, float height,
+ int formatMode)
+{
+ int n = text_list->Number();
+
+ if (!text_list || (n == 0))
+ return;
+
+ // First, get maximum dimensions of box enclosing text
+
+ float char_height = 0;
+ float max_width = 0;
+ float current_width = 0;
+
+ // Store text extents for speed
+ float *widths = new float[n];
+
+ wxNode *current = text_list->First();
+ int i = 0;
+ while (current)
+ {
+ wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
+ dc.GetTextExtent(line->GetText(), ¤t_width, &char_height);
+ widths[i] = current_width;
+
+ if (current_width > max_width)
+ max_width = current_width;
+ current = current->Next();
+ i ++;
+ }
+
+ float max_height = n*char_height;
+
+ float xoffset, yoffset, xOffset, yOffset;
+
+ if (formatMode & FORMAT_CENTRE_VERT)
+ {
+ if (max_height < height)
+ yoffset = (float)(m_ypos - (height/2.0) + (height - max_height)/2.0);
+ else
+ yoffset = (float)(m_ypos - (height/2.0));
+ yOffset = m_ypos;
+ }
+ else
+ {
+ yoffset = 0.0;
+ yOffset = 0.0;
+ }
+
+ if (formatMode & FORMAT_CENTRE_HORIZ)
+ {
+ xoffset = (float)(m_xpos - width/2.0);
+ xOffset = m_xpos;
+ }
+ else
+ {
+ xoffset = 0.0;
+ xOffset = 0.0;
+ }
+
+ current = text_list->First();
+ i = 0;
+
+ while (current)
+ {
+ wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
+
+ float x;
+ if ((formatMode & FORMAT_CENTRE_HORIZ) && (widths[i] < width))
+ x = (float)((width - widths[i])/2.0 + xoffset);
+ else
+ x = xoffset;
+ float y = (float)(i*char_height + yoffset);
+
+ line->SetX( x - xOffset ); line->SetY( y - yOffset );
+ current = current->Next();
+ i ++;
+ }
+
+ delete widths;
+}
+
+// Centre a list of strings in the given box
+void CentreTextNoClipping(wxDC& dc, wxList *text_list,
+ float m_xpos, float m_ypos, float width, float height)
+{
+ int n = text_list->Number();
+
+ if (!text_list || (n == 0))
+ return;
+
+ // First, get maximum dimensions of box enclosing text
+
+ float char_height = 0;
+ float max_width = 0;
+ float current_width = 0;
+
+ // Store text extents for speed
+ float *widths = new float[n];
+
+ wxNode *current = text_list->First();
+ int i = 0;
+ while (current)
+ {
+ wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
+ dc.GetTextExtent(line->GetText(), ¤t_width, &char_height);
+ widths[i] = current_width;
+
+ if (current_width > max_width)
+ max_width = current_width;
+ current = current->Next();
+ i ++;
+ }
+
+ float max_height = n*char_height;
+
+ float yoffset = (float)(m_ypos - (height/2.0) + (height - max_height)/2.0);
+
+ float xoffset = (float)(m_xpos - width/2.0);
+
+ current = text_list->First();
+ i = 0;
+
+ while (current)
+ {
+ wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
+
+ float x = (float)((width - widths[i])/2.0 + xoffset);
+ float y = (float)(i*char_height + yoffset);
+
+ line->SetX( x - m_xpos ); line->SetY( y - m_ypos );
+ current = current->Next();
+ i ++;
+ }
+ delete widths;
+}
+
+void GetCentredTextExtent(wxDC& dc, wxList *text_list,
+ float m_xpos, float m_ypos, float width, float height,
+ float *actual_width, float *actual_height)
+{
+ int n = text_list->Number();
+
+ if (!text_list || (n == 0))
+ {
+ *actual_width = 0;
+ *actual_height = 0;
+ return;
+ }
+
+ // First, get maximum dimensions of box enclosing text
+
+ float char_height = 0;
+ float max_width = 0;
+ float current_width = 0;
+
+ wxNode *current = text_list->First();
+ int i = 0;
+ while (current)
+ {
+ wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
+ dc.GetTextExtent(line->GetText(), ¤t_width, &char_height);
+
+ if (current_width > max_width)
+ max_width = current_width;
+ current = current->Next();
+ i ++;
+ }
+
+ *actual_height = n*char_height;
+ *actual_width = max_width;
+}
+
+// Format a string to a list of strings that fit in the given box.
+// Interpret %n and 10 or 13 as a new line.
+wxList *FormatText(wxDC& dc, const wxString& text, float width, float height, int formatMode)
+{
+ // First, parse the string into a list of words
+ wxList word_list;
+
+ // Make new lines into NULL strings at this point
+ int i = 0; int j = 0; int len = strlen(text);
+ char word[200]; word[0] = 0;
+ bool end_word = FALSE; bool new_line = FALSE;
+ while (i < len)
+ {
+ switch (text[i])
+ {
+ case '%':
+ {
+ i ++;
+ if (i == len)
+ { word[j] = '%'; j ++; }
+ else
+ {
+ if (text[i] == 'n')
+ { new_line = TRUE; end_word = TRUE; i++; }
+ else
+ { word[j] = '%'; j ++; word[j] = text[i]; j ++; i ++; }
+ }
+ break;
+ }
+ case 10:
+ {
+ new_line = TRUE; end_word = TRUE; i++;
+ break;
+ }
+ case 13:
+ {
+ new_line = TRUE; end_word = TRUE; i++;
+ }
+ case ' ':
+ {
+ end_word = TRUE;
+ i ++;
+ break;
+ }
+ default:
+ {
+ word[j] = text[i];
+ j ++; i ++;
+ break;
+ }
+ }
+ if (i == len) end_word = TRUE;
+ if (end_word)
+ {
+ word[j] = 0;
+ j = 0;
+ word_list.Append((wxObject *)copystring(word));
+ end_word = FALSE;
+ }
+ if (new_line)
+ {
+ word_list.Append((wxObject *)NULL);
+ new_line = FALSE;
+ }
+ }
+ // Now, make a list of strings which can fit in the box
+ wxList *string_list = new wxList;
+
+ char buffer[400];
+ buffer[0] = 0;
+ wxNode *node = word_list.First();
+ float x, y;
+
+ while (node)
+ {
+ char *keep_string = copystring(buffer);
+
+ char *s = (char *)node->Data();
+ if (!s)
+ {
+ // FORCE NEW LINE
+ if (strlen(keep_string) > 0)
+ string_list->Append((wxObject *)keep_string);
+ else
+ delete[] keep_string;
+
+ buffer[0] = 0;
+ }
+ else
+ {
+ if (buffer[0] != 0)
+ strcat(buffer, " ");
+
+ strcat(buffer, s);
+ dc.GetTextExtent(buffer, &x, &y);
+
+ // Don't fit within the bounding box if we're fitting shape to contents
+ if ((x > width) && !(formatMode & FORMAT_SIZE_TO_CONTENTS))
+ {
+ // Deal with first word being wider than box
+ if (strlen(keep_string) > 0)
+ string_list->Append((wxObject *)keep_string);
+ else
+ delete[] keep_string;
+
+ buffer[0] = 0;
+ strcat(buffer, s);
+ delete[] s;
+ }
+ else
+ delete[] keep_string;
+ }
+
+ node = node->Next();
+ }
+ if (buffer[0] != 0)
+ string_list->Append((wxObject *)copystring(buffer));
+
+ return string_list;
+}
+
+void DrawFormattedText(wxDC& dc, wxList *text_list,
+ float m_xpos, float m_ypos, float width, float height,
+ int formatMode)
+{
+ float xoffset, yoffset;
+ if (formatMode & FORMAT_CENTRE_HORIZ)
+ xoffset = m_xpos;
+ else
+ xoffset = (float)(m_xpos - (width / 2.0));
+
+ if (formatMode & FORMAT_CENTRE_VERT)
+ yoffset = m_ypos;
+ else
+ yoffset = (float)(m_ypos - (height / 2.0));
+
+ dc.SetClippingRegion(
+ (float)(m_xpos - width/2.0), (float)(m_ypos - height/2.0),
+ (float)width, (float)height);
+
+ wxNode *current = text_list->First();
+ while (current)
+ {
+ wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
+
+ dc.DrawText(line->GetText(), xoffset + line->GetX(), yoffset + line->GetY());
+ current = current->Next();
+ }
+
+ dc.DestroyClippingRegion();
+}
+
+/*
+ * Find centroid given list of points comprising polyline
+ *
+ */
+
+void find_polyline_centroid(wxList *points, float *x, float *y)
+{
+ float xcount = 0;
+ float ycount = 0;
+
+ wxNode *node = points->First();
+ while (node)
+ {
+ wxRealPoint *point = (wxRealPoint *)node->Data();
+ xcount += point->x;
+ ycount += point->y;
+ node = node->Next();
+ }
+
+ *x = (xcount/points->Number());
+ *y = (ycount/points->Number());
+}
+
+/*
+ * Check that (x1, y1) -> (x2, y2) hits (x3, y3) -> (x4, y4).
+ * If so, ratio1 gives the proportion along the first line
+ * that the intersection occurs (or something like that).
+ * Used by functions below.
+ *
+ */
+void check_line_intersection(float x1, float y1, float x2, float y2,
+ float x3, float y3, float x4, float y4,
+ float *ratio1, float *ratio2)
+{
+ float denominator_term = (y4 - y3)*(x2 - x1) - (y2 - y1)*(x4 - x3);
+ float numerator_term = (x3 - x1)*(y4 - y3) + (x4 - x3)*(y1 - y3);
+
+ float line_constant;
+ float length_ratio = 1.0;
+ float k_line = 1.0;
+
+ // Check for parallel lines
+ if ((denominator_term < 0.005) && (denominator_term > -0.005))
+ line_constant = -1.0;
+ else
+ line_constant = numerator_term/denominator_term;
+
+ // Check for intersection
+ if ((line_constant < 1.0) && (line_constant > 0.0))
+ {
+ // Now must check that other line hits
+ if (((y4 - y3) < 0.005) && ((y4 - y3) > -0.005))
+ k_line = ((x1 - x3) + line_constant*(x2 - x1))/(x4 - x3);
+ else
+ k_line = ((y1 - y3) + line_constant*(y2 - y1))/(y4 - y3);
+
+ if ((k_line >= 0.0) && (k_line < 1.0))
+ length_ratio = line_constant;
+ else
+ k_line = 1.0;
+ }
+ *ratio1 = length_ratio;
+ *ratio2 = k_line;
+}
+
+/*
+ * Find where (x1, y1) -> (x2, y2) hits one of the lines in xvec, yvec.
+ * (*x3, *y3) is the point where it hits.
+ *
+ */
+void find_end_for_polyline(float n, float xvec[], float yvec[],
+ float x1, float y1, float x2, float y2, float *x3, float *y3)
+{
+ int i;
+ float lastx = xvec[0];
+ float lasty = yvec[0];
+
+ float min_ratio = 1.0;
+ float line_ratio;
+ float other_ratio;
+
+ for (i = 1; i < n; i++)
+ {
+ check_line_intersection(x1, y1, x2, y2, lastx, lasty, xvec[i], yvec[i],
+ &line_ratio, &other_ratio);
+ lastx = xvec[i];
+ lasty = yvec[i];
+
+ if (line_ratio < min_ratio)
+ min_ratio = line_ratio;
+ }
+
+ // Do last (implicit) line if last and first floats are not identical
+ if (!(xvec[0] == lastx && yvec[0] == lasty))
+ {
+ check_line_intersection(x1, y1, x2, y2, lastx, lasty, xvec[0], yvec[0],
+ &line_ratio, &other_ratio);
+
+ if (line_ratio < min_ratio)
+ min_ratio = line_ratio;
+ }
+
+ *x3 = (x1 + (x2 - x1)*min_ratio);
+ *y3 = (y1 + (y2 - y1)*min_ratio);
+
+}
+
+/*
+ * Find where the line hits the box.
+ *
+ */
+
+void find_end_for_box(float width, float height,
+ float x1, float y1, // Centre of box (possibly)
+ float x2, float y2, // other end of line
+ float *x3, float *y3) // End on box edge
+{
+ float xvec[5];
+ float yvec[5];
+
+ xvec[0] = (float)(x1 - width/2.0);
+ yvec[0] = (float)(y1 - height/2.0);
+ xvec[1] = (float)(x1 - width/2.0);
+ yvec[1] = (float)(y1 + height/2.0);
+ xvec[2] = (float)(x1 + width/2.0);
+ yvec[2] = (float)(y1 + height/2.0);
+ xvec[3] = (float)(x1 + width/2.0);
+ yvec[3] = (float)(y1 - height/2.0);
+ xvec[4] = (float)(x1 - width/2.0);
+ yvec[4] = (float)(y1 - height/2.0);
+
+ find_end_for_polyline(5, xvec, yvec, x2, y2, x1, y1, x3, y3);
+}
+
+/*
+ * Find where the line hits the circle.
+ *
+ */
+
+void find_end_for_circle(float radius,
+ float x1, float y1, // Centre of circle
+ float x2, float y2, // Other end of line
+ float *x3, float *y3)
+{
+ float H = (float)sqrt((x2 - x1)*(x2 - x1) + (y2 - y1)*(y2 - y1));
+
+ if (H == 0.0)
+ {
+ *x3 = x1;
+ *y3 = y1;
+ }
+ else
+ {
+ *y3 = radius * (y2 - y1)/H + y1;
+ *x3 = radius * (x2 - x1)/H + x1;
+ }
+}
+
+/*
+ * Given the line (x1, y1) -> (x2, y2), and an arrow size of given length and width,
+ * return the position of the tip of the arrow and the left and right vertices of the arrow.
+ *
+ */
+
+void get_arrow_points(float x1, float y1, float x2, float y2,
+ float length, float width,
+ float *tip_x, float *tip_y,
+ float *side1_x, float *side1_y,
+ float *side2_x, float *side2_y)
+{
+ float l = (float)sqrt((x2 - x1)*(x2 - x1) + (y2 - y1)*(y2 - y1));
+
+ if (l < 0.01)
+ l = (float) 0.01;
+
+ float i_bar = (x2 - x1)/l;
+ float j_bar = (y2 - y1)/l;
+
+ float x3 = (- length*i_bar) + x2;
+ float y3 = (- length*j_bar) + y2;
+
+ *side1_x = width*(-j_bar) + x3;
+ *side1_y = width*i_bar + y3;
+
+ *side2_x = -width*(-j_bar) + x3;
+ *side2_y = -width*i_bar + y3;
+
+ *tip_x = x2; *tip_y = y2;
+}
+
+/*
+ * Given an ellipse and endpoints of a line, returns the point at which
+ * the line touches the ellipse in values x4, y4.
+ * This function assumes that the centre of the ellipse is at x1, y1, and the
+ * ellipse has a width of width1 and a height of height1. It also assumes you are
+ * wanting to draw an arc FROM point x2, y2 TOWARDS point x3, y3.
+ * This function calculates the x,y coordinates of the intersection point of
+ * the arc with the ellipse.
+ * Author: Ian Harrison
+ */
+
+void draw_arc_to_ellipse(float x1, float y1, float width1, float height1, float x2, float y2, float x3, float y3,
+ float *x4, float *y4)
+{
+ float a1 = (float)(width1/2.0);
+ float b1 = (float)(height1/2.0);
+
+ // These are required to give top left x and y coordinates for DrawEllipse
+// float top_left_x1 = (float)(x1 - a1);
+// float top_left_y1 = (float)(y1 - b1);
+/*
+ // Check for vertical line
+ if (fabs(x2 - x3) < 0.05)
+ {
+ *x4 = x3;
+ if (y2 < y3)
+ *y4 = (float)(y1 - b1);
+ else
+ *y4 = (float)(y1 + b1);
+ return;
+ }
+*/
+ // Check that x2 != x3
+ if (fabs(x2 - x3) < 0.05)
+ {
+ *x4 = x2;
+ if (y3 > y2)
+ *y4 = (float)(y1 - sqrt((b1*b1 - (((x2-x1)*(x2-x1))*(b1*b1)/(a1*a1)))));
+ else
+ *y4 = (float)(y1 + sqrt((b1*b1 - (((x2-x1)*(x2-x1))*(b1*b1)/(a1*a1)))));
+ return;
+ }
+
+ // Calculate the x and y coordinates of the point where arc intersects ellipse
+
+ float A, B, C, D, E, F, G, H, K;
+ float ellipse1_x, ellipse1_y;
+
+ A = (float)(1/(a1 * a1));
+ B = (float)((y3 - y2) * (y3 - y2)) / ((x3 - x2) * (x3 - x2) * b1 * b1);
+ C = (float)(2 * (y3 - y2) * (y2 - y1)) / ((x3 - x2) * b1 * b1);
+ D = (float)((y2 - y1) * (y2 - y1)) / (b1 * b1);
+ E = (float)(A + B);
+ F = (float)(C - (2 * A * x1) - (2 * B * x2));
+ G = (float)((A * x1 * x1) + (B * x2 * x2) - (C * x2) + D - 1);
+ H = (float)((y3 - y2) / (x3 - x2));
+ K = (float)((F * F) - (4 * E * G));
+
+ if (K >= 0)
+ // In this case the line intersects the ellipse, so calculate intersection
+ {
+ if(x2 >= x1)
+ {
+ ellipse1_x = (float)(((F * -1) + sqrt(K)) / (2 * E));
+ ellipse1_y = (float)((H * (ellipse1_x - x2)) + y2);
+ }
+ else
+ {
+ ellipse1_x = (float)(((F * -1) - sqrt(K)) / (2 * E));
+ ellipse1_y = (float)((H * (ellipse1_x - x2)) + y2);
+ }
+ }
+ else
+ // in this case, arc does not intersect ellipse, so just draw arc
+ {
+ ellipse1_x = x3;
+ ellipse1_y = y3;
+ }
+ *x4 = ellipse1_x;
+ *y4 = ellipse1_y;
+
+/*
+ // Draw a little circle (radius = 2) at the end of the arc where it hits
+ // the ellipse .
+
+ float circle_x = ellipse1_x - 2.0;
+ float circle_y = ellipse1_y - 2.0;
+ m_canvas->DrawEllipse(circle_x, circle_y, 4.0, 4.0);
+*/
+}
+
+// Update a list item from a list of strings
+void UpdateListBox(wxListBox *item, wxList *list)
+{
+ item->Clear();
+ if (!list)
+ return;
+
+ wxNode *node = list->First();
+ while (node)
+ {
+ char *s = (char *)node->Data();
+ item->Append(s);
+ node = node->Next();
+ }
+}
+
+
projects / wxWidgets.git / blobdiff