]> git.saurik.com Git - wxWidgets.git/blame - contrib/src/ogl/ogldiag.cpp
Fixed bug in setting/getting value for wxComboBox. Read-only status
[wxWidgets.git] / contrib / src / ogl / ogldiag.cpp
CommitLineData
1fc25a89
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: ogldiag.cpp
3// Purpose: wxDiagram
4// Author: Julian Smart
5// Modified by:
6// Created: 12/07/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
2ba06d5a 9// Licence: wxWindows licence
1fc25a89
JS
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "ogldiag.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
5f331691 27#if wxUSE_PROLOGIO
7c9955d1 28#include <wx/deprecated/wxexpr.h>
fd657b8a 29#endif
1fc25a89 30
3f1802b5
JS
31#ifdef new
32#undef new
33#endif
34
1fc25a89
JS
35#include <ctype.h>
36#include <math.h>
37#include <stdlib.h>
38
5f331691
RD
39#include "wx/ogl/ogl.h"
40
1fc25a89
JS
41
42IMPLEMENT_DYNAMIC_CLASS(wxDiagram, wxObject)
43
44// Object canvas
45wxDiagram::wxDiagram()
46{
47 m_diagramCanvas = NULL;
2ba06d5a
WS
48 m_quickEditMode = false;
49 m_snapToGrid = true;
1fc25a89
JS
50 m_gridSpacing = 5.0;
51 m_shapeList = new wxList;
52 m_mouseTolerance = DEFAULT_MOUSE_TOLERANCE;
53}
54
55wxDiagram::~wxDiagram()
56{
57 if (m_shapeList)
58 delete m_shapeList;
59}
60
61void wxDiagram::SetSnapToGrid(bool snap)
62{
63 m_snapToGrid = snap;
64}
65
66void wxDiagram::SetGridSpacing(double spacing)
67{
68 m_gridSpacing = spacing;
69}
70
71void wxDiagram::Snap(double *x, double *y)
72{
73 if (m_snapToGrid)
74 {
75 *x = m_gridSpacing * ((int)(*x/m_gridSpacing + 0.5));
76 *y = m_gridSpacing * ((int)(*y/m_gridSpacing + 0.5));
77 }
78}
79
80
81void wxDiagram::Redraw(wxDC& dc)
82{
83 if (m_shapeList)
84 {
85 if (GetCanvas())
86 GetCanvas()->SetCursor(* wxHOURGLASS_CURSOR);
b9ac87bc 87 wxNode *current = m_shapeList->GetFirst();
1fc25a89
JS
88
89 while (current)
90 {
b9ac87bc 91 wxShape *object = (wxShape *)current->GetData();
1fc25a89
JS
92 if (!object->GetParent())
93 object->Draw(dc);
94
b9ac87bc 95 current = current->GetNext();
1fc25a89
JS
96 }
97 if (GetCanvas())
98 GetCanvas()->SetCursor(* wxSTANDARD_CURSOR);
99 }
100}
101
102void wxDiagram::Clear(wxDC& dc)
103{
104 dc.Clear();
105}
106
107// Insert object after addAfter, or at end of list.
108void wxDiagram::AddShape(wxShape *object, wxShape *addAfter)
109{
110 wxNode *nodeAfter = NULL;
111 if (addAfter)
112 nodeAfter = m_shapeList->Member(addAfter);
113
114 if (!m_shapeList->Member(object))
115 {
116 if (nodeAfter)
117 {
b9ac87bc
RD
118 if (nodeAfter->GetNext())
119 m_shapeList->Insert(nodeAfter->GetNext(), object);
1fc25a89
JS
120 else
121 m_shapeList->Append(object);
122 }
123 else
124 m_shapeList->Append(object);
125 object->SetCanvas(GetCanvas());
126 }
127}
128
129void wxDiagram::InsertShape(wxShape *object)
130{
131 m_shapeList->Insert(object);
132 object->SetCanvas(GetCanvas());
133}
134
135void wxDiagram::RemoveShape(wxShape *object)
136{
137 m_shapeList->DeleteObject(object);
138}
139
140// Should this delete the actual objects too? I think not.
141void wxDiagram::RemoveAllShapes()
142{
143 m_shapeList->Clear();
144}
145
146void wxDiagram::DeleteAllShapes()
147{
b9ac87bc 148 wxNode *node = m_shapeList->GetFirst();
1fc25a89
JS
149 while (node)
150 {
b9ac87bc 151 wxShape *shape = (wxShape *)node->GetData();
1fc25a89
JS
152 if (!shape->GetParent())
153 {
154 RemoveShape(shape);
155 delete shape;
b9ac87bc 156 node = m_shapeList->GetFirst();
1fc25a89
JS
157 }
158 else
b9ac87bc 159 node = node->GetNext();
1fc25a89
JS
160 }
161}
162
163void wxDiagram::ShowAll(bool show)
164{
b9ac87bc 165 wxNode *current = m_shapeList->GetFirst();
1fc25a89
JS
166
167 while (current)
168 {
b9ac87bc 169 wxShape *object = (wxShape *)current->GetData();
1fc25a89
JS
170 object->Show(show);
171
b9ac87bc 172 current = current->GetNext();
1fc25a89
JS
173 }
174}
175
176void wxDiagram::DrawOutline(wxDC& dc, double x1, double y1, double x2, double y2)
177{
178 wxPen dottedPen(wxColour(0, 0, 0), 1, wxDOT);
179 dc.SetPen(dottedPen);
180 dc.SetBrush((* wxTRANSPARENT_BRUSH));
181
182 wxPoint points[5];
183
184 points[0].x = (int) x1;
185 points[0].y = (int) y1;
186
187 points[1].x = (int) x2;
188 points[1].y = (int) y1;
189
190 points[2].x = (int) x2;
191 points[2].y = (int) y2;
192
193 points[3].x = (int) x1;
194 points[3].y = (int) y2;
195
196 points[4].x = (int) x1;
197 points[4].y = (int) y1;
198 dc.DrawLines(5, points);
199}
200
201// Make sure all text that should be centred, is centred.
202void wxDiagram::RecentreAll(wxDC& dc)
203{
b9ac87bc 204 wxNode *object_node = m_shapeList->GetFirst();
1fc25a89
JS
205 while (object_node)
206 {
b9ac87bc 207 wxShape *obj = (wxShape *)object_node->GetData();
1fc25a89 208 obj->Recentre(dc);
b9ac87bc 209 object_node = object_node->GetNext();
1fc25a89
JS
210 }
211}
212
213// Input/output
2b5f62a0 214#if wxUSE_PROLOGIO
1fc25a89
JS
215bool wxDiagram::SaveFile(const wxString& filename)
216{
217 wxBeginBusyCursor();
218
219 wxExprDatabase *database = new wxExprDatabase;
220
221 // First write the diagram type
1484b5cc 222 wxExpr *header = new wxExpr(_T("diagram"));
1fc25a89
JS
223 OnHeaderSave(*database, *header);
224
225 database->Append(header);
226
b9ac87bc 227 wxNode *node = m_shapeList->GetFirst();
1fc25a89
JS
228 while (node)
229 {
b9ac87bc 230 wxShape *shape = (wxShape *)node->GetData();
1fc25a89
JS
231
232 if (!shape->IsKindOf(CLASSINFO(wxControlPoint)))
233 {
8552e6f0 234 wxExpr *expr;
1fc25a89 235 if (shape->IsKindOf(CLASSINFO(wxLineShape)))
1484b5cc 236 expr = new wxExpr(_T("line"));
1fc25a89 237 else
1484b5cc 238 expr = new wxExpr(_T("shape"));
1fc25a89
JS
239
240 OnShapeSave(*database, *shape, *expr);
241 }
8552e6f0 242 node = node->GetNext();
1fc25a89
JS
243 }
244 OnDatabaseSave(*database);
245
c1fa2fda
RD
246 wxString tempFile;
247 wxGetTempFileName(wxT("diag"), tempFile);
248 FILE* file = fopen(tempFile.mb_str(wxConvFile), "w");
1fc25a89
JS
249 if (! file)
250 {
251 wxEndBusyCursor();
252 delete database;
2ba06d5a 253 return false;
1fc25a89
JS
254 }
255
256 database->Write(file);
257 fclose(file);
258 delete database;
259
260/*
261 // Save backup
262 if (FileExists(filename))
263 {
264 char buf[400];
265#ifdef __X__
266 sprintf(buf, "%s.bak", filename);
267#endif
268#ifdef __WXMSW__
269 sprintf(buf, "_diagram.bak");
270#endif
271 if (FileExists(buf)) wxRemoveFile(buf);
272 if (!wxRenameFile(filename, buf))
273 {
274 wxCopyFile(filename, buf);
275 wxRemoveFile(filename);
276 }
277 }
278*/
279
280 // Copy the temporary file to the correct filename
281 if (!wxRenameFile(tempFile, filename))
282 {
283 wxCopyFile(tempFile, filename);
284 wxRemoveFile(tempFile);
285 }
286
287 wxEndBusyCursor();
2ba06d5a 288 return true;
1fc25a89
JS
289}
290
291bool wxDiagram::LoadFile(const wxString& filename)
292{
293 wxBeginBusyCursor();
294
1484b5cc 295 wxExprDatabase database(wxExprInteger, _T("id"));
1fc25a89
JS
296 if (!database.Read(filename))
297 {
298 wxEndBusyCursor();
2ba06d5a 299 return false;
1fc25a89
JS
300 }
301
302 DeleteAllShapes();
303
304 database.BeginFind();
1484b5cc 305 wxExpr *header = database.FindClauseByFunctor(_T("diagram"));
1fc25a89
JS
306
307 if (header)
308 OnHeaderLoad(database, *header);
309
310 // Scan through all clauses and register the ids
8552e6f0 311 wxNode *node = database.GetFirst();
1fc25a89
JS
312 while (node)
313 {
b9ac87bc 314 wxExpr *clause = (wxExpr *)node->GetData();
1fc25a89 315 long id = -1;
1484b5cc 316 clause->GetAttributeValue(_T("id"), id);
1fc25a89 317 wxRegisterId(id);
8552e6f0 318 node = node->GetNext();
1fc25a89
JS
319 }
320
321 ReadNodes(database);
322 ReadContainerGeometry(database);
323 ReadLines(database);
324
325 OnDatabaseLoad(database);
326
327 wxEndBusyCursor();
328
2ba06d5a 329 return true;
1fc25a89
JS
330}
331
332void wxDiagram::ReadNodes(wxExprDatabase& database)
333{
334 // Find and create the node images
335 database.BeginFind();
1484b5cc 336 wxExpr *clause = database.FindClauseByFunctor(_T("shape"));
1fc25a89
JS
337 while (clause)
338 {
c1fa2fda 339 wxChar *type = NULL;
1fc25a89
JS
340 long parentId = -1;
341
c1fa2fda
RD
342 clause->AssignAttributeValue(wxT("type"), &type);
343 clause->AssignAttributeValue(wxT("parent"), &parentId);
1fc25a89
JS
344 wxClassInfo *classInfo = wxClassInfo::FindClass(type);
345 if (classInfo)
346 {
347 wxShape *shape = (wxShape *)classInfo->CreateObject();
348 OnShapeLoad(database, *shape, *clause);
349
350 shape->SetCanvas(GetCanvas());
2ba06d5a 351 shape->Show(true);
1fc25a89
JS
352
353 m_shapeList->Append(shape);
354
355 // If child of composite, link up
356 if (parentId > -1)
357 {
1484b5cc 358 wxExpr *parentExpr = database.HashFind(_T("shape"), parentId);
1fc25a89
JS
359 if (parentExpr && parentExpr->GetClientData())
360 {
361 wxShape *parent = (wxShape *)parentExpr->GetClientData();
362 shape->SetParent(parent);
363 parent->GetChildren().Append(shape);
364 }
365 }
366
367 clause->SetClientData(shape);
368 }
369 if (type)
370 delete[] type;
371
1484b5cc 372 clause = database.FindClauseByFunctor(_T("shape"));
1fc25a89
JS
373 }
374 return;
375}
376
377void wxDiagram::ReadLines(wxExprDatabase& database)
378{
379 database.BeginFind();
1484b5cc 380 wxExpr *clause = database.FindClauseByFunctor(_T("line"));
1fc25a89
JS
381 while (clause)
382 {
c1fa2fda 383 wxString type;
1fc25a89
JS
384 long parentId = -1;
385
1484b5cc
VS
386 clause->GetAttributeValue(_T("type"), type);
387 clause->GetAttributeValue(_T("parent"), parentId);
c1fa2fda 388 wxClassInfo *classInfo = wxClassInfo::FindClass(type);
1fc25a89
JS
389 if (classInfo)
390 {
391 wxLineShape *shape = (wxLineShape *)classInfo->CreateObject();
2ba06d5a 392 shape->Show(true);
1fc25a89
JS
393
394 OnShapeLoad(database, *shape, *clause);
395 shape->SetCanvas(GetCanvas());
396
397 long image_to = -1; long image_from = -1;
1484b5cc
VS
398 clause->GetAttributeValue(_T("to"), image_to);
399 clause->GetAttributeValue(_T("from"), image_from);
1fc25a89 400
1484b5cc 401 wxExpr *image_to_expr = database.HashFind(_T("shape"), image_to);
1fc25a89
JS
402
403 if (!image_to_expr)
404 {
405 // Error
406 }
1484b5cc 407 wxExpr *image_from_expr = database.HashFind(_T("shape"), image_from);
1fc25a89
JS
408
409 if (!image_from_expr)
410 {
411 // Error
412 }
413
414 if (image_to_expr && image_from_expr)
415 {
416 wxShape *image_to_object = (wxShape *)image_to_expr->GetClientData();
417 wxShape *image_from_object = (wxShape *)image_from_expr->GetClientData();
418
419 if (image_to_object && image_from_object)
420 {
421 image_from_object->AddLine(shape, image_to_object, shape->GetAttachmentFrom(), shape->GetAttachmentTo());
422 }
423 }
424 clause->SetClientData(shape);
425
426 m_shapeList->Append(shape);
427 }
428
1484b5cc 429 clause = database.FindClauseByFunctor(_T("line"));
1fc25a89
JS
430 }
431}
432
433// Containers have divisions that reference adjoining divisions,
434// so we need a separate pass to link everything up.
435// Also used by Symbol Library.
436void wxDiagram::ReadContainerGeometry(wxExprDatabase& database)
437{
438 database.BeginFind();
1484b5cc 439 wxExpr *clause = database.FindClauseByFunctor(_T("shape"));
1fc25a89
JS
440 while (clause)
441 {
442 wxShape *image = (wxShape *)clause->GetClientData();
443 if (image && image->IsKindOf(CLASSINFO(wxCompositeShape)))
444 {
445 wxCompositeShape *composite = (wxCompositeShape *)image;
446 wxExpr *divisionExpr = NULL;
447
448 // Find the list of divisions in the composite
1484b5cc 449 clause->GetAttributeValue(_T("divisions"), &divisionExpr);
1fc25a89
JS
450 if (divisionExpr)
451 {
452 int i = 0;
7c9955d1 453 wxExpr *idExpr = divisionExpr->Nth(i);
1fc25a89
JS
454 while (idExpr)
455 {
456 long divisionId = idExpr->IntegerValue();
1484b5cc 457 wxExpr *childExpr = database.HashFind(_T("shape"), divisionId);
1fc25a89
JS
458 if (childExpr && childExpr->GetClientData())
459 {
460 wxDivisionShape *child = (wxDivisionShape *)childExpr->GetClientData();
461 composite->GetDivisions().Append(child);
462
463 // Find the adjoining shapes
464 long leftSideId = -1;
465 long topSideId = -1;
466 long rightSideId = -1;
467 long bottomSideId = -1;
1484b5cc
VS
468 childExpr->GetAttributeValue(_T("left_side"), leftSideId);
469 childExpr->GetAttributeValue(_T("top_side"), topSideId);
470 childExpr->GetAttributeValue(_T("right_side"), rightSideId);
471 childExpr->GetAttributeValue(_T("bottom_side"), bottomSideId);
1fc25a89
JS
472 if (leftSideId > -1)
473 {
1484b5cc 474 wxExpr *leftExpr = database.HashFind(_T("shape"), leftSideId);
1fc25a89
JS
475 if (leftExpr && leftExpr->GetClientData())
476 {
477 wxDivisionShape *leftSide = (wxDivisionShape *)leftExpr->GetClientData();
478 child->SetLeftSide(leftSide);
479 }
480 }
481 if (topSideId > -1)
482 {
1484b5cc 483 wxExpr *topExpr = database.HashFind(_T("shape"), topSideId);
1fc25a89
JS
484 if (topExpr && topExpr->GetClientData())
485 {
486 wxDivisionShape *topSide = (wxDivisionShape *)topExpr->GetClientData();
487 child->SetTopSide(topSide);
488 }
489 }
490 if (rightSideId > -1)
491 {
1484b5cc 492 wxExpr *rightExpr = database.HashFind(_T("shape"), rightSideId);
1fc25a89
JS
493 if (rightExpr && rightExpr->GetClientData())
494 {
495 wxDivisionShape *rightSide = (wxDivisionShape *)rightExpr->GetClientData();
496 child->SetRightSide(rightSide);
497 }
498 }
499 if (bottomSideId > -1)
500 {
1484b5cc 501 wxExpr *bottomExpr = database.HashFind(_T("shape"), bottomSideId);
1fc25a89
JS
502 if (bottomExpr && bottomExpr->GetClientData())
503 {
504 wxDivisionShape *bottomSide = (wxDivisionShape *)bottomExpr->GetClientData();
505 child->SetBottomSide(bottomSide);
506 }
507 }
508 }
509 i ++;
7c9955d1 510 idExpr = divisionExpr->Nth(i);
1fc25a89
JS
511 }
512 }
513 }
514
1484b5cc 515 clause = database.FindClauseByFunctor(_T("shape"));
1fc25a89
JS
516 }
517}
518
519// Allow for modifying file
1484b5cc 520bool wxDiagram::OnDatabaseLoad(wxExprDatabase& WXUNUSED(db))
1fc25a89 521{
2ba06d5a 522 return true;
1fc25a89
JS
523}
524
1484b5cc 525bool wxDiagram::OnDatabaseSave(wxExprDatabase& WXUNUSED(db))
1fc25a89 526{
2ba06d5a 527 return true;
1fc25a89
JS
528}
529
530bool wxDiagram::OnShapeSave(wxExprDatabase& db, wxShape& shape, wxExpr& expr)
531{
532 shape.WriteAttributes(&expr);
533 db.Append(&expr);
534
535 if (shape.IsKindOf(CLASSINFO(wxCompositeShape)))
536 {
8552e6f0 537 wxNode *node = shape.GetChildren().GetFirst();
1fc25a89
JS
538 while (node)
539 {
b9ac87bc 540 wxShape *childShape = (wxShape *)node->GetData();
1484b5cc 541 wxExpr *childExpr = new wxExpr(_T("shape"));
1fc25a89 542 OnShapeSave(db, *childShape, *childExpr);
8552e6f0 543 node = node->GetNext();
1fc25a89
JS
544 }
545 }
546
2ba06d5a 547 return true;
1fc25a89
JS
548}
549
1484b5cc 550bool wxDiagram::OnShapeLoad(wxExprDatabase& WXUNUSED(db), wxShape& shape, wxExpr& expr)
1fc25a89
JS
551{
552 shape.ReadAttributes(&expr);
2ba06d5a 553 return true;
1fc25a89
JS
554}
555
1484b5cc 556bool wxDiagram::OnHeaderSave(wxExprDatabase& WXUNUSED(db), wxExpr& WXUNUSED(expr))
1fc25a89 557{
2ba06d5a 558 return true;
1fc25a89
JS
559}
560
1484b5cc 561bool wxDiagram::OnHeaderLoad(wxExprDatabase& WXUNUSED(db), wxExpr& WXUNUSED(expr))
1fc25a89 562{
2ba06d5a 563 return true;
1fc25a89
JS
564}
565
566#endif
567
568void wxDiagram::SetCanvas(wxShapeCanvas *can)
569{
570 m_diagramCanvas = can;
571}
572
573// Find a shape by its id
574wxShape* wxDiagram::FindShape(long id) const
575{
b9ac87bc 576 wxNode* node = GetShapeList()->GetFirst();
1fc25a89
JS
577 while (node)
578 {
b9ac87bc 579 wxShape* shape = (wxShape*) node->GetData();
1fc25a89
JS
580 if (shape->GetId() == id)
581 return shape;
b9ac87bc 582 node = node->GetNext();
1fc25a89
JS
583 }
584 return NULL;
585}
586
587
588//// Crossings classes
589
590wxLineCrossings::wxLineCrossings()
591{
592}
593
594wxLineCrossings::~wxLineCrossings()
595{
596 ClearCrossings();
597}
598
599void wxLineCrossings::FindCrossings(wxDiagram& diagram)
600{
601 ClearCrossings();
b9ac87bc 602 wxNode* node1 = diagram.GetShapeList()->GetFirst();
1fc25a89
JS
603 while (node1)
604 {
b9ac87bc 605 wxShape* shape1 = (wxShape*) node1->GetData();
1fc25a89
JS
606 if (shape1->IsKindOf(CLASSINFO(wxLineShape)))
607 {
608 wxLineShape* lineShape1 = (wxLineShape*) shape1;
609 // Iterate through the segments
610 wxList* pts1 = lineShape1->GetLineControlPoints();
1dde66dd 611 size_t i;
b9ac87bc 612 for (i = 0; i < (pts1->GetCount() - 1); i++)
1fc25a89 613 {
b9ac87bc
RD
614 wxRealPoint* pt1_a = (wxRealPoint*) (pts1->Item(i)->GetData());
615 wxRealPoint* pt1_b = (wxRealPoint*) (pts1->Item(i+1)->GetData());
1fc25a89
JS
616
617 // Now we iterate through the segments again
618
b9ac87bc 619 wxNode* node2 = diagram.GetShapeList()->GetFirst();
1fc25a89
JS
620 while (node2)
621 {
b9ac87bc 622 wxShape* shape2 = (wxShape*) node2->GetData();
1fc25a89
JS
623
624 // Assume that the same line doesn't cross itself
625 if (shape2->IsKindOf(CLASSINFO(wxLineShape)) && (shape1 != shape2))
626 {
627 wxLineShape* lineShape2 = (wxLineShape*) shape2;
628 // Iterate through the segments
629 wxList* pts2 = lineShape2->GetLineControlPoints();
630 int j;
1dde66dd 631 for (j = 0; j < (int) (pts2->GetCount() - 1); j++)
1fc25a89 632 {
b9ac87bc
RD
633 wxRealPoint* pt2_a = (wxRealPoint*) (pts2->Item(j)->GetData());
634 wxRealPoint* pt2_b = (wxRealPoint*) (pts2->Item(j+1)->GetData());
1fc25a89
JS
635
636 // Now let's see if these two segments cross.
637 double ratio1, ratio2;
638 oglCheckLineIntersection(pt1_a->x, pt1_a->y, pt1_b->x, pt1_b->y,
639 pt2_a->x, pt2_a->y, pt2_b->x, pt2_b->y,
640 & ratio1, & ratio2);
641
642 if ((ratio1 < 1.0) && (ratio1 > -1.0))
643 {
644 // Intersection!
645 wxLineCrossing* crossing = new wxLineCrossing;
646 crossing->m_intersect.x = (pt1_a->x + (pt1_b->x - pt1_a->x)*ratio1);
647 crossing->m_intersect.y = (pt1_a->y + (pt1_b->y - pt1_a->y)*ratio1);
648
649 crossing->m_pt1 = * pt1_a;
650 crossing->m_pt2 = * pt1_b;
651 crossing->m_pt3 = * pt2_a;
652 crossing->m_pt4 = * pt2_b;
653
654 crossing->m_lineShape1 = lineShape1;
655 crossing->m_lineShape2 = lineShape2;
656
657 m_crossings.Append(crossing);
658 }
659 }
660 }
b9ac87bc 661 node2 = node2->GetNext();
1fc25a89
JS
662 }
663 }
664 }
665
b9ac87bc 666 node1 = node1->GetNext();
1fc25a89
JS
667 }
668}
669
1484b5cc 670void wxLineCrossings::DrawCrossings(wxDiagram& WXUNUSED(diagram), wxDC& dc)
1fc25a89
JS
671{
672 dc.SetBrush(*wxTRANSPARENT_BRUSH);
673
674 long arcWidth = 8;
675
b9ac87bc 676 wxNode* node = m_crossings.GetFirst();
1fc25a89
JS
677 while (node)
678 {
b9ac87bc 679 wxLineCrossing* crossing = (wxLineCrossing*) node->GetData();
1fc25a89
JS
680// dc.DrawEllipse((long) (crossing->m_intersect.x - (arcWidth/2.0) + 0.5), (long) (crossing->m_intersect.y - (arcWidth/2.0) + 0.5),
681// arcWidth, arcWidth);
682
683
684 // Let's do some geometry to find the points on either end of the arc.
685/*
686
687(x1, y1)
688 |\
689 | \
690 | \
691 | \
692 | \
693 | |\ c c1
694 | a | \
695 | \
696 | - x <-- centre of arc
697 a1 | b |\
698 | | \ c2
699 | a2 | \
700 | - \
701 | b2 \
702 | \
703 |_______________\ (x2, y2)
704 b1
705
706*/
707
708 double a1 = wxMax(crossing->m_pt1.y, crossing->m_pt2.y) - wxMin(crossing->m_pt1.y, crossing->m_pt2.y) ;
709 double b1 = wxMax(crossing->m_pt1.x, crossing->m_pt2.x) - wxMin(crossing->m_pt1.x, crossing->m_pt2.x) ;
710 double c1 = sqrt( (a1*a1) + (b1*b1) );
711
712 double c = arcWidth / 2.0;
713 double a = c * a1/c1 ;
714 double b = c * b1/c1 ;
715
716 // I'm not sure this is right, since we don't know which direction we should be going in - need
717 // to know which way the line slopes and choose the sign appropriately.
718 double arcX1 = crossing->m_intersect.x - b;
719 double arcY1 = crossing->m_intersect.y - a;
720
721 double arcX2 = crossing->m_intersect.x + b;
722 double arcY2 = crossing->m_intersect.y + a;
723
724 dc.SetPen(*wxBLACK_PEN);
725 dc.DrawArc( (long) arcX1, (long) arcY1, (long) arcX2, (long) arcY2,
726 (long) crossing->m_intersect.x, (long) crossing->m_intersect.y);
727
728 dc.SetPen(*wxWHITE_PEN);
729 dc.DrawLine( (long) arcX1, (long) arcY1, (long) arcX2, (long) arcY2 );
730
b9ac87bc 731 node = node->GetNext();
1fc25a89
JS
732 }
733}
734
735void wxLineCrossings::ClearCrossings()
736{
b9ac87bc 737 wxNode* node = m_crossings.GetFirst();
1fc25a89
JS
738 while (node)
739 {
b9ac87bc 740 wxLineCrossing* crossing = (wxLineCrossing*) node->GetData();
1fc25a89 741 delete crossing;
b9ac87bc 742 node = node->GetNext();
1fc25a89
JS
743 }
744 m_crossings.Clear();
745}
746