--- /dev/null
+/////////////////////////////////////////////////////////////////////////////
+// Name: ogldiag.cpp
+// Purpose: wxDiagram
+// Author: Julian Smart
+// Modified by:
+// Created: 12/07/98
+// RCS-ID: $Id$
+// Copyright: (c) Julian Smart
+// Licence: wxWindows licence
+/////////////////////////////////////////////////////////////////////////////
+
+#ifdef __GNUG__
+#pragma implementation "ogldiag.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
+
+#include <wx/wxexpr.h>
+
+#if wxUSE_IOSTREAMH
+#include <iostream.h>
+#include <fstream.h>
+#else
+#include <iostream>
+#include <fstream>
+#ifdef _MSC_VER
+using namespace std;
+#endif
+#endif
+
+#include <ctype.h>
+#include <math.h>
+#include <stdlib.h>
+
+#include <wx/ogl/basic.h>
+#include <wx/ogl/basicp.h>
+#include <wx/ogl/canvas.h>
+#include <wx/ogl/ogldiag.h>
+#include <wx/ogl/lines.h>
+#include <wx/ogl/composit.h>
+#include <wx/ogl/misc.h>
+
+IMPLEMENT_DYNAMIC_CLASS(wxDiagram, wxObject)
+
+// Object canvas
+wxDiagram::wxDiagram()
+{
+ m_diagramCanvas = NULL;
+ m_quickEditMode = FALSE;
+ m_snapToGrid = TRUE;
+ m_gridSpacing = 5.0;
+ m_shapeList = new wxList;
+ m_mouseTolerance = DEFAULT_MOUSE_TOLERANCE;
+}
+
+wxDiagram::~wxDiagram()
+{
+ if (m_shapeList)
+ delete m_shapeList;
+}
+
+void wxDiagram::SetSnapToGrid(bool snap)
+{
+ m_snapToGrid = snap;
+}
+
+void wxDiagram::SetGridSpacing(double spacing)
+{
+ m_gridSpacing = spacing;
+}
+
+void wxDiagram::Snap(double *x, double *y)
+{
+ if (m_snapToGrid)
+ {
+ *x = m_gridSpacing * ((int)(*x/m_gridSpacing + 0.5));
+ *y = m_gridSpacing * ((int)(*y/m_gridSpacing + 0.5));
+ }
+}
+
+
+void wxDiagram::Redraw(wxDC& dc)
+{
+ if (m_shapeList)
+ {
+ if (GetCanvas())
+ GetCanvas()->SetCursor(* wxHOURGLASS_CURSOR);
+ wxNode *current = m_shapeList->First();
+
+ while (current)
+ {
+ wxShape *object = (wxShape *)current->Data();
+ if (!object->GetParent())
+ object->Draw(dc);
+
+ current = current->Next();
+ }
+ if (GetCanvas())
+ GetCanvas()->SetCursor(* wxSTANDARD_CURSOR);
+ }
+}
+
+void wxDiagram::Clear(wxDC& dc)
+{
+ dc.Clear();
+}
+
+// Insert object after addAfter, or at end of list.
+void wxDiagram::AddShape(wxShape *object, wxShape *addAfter)
+{
+ wxNode *nodeAfter = NULL;
+ if (addAfter)
+ nodeAfter = m_shapeList->Member(addAfter);
+
+ if (!m_shapeList->Member(object))
+ {
+ if (nodeAfter)
+ {
+ if (nodeAfter->Next())
+ m_shapeList->Insert(nodeAfter->Next(), object);
+ else
+ m_shapeList->Append(object);
+ }
+ else
+ m_shapeList->Append(object);
+ object->SetCanvas(GetCanvas());
+ }
+}
+
+void wxDiagram::InsertShape(wxShape *object)
+{
+ m_shapeList->Insert(object);
+ object->SetCanvas(GetCanvas());
+}
+
+void wxDiagram::RemoveShape(wxShape *object)
+{
+ m_shapeList->DeleteObject(object);
+}
+
+// Should this delete the actual objects too? I think not.
+void wxDiagram::RemoveAllShapes()
+{
+ m_shapeList->Clear();
+}
+
+void wxDiagram::DeleteAllShapes()
+{
+ wxNode *node = m_shapeList->First();
+ while (node)
+ {
+ wxShape *shape = (wxShape *)node->Data();
+ if (!shape->GetParent())
+ {
+ RemoveShape(shape);
+ delete shape;
+ node = m_shapeList->First();
+ }
+ else
+ node = node->Next();
+ }
+}
+
+void wxDiagram::ShowAll(bool show)
+{
+ wxNode *current = m_shapeList->First();
+
+ while (current)
+ {
+ wxShape *object = (wxShape *)current->Data();
+ object->Show(show);
+
+ current = current->Next();
+ }
+}
+
+void wxDiagram::DrawOutline(wxDC& dc, double x1, double y1, double x2, double y2)
+{
+ wxPen dottedPen(wxColour(0, 0, 0), 1, wxDOT);
+ dc.SetPen(dottedPen);
+ dc.SetBrush((* wxTRANSPARENT_BRUSH));
+
+ wxPoint points[5];
+
+ points[0].x = (int) x1;
+ points[0].y = (int) y1;
+
+ points[1].x = (int) x2;
+ points[1].y = (int) y1;
+
+ points[2].x = (int) x2;
+ points[2].y = (int) y2;
+
+ points[3].x = (int) x1;
+ points[3].y = (int) y2;
+
+ points[4].x = (int) x1;
+ points[4].y = (int) y1;
+ dc.DrawLines(5, points);
+}
+
+// Make sure all text that should be centred, is centred.
+void wxDiagram::RecentreAll(wxDC& dc)
+{
+ wxNode *object_node = m_shapeList->First();
+ while (object_node)
+ {
+ wxShape *obj = (wxShape *)object_node->Data();
+ obj->Recentre(dc);
+ object_node = object_node->Next();
+ }
+}
+
+// Input/output
+#ifdef PROLOGIO
+bool wxDiagram::SaveFile(const wxString& filename)
+{
+ wxBeginBusyCursor();
+
+ wxExprDatabase *database = new wxExprDatabase;
+
+ // First write the diagram type
+ wxExpr *header = new wxExpr("diagram");
+ OnHeaderSave(*database, *header);
+
+ database->Append(header);
+
+ wxNode *node = m_shapeList->First();
+ while (node)
+ {
+ wxShape *shape = (wxShape *)node->Data();
+
+ if (!shape->IsKindOf(CLASSINFO(wxControlPoint)))
+ {
+ wxExpr *expr = NULL;
+ if (shape->IsKindOf(CLASSINFO(wxLineShape)))
+ expr = new wxExpr("line");
+ else
+ expr = new wxExpr("shape");
+
+ OnShapeSave(*database, *shape, *expr);
+ }
+ node = node->Next();
+ }
+ OnDatabaseSave(*database);
+
+ char tempFile[400];
+ wxGetTempFileName("diag", tempFile);
+ FILE* file = fopen(tempFile, "w");
+ if (! file)
+ {
+ wxEndBusyCursor();
+ delete database;
+ return FALSE;
+ }
+
+ database->Write(file);
+ fclose(file);
+ delete database;
+
+/*
+ // Save backup
+ if (FileExists(filename))
+ {
+ char buf[400];
+#ifdef __X__
+ sprintf(buf, "%s.bak", filename);
+#endif
+#ifdef __WXMSW__
+ sprintf(buf, "_diagram.bak");
+#endif
+ if (FileExists(buf)) wxRemoveFile(buf);
+ if (!wxRenameFile(filename, buf))
+ {
+ wxCopyFile(filename, buf);
+ wxRemoveFile(filename);
+ }
+ }
+*/
+
+ // Copy the temporary file to the correct filename
+ if (!wxRenameFile(tempFile, filename))
+ {
+ wxCopyFile(tempFile, filename);
+ wxRemoveFile(tempFile);
+ }
+
+ wxEndBusyCursor();
+ return TRUE;
+}
+
+bool wxDiagram::LoadFile(const wxString& filename)
+{
+ wxBeginBusyCursor();
+
+ wxExprDatabase database(wxExprInteger, "id");
+ if (!database.Read(filename))
+ {
+ wxEndBusyCursor();
+ return FALSE;
+ }
+
+ DeleteAllShapes();
+
+ database.BeginFind();
+ wxExpr *header = database.FindClauseByFunctor("diagram");
+
+ if (header)
+ OnHeaderLoad(database, *header);
+
+ // Scan through all clauses and register the ids
+ wxNode *node = database.First();
+ while (node)
+ {
+ wxExpr *clause = (wxExpr *)node->Data();
+ long id = -1;
+ clause->GetAttributeValue("id", id);
+ wxRegisterId(id);
+ node = node->Next();
+ }
+
+ ReadNodes(database);
+ ReadContainerGeometry(database);
+ ReadLines(database);
+
+ OnDatabaseLoad(database);
+
+ wxEndBusyCursor();
+
+ return TRUE;
+}
+
+void wxDiagram::ReadNodes(wxExprDatabase& database)
+{
+ // Find and create the node images
+ database.BeginFind();
+ wxExpr *clause = database.FindClauseByFunctor("shape");
+ while (clause)
+ {
+ char *type = NULL;
+ long parentId = -1;
+
+ clause->AssignAttributeValue("type", &type);
+ clause->AssignAttributeValue("parent", &parentId);
+ wxClassInfo *classInfo = wxClassInfo::FindClass(type);
+ if (classInfo)
+ {
+ wxShape *shape = (wxShape *)classInfo->CreateObject();
+ OnShapeLoad(database, *shape, *clause);
+
+ shape->SetCanvas(GetCanvas());
+ shape->Show(TRUE);
+
+ m_shapeList->Append(shape);
+
+ // If child of composite, link up
+ if (parentId > -1)
+ {
+ wxExpr *parentExpr = database.HashFind("shape", parentId);
+ if (parentExpr && parentExpr->GetClientData())
+ {
+ wxShape *parent = (wxShape *)parentExpr->GetClientData();
+ shape->SetParent(parent);
+ parent->GetChildren().Append(shape);
+ }
+ }
+
+ clause->SetClientData(shape);
+ }
+ if (type)
+ delete[] type;
+
+ clause = database.FindClauseByFunctor("shape");
+ }
+ return;
+}
+
+void wxDiagram::ReadLines(wxExprDatabase& database)
+{
+ database.BeginFind();
+ wxExpr *clause = database.FindClauseByFunctor("line");
+ while (clause)
+ {
+ wxString type("");
+ long parentId = -1;
+
+ clause->GetAttributeValue("type", type);
+ clause->GetAttributeValue("parent", parentId);
+ wxClassInfo *classInfo = wxClassInfo::FindClass((char*) (const char*) type);
+ if (classInfo)
+ {
+ wxLineShape *shape = (wxLineShape *)classInfo->CreateObject();
+ shape->Show(TRUE);
+
+ OnShapeLoad(database, *shape, *clause);
+ shape->SetCanvas(GetCanvas());
+
+ long image_to = -1; long image_from = -1;
+ clause->GetAttributeValue("to", image_to);
+ clause->GetAttributeValue("from", image_from);
+
+ wxExpr *image_to_expr = database.HashFind("shape", image_to);
+
+ if (!image_to_expr)
+ {
+ // Error
+ }
+ wxExpr *image_from_expr = database.HashFind("shape", image_from);
+
+ if (!image_from_expr)
+ {
+ // Error
+ }
+
+ if (image_to_expr && image_from_expr)
+ {
+ wxShape *image_to_object = (wxShape *)image_to_expr->GetClientData();
+ wxShape *image_from_object = (wxShape *)image_from_expr->GetClientData();
+
+ if (image_to_object && image_from_object)
+ {
+ image_from_object->AddLine(shape, image_to_object, shape->GetAttachmentFrom(), shape->GetAttachmentTo());
+ }
+ }
+ clause->SetClientData(shape);
+
+ m_shapeList->Append(shape);
+ }
+
+ clause = database.FindClauseByFunctor("line");
+ }
+}
+
+// Containers have divisions that reference adjoining divisions,
+// so we need a separate pass to link everything up.
+// Also used by Symbol Library.
+void wxDiagram::ReadContainerGeometry(wxExprDatabase& database)
+{
+ database.BeginFind();
+ wxExpr *clause = database.FindClauseByFunctor("shape");
+ while (clause)
+ {
+ wxShape *image = (wxShape *)clause->GetClientData();
+ if (image && image->IsKindOf(CLASSINFO(wxCompositeShape)))
+ {
+ wxCompositeShape *composite = (wxCompositeShape *)image;
+ wxExpr *divisionExpr = NULL;
+
+ // Find the list of divisions in the composite
+ clause->GetAttributeValue("divisions", &divisionExpr);
+ if (divisionExpr)
+ {
+ int i = 0;
+ wxExpr *idExpr = divisionExpr->Nth(i);
+ while (idExpr)
+ {
+ long divisionId = idExpr->IntegerValue();
+ wxExpr *childExpr = database.HashFind("shape", divisionId);
+ if (childExpr && childExpr->GetClientData())
+ {
+ wxDivisionShape *child = (wxDivisionShape *)childExpr->GetClientData();
+ composite->GetDivisions().Append(child);
+
+ // Find the adjoining shapes
+ long leftSideId = -1;
+ long topSideId = -1;
+ long rightSideId = -1;
+ long bottomSideId = -1;
+ childExpr->GetAttributeValue("left_side", leftSideId);
+ childExpr->GetAttributeValue("top_side", topSideId);
+ childExpr->GetAttributeValue("right_side", rightSideId);
+ childExpr->GetAttributeValue("bottom_side", bottomSideId);
+ if (leftSideId > -1)
+ {
+ wxExpr *leftExpr = database.HashFind("shape", leftSideId);
+ if (leftExpr && leftExpr->GetClientData())
+ {
+ wxDivisionShape *leftSide = (wxDivisionShape *)leftExpr->GetClientData();
+ child->SetLeftSide(leftSide);
+ }
+ }
+ if (topSideId > -1)
+ {
+ wxExpr *topExpr = database.HashFind("shape", topSideId);
+ if (topExpr && topExpr->GetClientData())
+ {
+ wxDivisionShape *topSide = (wxDivisionShape *)topExpr->GetClientData();
+ child->SetTopSide(topSide);
+ }
+ }
+ if (rightSideId > -1)
+ {
+ wxExpr *rightExpr = database.HashFind("shape", rightSideId);
+ if (rightExpr && rightExpr->GetClientData())
+ {
+ wxDivisionShape *rightSide = (wxDivisionShape *)rightExpr->GetClientData();
+ child->SetRightSide(rightSide);
+ }
+ }
+ if (bottomSideId > -1)
+ {
+ wxExpr *bottomExpr = database.HashFind("shape", bottomSideId);
+ if (bottomExpr && bottomExpr->GetClientData())
+ {
+ wxDivisionShape *bottomSide = (wxDivisionShape *)bottomExpr->GetClientData();
+ child->SetBottomSide(bottomSide);
+ }
+ }
+ }
+ i ++;
+ idExpr = divisionExpr->Nth(i);
+ }
+ }
+ }
+
+ clause = database.FindClauseByFunctor("shape");
+ }
+}
+
+// Allow for modifying file
+bool wxDiagram::OnDatabaseLoad(wxExprDatabase& db)
+{
+ return TRUE;
+}
+
+bool wxDiagram::OnDatabaseSave(wxExprDatabase& db)
+{
+ return TRUE;
+}
+
+bool wxDiagram::OnShapeSave(wxExprDatabase& db, wxShape& shape, wxExpr& expr)
+{
+ shape.WriteAttributes(&expr);
+ db.Append(&expr);
+
+ if (shape.IsKindOf(CLASSINFO(wxCompositeShape)))
+ {
+ wxNode *node = shape.GetChildren().First();
+ while (node)
+ {
+ wxShape *childShape = (wxShape *)node->Data();
+ wxExpr *childExpr = new wxExpr("shape");
+ OnShapeSave(db, *childShape, *childExpr);
+ node = node->Next();
+ }
+ }
+
+ return TRUE;
+}
+
+bool wxDiagram::OnShapeLoad(wxExprDatabase& db, wxShape& shape, wxExpr& expr)
+{
+ shape.ReadAttributes(&expr);
+ return TRUE;
+}
+
+bool wxDiagram::OnHeaderSave(wxExprDatabase& db, wxExpr& expr)
+{
+ return TRUE;
+}
+
+bool wxDiagram::OnHeaderLoad(wxExprDatabase& db, wxExpr& expr)
+{
+ return TRUE;
+}
+
+#endif
+
+void wxDiagram::SetCanvas(wxShapeCanvas *can)
+{
+ m_diagramCanvas = can;
+}
+
+// Find a shape by its id
+wxShape* wxDiagram::FindShape(long id) const
+{
+ wxNode* node = GetShapeList()->First();
+ while (node)
+ {
+ wxShape* shape = (wxShape*) node->Data();
+ if (shape->GetId() == id)
+ return shape;
+ node = node->Next();
+ }
+ return NULL;
+}
+
+
+//// Crossings classes
+
+wxLineCrossings::wxLineCrossings()
+{
+}
+
+wxLineCrossings::~wxLineCrossings()
+{
+ ClearCrossings();
+}
+
+void wxLineCrossings::FindCrossings(wxDiagram& diagram)
+{
+ ClearCrossings();
+ wxNode* node1 = diagram.GetShapeList()->First();
+ while (node1)
+ {
+ wxShape* shape1 = (wxShape*) node1->Data();
+ if (shape1->IsKindOf(CLASSINFO(wxLineShape)))
+ {
+ wxLineShape* lineShape1 = (wxLineShape*) shape1;
+ // Iterate through the segments
+ wxList* pts1 = lineShape1->GetLineControlPoints();
+ int i;
+ for (i = 0; i < (pts1->Number() - 1); i++)
+ {
+ wxRealPoint* pt1_a = (wxRealPoint*) (pts1->Nth(i)->Data());
+ wxRealPoint* pt1_b = (wxRealPoint*) (pts1->Nth(i+1)->Data());
+
+ // Now we iterate through the segments again
+
+ wxNode* node2 = diagram.GetShapeList()->First();
+ while (node2)
+ {
+ wxShape* shape2 = (wxShape*) node2->Data();
+
+ // Assume that the same line doesn't cross itself
+ if (shape2->IsKindOf(CLASSINFO(wxLineShape)) && (shape1 != shape2))
+ {
+ wxLineShape* lineShape2 = (wxLineShape*) shape2;
+ // Iterate through the segments
+ wxList* pts2 = lineShape2->GetLineControlPoints();
+ int j;
+ for (j = 0; j < (pts2->Number() - 1); j++)
+ {
+ wxRealPoint* pt2_a = (wxRealPoint*) (pts2->Nth(j)->Data());
+ wxRealPoint* pt2_b = (wxRealPoint*) (pts2->Nth(j+1)->Data());
+
+ // Now let's see if these two segments cross.
+ double ratio1, ratio2;
+ oglCheckLineIntersection(pt1_a->x, pt1_a->y, pt1_b->x, pt1_b->y,
+ pt2_a->x, pt2_a->y, pt2_b->x, pt2_b->y,
+ & ratio1, & ratio2);
+
+ if ((ratio1 < 1.0) && (ratio1 > -1.0))
+ {
+ // Intersection!
+ wxLineCrossing* crossing = new wxLineCrossing;
+ crossing->m_intersect.x = (pt1_a->x + (pt1_b->x - pt1_a->x)*ratio1);
+ crossing->m_intersect.y = (pt1_a->y + (pt1_b->y - pt1_a->y)*ratio1);
+
+ crossing->m_pt1 = * pt1_a;
+ crossing->m_pt2 = * pt1_b;
+ crossing->m_pt3 = * pt2_a;
+ crossing->m_pt4 = * pt2_b;
+
+ crossing->m_lineShape1 = lineShape1;
+ crossing->m_lineShape2 = lineShape2;
+
+ m_crossings.Append(crossing);
+ }
+ }
+ }
+ node2 = node2->Next();
+ }
+ }
+ }
+
+ node1 = node1->Next();
+ }
+}
+
+void wxLineCrossings::DrawCrossings(wxDiagram& diagram, wxDC& dc)
+{
+ dc.SetBrush(*wxTRANSPARENT_BRUSH);
+
+ long arcWidth = 8;
+
+ wxNode* node = m_crossings.First();
+ while (node)
+ {
+ wxLineCrossing* crossing = (wxLineCrossing*) node->Data();
+// dc.DrawEllipse((long) (crossing->m_intersect.x - (arcWidth/2.0) + 0.5), (long) (crossing->m_intersect.y - (arcWidth/2.0) + 0.5),
+// arcWidth, arcWidth);
+
+
+ // Let's do some geometry to find the points on either end of the arc.
+/*
+
+(x1, y1)
+ |\
+ | \
+ | \
+ | \
+ | \
+ | |\ c c1
+ | a | \
+ | \
+ | - x <-- centre of arc
+ a1 | b |\
+ | | \ c2
+ | a2 | \
+ | - \
+ | b2 \
+ | \
+ |_______________\ (x2, y2)
+ b1
+
+*/
+
+ double a1 = wxMax(crossing->m_pt1.y, crossing->m_pt2.y) - wxMin(crossing->m_pt1.y, crossing->m_pt2.y) ;
+ double b1 = wxMax(crossing->m_pt1.x, crossing->m_pt2.x) - wxMin(crossing->m_pt1.x, crossing->m_pt2.x) ;
+ double c1 = sqrt( (a1*a1) + (b1*b1) );
+
+ double c = arcWidth / 2.0;
+ double a = c * a1/c1 ;
+ double b = c * b1/c1 ;
+
+ // I'm not sure this is right, since we don't know which direction we should be going in - need
+ // to know which way the line slopes and choose the sign appropriately.
+ double arcX1 = crossing->m_intersect.x - b;
+ double arcY1 = crossing->m_intersect.y - a;
+
+ double arcX2 = crossing->m_intersect.x + b;
+ double arcY2 = crossing->m_intersect.y + a;
+
+ dc.SetPen(*wxBLACK_PEN);
+ dc.DrawArc( (long) arcX1, (long) arcY1, (long) arcX2, (long) arcY2,
+ (long) crossing->m_intersect.x, (long) crossing->m_intersect.y);
+
+ dc.SetPen(*wxWHITE_PEN);
+ dc.DrawLine( (long) arcX1, (long) arcY1, (long) arcX2, (long) arcY2 );
+
+ node = node->Next();
+ }
+}
+
+void wxLineCrossings::ClearCrossings()
+{
+ wxNode* node = m_crossings.First();
+ while (node)
+ {
+ wxLineCrossing* crossing = (wxLineCrossing*) node->Data();
+ delete crossing;
+ node = node->Next();
+ }
+ m_crossings.Clear();
+}
+
projects / wxWidgets.git / blobdiff