]> git.saurik.com Git - wxWidgets.git/blame - contrib/src/ogl/oglmisc.cpp
Tools
[wxWidgets.git] / contrib / src / ogl / oglmisc.cpp
CommitLineData
1fc25a89
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: misc.cpp
3// Purpose: Miscellaneous OGL support functions
4// Author: Julian Smart
5// Modified by:
6// Created: 12/07/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "misc.h"
14#endif
15
16// For compilers that support precompilation, includes "wx.h".
92a19c2e 17#include "wx/wxprec.h"
1fc25a89
JS
18
19#ifdef __BORLANDC__
20#pragma hdrstop
21#endif
22
23#ifndef WX_PRECOMP
24#include <wx/wx.h>
25#endif
26
27#include <wx/wxexpr.h>
28
29#include <wx/types.h>
30
3f1802b5
JS
31#ifdef new
32#undef new
33#endif
34
1fc25a89
JS
35#if wxUSE_IOSTREAMH
36#include <iostream.h>
37#else
38#include <iostream>
39#endif
40#include <ctype.h>
41#include <math.h>
42#include <stdlib.h>
43
44#include <wx/ogl/basic.h>
45#include <wx/ogl/basicp.h>
46#include <wx/ogl/misc.h>
47#include <wx/ogl/constrnt.h>
48#include <wx/ogl/composit.h>
49
50wxFont* g_oglNormalFont;
51wxPen* g_oglBlackPen;
52wxPen* g_oglWhiteBackgroundPen;
53wxPen* g_oglTransparentPen;
54wxBrush* g_oglWhiteBackgroundBrush;
55wxPen* g_oglBlackForegroundPen;
56wxCursor* g_oglBullseyeCursor = NULL;
57
58char* oglBuffer = NULL;
59
60wxList oglObjectCopyMapping(wxKEY_INTEGER);
61
62
63
64void wxOGLInitialize()
65{
66 g_oglBullseyeCursor = new wxCursor(wxCURSOR_BULLSEYE);
67
68 g_oglNormalFont = new wxFont(10, wxSWISS, wxNORMAL, wxNORMAL);
69
70 g_oglBlackPen = new wxPen("BLACK", 1, wxSOLID);
71
72 g_oglWhiteBackgroundPen = new wxPen("WHITE", 1, wxSOLID);
73 g_oglTransparentPen = new wxPen("WHITE", 1, wxTRANSPARENT);
74 g_oglWhiteBackgroundBrush = new wxBrush("WHITE", wxSOLID);
75 g_oglBlackForegroundPen = new wxPen("BLACK", 1, wxSOLID);
76
77 OGLInitializeConstraintTypes();
78
79 // Initialize big buffer used when writing images
80 oglBuffer = new char[3000];
81
82}
83
84void wxOGLCleanUp()
85{
86 if (oglBuffer)
87 {
88 delete[] oglBuffer;
89 oglBuffer = NULL;
90 }
91 oglBuffer = NULL;
92 if (g_oglBullseyeCursor)
93 {
94 delete g_oglBullseyeCursor;
95 g_oglBullseyeCursor = NULL;
96 }
97
98 if (g_oglNormalFont)
99 {
100 delete g_oglNormalFont;
101 g_oglNormalFont = NULL;
102 }
103 if (g_oglBlackPen)
104 {
105 delete g_oglBlackPen;
106 g_oglBlackPen = NULL;
107 }
108 if (g_oglWhiteBackgroundPen)
109 {
110 delete g_oglWhiteBackgroundPen;
111 g_oglWhiteBackgroundPen = NULL;
112 }
113 if (g_oglTransparentPen)
114 {
115 delete g_oglTransparentPen;
116 g_oglTransparentPen = NULL;
117 }
118 if (g_oglWhiteBackgroundBrush)
119 {
120 delete g_oglWhiteBackgroundBrush;
121 g_oglWhiteBackgroundBrush = NULL;
122 }
123 if (g_oglBlackForegroundPen)
124 {
125 delete g_oglBlackForegroundPen;
126 g_oglBlackForegroundPen = NULL;
127 }
128
129 OGLCleanUpConstraintTypes();
130}
131
132wxFont *oglMatchFont(int point_size)
133{
134 wxFont *font = wxTheFontList->FindOrCreateFont(point_size, wxSWISS, wxNORMAL, wxNORMAL);
135#if 0
136 switch (point_size)
137 {
138 case 4:
139 font = swiss_font_4;
140 break;
141 case 6:
142 font = swiss_font_6;
143 break;
144 case 8:
145 font = swiss_font_8;
146 break;
147 case 12:
148 font = swiss_font_12;
149 break;
150 case 14:
151 font = swiss_font_14;
152 break;
153 case 18:
154 font = swiss_font_18;
155 break;
156 case 24:
157 font = swiss_font_24;
158 break;
159 default:
160 case 10:
161 font = swiss_font_10;
162 break;
163 }
164#endif
165 return font;
166}
167
168int FontSizeDialog(wxFrame *parent, int old_size)
169{
170 if (old_size <= 0)
171 old_size = 10;
172 char buf[40];
173 sprintf(buf, "%d", old_size);
174 wxString ans = wxGetTextFromUser("Enter point size", "Font size", buf, parent);
175 if (ans == "")
176 return 0;
177
178 int new_size = atoi(ans);
179 if ((new_size <= 0) || (new_size > 40))
180 {
181 wxMessageBox("Invalid point size!", "Error", wxOK);
182 return 0;
183 }
184 return new_size;
185/*
186 char *strings[8];
187 strings[0] = "4";
188 strings[1] = "6";
189 strings[2] = "8";
190 strings[3] = "10";
191 strings[4] = "12";
192 strings[5] = "14";
193 strings[6] = "18";
194 strings[7] = "24";
195 char *ans = wxGetSingleChoice("Choose", "Choose a font size", 8, strings, parent);
196 if (ans)
197 {
198 int size;
199 sscanf(ans, "%d", &size);
200 return oglMatchFont(size);
201 }
202 else return NULL;
203*/
204}
205
206// Centre a list of strings in the given box. xOffset and yOffset are the
207// the positions that these lines should be relative to, and this might be
208// the same as m_xpos, m_ypos, but might be zero if formatting from left-justifying.
209void oglCentreText(wxDC& dc, wxList *text_list,
210 double m_xpos, double m_ypos, double width, double height,
211 int formatMode)
212{
213 int n = text_list->Number();
214
215 if (!text_list || (n == 0))
216 return;
217
218 // First, get maximum dimensions of box enclosing text
219
220 long char_height = 0;
221 long max_width = 0;
222 long current_width = 0;
223
224 // Store text extents for speed
225 double *widths = new double[n];
226
227 wxNode *current = text_list->First();
228 int i = 0;
229 while (current)
230 {
231 wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
232 dc.GetTextExtent(line->GetText(), &current_width, &char_height);
233 widths[i] = current_width;
234
235 if (current_width > max_width)
236 max_width = current_width;
237 current = current->Next();
238 i ++;
239 }
240
241 double max_height = n*char_height;
242
243 double xoffset, yoffset, xOffset, yOffset;
244
245 if (formatMode & FORMAT_CENTRE_VERT)
246 {
247 if (max_height < height)
248 yoffset = (double)(m_ypos - (height/2.0) + (height - max_height)/2.0);
249 else
250 yoffset = (double)(m_ypos - (height/2.0));
251 yOffset = m_ypos;
252 }
253 else
254 {
255 yoffset = 0.0;
256 yOffset = 0.0;
257 }
258
259 if (formatMode & FORMAT_CENTRE_HORIZ)
260 {
261 xoffset = (double)(m_xpos - width/2.0);
262 xOffset = m_xpos;
263 }
264 else
265 {
266 xoffset = 0.0;
267 xOffset = 0.0;
268 }
269
270 current = text_list->First();
271 i = 0;
272
273 while (current)
274 {
275 wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
276
277 double x;
278 if ((formatMode & FORMAT_CENTRE_HORIZ) && (widths[i] < width))
279 x = (double)((width - widths[i])/2.0 + xoffset);
280 else
281 x = xoffset;
282 double y = (double)(i*char_height + yoffset);
283
284 line->SetX( x - xOffset ); line->SetY( y - yOffset );
285 current = current->Next();
286 i ++;
287 }
288
289 delete widths;
290}
291
292// Centre a list of strings in the given box
293void oglCentreTextNoClipping(wxDC& dc, wxList *text_list,
294 double m_xpos, double m_ypos, double width, double height)
295{
296 int n = text_list->Number();
297
298 if (!text_list || (n == 0))
299 return;
300
301 // First, get maximum dimensions of box enclosing text
302
303 long char_height = 0;
304 long max_width = 0;
305 long current_width = 0;
306
307 // Store text extents for speed
308 double *widths = new double[n];
309
310 wxNode *current = text_list->First();
311 int i = 0;
312 while (current)
313 {
314 wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
315 dc.GetTextExtent(line->GetText(), &current_width, &char_height);
316 widths[i] = current_width;
317
318 if (current_width > max_width)
319 max_width = current_width;
320 current = current->Next();
321 i ++;
322 }
323
324 double max_height = n*char_height;
325
326 double yoffset = (double)(m_ypos - (height/2.0) + (height - max_height)/2.0);
327
328 double xoffset = (double)(m_xpos - width/2.0);
329
330 current = text_list->First();
331 i = 0;
332
333 while (current)
334 {
335 wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
336
337 double x = (double)((width - widths[i])/2.0 + xoffset);
338 double y = (double)(i*char_height + yoffset);
339
340 line->SetX( x - m_xpos ); line->SetY( y - m_ypos );
341 current = current->Next();
342 i ++;
343 }
344 delete widths;
345}
346
347void oglGetCentredTextExtent(wxDC& dc, wxList *text_list,
348 double m_xpos, double m_ypos, double width, double height,
349 double *actual_width, double *actual_height)
350{
351 int n = text_list->Number();
352
353 if (!text_list || (n == 0))
354 {
355 *actual_width = 0;
356 *actual_height = 0;
357 return;
358 }
359
360 // First, get maximum dimensions of box enclosing text
361
362 long char_height = 0;
363 long max_width = 0;
364 long current_width = 0;
365
366 wxNode *current = text_list->First();
367 int i = 0;
368 while (current)
369 {
370 wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
371 dc.GetTextExtent(line->GetText(), &current_width, &char_height);
372
373 if (current_width > max_width)
374 max_width = current_width;
375 current = current->Next();
376 i ++;
377 }
378
379 *actual_height = n*char_height;
380 *actual_width = max_width;
381}
382
383// Format a string to a list of strings that fit in the given box.
384// Interpret %n and 10 or 13 as a new line.
385wxStringList *oglFormatText(wxDC& dc, const wxString& text, double width, double height, int formatMode)
386{
387 // First, parse the string into a list of words
388 wxStringList word_list;
389
390 // Make new lines into NULL strings at this point
391 int i = 0; int j = 0; int len = strlen(text);
392 char word[200]; word[0] = 0;
393 bool end_word = FALSE; bool new_line = FALSE;
394 while (i < len)
395 {
396 switch (text[i])
397 {
398 case '%':
399 {
400 i ++;
401 if (i == len)
402 { word[j] = '%'; j ++; }
403 else
404 {
405 if (text[i] == 'n')
406 { new_line = TRUE; end_word = TRUE; i++; }
407 else
408 { word[j] = '%'; j ++; word[j] = text[i]; j ++; i ++; }
409 }
410 break;
411 }
412 case 10:
413 {
414 new_line = TRUE; end_word = TRUE; i++;
415 break;
416 }
417 case 13:
418 {
419 new_line = TRUE; end_word = TRUE; i++;
420 }
421 case ' ':
422 {
423 end_word = TRUE;
424 i ++;
425 break;
426 }
427 default:
428 {
429 word[j] = text[i];
430 j ++; i ++;
431 break;
432 }
433 }
434 if (i == len) end_word = TRUE;
435 if (end_word)
436 {
437 word[j] = 0;
438 j = 0;
439 word_list.Add(word);
440 end_word = FALSE;
441 }
442 if (new_line)
443 {
444 word_list.Append(NULL);
445 new_line = FALSE;
446 }
447 }
448 // Now, make a list of strings which can fit in the box
449 wxStringList *string_list = new wxStringList;
450
451 char buffer[400];
452 buffer[0] = 0;
453 wxNode *node = word_list.First();
454 long x, y;
455
456 while (node)
457 {
458 wxString oldBuffer(buffer);
459
460 char *s = (char *)node->Data();
461 if (!s)
462 {
463 // FORCE NEW LINE
464 if (strlen(buffer) > 0)
465 string_list->Add(buffer);
466
467 buffer[0] = 0;
468 }
469 else
470 {
471 if (buffer[0] != 0)
472 strcat(buffer, " ");
473
474 strcat(buffer, s);
475 dc.GetTextExtent(buffer, &x, &y);
476
477 // Don't fit within the bounding box if we're fitting shape to contents
478 if ((x > width) && !(formatMode & FORMAT_SIZE_TO_CONTENTS))
479 {
480 // Deal with first word being wider than box
481 if (oldBuffer.Length() > 0)
482 string_list->Add(oldBuffer);
483
484 buffer[0] = 0;
485 strcat(buffer, s);
486 }
487 }
488
489 node = node->Next();
490 }
491 if (buffer[0] != 0)
492 string_list->Add(buffer);
493
494 return string_list;
495}
496
497void oglDrawFormattedText(wxDC& dc, wxList *text_list,
498 double m_xpos, double m_ypos, double width, double height,
499 int formatMode)
500{
501 double xoffset, yoffset;
502 if (formatMode & FORMAT_CENTRE_HORIZ)
503 xoffset = m_xpos;
504 else
505 xoffset = (double)(m_xpos - (width / 2.0));
506
507 if (formatMode & FORMAT_CENTRE_VERT)
508 yoffset = m_ypos;
509 else
510 yoffset = (double)(m_ypos - (height / 2.0));
511
512 dc.SetClippingRegion(
513 (long)(m_xpos - width/2.0), (long)(m_ypos - height/2.0),
514 (long)width, (long)height);
515
516 wxNode *current = text_list->First();
517 while (current)
518 {
519 wxShapeTextLine *line = (wxShapeTextLine *)current->Data();
520
521 dc.DrawText(line->GetText(), WXROUND(xoffset + line->GetX()), WXROUND(yoffset + line->GetY()));
522 current = current->Next();
523 }
524
525 dc.DestroyClippingRegion();
526}
527
528/*
529 * Find centroid given list of points comprising polyline
530 *
531 */
532
533void oglFindPolylineCentroid(wxList *points, double *x, double *y)
534{
535 double xcount = 0;
536 double ycount = 0;
537
538 wxNode *node = points->First();
539 while (node)
540 {
541 wxRealPoint *point = (wxRealPoint *)node->Data();
542 xcount += point->x;
543 ycount += point->y;
544 node = node->Next();
545 }
546
547 *x = (xcount/points->Number());
548 *y = (ycount/points->Number());
549}
550
551/*
552 * Check that (x1, y1) -> (x2, y2) hits (x3, y3) -> (x4, y4).
553 * If so, ratio1 gives the proportion along the first line
554 * that the intersection occurs (or something like that).
555 * Used by functions below.
556 *
557 */
558void oglCheckLineIntersection(double x1, double y1, double x2, double y2,
559 double x3, double y3, double x4, double y4,
560 double *ratio1, double *ratio2)
561{
562 double denominator_term = (y4 - y3)*(x2 - x1) - (y2 - y1)*(x4 - x3);
563 double numerator_term = (x3 - x1)*(y4 - y3) + (x4 - x3)*(y1 - y3);
564
565 double line_constant;
566 double length_ratio = 1.0;
567 double k_line = 1.0;
568
569 // Check for parallel lines
570 if ((denominator_term < 0.005) && (denominator_term > -0.005))
571 line_constant = -1.0;
572 else
573 line_constant = numerator_term/denominator_term;
574
575 // Check for intersection
576 if ((line_constant < 1.0) && (line_constant > 0.0))
577 {
578 // Now must check that other line hits
579 if (((y4 - y3) < 0.005) && ((y4 - y3) > -0.005))
580 k_line = ((x1 - x3) + line_constant*(x2 - x1))/(x4 - x3);
581 else
582 k_line = ((y1 - y3) + line_constant*(y2 - y1))/(y4 - y3);
583
584 if ((k_line >= 0.0) && (k_line < 1.0))
585 length_ratio = line_constant;
586 else
587 k_line = 1.0;
588 }
589 *ratio1 = length_ratio;
590 *ratio2 = k_line;
591}
592
593/*
594 * Find where (x1, y1) -> (x2, y2) hits one of the lines in xvec, yvec.
595 * (*x3, *y3) is the point where it hits.
596 *
597 */
598void oglFindEndForPolyline(double n, double xvec[], double yvec[],
599 double x1, double y1, double x2, double y2, double *x3, double *y3)
600{
601 int i;
602 double lastx = xvec[0];
603 double lasty = yvec[0];
604
605 double min_ratio = 1.0;
606 double line_ratio;
607 double other_ratio;
608
609 for (i = 1; i < n; i++)
610 {
611 oglCheckLineIntersection(x1, y1, x2, y2, lastx, lasty, xvec[i], yvec[i],
612 &line_ratio, &other_ratio);
613 lastx = xvec[i];
614 lasty = yvec[i];
615
616 if (line_ratio < min_ratio)
617 min_ratio = line_ratio;
618 }
619
620 // Do last (implicit) line if last and first doubles are not identical
621 if (!(xvec[0] == lastx && yvec[0] == lasty))
622 {
623 oglCheckLineIntersection(x1, y1, x2, y2, lastx, lasty, xvec[0], yvec[0],
624 &line_ratio, &other_ratio);
625
626 if (line_ratio < min_ratio)
627 min_ratio = line_ratio;
628 }
629
630 *x3 = (x1 + (x2 - x1)*min_ratio);
631 *y3 = (y1 + (y2 - y1)*min_ratio);
632
633}
634
635/*
636 * Find where the line hits the box.
637 *
638 */
639
640void oglFindEndForBox(double width, double height,
641 double x1, double y1, // Centre of box (possibly)
642 double x2, double y2, // other end of line
643 double *x3, double *y3) // End on box edge
644{
645 double xvec[5];
646 double yvec[5];
647
648 xvec[0] = (double)(x1 - width/2.0);
649 yvec[0] = (double)(y1 - height/2.0);
650 xvec[1] = (double)(x1 - width/2.0);
651 yvec[1] = (double)(y1 + height/2.0);
652 xvec[2] = (double)(x1 + width/2.0);
653 yvec[2] = (double)(y1 + height/2.0);
654 xvec[3] = (double)(x1 + width/2.0);
655 yvec[3] = (double)(y1 - height/2.0);
656 xvec[4] = (double)(x1 - width/2.0);
657 yvec[4] = (double)(y1 - height/2.0);
658
659 oglFindEndForPolyline(5, xvec, yvec, x2, y2, x1, y1, x3, y3);
660}
661
662/*
663 * Find where the line hits the circle.
664 *
665 */
666
667void oglFindEndForCircle(double radius,
668 double x1, double y1, // Centre of circle
669 double x2, double y2, // Other end of line
670 double *x3, double *y3)
671{
672 double H = (double)sqrt((x2 - x1)*(x2 - x1) + (y2 - y1)*(y2 - y1));
673
674 if (H == 0.0)
675 {
676 *x3 = x1;
677 *y3 = y1;
678 }
679 else
680 {
681 *y3 = radius * (y2 - y1)/H + y1;
682 *x3 = radius * (x2 - x1)/H + x1;
683 }
684}
685
686/*
687 * Given the line (x1, y1) -> (x2, y2), and an arrow size of given length and width,
688 * return the position of the tip of the arrow and the left and right vertices of the arrow.
689 *
690 */
691
692void oglGetArrowPoints(double x1, double y1, double x2, double y2,
693 double length, double width,
694 double *tip_x, double *tip_y,
695 double *side1_x, double *side1_y,
696 double *side2_x, double *side2_y)
697{
698 double l = (double)sqrt((x2 - x1)*(x2 - x1) + (y2 - y1)*(y2 - y1));
699
700 if (l < 0.01)
701 l = (double) 0.01;
702
703 double i_bar = (x2 - x1)/l;
704 double j_bar = (y2 - y1)/l;
705
706 double x3 = (- length*i_bar) + x2;
707 double y3 = (- length*j_bar) + y2;
708
709 *side1_x = width*(-j_bar) + x3;
710 *side1_y = width*i_bar + y3;
711
712 *side2_x = -width*(-j_bar) + x3;
713 *side2_y = -width*i_bar + y3;
714
715 *tip_x = x2; *tip_y = y2;
716}
717
718/*
719 * Given an ellipse and endpoints of a line, returns the point at which
720 * the line touches the ellipse in values x4, y4.
721 * This function assumes that the centre of the ellipse is at x1, y1, and the
722 * ellipse has a width of width1 and a height of height1. It also assumes you are
723 * wanting to draw an arc FROM point x2, y2 TOWARDS point x3, y3.
724 * This function calculates the x,y coordinates of the intersection point of
725 * the arc with the ellipse.
726 * Author: Ian Harrison
727 */
728
729void oglDrawArcToEllipse(double x1, double y1, double width1, double height1, double x2, double y2, double x3, double y3,
730 double *x4, double *y4)
731{
732 double a1 = (double)(width1/2.0);
733 double b1 = (double)(height1/2.0);
734
735 // These are required to give top left x and y coordinates for DrawEllipse
736// double top_left_x1 = (double)(x1 - a1);
737// double top_left_y1 = (double)(y1 - b1);
738/*
739 // Check for vertical line
740 if (fabs(x2 - x3) < 0.05)
741 {
742 *x4 = x3;
743 if (y2 < y3)
744 *y4 = (double)(y1 - b1);
745 else
746 *y4 = (double)(y1 + b1);
747 return;
748 }
749*/
750 // Check that x2 != x3
751 if (fabs(x2 - x3) < 0.05)
752 {
753 *x4 = x2;
754 if (y3 > y2)
755 *y4 = (double)(y1 - sqrt((b1*b1 - (((x2-x1)*(x2-x1))*(b1*b1)/(a1*a1)))));
756 else
757 *y4 = (double)(y1 + sqrt((b1*b1 - (((x2-x1)*(x2-x1))*(b1*b1)/(a1*a1)))));
758 return;
759 }
760
761 // Calculate the x and y coordinates of the point where arc intersects ellipse
762
763 double A, B, C, D, E, F, G, H, K;
764 double ellipse1_x, ellipse1_y;
765
766 A = (double)(1/(a1 * a1));
767 B = (double)((y3 - y2) * (y3 - y2)) / ((x3 - x2) * (x3 - x2) * b1 * b1);
768 C = (double)(2 * (y3 - y2) * (y2 - y1)) / ((x3 - x2) * b1 * b1);
769 D = (double)((y2 - y1) * (y2 - y1)) / (b1 * b1);
770 E = (double)(A + B);
771 F = (double)(C - (2 * A * x1) - (2 * B * x2));
772 G = (double)((A * x1 * x1) + (B * x2 * x2) - (C * x2) + D - 1);
773 H = (double)((y3 - y2) / (x3 - x2));
774 K = (double)((F * F) - (4 * E * G));
775
776 if (K >= 0)
777 // In this case the line intersects the ellipse, so calculate intersection
778 {
779 if(x2 >= x1)
780 {
781 ellipse1_x = (double)(((F * -1) + sqrt(K)) / (2 * E));
782 ellipse1_y = (double)((H * (ellipse1_x - x2)) + y2);
783 }
784 else
785 {
786 ellipse1_x = (double)(((F * -1) - sqrt(K)) / (2 * E));
787 ellipse1_y = (double)((H * (ellipse1_x - x2)) + y2);
788 }
789 }
790 else
791 // in this case, arc does not intersect ellipse, so just draw arc
792 {
793 ellipse1_x = x3;
794 ellipse1_y = y3;
795 }
796 *x4 = ellipse1_x;
797 *y4 = ellipse1_y;
798
799/*
800 // Draw a little circle (radius = 2) at the end of the arc where it hits
801 // the ellipse .
802
803 double circle_x = ellipse1_x - 2.0;
804 double circle_y = ellipse1_y - 2.0;
805 m_canvas->DrawEllipse(circle_x, circle_y, 4.0, 4.0);
806*/
807}
808
809// Update a list item from a list of strings
810void UpdateListBox(wxListBox *item, wxList *list)
811{
812 item->Clear();
813 if (!list)
814 return;
815
816 wxNode *node = list->First();
817 while (node)
818 {
819 char *s = (char *)node->Data();
820 item->Append(s);
821 node = node->Next();
822 }
823}
824
825bool oglRoughlyEqual(double val1, double val2, double tol)
826{
827 return ( (val1 < (val2 + tol)) && (val1 > (val2 - tol)) &&
828 (val2 < (val1 + tol)) && (val2 > (val1 - tol)));
829}
830
831/*
832 * Hex<->Dec conversion
833 */
834
835// Array used in DecToHex conversion routine.
836static char sg_HexArray[] = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B',
837 'C', 'D', 'E', 'F' };
838
839// Convert 2-digit hex number to decimal
840unsigned int oglHexToDec(char* buf)
841{
842 int firstDigit, secondDigit;
843
844 if (buf[0] >= 'A')
845 firstDigit = buf[0] - 'A' + 10;
846 else
847 firstDigit = buf[0] - '0';
848
849 if (buf[1] >= 'A')
850 secondDigit = buf[1] - 'A' + 10;
851 else
852 secondDigit = buf[1] - '0';
853
854 return firstDigit * 16 + secondDigit;
855}
856
857// Convert decimal integer to 2-character hex string
858void oglDecToHex(unsigned int dec, char *buf)
859{
860 int firstDigit = (int)(dec/16.0);
861 int secondDigit = (int)(dec - (firstDigit*16.0));
862 buf[0] = sg_HexArray[firstDigit];
863 buf[1] = sg_HexArray[secondDigit];
864 buf[2] = 0;
865}
866
867// 3-digit hex to wxColour
868wxColour oglHexToColour(const wxString& hex)
869{
870 if (hex.Length() == 6)
871 {
872 char buf[7];
873 strncpy(buf, hex, 7);
874 unsigned int r = oglHexToDec((char *)buf);
875 unsigned int g = oglHexToDec((char *)(buf+2));
876 unsigned int b = oglHexToDec((char *)(buf+4));
877 return wxColour(r, g, b);
878 }
879 else
880 return wxColour(0,0,0);
881}
882
883// RGB to 3-digit hex
884wxString oglColourToHex(const wxColour& colour)
885{
886 char buf[7];
887 unsigned int red = colour.Red();
888 unsigned int green = colour.Green();
889 unsigned int blue = colour.Blue();
890
891 oglDecToHex(red, buf);
892 oglDecToHex(green, buf+2);
893 oglDecToHex(blue, buf+4);
894
895 return wxString(buf);
896}
897
898