X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/0f7549d5949981a8b36f03d59bb18efb2fc4ce2f..0fc1a7137cccc829a34b3527c768db7d7ac83437:/utils/ogl/src/misc.cpp diff --git a/utils/ogl/src/misc.cpp b/utils/ogl/src/misc.cpp new file mode 100644 index 0000000000..3607408975 --- /dev/null +++ b/utils/ogl/src/misc.cpp @@ -0,0 +1,805 @@ +///////////////////////////////////////////////////////////////////////////// +// 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 + +#ifdef __BORLANDC__ +#pragma hdrstop +#endif + +#ifndef WX_PRECOMP +#include +#endif + +#ifdef PROLOGIO +#include +#endif + +#include + +#if USE_IOSTREAMH +#include +#else +#include +#endif +#include +#include +#include + +#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(); + } +} + +