0031687: Draw Harness, ViewerTest - extend command vrenderparams with option updating...
[occt.git] / src / Hatch / Hatch_Line.cxx
CommitLineData
b311480e 1// Created on: 1992-08-19
2// Created by: Modelistation
3// Copyright (c) 1992-1999 Matra Datavision
973c2be1 4// Copyright (c) 1999-2014 OPEN CASCADE SAS
b311480e 5//
973c2be1 6// This file is part of Open CASCADE Technology software library.
b311480e 7//
d5f74e42 8// This library is free software; you can redistribute it and/or modify it under
9// the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 10// by the Free Software Foundation, with special exception defined in the file
11// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12// distribution for complete text of the license and disclaimer of any warranty.
b311480e 13//
973c2be1 14// Alternatively, this file may be used under the terms of Open CASCADE
15// commercial license or contractual agreement.
7fd59977 16
42cf5bc1 17
18#include <gp_Lin2d.hxx>
19#include <Hatch_Hatcher.hxx>
20#include <Hatch_Line.hxx>
7fd59977 21#include <Hatch_Parameter.hxx>
22
23//=======================================================================
24//function : Hatch_Line
25//purpose :
26//=======================================================================
7fd59977 27Hatch_Line::Hatch_Line()
d533dafb 28: myForm(Hatch_ANYLINE)
7fd59977 29{
30}
31
32//=======================================================================
33//function : Hatch_Line
34//purpose :
35//=======================================================================
36
37Hatch_Line::Hatch_Line(const gp_Lin2d& L,
38 const Hatch_LineForm T) :
39 myLin(L),
40 myForm(T)
41{
42}
43
44//=======================================================================
45//function : AddIntersection
46//purpose :
47//=======================================================================
48
49void Hatch_Line::AddIntersection
50 (const Standard_Real Par1,
51 const Standard_Boolean Start,
52 const Standard_Integer Index,
53 const Standard_Real Par2,
54 const Standard_Real theToler)
55{
56 Hatch_Parameter P(Par1,Start,Index,Par2);
57 Standard_Integer i;
58 for (i = 1; i <= myInters.Length(); i++) {
59 Standard_Real dfIntPar1 = myInters(i).myPar1;
60 // akm OCC109 vvv : Two intersections too close
61 if (Abs(Par1-dfIntPar1) < theToler)
62 {
63 myInters.Remove(i);
64 return;
65 }
66 // akm OCC109 ^^^
67 if (Par1 < dfIntPar1) {
68 myInters.InsertBefore(i,P);
69 return;
70 }
71 }
72 myInters.Append(P);
73}