////////////////////////////////////////////////////////////////////////// // // pgAdmin III - PostgreSQL Tools // // Portions Copyright (C) 1998 - 2011, Julian Smart // Portions Copyright (C) 2011 - 2016, The pgAdmin Development Team // This software is released under the PostgreSQL Licence // // misc.cpp - Miscellaneous OGL support functions // ////////////////////////////////////////////////////////////////////////// #include "pgAdmin3.h" #include #include #include #include "ogl/ogl.h" wxFont *g_oglNormalFont; wxPen *g_oglBlackPen; wxPen *g_oglWhiteBackgroundPen; wxPen *g_oglTransparentPen; wxBrush *g_oglWhiteBackgroundBrush; wxPen *g_oglBlackForegroundPen; wxCursor *g_oglBullseyeCursor = NULL; wxChar *oglBuffer = NULL; wxList oglObjectCopyMapping(wxKEY_INTEGER); void wxOGLInitialize() { g_oglBullseyeCursor = new wxCursor(wxCURSOR_BULLSEYE); g_oglNormalFont = new wxFont(10, wxFONTFAMILY_SWISS, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL); g_oglBlackPen = new wxPen(wxT("BLACK"), 1, wxPENSTYLE_SOLID); g_oglWhiteBackgroundPen = new wxPen(wxT("WHITE"), 1, wxPENSTYLE_SOLID); g_oglTransparentPen = new wxPen(wxT("WHITE"), 1, wxPENSTYLE_TRANSPARENT); g_oglWhiteBackgroundBrush = new wxBrush(wxT("WHITE"), wxBRUSHSTYLE_SOLID); g_oglBlackForegroundPen = new wxPen(wxT("BLACK"), 1, wxPENSTYLE_SOLID); OGLInitializeConstraintTypes(); // Initialize big buffer used when writing images oglBuffer = new wxChar[3000]; } void wxOGLCleanUp() { if (oglBuffer) { delete[] oglBuffer; oglBuffer = NULL; } oglBuffer = NULL; if (g_oglBullseyeCursor) { delete g_oglBullseyeCursor; g_oglBullseyeCursor = NULL; } if (g_oglNormalFont) { delete g_oglNormalFont; g_oglNormalFont = NULL; } if (g_oglBlackPen) { delete g_oglBlackPen; g_oglBlackPen = NULL; } if (g_oglWhiteBackgroundPen) { delete g_oglWhiteBackgroundPen; g_oglWhiteBackgroundPen = NULL; } if (g_oglTransparentPen) { delete g_oglTransparentPen; g_oglTransparentPen = NULL; } if (g_oglWhiteBackgroundBrush) { delete g_oglWhiteBackgroundBrush; g_oglWhiteBackgroundBrush = NULL; } if (g_oglBlackForegroundPen) { delete g_oglBlackForegroundPen; g_oglBlackForegroundPen = NULL; } OGLCleanUpConstraintTypes(); } wxFont *oglMatchFont(int point_size) { wxFont *font = wxTheFontList->FindOrCreateFont(point_size, wxFONTFAMILY_SWISS, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL); #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; wxString buf; buf << old_size; wxString ans = wxGetTextFromUser(wxT("Enter point size"), wxT("Font size"), buf, parent); if (ans.Length() == 0) return 0; long new_size = 0; ans.ToLong(&new_size); if ((new_size <= 0) || (new_size > 40)) { wxMessageBox(wxT("Invalid point size!"), wxT("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 oglMatchFont(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 oglCentreText(wxDC &dc, wxList *text_list, double m_xpos, double m_ypos, double width, double height, int formatMode) { int n = text_list->GetCount(); if (!text_list || (n == 0)) return; // First, get maximum dimensions of box enclosing text #if wxCHECK_VERSION(2, 9, 0) wxCoord char_height = 0; wxCoord max_width = 0; wxCoord current_width = 0; #else long char_height = 0; long max_width = 0; long current_width = 0; #endif // Store text extents for speed double *widths = new double[n]; wxNode *current = text_list->GetFirst(); int i = 0; while (current) { wxShapeTextLine *line = (wxShapeTextLine *)current->GetData(); dc.GetTextExtent(line->GetText(), ¤t_width, &char_height); widths[i] = current_width; if (current_width > max_width) max_width = current_width; current = current->GetNext(); i ++; } double max_height = n * char_height; double xoffset, yoffset, xOffset, yOffset; if (formatMode & FORMAT_CENTRE_VERT) { if (max_height < height) yoffset = (double)(m_ypos - (height / 2.0) + (height - max_height) / 2.0); else yoffset = (double)(m_ypos - (height / 2.0)); yOffset = m_ypos; } else { yoffset = 0.0; yOffset = 0.0; } if (formatMode & FORMAT_CENTRE_HORIZ) { xoffset = (double)(m_xpos - width / 2.0); xOffset = m_xpos; } else { xoffset = 0.0; xOffset = 0.0; } current = text_list->GetFirst(); i = 0; while (current) { wxShapeTextLine *line = (wxShapeTextLine *)current->GetData(); double x; if ((formatMode & FORMAT_CENTRE_HORIZ) && (widths[i] < width)) x = (double)((width - widths[i]) / 2.0 + xoffset); else x = xoffset; double y = (double)(i * char_height + yoffset); line->SetX( x - xOffset ); line->SetY( y - yOffset ); current = current->GetNext(); i ++; } delete[] widths; } // Centre a list of strings in the given box void oglCentreTextNoClipping(wxDC &dc, wxList *text_list, double m_xpos, double m_ypos, double width, double height) { int n = text_list->GetCount(); if (!text_list || (n == 0)) return; // First, get maximum dimensions of box enclosing text #if wxCHECK_VERSION(2, 9, 0) wxCoord char_height = 0; wxCoord max_width = 0; wxCoord current_width = 0; #else long char_height = 0; long max_width = 0; long current_width = 0; #endif // Store text extents for speed double *widths = new double[n]; wxNode *current = text_list->GetFirst(); int i = 0; while (current) { wxShapeTextLine *line = (wxShapeTextLine *)current->GetData(); dc.GetTextExtent(line->GetText(), ¤t_width, &char_height); widths[i] = current_width; if (current_width > max_width) max_width = current_width; current = current->GetNext(); i ++; } double max_height = n * char_height; double yoffset = (double)(m_ypos - (height / 2.0) + (height - max_height) / 2.0); double xoffset = (double)(m_xpos - width / 2.0); current = text_list->GetFirst(); i = 0; while (current) { wxShapeTextLine *line = (wxShapeTextLine *)current->GetData(); double x = (double)((width - widths[i]) / 2.0 + xoffset); double y = (double)(i * char_height + yoffset); line->SetX( x - m_xpos ); line->SetY( y - m_ypos ); current = current->GetNext(); i ++; } delete[] widths; } void oglGetCentredTextExtent(wxDC &dc, wxList *text_list, double WXUNUSED(m_xpos), double WXUNUSED(m_ypos), double WXUNUSED(width), double WXUNUSED(height), double *actual_width, double *actual_height) { int n = text_list->GetCount(); if (!text_list || (n == 0)) { *actual_width = 0; *actual_height = 0; return; } // First, get maximum dimensions of box enclosing text #if wxCHECK_VERSION(2, 9, 0) wxCoord char_height = 0; wxCoord max_width = 0; wxCoord current_width = 0; #else long char_height = 0; long max_width = 0; long current_width = 0; #endif wxNode *current = text_list->GetFirst(); while (current) { wxShapeTextLine *line = (wxShapeTextLine *)current->GetData(); dc.GetTextExtent(line->GetText(), ¤t_width, &char_height); if (current_width > max_width) max_width = current_width; current = current->GetNext(); } *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. wxArrayString *oglFormatText(wxDC &dc, const wxString &text, double width, double WXUNUSED(height), int formatMode) { // First, parse the string into a list of words wxArrayString word_list; // Make new lines into NULL strings at this point int i = 0; int len = text.Length(); wxString word; // word.Alloc(30); // Seems to be a bug in string allocation that causes assertion when first appending bool end_word = FALSE; bool new_line = FALSE; while (i < len) { switch ((wxChar)text[i]) { case wxT('%'): { i ++; if (i == len) { word += wxT('%'); } else { if (text[i] == wxT('n')) { new_line = TRUE; end_word = TRUE; i++; } else { word += wxT('%'); word += text[i]; i ++; } } break; } case 10: { new_line = TRUE; end_word = TRUE; i++; break; } case 13: { new_line = TRUE; end_word = TRUE; i++; } case wxT(' '): { end_word = TRUE; i ++; break; } default: { word += text[i]; i ++; break; } } if (i == len) end_word = TRUE; if (end_word) { word_list.Add(word); word.Empty(); end_word = FALSE; } if (new_line) { word_list.Add(wxT("\n")); new_line = FALSE; } } // Now, make a list of strings which can fit in the box wxArrayString *string_list = new wxArrayString ; wxString buffer; #if wxCHECK_VERSION(2, 9, 0) wxCoord x, y; #else long x, y; #endif size_t k; for (k = 0; k < word_list.GetCount(); k++) { wxString oldBuffer(buffer); const wxString &s = word_list[k]; if (s == wxT("\n")) { // FORCE NEW LINE // if (buffer.Length() > 0) string_list->Add(buffer); buffer.Empty(); } else { if (buffer.Length() != 0) buffer += wxT(" "); 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 (oldBuffer.Length() > 0) string_list->Add(oldBuffer); buffer.Empty(); buffer += s; } } } if (buffer.Length() != 0) string_list->Add(buffer); return string_list; } void oglDrawFormattedText(wxDC &dc, wxList *text_list, double m_xpos, double m_ypos, double width, double height, int formatMode) { double xoffset, yoffset; if (formatMode & FORMAT_CENTRE_HORIZ) xoffset = m_xpos; else xoffset = (double)(m_xpos - (width / 2.0)); if (formatMode & FORMAT_CENTRE_VERT) yoffset = m_ypos; else yoffset = (double)(m_ypos - (height / 2.0)); dc.SetClippingRegion( (long)(m_xpos - width / 2.0), (long)(m_ypos - height / 2.0), (long)width + 1, (long)height + 1); wxNode *current = text_list->GetFirst(); while (current) { wxShapeTextLine *line = (wxShapeTextLine *)current->GetData(); dc.DrawText(line->GetText(), WXROUND(xoffset + line->GetX()), WXROUND(yoffset + line->GetY())); current = current->GetNext(); } dc.DestroyClippingRegion(); } /* * Find centroid given list of points comprising polyline * */ void oglFindPolylineCentroid(wxList *points, double *x, double *y) { double xcount = 0; double ycount = 0; wxNode *node = points->GetFirst(); while (node) { wxRealPoint *point = (wxRealPoint *)node->GetData(); xcount += point->x; ycount += point->y; node = node->GetNext(); } *x = (xcount / points->GetCount()); *y = (ycount / points->GetCount()); } /* * 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 oglCheckLineIntersection(double x1, double y1, double x2, double y2, double x3, double y3, double x4, double y4, double *ratio1, double *ratio2) { double denominator_term = (y4 - y3) * (x2 - x1) - (y2 - y1) * (x4 - x3); double numerator_term = (x3 - x1) * (y4 - y3) + (x4 - x3) * (y1 - y3); double line_constant; double length_ratio = 1.0; double 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 oglFindEndForPolyline(double n, double xvec[], double yvec[], double x1, double y1, double x2, double y2, double *x3, double *y3) { int i; double lastx = xvec[0]; double lasty = yvec[0]; double min_ratio = 1.0; double line_ratio; double other_ratio; for (i = 1; i < n; i++) { oglCheckLineIntersection(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 doubles are not identical if (!(xvec[0] == lastx && yvec[0] == lasty)) { oglCheckLineIntersection(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 oglFindEndForBox(double width, double height, double x1, double y1, // Centre of box (possibly) double x2, double y2, // other end of line double *x3, double *y3) // End on box edge { double xvec[5]; double yvec[5]; xvec[0] = (double)(x1 - width / 2.0); yvec[0] = (double)(y1 - height / 2.0); xvec[1] = (double)(x1 - width / 2.0); yvec[1] = (double)(y1 + height / 2.0); xvec[2] = (double)(x1 + width / 2.0); yvec[2] = (double)(y1 + height / 2.0); xvec[3] = (double)(x1 + width / 2.0); yvec[3] = (double)(y1 - height / 2.0); xvec[4] = (double)(x1 - width / 2.0); yvec[4] = (double)(y1 - height / 2.0); oglFindEndForPolyline(5, xvec, yvec, x2, y2, x1, y1, x3, y3); } /* * Find where the line hits the circle. * */ void oglFindEndForCircle(double radius, double x1, double y1, // Centre of circle double x2, double y2, // Other end of line double *x3, double *y3) { double H = (double)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 oglGetArrowPoints(double x1, double y1, double x2, double y2, double length, double width, double *tip_x, double *tip_y, double *side1_x, double *side1_y, double *side2_x, double *side2_y) { double l = (double)sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1)); if (l < 0.01) l = (double) 0.01; double i_bar = (x2 - x1) / l; double j_bar = (y2 - y1) / l; double x3 = (- length * i_bar) + x2; double 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 oglDrawArcToEllipse(double x1, double y1, double width1, double height1, double x2, double y2, double x3, double y3, double *x4, double *y4) { double a1 = (double)(width1 / 2.0); double b1 = (double)(height1 / 2.0); // These are required to give top left x and y coordinates for DrawEllipse // double top_left_x1 = (double)(x1 - a1); // double top_left_y1 = (double)(y1 - b1); /* // Check for vertical line if (fabs(x2 - x3) < 0.05) { *x4 = x3; if (y2 < y3) *y4 = (double)(y1 - b1); else *y4 = (double)(y1 + b1); return; } */ // Check that x2 != x3 if (fabs(x2 - x3) < 0.05) { *x4 = x2; if (y3 > y2) *y4 = (double)(y1 - sqrt((b1 * b1 - (((x2 - x1) * (x2 - x1)) * (b1 * b1) / (a1 * a1))))); else *y4 = (double)(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 double A, B, C, D, E, F, G, H, K; double ellipse1_x, ellipse1_y; A = (double)(1 / (a1 * a1)); B = (double)((y3 - y2) * (y3 - y2)) / ((x3 - x2) * (x3 - x2) * b1 * b1); C = (double)(2 * (y3 - y2) * (y2 - y1)) / ((x3 - x2) * b1 * b1); D = (double)((y2 - y1) * (y2 - y1)) / (b1 * b1); E = (double)(A + B); F = (double)(C - (2 * A * x1) - (2 * B * x2)); G = (double)((A * x1 * x1) + (B * x2 * x2) - (C * x2) + D - 1); H = (double)((y3 - y2) / (x3 - x2)); K = (double)((F * F) - (4 * E * G)); if (K >= 0) // In this case the line intersects the ellipse, so calculate intersection { if(x2 >= x1) { ellipse1_x = (double)(((F * -1) + sqrt(K)) / (2 * E)); ellipse1_y = (double)((H * (ellipse1_x - x2)) + y2); } else { ellipse1_x = (double)(((F * -1) - sqrt(K)) / (2 * E)); ellipse1_y = (double)((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 . double circle_x = ellipse1_x - 2.0; double 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->GetFirst(); while (node) { wxChar *s = (wxChar *)node->GetData(); item->Append(s); node = node->GetNext(); } } bool oglRoughlyEqual(double val1, double val2, double tol) { return ( (val1 < (val2 + tol)) && (val1 > (val2 - tol)) && (val2 < (val1 + tol)) && (val2 > (val1 - tol))); } /* * Hex<->Dec conversion */ // Array used in DecToHex conversion routine. static wxChar sg_HexArray[] = { wxT('0'), wxT('1'), wxT('2'), wxT('3'), wxT('4'), wxT('5'), wxT('6'), wxT('7'), wxT('8'), wxT('9'), wxT('A'), wxT('B'), wxT('C'), wxT('D'), wxT('E'), wxT('F') }; // Convert 2-digit hex number to decimal unsigned int oglHexToDec(wxChar *buf) { int firstDigit, secondDigit; if (buf[0] >= wxT('A')) firstDigit = buf[0] - wxT('A') + 10; else firstDigit = buf[0] - wxT('0'); if (buf[1] >= wxT('A')) secondDigit = buf[1] - wxT('A') + 10; else secondDigit = buf[1] - wxT('0'); return firstDigit * 16 + secondDigit; } // Convert decimal integer to 2-character hex string void oglDecToHex(unsigned int dec, wxChar *buf) { int firstDigit = (int)(dec / 16.0); int secondDigit = (int)(dec - (firstDigit * 16.0)); buf[0] = sg_HexArray[firstDigit]; buf[1] = sg_HexArray[secondDigit]; buf[2] = 0; } // 3-digit hex to wxColour wxColour oglHexToColour(const wxString &hex) { if (hex.Length() == 6) { long r, g, b; r = g = b = 0; hex.Mid(0, 2).ToLong(&r, 16); hex.Mid(2, 2).ToLong(&g, 16); hex.Mid(4, 2).ToLong(&b, 16); return wxColour(r, g, b); } else return wxColour(0, 0, 0); } // RGB to 3-digit hex wxString oglColourToHex(const wxColour &colour) { wxChar buf[7]; unsigned int red = colour.Red(); unsigned int green = colour.Green(); unsigned int blue = colour.Blue(); oglDecToHex(red, buf); oglDecToHex(green, buf + 2); oglDecToHex(blue, buf + 4); return wxString(buf); }