0026788: Compiler warnings when OCCT_DEBUG is enabled
[occt.git] / src / ViewerTest / ViewerTest_RelationCommands.cxx
1 // Created on: 1998-11-12
2 // Created by: Robert COUBLANC
3 // Copyright (c) 1998-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
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
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.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17 #include <ViewerTest.hxx>
18
19 #include <AIS_AngleDimension.hxx>
20 #include <AIS_Circle.hxx>
21 #include <AIS_DiameterDimension.hxx>
22 #include <AIS_DisplayMode.hxx>
23 #include <AIS_InteractiveContext.hxx>
24 #include <AIS_LengthDimension.hxx>
25 #include <AIS_ListIteratorOfListOfInteractive.hxx>
26 #include <AIS_ListOfInteractive.hxx>
27 #include <AIS_MapOfInteractive.hxx>
28 #include <AIS_Point.hxx>
29 #include <AIS_RadiusDimension.hxx>
30 #include <AIS_Relation.hxx>
31 #include <AIS_Shape.hxx>
32 #include <BRepAdaptor_Curve.hxx>
33 #include <BRep_Builder.hxx>
34 #include <BRep_Tool.hxx>
35 #include <BRepTools.hxx>
36 #include <Draw_Interpretor.hxx>
37 #include <Draw.hxx>
38 #include <Draw_Appli.hxx>
39 #include <Draw_Window.hxx>
40 #include <DBRep.hxx>
41 #include <ElSLib.hxx>
42 #include <Font_FontMgr.hxx>
43 #include <GC_MakePlane.hxx>
44 #include <Geom_CartesianPoint.hxx>
45 #include <Geom_Circle.hxx>
46 #include <Geom_Line.hxx>
47 #include <Geom_Plane.hxx>
48 #include <GeomAPI_IntCS.hxx>
49 #include <gce_MakeLin.hxx>
50 #include <gce_MakePln.hxx>
51 #include <gp_Circ.hxx>
52 #include <gp_Pln.hxx>
53 #include <IntAna_IntConicQuad.hxx>
54 #include <IntAna_Quadric.hxx>
55 #include <Precision.hxx>
56 #include <StdSelect.hxx>
57 #include <TCollection_AsciiString.hxx>
58 #include <TCollection_ExtendedString.hxx>
59 #include <TColStd_MapOfInteger.hxx>
60 #include <TopAbs.hxx>
61 #include <TopAbs_ShapeEnum.hxx>
62 #include <TopExp.hxx>
63 #include <TopoDS.hxx>
64 #include <TopoDS_Face.hxx>
65 #include <TopoDS_Solid.hxx>
66 #include <TopoDS_Vertex.hxx>
67 #include <V3d_Viewer.hxx>
68 #include <V3d_View.hxx>
69 #include <V3d.hxx>
70 #include <ViewerTest_DoubleMapOfInteractiveAndName.hxx>
71 #include <ViewerTest_DoubleMapIteratorOfDoubleMapOfInteractiveAndName.hxx>
72 #include <ViewerTest_EventManager.hxx>
73
74 extern Standard_Boolean VDisplayAISObject (const TCollection_AsciiString& theName,
75                                            const Handle(AIS_InteractiveObject)& theAISObj,
76                                            Standard_Boolean theReplaceIfExists = Standard_True);
77 extern ViewerTest_DoubleMapOfInteractiveAndName& GetMapOfAIS();
78 extern int ViewerMainLoop(Standard_Integer argc, const char** argv);
79 extern Handle(AIS_InteractiveContext)& TheAISContext ();
80
81 #define VertexMask 0x01
82 #define EdgeMask 0x02
83 #define FaceMask 0x04
84
85 //=======================================================================
86 //function : Get3DPointAtMousePosition
87 //purpose  : Calculates the 3D points corresponding to the mouse position
88 //           in the plane of the view
89 //=======================================================================
90 static gp_Pnt Get3DPointAtMousePosition()
91 {
92   Handle(V3d_View) aView = ViewerTest::CurrentView();
93
94   Standard_Real xv,yv,zv;
95   aView->Proj (xv,yv,zv);
96   Standard_Real xat,yat,zat;
97   aView->At(xat,yat,zat);
98   gp_Pln aPlane (gp_Pnt(xat,yat,zat), gp_Dir(xv,yv,zv));
99   
100   Standard_Integer aPixX, aPixY;
101   Standard_Real aX, aY, aZ, aDX, aDY, aDZ;
102
103   ViewerTest::GetMousePosition (aPixX, aPixY);
104   aView->ConvertWithProj (aPixX, aPixY, aX, aY, aZ, aDX, aDY, aDZ);
105   gp_Lin aLine( gp_Pnt(aX, aY, aZ), gp_Dir(aDX, aDY, aDZ) );
106
107   // Compute intersection
108   Handle(Geom_Line) aGeomLine = new Geom_Line (aLine);
109   Handle(Geom_Plane) aGeomPlane = new Geom_Plane (aPlane);
110   GeomAPI_IntCS anIntersector (aGeomLine, aGeomPlane);
111   if (!anIntersector.IsDone() || anIntersector.NbPoints() == 0)
112   {
113     return gp::Origin();
114   }
115   return anIntersector.Point (1);
116 }
117
118 //=======================================================================
119 //function : Get3DPointAtMousePosition
120 //purpose  : Calculates the 3D points corresponding to the mouse position
121 //           in the plane of the view
122 //=======================================================================
123 static Standard_Boolean Get3DPointAtMousePosition (const gp_Pnt& theFirstPoint,
124                                                    const gp_Pnt& theSecondPoint,
125                                                    gp_Pnt& theOutputPoint)
126 {
127   theOutputPoint = gp::Origin();
128
129   Handle(V3d_View) aView = ViewerTest::CurrentView();
130
131   Standard_Integer aPixX, aPixY;
132   Standard_Real aX, aY, aZ, aDx, aDy, aDz, aUx, aUy, aUz;
133
134   // Get 3D point in view coordinates and projection vector from the pixel point.
135   ViewerTest::GetMousePosition (aPixX, aPixY);
136   aView->ConvertWithProj (aPixX, aPixY, aX, aY, aZ, aDx, aDy, aDz);
137   gp_Lin aProjLin (gp_Pnt(aX, aY, aZ), gp_Dir(aDx, aDy, aDz));
138
139   // Get plane
140   gp_Vec aDimVec (theFirstPoint, theSecondPoint);
141   aView->Up (aUx, aUy, aUz);
142   gp_Vec aViewUp (aUx, aUy, aUz);
143
144   if (aDimVec.IsParallel (aViewUp, Precision::Angular()))
145   {
146     theOutputPoint = Get3DPointAtMousePosition();
147     return Standard_True;
148   }
149
150   gp_Vec aDimNormal = aDimVec ^ aViewUp;
151   gp_Pln aViewPlane= gce_MakePln (theFirstPoint, aDimNormal);
152
153   // Get intersection of view plane and projection line
154   Handle(Geom_Plane) aPlane = new Geom_Plane (aViewPlane);
155   Handle(Geom_Line) aProjLine = new Geom_Line (aProjLin);
156   GeomAPI_IntCS anIntersector (aProjLine, aPlane);
157   if (!anIntersector.IsDone() || anIntersector.NbPoints() == 0)
158   {
159     return Standard_False;
160   }
161
162   theOutputPoint = anIntersector.Point (1);
163   return Standard_True;
164 }
165
166 //=======================================================================
167 //function : ParseDimensionParams
168 //purpose  : Auxilliary function: sets aspect parameters for
169 //           length, angle, radius and diameter dimension.
170 //
171 //draw args: -text [3d|2d] [wf|sh|wireframe|shading] [Size]
172 //           -label [left|right|hcenter|hfit] [top|bottom|vcenter|vfit]
173 //           -arrow [external|internal|fit] [Length(int)]
174 //           -arrowangle ArrowAngle(degrees)
175 //           -plane xoy|yoz|zox
176 //           -flyout FloatValue -extension FloatValue
177 //           -value CustomNumberValue
178 //           -dispunits DisplayUnitsString
179 //           -modelunits ModelUnitsString
180 //           -showunits
181 //           -hideunits
182 //
183 // Warning! flyout is not an aspect value, it is for dimension parameter
184 // likewise text position, but text position override other paramaters.
185 // For text position changing use 'vmovedim'.
186 //=======================================================================
187 static int ParseDimensionParams (Standard_Integer  theArgNum,
188                                  const char**      theArgVec,
189                                  Standard_Integer  theStartIndex,
190                                  const Handle(Prs3d_DimensionAspect)& theAspect,
191                                  Standard_Boolean& theIsCustomPlane, gp_Pln& thePlane,
192                                  NCollection_DataMap<TCollection_AsciiString, Standard_Real>& theRealParams,
193                                  NCollection_DataMap<TCollection_AsciiString, TCollection_AsciiString>& theStringParams,
194                                  NCollection_List<Handle(AIS_InteractiveObject)>* theShapeList = NULL)
195 {
196   theRealParams.Clear();
197   theStringParams.Clear();
198
199   theIsCustomPlane  = Standard_False;
200
201   // Begin from the second parameter: the first one is dimension name
202   for (Standard_Integer anIt = theStartIndex; anIt < theArgNum; ++anIt)
203   {
204     TCollection_AsciiString aParam (theArgVec[anIt]);
205     aParam.LowerCase();
206
207     if (aParam.Search ("-") == -1)
208     {
209       continue;
210     }
211
212     // Boolean flags
213     if (aParam.IsEqual ("-showunits"))
214     {
215       theAspect->MakeUnitsDisplayed (Standard_True);
216       continue;
217     }
218     else if (aParam.IsEqual ("-hideunits"))
219     {
220       theAspect->MakeUnitsDisplayed (Standard_False);
221       continue;
222     }
223
224     // Before all non-boolean flags parsing check if a flag have at least one value.
225     if (anIt + 1 >= theArgNum)
226     {
227       std::cerr << "Error: "<< aParam <<" flag should have value.\n";
228       return 1;
229     }
230
231     // Non-boolean flags
232     if (aParam.IsEqual ("-shape")
233      || aParam.IsEqual ("-shapes"))
234     {
235       if (!theShapeList)
236       {
237         std::cerr << "Error: unknown parameter '" << aParam << "'\n";
238         return 1;
239       }
240
241       do
242       {
243         anIt++;
244         TCollection_AsciiString anArgString = theArgVec[anIt];
245         Handle(AIS_InteractiveObject) anAISObject;
246         Standard_CString aStr   = anArgString.ToCString();
247         TopoDS_Shape     aShape =  DBRep::Get (aStr);
248         if (!aShape.IsNull())
249         {
250           anAISObject = new AIS_Shape (aShape);
251         }
252         else
253         {
254           if (!GetMapOfAIS().IsBound2 (anArgString))
255           {
256             std::cerr << "Error: shape with name '" << aStr << "' is not found.\n";
257             return 1;
258           }
259
260           anAISObject = Handle(AIS_InteractiveObject)::DownCast (GetMapOfAIS().Find2 (anArgString));
261           if (anAISObject.IsNull())
262           {
263             std::cerr << "Error: " << aStr <<" is not a shape.\n";
264             return 1;
265           }
266         }
267         theShapeList->Append (anAISObject);
268       }
269       while (anIt + 1 < theArgNum && theArgVec[anIt + 1][0] != '-');
270     }
271     else if (aParam.IsEqual ("-text"))
272     {
273       do
274       {
275         anIt++;
276         TCollection_AsciiString aValue (theArgVec[anIt]);
277         aValue.LowerCase();
278         if (aValue.IsEqual ("3d"))
279         {
280           theAspect->MakeText3d (Standard_True);
281         }
282         else if (aValue.IsEqual ("2d"))
283         {
284           theAspect->MakeText3d (Standard_False);
285         }
286         else if (aValue.IsEqual ("wf") || aValue.IsEqual ("wireframe"))
287         {
288            theAspect->MakeTextShaded (Standard_False);
289         }
290         else if ( aValue.IsEqual ("sh") || aValue.IsEqual ("shading"))
291         {
292           theAspect->MakeTextShaded (Standard_True);
293         }
294         else if (aValue.IsIntegerValue()) // text size
295         {
296           theAspect->TextAspect()->SetHeight (Draw::Atoi (aValue.ToCString()));
297         }
298       }
299       while (anIt + 1 < theArgNum && theArgVec[anIt + 1][0] != '-');
300     }
301     else if (aParam.IsEqual ("-font"))
302     {
303       if (anIt + 1 >= theArgNum)
304       {
305         std::cout << "Error: wrong number of values for parameter '" << aParam.ToCString() << "'.\n";
306         return 1;
307       }
308
309       theAspect->TextAspect()->SetFont (theArgVec[++anIt]);
310     }
311     else if (aParam.IsEqual ("-label"))
312     {
313       do
314       {
315         anIt++;
316         TCollection_AsciiString aParamValue (theArgVec[anIt]);
317         aParamValue.LowerCase();
318
319         if (aParamValue == "left")         { theAspect->SetTextHorizontalPosition (Prs3d_DTHP_Left);  }
320         else if (aParamValue == "right")   { theAspect->SetTextHorizontalPosition (Prs3d_DTHP_Right); }
321         else if (aParamValue == "hcenter") { theAspect->SetTextHorizontalPosition (Prs3d_DTHP_Center);}
322         else if (aParamValue == "hfit")    { theAspect->SetTextHorizontalPosition (Prs3d_DTHP_Fit);   }
323         else if (aParamValue == "above")   { theAspect->SetTextVerticalPosition   (Prs3d_DTVP_Above); }
324         else if (aParamValue == "below")   { theAspect->SetTextVerticalPosition   (Prs3d_DTVP_Below); }
325         else if (aParamValue == "vcenter") { theAspect->SetTextVerticalPosition   (Prs3d_DTVP_Center);}
326         else
327         {
328           std::cerr << "Error: invalid label position: '" << aParamValue << "'.\n";
329           return 1;
330         }
331       }
332       while (anIt + 1 < theArgNum && theArgVec[anIt+1][0] != '-');
333     }
334     else if (aParam.IsEqual ("-arrow"))
335     {
336       TCollection_AsciiString aLocalParam(theArgVec[++anIt]);
337       aLocalParam.LowerCase();
338
339       if (aLocalParam == "external") { theAspect->SetArrowOrientation (Prs3d_DAO_External); }
340       if (aLocalParam == "internal") { theAspect->SetArrowOrientation (Prs3d_DAO_Internal); }
341       if (aLocalParam == "fit")      { theAspect->SetArrowOrientation (Prs3d_DAO_Fit); }
342     }
343     else if (aParam.IsEqual ("-arrowlength") || aParam.IsEqual ("-arlen"))
344     {
345       TCollection_AsciiString aValue (theArgVec[++anIt]);
346       if (!aValue.IsRealValue())
347       {
348         std::cerr << "Error: arrow lenght should be float degree value.\n";
349         return 1;
350       }
351       theAspect->ArrowAspect()->SetLength (Draw::Atof (aValue.ToCString()));
352     }
353     else if (aParam.IsEqual ("-arrowangle") || aParam.IsEqual ("-arangle"))
354     {
355       TCollection_AsciiString aValue (theArgVec[++anIt]);
356       if (!aValue.IsRealValue())
357       {
358         std::cerr << "Error: arrow angle should be float degree value.\n";
359         return 1;
360       }
361       theAspect->ArrowAspect()->SetAngle (Draw::Atof (aValue.ToCString()));
362     }
363     else if (aParam.IsEqual ("-color"))
364     {
365       theAspect->SetCommonColor (Quantity_Color (ViewerTest::GetColorFromName (theArgVec[++anIt])));
366     }
367     else if (aParam.IsEqual ("-extension"))
368     {
369       TCollection_AsciiString aLocalParam(theArgVec[++anIt]);
370       if (!aLocalParam.IsRealValue())
371       {
372         std::cerr << "Error: extension size for dimension should be real value.\n";
373         return 1;
374       }
375       theAspect->SetExtensionSize (Draw::Atof (aLocalParam.ToCString()));
376     }
377     else if (aParam.IsEqual ("-plane"))
378     {
379       TCollection_AsciiString aValue (theArgVec[++anIt]);
380       aValue.LowerCase();
381       if (aValue == "xoy")
382       {
383         theIsCustomPlane = Standard_True;
384         thePlane = gp_Pln (gp_Ax3 (gp::XOY()));
385       }
386       else if (aValue == "zox")
387       {
388         theIsCustomPlane = Standard_True;
389         thePlane = gp_Pln (gp_Ax3 (gp::ZOX()));
390       }
391       else if (aValue == "yoz")
392       {
393         theIsCustomPlane = Standard_True;
394         thePlane = gp_Pln (gp_Ax3 (gp::YOZ()));
395       }
396       else
397       {
398         std::cerr << "Error: wrong plane '" << aValue << "'.\n";
399         return 1;
400       }
401     }
402     else if (aParam.IsEqual ("-flyout"))
403     {
404       TCollection_AsciiString aLocalParam(theArgVec[++anIt]);
405       if (!aLocalParam.IsRealValue())
406       {
407         std::cerr << "Error: flyout for dimension should be real value.\n";
408         return 1;
409       }
410
411       theRealParams.Bind ("flyout", Draw::Atof (aLocalParam.ToCString()));
412     }
413     else if (aParam.IsEqual ("-value"))
414     {
415       TCollection_AsciiString aLocalParam(theArgVec[++anIt]);
416       if (!aLocalParam.IsRealValue())
417       {
418         std::cerr << "Error: dimension value for dimension should be real value.\n";
419         return 1;
420       }
421
422       theRealParams.Bind ("value", Draw::Atof (aLocalParam.ToCString()));
423     }
424     else if (aParam.IsEqual ("-modelunits"))
425     {
426       TCollection_AsciiString aLocalParam(theArgVec[++anIt]);
427
428       theStringParams.Bind ("modelunits", aLocalParam);
429     }
430     else if (aParam.IsEqual ("-dispunits"))
431     {
432       TCollection_AsciiString aLocalParam(theArgVec[++anIt]);
433
434       theStringParams.Bind ("dispunits", aLocalParam);
435     }
436     else
437     {
438       std::cerr << "Error: unknown parameter '" << aParam << "'.\n";
439       return 1;
440     }
441   }
442
443   return 0;
444 }
445
446 //=======================================================================
447 //function : SetDimensionParams
448 //purpose  : Sets parameters for dimension
449 //=======================================================================
450 static void SetDimensionParams (const Handle(AIS_Dimension)& theDim,
451                                 const NCollection_DataMap<TCollection_AsciiString, Standard_Real>& theRealParams,
452                                 const NCollection_DataMap<TCollection_AsciiString, TCollection_AsciiString>& theStringParams)
453 {
454   if (theRealParams.IsBound ("flyout"))
455   {
456     theDim->SetFlyout (theRealParams.Find ("flyout"));
457   }
458
459   if (theRealParams.IsBound ("value"))
460   {
461     theDim->SetCustomValue (theRealParams.Find ("value"));
462   }
463
464   if (theStringParams.IsBound ("modelunits"))
465   {
466     theDim->SetModelUnits (theStringParams.Find ("modelunits"));
467   }
468
469   if (theStringParams.IsBound ("dispunits"))
470   {
471     theDim->SetDisplayUnits (theStringParams.Find ("dispunits"));
472   }
473 }
474
475 //=======================================================================
476 //function : VDimBuilder
477 //purpose  : Command for building dimension presentations: angle,
478 //           length, radius, diameter
479 //=======================================================================
480 static int VDimBuilder (Draw_Interpretor& /*theDi*/,
481                         Standard_Integer  theArgsNb,
482                         const char**      theArgs)
483 {
484   if (theArgsNb < 2)
485   {
486     std::cerr << "Error: wrong number of arguments.\n";
487     return 1;
488   }
489
490   // Parse parameters
491   TCollection_AsciiString aName (theArgs[1]);
492
493   NCollection_List<Handle(AIS_InteractiveObject)> aShapes;
494   Handle(Prs3d_DimensionAspect) anAspect = new Prs3d_DimensionAspect;
495   Standard_Boolean isPlaneCustom = Standard_False;
496   gp_Pln aWorkingPlane;
497
498   NCollection_DataMap<TCollection_AsciiString, Standard_Real> aRealParams;
499   NCollection_DataMap<TCollection_AsciiString, TCollection_AsciiString> aStringParams;
500
501   TCollection_AsciiString aDimType(theArgs[2]);
502   aDimType.LowerCase();
503   AIS_KindOfDimension aKindOfDimension;
504   if (aDimType == "-length")
505   {
506     aKindOfDimension = AIS_KOD_LENGTH;
507   }
508   else if (aDimType == "-angle")
509   {
510     aKindOfDimension = AIS_KOD_PLANEANGLE;
511   }
512   else if (aDimType == "-radius")
513   {
514     aKindOfDimension = AIS_KOD_RADIUS;
515   }
516   else if (aDimType == "-diameter" || aDimType == "-diam")
517   {
518     aKindOfDimension = AIS_KOD_DIAMETER;
519   }
520   else
521   {
522     std::cerr << "Error: wrong type of dimension.\n";
523     return 1;
524   }
525
526
527   if (ParseDimensionParams (theArgsNb, theArgs, 3,
528                             anAspect,isPlaneCustom,aWorkingPlane,
529                             aRealParams, aStringParams, &aShapes))
530   {
531     return 1;
532   }
533
534   // Build dimension
535   Handle(AIS_Dimension) aDim;
536   switch (aKindOfDimension)
537   {
538     case AIS_KOD_LENGTH:
539     {
540       if (!isPlaneCustom)
541       {
542         std::cerr << theArgs[0] << ": can not build dimension without working plane.\n";
543         return 1;
544       }
545       if (aShapes.Extent() == 1)
546       {
547         if (aShapes.First()->Type() == AIS_KOI_Shape
548           && (Handle(AIS_Shape)::DownCast(aShapes.First()))->Shape().ShapeType() != TopAbs_EDGE)
549         {
550           std::cerr << theArgs[0] << ": wrong shape type.\n";
551           return 1;
552         }
553         // Adjust working plane
554         TopoDS_Edge anEdge = TopoDS::Edge ((Handle(AIS_Shape)::DownCast(aShapes.First()))->Shape());
555         TopoDS_Vertex aFirst, aSecond;
556         TopExp::Vertices (anEdge, aFirst, aSecond);
557         aDim = new AIS_LengthDimension (anEdge, aWorkingPlane);
558
559         // Move standard plane (XOY, YOZ or ZOX) to the first point to make it working for dimension
560         aWorkingPlane.SetLocation (Handle(AIS_LengthDimension)::DownCast (aDim)->FirstPoint());
561       }
562       else if (aShapes.Extent() == 2)
563       {
564         TopoDS_Shape aShape1, aShape2;
565
566         // Getting shapes
567         if (aShapes.First()->DynamicType() == STANDARD_TYPE (AIS_Point))
568         {
569           Handle(AIS_Point) aPoint1 = Handle(AIS_Point)::DownCast (aShapes.First ());
570           aShape1 = aPoint1->Vertex();
571         }
572         else if (aShapes.First()->Type() == AIS_KOI_Shape)
573         {
574           aShape1 = (Handle(AIS_Shape)::DownCast (aShapes.First()))->Shape();
575         }
576
577         if (aShapes.Last()->DynamicType() == STANDARD_TYPE (AIS_Point))
578         {
579           Handle(AIS_Point) aPoint2 = Handle(AIS_Point)::DownCast (aShapes.Last ());
580           aShape2 = aPoint2->Vertex();
581         }
582         else if (aShapes.Last()->Type() == AIS_KOI_Shape)
583         {
584           aShape2 = (Handle(AIS_Shape)::DownCast (aShapes.Last()))->Shape();
585         }
586
587         if (aShape1.IsNull() || aShape2.IsNull())
588         {
589           std::cerr << theArgs[0] << ": wrong shape type.\n";
590           return 1;
591         }
592
593         // Adjust working plane
594         if (aShape1.ShapeType() == TopAbs_VERTEX)
595         {
596           aWorkingPlane.SetLocation (BRep_Tool::Pnt (TopoDS::Vertex (aShape1)));
597         }
598         else if (aShape2.ShapeType() == TopAbs_VERTEX)
599         {
600           aWorkingPlane.SetLocation (BRep_Tool::Pnt (TopoDS::Vertex (aShape2)));
601         }
602
603         aDim = new AIS_LengthDimension (aShape1, aShape2, aWorkingPlane);
604       }
605       else
606       {
607         std::cerr << theArgs[0] << ": wrong number of shapes to build dimension.\n";
608         return 1;
609       }
610
611       break;
612     }
613     case AIS_KOD_PLANEANGLE:
614     {
615       if (aShapes.Extent() == 1 && aShapes.First()->Type()==AIS_KOI_Shape)
616       {
617         Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast(aShapes.First());
618         if (aShape->Shape().ShapeType() == TopAbs_FACE)
619           aDim = new AIS_AngleDimension (TopoDS::Face(aShape->Shape()));
620       }
621       if (aShapes.Extent() == 2)
622       {
623         Handle(AIS_Shape) aShape1 = Handle(AIS_Shape)::DownCast(aShapes.First());
624         Handle(AIS_Shape) aShape2 = Handle(AIS_Shape)::DownCast(aShapes.Last());
625         if (!aShape1.IsNull() && !aShape2.IsNull()
626           && aShape1->Shape().ShapeType() == TopAbs_EDGE
627           && aShape2->Shape().ShapeType() == TopAbs_EDGE)
628           aDim = new AIS_AngleDimension (TopoDS::Edge(aShape1->Shape()),TopoDS::Edge(aShape2->Shape()));
629         else
630         {
631           std::cerr << theArgs[0] << ": wrong shapes for angle dimension.\n";
632           return 1;
633         }
634       }
635       else if (aShapes.Extent() == 3)
636       {
637         gp_Pnt aP1, aP2, aP3;
638         Handle(AIS_Point) aPoint = Handle(AIS_Point)::DownCast (aShapes.First());
639         if (aPoint.IsNull())
640           return 1;
641         aP1 = aPoint->Component()->Pnt();
642         aShapes.RemoveFirst();
643         aPoint = Handle(AIS_Point)::DownCast (aShapes.First());
644         if (aPoint.IsNull())
645           return 1;
646         aP2 = aPoint->Component()->Pnt();
647         aShapes.RemoveFirst();
648         aPoint = Handle(AIS_Point)::DownCast (aShapes.First());
649         if (aPoint.IsNull())
650           return 1;
651         aP3 = aPoint->Component()->Pnt();
652         aDim = new AIS_AngleDimension (aP1, aP2, aP3);
653       }
654       else
655       {
656         std::cerr << theArgs[0] << ": wrong number of shapes to build dimension.\n";
657         return 1;
658       }
659
660       break;
661     }
662     case AIS_KOD_RADIUS: // radius of the circle
663     {
664       if (aShapes.Extent() == 1)
665       {
666         if (aShapes.First()->DynamicType() == STANDARD_TYPE(AIS_Circle))
667         {
668           Handle(AIS_Circle) aShape = Handle(AIS_Circle)::DownCast (aShapes.First());
669           gp_Circ aCircle = aShape->Circle()->Circ();
670           aDim = new AIS_RadiusDimension (aCircle);
671         }
672         else
673         {
674           Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast (aShapes.First());
675           if (aShape.IsNull())
676           {
677             std::cerr << "Error: shape for radius is of wrong type.\n";
678             return 1;
679           }
680           aDim = new AIS_RadiusDimension (aShape->Shape());
681         }
682       }
683       else
684       {
685         std::cerr << theArgs[0] << ": wrong number of shapes to build dimension.\n";
686         return 1;
687       }
688
689       break;
690     }
691     case AIS_KOD_DIAMETER:
692     {
693       if (aShapes.Extent() == 1)
694       {
695         if (aShapes.First()->DynamicType() == STANDARD_TYPE(AIS_Circle))
696         {
697           Handle(AIS_Circle) aShape = Handle(AIS_Circle)::DownCast (aShapes.First());
698           gp_Circ aCircle = aShape->Circle()->Circ();
699           aDim = new AIS_DiameterDimension (aCircle);
700         }
701         else
702         {
703           Handle(AIS_Shape) aShape = Handle(AIS_Shape)::DownCast (aShapes.First());
704           if (aShape.IsNull())
705           {
706             std::cerr << "Error: shape for radius is of wrong type.\n";
707             return 1;
708           }
709           aDim = new AIS_DiameterDimension (aShape->Shape());
710         }
711       }
712       else
713       {
714         std::cerr << theArgs[0] << ": wrong number of shapes to build dimension.\n";
715         return 1;
716       }
717
718       break;
719     }
720     default:
721     {
722       std::cerr << theArgs[0] << ": wrong type of dimension. Type help for more information.\n";
723       return 1;
724     }
725   }
726
727   // Check dimension geometry
728   if (!aDim->IsValid())
729   {
730     std::cerr << theArgs[0] << ":dimension geometry is invalid, " << aDimType.ToCString()
731       << " dimension can't be built on input shapes.\n";
732     return 1;
733   }
734
735   aDim->SetDimensionAspect (anAspect);
736
737   SetDimensionParams (aDim, aRealParams, aStringParams);
738
739   VDisplayAISObject (aName,aDim);
740
741   return 0;
742 }
743
744 //=======================================================================
745 //function : VAngleDimBuilder
746 //purpose  : 
747 //=======================================================================
748
749 static int VAngleDimBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
750 {
751   Standard_Integer aCurrentIndex;
752   if (argc!=2)
753   {
754     di << argv[0] << " error : wrong number of parameters.\n";
755     return 1;
756   }
757
758   TheAISContext()->CloseAllContexts();
759   aCurrentIndex =  TheAISContext()->OpenLocalContext();
760   // Set selection mode for edges.
761   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2));
762   di << "Select two edges coplanar or not.\n";
763
764   Standard_Integer anArgsNum = 5;
765   const char *aBuffer[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
766   const char **anArgsVec = (const char **) aBuffer;
767   while (ViewerMainLoop (anArgsNum, anArgsVec)) { }
768
769   TopoDS_Shape aFirstShape;
770   for (TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected())
771   {
772     aFirstShape = TheAISContext()->SelectedShape();
773   }
774
775   if (aFirstShape.IsNull())
776   {
777     di << argv[0] << " error : no picked shape.\n";
778     return 1;
779   }
780
781   if (aFirstShape.ShapeType()== TopAbs_EDGE)
782   {
783     while (ViewerMainLoop (anArgsNum, anArgsVec)) { }
784
785     TopoDS_Shape aSecondShape;
786     for (TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected())
787     {
788       aSecondShape = TheAISContext()->SelectedShape();
789     }
790
791     if (aSecondShape.IsNull())
792     {
793       di << argv[0] << " error : no picked shape.\n";
794       return 1;
795     }
796
797     if (aSecondShape.ShapeType() != TopAbs_EDGE)
798     {
799       di << argv[0] <<" error: you should have selected an edge.\n"; return 1;
800     }
801
802     // Close local context to draw dimension in the neutral point.
803     TheAISContext()->CloseLocalContext (aCurrentIndex);
804
805     // Construct the dimension.
806     Handle (AIS_AngleDimension) aDim= new AIS_AngleDimension (TopoDS::Edge(aFirstShape) ,TopoDS::Edge(aSecondShape));
807     VDisplayAISObject (argv[1], aDim);
808   }
809   else
810   {
811     di << argv[0] << " error: you must select 2 edges.\n";
812     return 1;
813   }
814
815   return 0;
816 }
817
818 //==============================================================================
819 //function : VDiameterDim
820 //purpose  : Display the diameter dimension of a face or an edge.
821 //Draw arg : vdiameterdim Name 
822 //==============================================================================
823
824 static int VDiameterDimBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
825 {
826   // Declarations
827   Standard_Integer aCurrentIndex;
828
829   // Verification
830   if (argc != 2)
831   {
832     di<<" vdiameterdim error"<<"\n";
833     return 1;
834   }
835
836   // Close all local contexts
837   TheAISContext()->CloseAllContexts();
838   // Open local context and get its index for recovery
839   TheAISContext()->OpenLocalContext();
840   aCurrentIndex = TheAISContext()->IndexOfCurrentLocal();
841   
842   // Activate 'edge' selection mode
843   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
844   di<<" Select an circled edge."<<"\n";
845   
846   // Loop that will handle the picking.
847   Standard_Integer argcc = 5;
848   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
849   const char **argvv = (const char **) buff;
850   while (ViewerMainLoop( argcc, argvv) ) { }
851   // end of the loop.
852   
853   TopoDS_Shape aShape;
854   for(TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected())
855   {
856     aShape = TheAISContext()->SelectedShape();
857   }
858
859   if (aShape.IsNull())
860   {
861     di << argv[0] << ": no shape is selected." << "\n";
862     return 1;
863   }
864
865   if (aShape.ShapeType() != TopAbs_EDGE)
866   {
867     di << " vdiameterdim error: the selection of a face or an edge was expected." << "\n";
868     return 1;
869   }
870
871   // Compute the radius
872   BRepAdaptor_Curve aCurve (TopoDS::Edge (aShape));
873
874   if (aCurve.GetType() != GeomAbs_Circle)
875   {
876     di << "vdiameterdim error: the edge is not a circular one." << "\n";
877     return 1;
878   }
879
880   // Construction of the diameter dimension.
881   TheAISContext()->CloseLocalContext (aCurrentIndex);
882   Handle (AIS_DiameterDimension) aDiamDim= new AIS_DiameterDimension (aShape);
883   VDisplayAISObject (argv[1], aDiamDim);
884
885   return 0;
886 }
887
888
889 //==============================================================================
890 // Fonction  vconcentric
891 // -----------------  Uniquement par selection dans le viewer.
892 //==============================================================================
893
894 //==============================================================================
895 //function : VConcentric
896 //purpose  : Display the concentric relation between two surfaces.
897 //Draw arg : vconcentric Name
898 //==============================================================================
899 #include <AIS_ConcentricRelation.hxx>
900 #include <Geom_Plane.hxx>
901 #include <gp_Pln.hxx>
902 #include <GC_MakePlane.hxx>
903 #include <BRepAdaptor_Curve.hxx>
904 #include <TopExp_Explorer.hxx>
905
906
907 static int VConcentricBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
908 {
909   // Declarations
910   Standard_Integer myCurrentIndex;
911   
912   // Verification
913   if (argc!=2) {di<<"vconcentric  error."<<"\n";return 1;}
914   // Fermeture des contextes locaux
915   TheAISContext()->CloseAllContexts();
916   // Ouverture d'un contexte local et recuperation de son index.
917   TheAISContext()->OpenLocalContext();
918   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
919   
920   // On active les modes de selections Edges et Faces.
921   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
922   di<<" Select a circled edge."<<"\n";
923   
924   // Boucle d'attente waitpick.
925   Standard_Integer argcc = 5;
926   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
927   const char **argvv = (const char **) buff;
928   while (ViewerMainLoop( argcc, argvv) ) { }
929   // fin de la boucle
930   
931   TopoDS_Shape ShapeA;
932   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
933     ShapeA = TheAISContext()->SelectedShape();
934   }
935   // ShapeA est un edge
936   // ==================
937   if (ShapeA.ShapeType()==TopAbs_EDGE  ) {
938     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(4) );
939     di<<" Select an edge."<<"\n";
940     
941     // Boucle d'attente waitpick.
942     Standard_Integer argccc = 5;
943     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
944     const char **argvvv = (const char **) bufff;
945     while (ViewerMainLoop( argccc, argvvv) ) { }
946     // fin de la boucle
947     
948     TopoDS_Shape ShapeB;
949     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
950       ShapeB = TheAISContext()->SelectedShape();
951     }
952     if (ShapeB.ShapeType()!=TopAbs_EDGE  ) {
953       di<<" vconcentric error: select an edge."<<"\n";return 1;
954     }
955      
956     // Construction du plane.
957     // On recupere le centre du cercle A.
958     BRepAdaptor_Curve theCurveA(TopoDS::Edge(ShapeA) );
959     gp_Circ theCircleA=theCurveA.Circle();
960     gp_Pnt theCenterA=theCircleA.Location();
961     // On recupere deux points sur le cercle A
962     gp_Pnt B= theCurveA.Value(0.25);
963     gp_Pnt C= theCurveA.Value(0.75);
964     // Construction du plane.
965     GC_MakePlane MkPlane(theCenterA ,B ,C );
966     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
967     
968     // Fermeture du context local
969     TheAISContext()->CloseLocalContext(myCurrentIndex);
970     
971     Handle (AIS_ConcentricRelation) myConcentry= new AIS_ConcentricRelation(ShapeA, ShapeB, theGeomPlane );
972     TheAISContext()->Display(myConcentry );
973     GetMapOfAIS().Bind (myConcentry,argv[1]);
974   }
975   
976   
977   else {
978     di<<" vconcentric  error: the selection of a face or an edge was expected."<<"\n";return 1;
979   }
980   
981   return 0;
982   
983   
984   
985   
986 }
987
988 //==============================================================================
989 //function : VEqualDistRelation
990 //purpose  : 
991 //Draw arg : vdiameterdim Name DiameterValue
992 //==============================================================================
993 #include <AIS_EqualDistanceRelation.hxx>
994 #include <BRepExtrema_ExtCC.hxx>
995 #include <GC_MakePlane.hxx>
996
997
998 static int VEqualDistRelation(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
999 {
1000   // Declarations
1001   Standard_Integer myCurrentIndex;
1002   
1003   // Verification
1004   if (argc!=2) {di<<" vequaldistrelation error: no arguments allowed."<<"\n";return 1;}
1005   
1006   // Fermeture des contextes locaux
1007   TheAISContext()->CloseAllContexts();
1008   
1009   // Ouverture d'un contexte local et recuperation de son index.
1010   TheAISContext()->OpenLocalContext();
1011   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
1012   
1013   // On active les modes de selections Edges et Vertexes.
1014   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
1015   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(1) );
1016   di<<" Select an edge or a vertex"<<"\n";
1017   
1018   // Boucle d'attente waitpick.
1019   Standard_Integer argc1 = 5;
1020   const char *buf1[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1021   const char **argv1 = (const char **) buf1;
1022   while (ViewerMainLoop( argc1, argv1) ) { }
1023   // fin de la boucle
1024   
1025   TopoDS_Shape ShapeA;
1026   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1027     ShapeA = TheAISContext()->SelectedShape();
1028   }
1029   
1030   di<<" Select an edge or a vertex"<<"\n";
1031   // Boucle d'attente waitpick.
1032   Standard_Integer argc2 = 5;
1033   const char *buf2[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1034   const char **argv2 = (const char **) buf2;
1035   while (ViewerMainLoop( argc2, argv2) ) { }
1036   // fin de la boucle
1037   
1038   TopoDS_Shape ShapeB;
1039   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1040     ShapeB = TheAISContext()->SelectedShape();
1041   }
1042   
1043   // Verification des resultats.
1044   if (ShapeA.ShapeType()==TopAbs_EDGE && ShapeB.ShapeType()==TopAbs_EDGE  ) {
1045     // A et B sont des edges ils doivent etre paralleles
1046     BRepExtrema_ExtCC myDeltaEdge (TopoDS::Edge(ShapeA) ,TopoDS::Edge(ShapeB)  );
1047     // on verifie qu'ils sont pas paralleles.
1048     if (!myDeltaEdge.IsParallel() ) {di<<"vequaldist error: non parallel edges."<<"\n";return 1; }
1049     
1050   }
1051   
1052   
1053   di<<" Select an edge or a vertex"<<"\n";
1054   // Boucle d'attente waitpick.
1055   Standard_Integer argc3 = 5;
1056   const char *buf3[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1057   const char **argv3 = (const char **) buf3;
1058   while (ViewerMainLoop( argc3, argv3) ) { }
1059   // fin de la boucle
1060   
1061   TopoDS_Shape ShapeC;
1062   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1063     ShapeC = TheAISContext()->SelectedShape();
1064   }
1065   
1066   di<<" Select an edge or a vertex"<<"\n";
1067   // Boucle d'attente waitpick.
1068   Standard_Integer argc4 = 5;
1069   const char *buf4[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1070   const char **argv4 = (const char **) buf4;
1071   while (ViewerMainLoop( argc4, argv4) ) { }
1072   // fin de la boucle
1073   
1074   TopoDS_Shape ShapeD;
1075   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1076     ShapeD = TheAISContext()->SelectedShape();
1077   }
1078   // Verification des resultats.
1079   if (ShapeC.ShapeType()==TopAbs_EDGE && ShapeD.ShapeType()==TopAbs_EDGE  ) {
1080     // C et D sont des edges ils doivent etre paralleles
1081     BRepExtrema_ExtCC myDeltaEdge2 (TopoDS::Edge(ShapeC) ,TopoDS::Edge(ShapeD)  );
1082     // on verifie qu'ils sont pas paralleles.
1083     if (!myDeltaEdge2.IsParallel() ) {di<<"vequaldist error: non parallel edges."<<"\n";return 1; }
1084     
1085   }
1086   
1087   // Creation du plan porteur de la contrainte.Methode lourde!
1088   gp_Pnt A,B,C;
1089   if (ShapeA.ShapeType()==TopAbs_EDGE) {
1090     // A est un edge
1091     TopoDS_Vertex Va,Vb;
1092     TopExp::Vertices (TopoDS::Edge(ShapeA) ,Va ,Vb );
1093     A=BRep_Tool::Pnt(Va);
1094     B=BRep_Tool::Pnt(Vb);
1095     
1096     if (ShapeB.ShapeType()==TopAbs_EDGE) {
1097       // B est un edge aussi
1098       TopoDS_Vertex Vc,Vd;
1099       TopExp::Vertices (TopoDS::Edge(ShapeB) ,Vc ,Vd );
1100       // besoin que de 1 point.
1101       C=BRep_Tool::Pnt(Vc);
1102       
1103     }
1104     else {
1105       // B est un vertex
1106       C=BRep_Tool::Pnt(TopoDS::Vertex(ShapeB) );
1107     }
1108   }
1109   else {
1110     // A est un vertex
1111     A=BRep_Tool::Pnt(TopoDS::Vertex(ShapeA) );
1112     
1113     if (ShapeB.ShapeType()==TopAbs_EDGE ) {
1114       // B est un edge 
1115       TopoDS_Vertex Vb,Vc;
1116       TopExp::Vertices (TopoDS::Edge(ShapeB) ,Vb ,Vc );
1117       // besoin que de 2 points.
1118       B=BRep_Tool::Pnt(Vb);
1119       C=BRep_Tool::Pnt(Vc);
1120       
1121     }
1122     else {
1123       // B est un vertex
1124       B=BRep_Tool::Pnt(TopoDS::Vertex(ShapeB) );
1125       C.SetX(B.X()+5.);
1126       C.SetY(B.Y()+5.);
1127       C.SetZ(B.Z()+5.);
1128       
1129     }
1130   }
1131   
1132   // Fermeture du context local.
1133   TheAISContext()->CloseLocalContext(myCurrentIndex);
1134   
1135   // construction du plane 
1136   GC_MakePlane MkPlane(A ,B ,C );
1137   Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
1138   
1139   // Construction de l'AIS_EqualDistanceRelation
1140   Handle (AIS_EqualDistanceRelation ) myRelation= new AIS_EqualDistanceRelation (ShapeA, ShapeB, ShapeC ,ShapeD , theGeomPlane );
1141   TheAISContext()->Display(myRelation );
1142   GetMapOfAIS().Bind (myRelation,argv[1]);
1143   
1144
1145   
1146   return 0;
1147   
1148 }
1149
1150 //==============================================================================
1151 //function : VEqualRadiusRelation
1152 //purpose  : 
1153 //Draw arg : vdiameterdim Name DiameterValue
1154 //==============================================================================
1155 #include <AIS_EqualRadiusRelation.hxx>
1156 #include <GC_MakePlane.hxx>
1157 #include <BRepAdaptor_Curve.hxx>
1158
1159
1160 static int VEqualRadiusRelation(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
1161 {
1162   // Declarations
1163   Standard_Integer myCurrentIndex;
1164   
1165   // Verification
1166   if (argc!=2) {di<<" vequalrad error: no arguments allowed."<<"\n";return 1;}
1167   
1168   // Fermeture des contextes locaux
1169   TheAISContext()->CloseAllContexts();
1170   
1171   // Ouverture d'un contexte local et recuperation de son index.
1172   TheAISContext()->OpenLocalContext();
1173   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
1174   
1175   // On active les modes de selections Edges.
1176   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
1177   di<<" Select an circled edge "<<"\n";
1178   
1179   // Boucle d'attente waitpick.
1180   Standard_Integer argc1 = 5;
1181   const char *buf1[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1182   const char **argv1 = (const char **) buf1;
1183   while (ViewerMainLoop( argc1, argv1) ) { }
1184   // fin de la boucle
1185   
1186   TopoDS_Shape ShapeA;
1187   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1188     ShapeA = TheAISContext()->SelectedShape();
1189   }
1190   
1191   di<<" Select the last circled edge."<<"\n";
1192   // Boucle d'attente waitpick.
1193   Standard_Integer argc2 = 5;
1194   const char *buf2[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1195   const char **argv2 = (const char **) buf2;
1196   while (ViewerMainLoop( argc2, argv2) ) { }
1197   // fin de la boucle
1198   
1199   TopoDS_Shape ShapeB;
1200   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1201     ShapeB = TheAISContext()->SelectedShape();
1202   }
1203   // creation du plan qui contient la contrainte.
1204   TopoDS_Edge EdgeA=TopoDS::Edge(ShapeA);
1205   TopoDS_Edge EdgeB=TopoDS::Edge(ShapeB);
1206   BRepAdaptor_Curve theCurveA(EdgeA);
1207   // On recupere 3 points A,B,C de la curve.
1208   gp_Pnt A=theCurveA.Value(0.1);
1209   gp_Pnt B=theCurveA.Value(0.5);
1210   gp_Pnt C=theCurveA.Value(0.9);
1211   
1212   // fermeture du contexte local.
1213   TheAISContext()->CloseLocalContext(myCurrentIndex);
1214   
1215   // Creation du plane.
1216   GC_MakePlane MkPlane (A ,B ,C );
1217   Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
1218   // Construction de l'AIS_EqualRadiusRelation
1219   Handle (AIS_EqualRadiusRelation ) myRelation= new AIS_EqualRadiusRelation (EdgeA,EdgeB, theGeomPlane );
1220   TheAISContext()->Display(myRelation );
1221   GetMapOfAIS().Bind (myRelation,argv[1]);
1222   
1223   return 0;
1224   
1225 }
1226
1227
1228 //==============================================================================
1229 //function : VFixRelation
1230 //purpose  : 
1231 //Draw arg : vdiameterdim Name DiameterValue
1232 //==============================================================================
1233 #include <AIS_FixRelation.hxx>
1234 #include <GC_MakePlane.hxx>
1235 #include <BRepAdaptor_Curve.hxx>
1236
1237 static int VFixRelation(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
1238 {
1239   // Declarations
1240   Standard_Integer myCurrentIndex;
1241   
1242   // Verification
1243   if (argc!=2) {di<<" vfix  error: no arguments allowed."<<"\n";return 1;}
1244   
1245   // Fermeture des contextes locaux
1246   TheAISContext()->CloseAllContexts();
1247   
1248   // Ouverture d'un contexte local et recuperation de son index.
1249   TheAISContext()->OpenLocalContext();
1250   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
1251   
1252   // On active les modes de selections edge.
1253   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
1254   di<<" Select an edge. "<<"\n";
1255   
1256   // Boucle d'attente waitpick.
1257   Standard_Integer argc1 = 5;
1258   const char *buf1[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1259   const char **argv1 = (const char **) buf1;
1260   while (ViewerMainLoop( argc1, argv1) ) { }
1261   // fin de la boucle
1262   
1263   TopoDS_Shape ShapeA;
1264   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1265     ShapeA = TheAISContext()->SelectedShape();
1266   }
1267   
1268   // creation du plan qui contient la contrainte.
1269   TopoDS_Edge EdgeA=TopoDS::Edge(ShapeA);
1270   BRepAdaptor_Curve theCurveA(EdgeA);
1271   // On recupere 3 points A,B,C de la curve.
1272   gp_Pnt A=theCurveA.Value(0.1);
1273   gp_Pnt B=theCurveA.Value(0.5);
1274   gp_Pnt D=theCurveA.Value(0.9);
1275   gp_Pnt C(B.X()+5,B.Y()+5,B.Z()+5);
1276   
1277   // fermeture du contexte local.
1278   TheAISContext()->CloseLocalContext(myCurrentIndex);
1279   
1280   // Creation du plane.
1281   GC_MakePlane MkPlane (A ,D ,C );
1282   Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
1283   // Construction de l'AIS_EqualRadiusRelation
1284   Handle (AIS_FixRelation) myRelation= new AIS_FixRelation (EdgeA,theGeomPlane );
1285   TheAISContext()->Display(myRelation );
1286   GetMapOfAIS().Bind (myRelation,argv[1]);
1287   
1288   
1289   return 0;
1290   
1291 }
1292
1293 //==============================================================================
1294 //function : VIdenticRelation
1295 //purpose  : 
1296 //Draw arg : vdiameterdim Name DiameterValue
1297 //==============================================================================
1298 #include <AIS_IdenticRelation.hxx>
1299 #include <BRepAdaptor_Curve.hxx>
1300 #include <TopExp_Explorer.hxx>
1301
1302
1303 static int VIdenticRelation(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
1304 {
1305   // Declarations
1306   Standard_Integer myCurrentIndex;
1307   
1308   // Verification
1309   if (argc!=2) {di<<" videntity error: no arguments allowed."<<"\n";return 1;}
1310   
1311   // Fermeture des contextes locaux
1312   TheAISContext()->CloseAllContexts();
1313   
1314   // Ouverture d'un contexte local et recuperation de son index.
1315   TheAISContext()->OpenLocalContext();
1316   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
1317   
1318   // On active les modes de selections  vertex et face.
1319   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
1320   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(1) );
1321   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(4) );
1322   di<<" Select an edge, a face or a vertex. "<<"\n";
1323   
1324   // Boucle d'attente waitpick.
1325   Standard_Integer argc1 = 5;
1326   const char *buf1[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1327   const char **argv1 = (const char **) buf1;
1328   while (ViewerMainLoop( argc1, argv1) ) { }
1329   // fin de la boucle
1330   
1331   TopoDS_Shape ShapeA;
1332   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1333     ShapeA = TheAISContext()->SelectedShape();
1334   }
1335   
1336   di<<" Select an edge, a face or a vertex. "<<"\n";
1337   // Boucle d'attente waitpick.
1338   Standard_Integer argc2 = 5;
1339   const char *buf2[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1340   const char **argv2 = (const char **) buf2;
1341   while (ViewerMainLoop( argc2, argv2) ) { }
1342   // fin de la boucle
1343   
1344   TopoDS_Shape ShapeB;
1345   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1346     ShapeB = TheAISContext()->SelectedShape();
1347   }
1348   
1349   // Recuperation de points pour construir le Geom_Plnae.
1350   gp_Pnt A,B,C;
1351   if (ShapeA.ShapeType()==TopAbs_EDGE) {
1352     // A est un edge; on peut supposer qu'il sera element d'une face ou possesseur d'un vertex ou identic a un autre edge.
1353     // on recupere deux points sur l'edge (il peut etre rectiligne)
1354     TopoDS_Edge EdgeA=TopoDS::Edge(ShapeA);
1355     BRepAdaptor_Curve theCurveA(EdgeA);
1356     // Creation des 3 points.
1357     A=theCurveA.Value(0.1);
1358     B=theCurveA.Value(0.9);
1359     C.SetX(B.X()+5.);
1360     C.SetY(B.Y()+5.);
1361     C.SetZ(B.Z()+5.);
1362   }
1363   else if (ShapeA.ShapeType()==TopAbs_VERTEX ) {
1364     // SahpeA est un Vertex
1365     // On va utiliser ShapeB
1366     if (ShapeB.ShapeType()==TopAbs_EDGE) {
1367       // B est un edge 
1368       TopoDS_Edge EdgeB=TopoDS::Edge(ShapeB);
1369       BRepAdaptor_Curve theCurveB(EdgeB);
1370       // Creation des 3 points.
1371       A=theCurveB.Value(0.1);
1372       B=theCurveB.Value(0.9);
1373       C.SetX(B.X()+5.);
1374       C.SetY(B.Y()+5.);
1375       C.SetZ(B.Z()+5.);
1376       
1377     }
1378     else if (ShapeB.ShapeType()==TopAbs_FACE ) {
1379       // Shape B est une face
1380       TopoDS_Face  FaceB=TopoDS::Face(ShapeB);
1381       // On recupere 1 edge de FaceB(la face n'a pas forcement de vertex) (l'element A est forcement dans B).
1382       TopExp_Explorer FaceExp(FaceB,TopAbs_EDGE);
1383       TopoDS_Edge EdgeFromB=TopoDS::Edge(FaceExp.Current() );
1384       // On recupere les 3 points de l'edge de face B
1385       BRepAdaptor_Curve theCurveB(EdgeFromB);
1386       // On recupere 3 points A,B,C de la curve.
1387       A=theCurveB.Value(0.1);
1388       B=theCurveB.Value(0.5);
1389       C=theCurveB.Value(0.9);
1390       
1391     }
1392     else {
1393       // B ets un vetex aussi
1394       A=BRep_Tool::Pnt(TopoDS::Vertex(ShapeA) );
1395       B=BRep_Tool::Pnt(TopoDS::Vertex(ShapeB) );
1396       C.SetX(B.X()+5.);
1397       C.SetY(B.Y()+5.);
1398       C.SetZ(B.Z()+5.);
1399       
1400     }
1401     
1402   }
1403   else {
1404     // A est une face.
1405     TopoDS_Face  FaceA=TopoDS::Face(ShapeA);
1406     // On recupere 1 edge de FaceA
1407     TopExp_Explorer FaceExp(FaceA,TopAbs_EDGE);
1408     TopoDS_Edge EdgeFromA=TopoDS::Edge(FaceExp.Current() );
1409     // On recupere les 3 points de l'edge
1410     BRepAdaptor_Curve theCurveA(EdgeFromA);
1411     // On recupere 3 points A,B,C de la curve.
1412     A=theCurveA.Value(0.1);
1413     B=theCurveA.Value(0.5);
1414     C=theCurveA.Value(0.9);
1415     
1416   }
1417   
1418   // Fermeture du context local.
1419   TheAISContext()->CloseLocalContext(myCurrentIndex);
1420   // On construit le plane 
1421   GC_MakePlane MkPlane (A ,B ,C );
1422   Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
1423   
1424   // Construction de l'AIS_IdenticRelation
1425   Handle ( AIS_IdenticRelation ) myRelation= new AIS_IdenticRelation  (ShapeA ,ShapeB, theGeomPlane );
1426   TheAISContext()->Display(myRelation );
1427   GetMapOfAIS().Bind (myRelation,argv[1]);
1428   
1429
1430   
1431   return 0;
1432   
1433 }
1434 //==============================================================================
1435 //function : VLengthDimension
1436 //purpose  : Display the diameter dimension of a face or an edge.
1437 //Draw arg : vdiameterdim Name DiameterValue
1438 //==============================================================================
1439 #include <AIS_LengthDimension.hxx>
1440 #include <BRepExtrema_ExtCC.hxx>
1441 #include <BRepExtrema_ExtPC.hxx>
1442 #include <BRepExtrema_ExtCF.hxx>
1443 #include <BRepExtrema_ExtPF.hxx>
1444 #include <BRepExtrema_ExtFF.hxx>
1445 #include <TCollection_ExtendedString.hxx>
1446 #include <BRepExtrema_DistShapeShape.hxx>
1447 #include <gce_MakePln.hxx>
1448 #include <TopExp_Explorer.hxx>
1449 #include <BRepBuilderAPI_MakeVertex.hxx>
1450
1451 static int VLenghtDimension(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
1452 {
1453   // Declarations
1454   Standard_Integer aCurrentIndex;
1455   // Verification
1456   if (argc != 2)
1457   {
1458     di << argv[0] << " error: wrong number of arguments.\n";
1459     return 1;
1460   }
1461
1462   // Close all local contexts
1463   TheAISContext()->CloseAllContexts();
1464
1465   // Open local context
1466   aCurrentIndex = TheAISContext()->OpenLocalContext();
1467   // Activate 'edge', 'face' and 'vertex' selection modes.
1468   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2));
1469   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(1));
1470   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(4));
1471
1472   // First shape picking
1473   di << " Select an edge, a face or a vertex. " << "\n";
1474   // Loop that will handle the picking.
1475   Standard_Integer argc1 = 5;
1476   const char *buf1[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1477   const char **argv1 = (const char **) buf1;
1478   while (ViewerMainLoop( argc1, argv1) ) { }
1479   // end of the loop.
1480
1481   TopoDS_Shape aFirstShape;
1482   for(TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected())
1483   {
1484     aFirstShape = TheAISContext()->SelectedShape();
1485   }
1486
1487   if (aFirstShape.IsNull())
1488   {
1489     di << argv[0] << "error: no first picked shape.\n";
1490     return 1;
1491   }
1492
1493   // Second shape picking
1494   di << " Select an edge, a face or a vertex. " << "\n";
1495   // Loop that will handle the picking.
1496   Standard_Integer argc2 = 5;
1497   const char *buf2[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1498   const char **argv2 = (const char **) buf2;
1499   while (ViewerMainLoop( argc2, argv2) ) { }
1500
1501   TopoDS_Shape aSecondShape;
1502   for(TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected())
1503   {
1504     aSecondShape = TheAISContext()->SelectedShape();
1505   }
1506
1507   if (aSecondShape.IsNull())
1508   {
1509     di << argv[0] << "error: no second picked shape.\n";
1510     return 1;
1511   }
1512
1513   if (aFirstShape.ShapeType() == TopAbs_EDGE)
1514   {
1515     TopoDS_Edge EdgeA = TopoDS::Edge (aFirstShape);
1516
1517     if (aSecondShape.ShapeType() == TopAbs_EDGE)
1518     {
1519       TopoDS_Edge EdgeB = TopoDS::Edge (aSecondShape);
1520       BRepExtrema_ExtCC myDeltaEdge (EdgeA ,EdgeB);
1521
1522       if (!myDeltaEdge.IsParallel())
1523       {
1524         di << argv[0] << " error: non parallel edges." << "\n";
1525         return 1;
1526       }
1527
1528       // 3 points of edges is recovered to build a plane
1529       TopoDS_Vertex aVertex1, aVertex2, aVertex3, aVertex4;
1530       TopExp::Vertices (EdgeA, aVertex1, aVertex2);
1531       TopExp::Vertices (EdgeB, aVertex3, aVertex4);
1532       gp_Pnt A = BRep_Tool::Pnt (aVertex1);
1533       gp_Pnt B = BRep_Tool::Pnt (aVertex2);
1534       gp_Pnt C = BRep_Tool::Pnt (aVertex3);
1535
1536       gce_MakePln aMakePlane (A,B,C);
1537       gp_Pln aPlane= aMakePlane.Value();
1538
1539       // Close local context
1540       TheAISContext()->CloseLocalContext (aCurrentIndex);
1541
1542       // Construct the dimension
1543       Handle(AIS_LengthDimension ) aLenghtDim = new AIS_LengthDimension (EdgeA, EdgeB, aPlane);
1544       TheAISContext()->Display (aLenghtDim);
1545       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1546     }
1547
1548     else if (aSecondShape.ShapeType() == TopAbs_VERTEX)
1549     {
1550       TopoDS_Vertex aVertex = TopoDS::Vertex (aSecondShape);
1551       BRepExtrema_ExtPC myDeltaEdgeVertex  (aVertex ,EdgeA);
1552
1553       TopoDS_Vertex aVertex1, aVertex2;
1554       TopExp::Vertices (EdgeA, aVertex1, aVertex2);
1555       gp_Pnt A=BRep_Tool::Pnt (aVertex1);
1556       gp_Pnt B=BRep_Tool::Pnt (aVertex2);
1557       gp_Pnt C=BRep_Tool::Pnt (aVertex);
1558
1559       gce_MakePln aMakePlane (A,B,C);
1560       gp_Pln aPlane= aMakePlane.Value();
1561
1562       TheAISContext()->CloseLocalContext (aCurrentIndex);
1563       Handle(AIS_LengthDimension) aLenghtDim=new AIS_LengthDimension (EdgeA, aVertex, aPlane);
1564       TheAISContext()->Display (aLenghtDim);
1565       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1566     }
1567
1568     // Second shape is a face
1569     else
1570     {
1571       TopoDS_Face FaceB = TopoDS::Face (aSecondShape);
1572       BRepExtrema_ExtCF aDeltaEdgeFace (EdgeA,FaceB);
1573
1574       if (!aDeltaEdgeFace.IsParallel())
1575       {
1576         di << argv[0] << "error: the edge isn't parallel to the face;can't compute the distance." << "\n";
1577         return 1;
1578       }
1579
1580       Handle(AIS_LengthDimension) aLenghtDim = new AIS_LengthDimension (FaceB, EdgeA);
1581       TheAISContext()->Display (aLenghtDim);
1582       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1583     }
1584   }
1585   else if (aFirstShape.ShapeType() == TopAbs_VERTEX)
1586   {
1587     TopoDS_Vertex  VertexA = TopoDS::Vertex (aFirstShape);
1588     if (aSecondShape.ShapeType() == TopAbs_EDGE )
1589     {
1590       TopoDS_Edge  EdgeB=TopoDS::Edge (aSecondShape);
1591       BRepExtrema_ExtPC aDeltaEdgeVertex (VertexA, EdgeB);
1592
1593       TopoDS_Vertex aVertex1, aVertex2;
1594       TopExp::Vertices(EdgeB, aVertex1, aVertex2);
1595       gp_Pnt A = BRep_Tool::Pnt (aVertex1);
1596       gp_Pnt B = BRep_Tool::Pnt (aVertex2);
1597       gp_Pnt C = BRep_Tool::Pnt (VertexA);
1598
1599       gce_MakePln aMakePlane (A,B,C);
1600       gp_Pln aPlane = aMakePlane.Value();
1601
1602       // Close local contex by its index.
1603       TheAISContext()->CloseLocalContext (aCurrentIndex);
1604
1605       // Construct the dimension.
1606       Handle(AIS_LengthDimension) aLenghtDim = new AIS_LengthDimension (EdgeB,VertexA, aPlane);
1607       TheAISContext()->Display (aLenghtDim);
1608       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1609     }
1610
1611     else if (aSecondShape.ShapeType() == TopAbs_VERTEX)
1612     {
1613       TopoDS_Vertex  VertexB = TopoDS::Vertex (aSecondShape);
1614
1615       gp_Pnt A = BRep_Tool::Pnt (VertexA);
1616       gp_Pnt B = BRep_Tool::Pnt (VertexB);
1617       gp_Pnt C(B.X() + 10.0, B.Y() + 10.0, B.Z() + 10.0);
1618
1619       gce_MakePln aMakePlane (A,B,C);
1620       gp_Pln aPlane= aMakePlane.Value();
1621
1622       TheAISContext()->CloseLocalContext (aCurrentIndex);
1623
1624       Handle(AIS_LengthDimension ) aLenghtDim = new AIS_LengthDimension (VertexA, VertexB, aPlane);
1625       TheAISContext()->Display (aLenghtDim);
1626       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1627     }
1628     // The second shape is face
1629     else
1630     {
1631       TopoDS_Face  FaceB = TopoDS::Face (aSecondShape);
1632
1633       BRepExtrema_ExtPF aDeltaVertexFace (VertexA, FaceB);
1634
1635       gp_Pnt A = BRep_Tool::Pnt (VertexA);
1636
1637       // Recover edge from face.
1638       TopExp_Explorer aFaceExp (FaceB,TopAbs_EDGE);
1639       TopoDS_Edge aSecondEdge = TopoDS::Edge (aFaceExp.Current());
1640
1641       TopoDS_Vertex aVertex1, aVertex2;
1642       TopExp::Vertices (aSecondEdge, aVertex1, aVertex2);
1643       gp_Pnt C = BRep_Tool::Pnt (aVertex2);
1644
1645       gp_Pnt aProjA = aDeltaVertexFace.Point(1);
1646       BRepBuilderAPI_MakeVertex aVertexMaker (aProjA);
1647       TopoDS_Vertex aVertexAProj = aVertexMaker.Vertex();
1648
1649       // Create working plane for the dimension.
1650       gce_MakePln aMakePlane (A, aProjA, C);
1651       gp_Pln aPlane = aMakePlane.Value();
1652
1653       TheAISContext()->CloseLocalContext (aCurrentIndex);
1654
1655       // Construct the dimension.
1656       Handle(AIS_LengthDimension ) aLenghtDim = new AIS_LengthDimension (VertexA, aVertexAProj, aPlane);
1657       TheAISContext()->Display (aLenghtDim);
1658       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1659     }
1660   }
1661
1662   // The first shape is a face.
1663   else
1664   {
1665     TopoDS_Face FaceA = TopoDS::Face (aFirstShape);
1666
1667     if (aSecondShape.ShapeType() == TopAbs_EDGE)
1668     {
1669       TopoDS_Edge EdgeB = TopoDS::Edge (aSecondShape);
1670       BRepExtrema_ExtCF aDeltaEdgeFace (EdgeB,FaceA );
1671
1672       if (!aDeltaEdgeFace.IsParallel())
1673       {
1674         di << argv[0] << " error: the edge isn't parallel to the face;can't compute the distance. " << "\n";
1675         return 1;
1676       }
1677
1678       Handle(AIS_LengthDimension) aLenghtDim = new AIS_LengthDimension (FaceA, EdgeB);
1679       TheAISContext()->Display (aLenghtDim);
1680       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1681     }
1682
1683     else if (aSecondShape.ShapeType() == TopAbs_VERTEX)
1684     {
1685       TopoDS_Vertex  VertexB = TopoDS::Vertex (aSecondShape);
1686       BRepExtrema_ExtPF aDeltaVertexFace (VertexB, FaceA);
1687
1688       gp_Pnt B = BRep_Tool::Pnt (VertexB);
1689
1690       TopExp_Explorer aFaceExp (FaceA, TopAbs_EDGE);
1691       TopoDS_Edge anEdgeFromA = TopoDS::Edge (aFaceExp.Current());
1692       TopoDS_Vertex  aVertex1, aVertex2;
1693       TopExp::Vertices(anEdgeFromA, aVertex1, aVertex2);
1694       gp_Pnt A=BRep_Tool::Pnt(aVertex1);
1695
1696 #ifdef OCCT_DEBUG
1697       gp_Pnt C = BRep_Tool::Pnt(aVertex2); (void)C;
1698 #endif
1699
1700       gp_Pnt aProjB = aDeltaVertexFace.Point(1);
1701       BRepBuilderAPI_MakeVertex aVertexMaker (aProjB);
1702       TopoDS_Vertex aVertexBProj = aVertexMaker.Vertex();
1703       gce_MakePln aMakePlane (A, B, aProjB);
1704       gp_Pln aPlane= aMakePlane.Value();
1705
1706       TheAISContext()->CloseLocalContext(aCurrentIndex);
1707
1708       Handle(AIS_LengthDimension) aLenghtDim  =new AIS_LengthDimension (VertexB, aVertexBProj, aPlane);
1709       TheAISContext()->Display (aLenghtDim);
1710       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1711     }
1712     // the second shape is face.
1713     else
1714     {
1715       TopoDS_Face FaceB = TopoDS::Face (aSecondShape);
1716       BRepExtrema_ExtFF aDeltaFaceFace (FaceA, FaceB);
1717
1718       if (!aDeltaFaceFace.IsParallel())
1719       {
1720         di << argv[0] << " error: the faces are not parallel. "<<"\n";
1721         return 1;
1722       }
1723
1724       TheAISContext()->CloseLocalContext (aCurrentIndex);
1725
1726       Handle(AIS_LengthDimension) aLenghtDim = new AIS_LengthDimension (FaceA,FaceB);
1727       TheAISContext()->Display (aLenghtDim);
1728       GetMapOfAIS().Bind (aLenghtDim, argv[1]);
1729     }
1730   }
1731
1732   return 0;
1733 }
1734
1735
1736 //==============================================================================
1737 //function : VRadiusDim
1738 //purpose  : Display the radius dimension of a face or an edge.
1739 //Draw arg : vradiusdim Name 
1740 //==============================================================================
1741 #include <AIS_RadiusDimension.hxx>
1742 #include <TCollection_ExtendedString.hxx>
1743 #include <BRepAdaptor_Curve.hxx>
1744 #include <gp_Circ.hxx>
1745
1746
1747 static int VRadiusDimBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
1748 {
1749   // Declarations
1750   Standard_Integer aCurrentIndex;
1751   TopoDS_Edge anEdge;
1752   // Verification
1753   if (argc != 2)
1754   {
1755     di << argv[0] << " error: wrong number of parameters." << "\n";
1756     return 1;
1757   }
1758
1759   // Close all local contexts
1760   TheAISContext()->CloseAllContexts();
1761
1762   // Open local context and get its index for recovery.
1763   TheAISContext()->OpenLocalContext();
1764   aCurrentIndex = TheAISContext()->IndexOfCurrentLocal();
1765
1766   // Current selection modes - faces and edges
1767   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2));
1768   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(4));
1769   di << " Select a circled edge or face." << "\n";
1770
1771   // Loop that will be handle picking.
1772   Standard_Integer argcc = 5;
1773   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1774   const char **argvv = (const char **) buff;
1775   while (ViewerMainLoop (argcc, argvv)) { }
1776   // end of the loop
1777
1778   TopoDS_Shape aShape;
1779
1780   for (TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected() )
1781   {
1782     aShape = TheAISContext()->SelectedShape();
1783   }
1784
1785   if (aShape.IsNull())
1786   {
1787     di << argv[0] << ": no shape is selected." << "\n";
1788     return 1;
1789   }
1790
1791   if (aShape.ShapeType() != TopAbs_EDGE && aShape.ShapeType() != TopAbs_FACE)
1792   {
1793     di << argv[0] << " error: the selection of a face or an edge was expected." << "\n";
1794     return 1;
1795   }
1796
1797   if (aShape.ShapeType() == TopAbs_EDGE)
1798   {
1799     anEdge = TopoDS::Edge (aShape);
1800   }
1801   else // Face
1802   {
1803     // Recover an edge of the face.
1804     TopoDS_Face aFace = TopoDS::Face (aShape);
1805
1806     TopExp_Explorer aFaceExp (aFace,TopAbs_EDGE);
1807     anEdge = TopoDS::Edge (aFaceExp.Current());
1808   }
1809
1810   // Compute the radius
1811   BRepAdaptor_Curve aCurve (anEdge);
1812   if (aCurve.GetType() != GeomAbs_Circle)
1813   {
1814     di << argv[0] << " error: the edge is not a circular one." << "\n";
1815     return 1;
1816   }
1817   // Close the context
1818   TheAISContext()->CloseLocalContext (aCurrentIndex);
1819
1820   // Construct radius dimension
1821   Handle (AIS_RadiusDimension) aRadDim= new AIS_RadiusDimension (aShape);
1822   VDisplayAISObject (argv[1], aRadDim);
1823
1824   return 0;
1825 }
1826
1827
1828
1829 //==============================================================================
1830 //function : VOffsetDim
1831 //purpose  : Display the offset dimension
1832 //Draw arg : voffsetdim Name 
1833 //==============================================================================
1834 #include <AIS_OffsetDimension.hxx>
1835 #include <TCollection_ExtendedString.hxx>
1836 #include <BRepExtrema_ExtFF.hxx>
1837
1838
1839 static int VOffsetDimBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
1840 {
1841   // Declarations
1842   Standard_Integer myCurrentIndex;
1843   Standard_Real    theDist;
1844   
1845   // Verification
1846   if (argc!=2) {di<<" voffsetdim error"<<"\n";return 1;}
1847   
1848   // Fermeture des contextes locaux
1849   TheAISContext()->CloseAllContexts();
1850   
1851   // Ouverture d'un contexte local et recuperation de son index.
1852   TheAISContext()->OpenLocalContext();
1853   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
1854   
1855   // On active les modes de selections Faces.
1856   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(4) );
1857   di<<" Select a face."<<"\n";
1858   
1859   // Boucle d'attente waitpick.
1860   Standard_Integer argcc = 5;
1861   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1862   const char **argvv = (const char **) buff;
1863   while (ViewerMainLoop( argcc, argvv) ) { }
1864   // fin de la boucle
1865   
1866   TopoDS_Shape ShapeA;
1867   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1868     ShapeA = TheAISContext()->SelectedShape();
1869   }
1870   
1871   di<<" Select a face."<<"\n";
1872   // Boucle d'attente waitpick.
1873   Standard_Integer argccc = 5;
1874   const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1875   const char **argvvv = (const char **) bufff;
1876   while (ViewerMainLoop( argccc, argvvv) ) { }
1877   // fin de la boucle
1878   
1879   TopoDS_Shape ShapeB;
1880   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1881     ShapeB = TheAISContext()->SelectedShape();
1882   }
1883   
1884   
1885   // Shape A et B est une face
1886   if (ShapeA.ShapeType()==TopAbs_FACE && ShapeB.ShapeType()==TopAbs_FACE ) {
1887     
1888     TopoDS_Face  FaceA=TopoDS::Face(ShapeA);
1889     TopoDS_Face  FaceB=TopoDS::Face(ShapeB);
1890     
1891     BRepExtrema_ExtFF myDeltaFaceFace  (FaceA ,FaceB );
1892     // On verifie que les deux faces sont bien parelles.
1893     if (!myDeltaFaceFace.IsParallel() ) {di<<"vdistdim error: the faces are not parallel. "<<"\n";return 1; }
1894     
1895     // On saisit la distance et on l'arrondit!
1896     theDist=Round (sqrt (myDeltaFaceFace.SquareDistance(1))*10. )/10.;
1897     // Fermeture du contexte local.
1898     TheAISContext()->CloseLocalContext(myCurrentIndex);
1899     // Construction du texte.
1900     TCollection_ExtendedString TheMessage_Str(TCollection_ExtendedString("offset=")+TCollection_ExtendedString(theDist ) );
1901     
1902     // on construit l'AIS_OffsetDimension
1903     Handle(AIS_OffsetDimension) myOffsetDim=new AIS_OffsetDimension (FaceA,FaceB,theDist,TheMessage_Str );
1904     TheAISContext()->Display(myOffsetDim );
1905     GetMapOfAIS().Bind (myOffsetDim ,argv[1]);
1906     
1907     
1908     
1909   }
1910   
1911   else {
1912     di<<" voffsetdim error: the selection of a face was expected."<<"\n";return 1;
1913   }
1914   
1915   return 0;
1916   
1917 }
1918
1919
1920
1921
1922 //==============================================================================
1923 //function : VParallel
1924 //purpose  : Display the parallel relation 
1925 //Draw arg : vparallel Name 
1926 //==============================================================================
1927 #include <AIS_ParallelRelation.hxx>
1928 #include <TCollection_ExtendedString.hxx>
1929 #include <BRepExtrema_ExtFF.hxx>
1930 #include <BRepExtrema_ExtCC.hxx>
1931 #include <GC_MakePlane.hxx>
1932 #include <BRepAdaptor_Curve.hxx>
1933 #include <TopExp_Explorer.hxx>
1934
1935
1936 static int VParallelBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
1937 {
1938   // Declarations
1939   Standard_Integer myCurrentIndex;
1940  
1941   // Verification
1942   if (argc!=2) {di<<" vparallel error"<<"\n";return 1;}
1943   
1944   // Fermeture des contextes locaux
1945   TheAISContext()->CloseAllContexts();
1946   
1947   // Ouverture d'un contexte local et recuperation de son index.
1948   TheAISContext()->OpenLocalContext();
1949   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
1950   
1951   // On active les modes de selections Edges.
1952   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
1953   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(4) );
1954   di<<" Select an edge or a face "<<"\n";
1955   
1956   // Boucle d'attente waitpick.
1957   Standard_Integer argcc = 5;
1958   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1959   const char **argvv = (const char **) buff;
1960   while (ViewerMainLoop( argcc, argvv) ) { }
1961   // fin de la boucle
1962   
1963   TopoDS_Shape ShapeA;
1964   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1965     ShapeA = TheAISContext()->SelectedShape();
1966   }
1967   
1968   // SahpeA est un edge.
1969   // ===================
1970   if (ShapeA.ShapeType()==TopAbs_EDGE ) {
1971     
1972     // desactivation du mode face
1973     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(4) );
1974     di<<" Select a second edge"<<"\n";
1975     // Boucle d'attente waitpick.
1976     Standard_Integer argccc = 5;
1977     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
1978     const char **argvvv = (const char **) bufff;
1979     while (ViewerMainLoop( argccc, argvvv) ) { }
1980     // fin de la boucle
1981     
1982     TopoDS_Shape ShapeB;
1983     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
1984       ShapeB = TheAISContext()->SelectedShape();
1985     }
1986     
1987     // recuperation des edges.
1988     TopoDS_Edge  EdgeA=TopoDS::Edge(ShapeA);
1989     TopoDS_Edge  EdgeB=TopoDS::Edge(ShapeB);
1990     BRepExtrema_ExtCC myDeltaEdge (EdgeA ,EdgeB );
1991     // on verifie qu'ils ne sont pas paralleles.
1992     if (!myDeltaEdge.IsParallel() ) {di<<"vparallel error: non parallel edges."<<"\n";return 1; }
1993     
1994     
1995     // On recupere les  vertexes extremites des edge A et B.
1996     BRepAdaptor_Curve theCurveA(EdgeA);
1997     BRepAdaptor_Curve theCurveB(EdgeB);
1998     // On recupere 3 points A,B,C des  curves.
1999     gp_Pnt A=theCurveA.Value(0.1);
2000     gp_Pnt B=theCurveA.Value(0.9);
2001     gp_Pnt C=theCurveB.Value(0.5);
2002     
2003     // Construction du Geom_Plane
2004     GC_MakePlane MkPlane(A,B,C);
2005     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2006     // Fermeture du contexte local.
2007     TheAISContext()->CloseLocalContext(myCurrentIndex);
2008     // Construction de l'AIS_ParallelRelation
2009     Handle(AIS_ParallelRelation) myParaRelation= new AIS_ParallelRelation(EdgeA ,EdgeB ,theGeomPlane );
2010     TheAISContext()->Display(myParaRelation );
2011     GetMapOfAIS().Bind (myParaRelation ,argv[1]);
2012     
2013     
2014   }
2015   
2016   // Shape A est une face
2017   // ====================
2018   else {
2019     
2020     // desactivation du mode edge
2021     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(2) );
2022     di<<" Select a second edge"<<"\n";
2023     // Boucle d'attente waitpick.
2024     Standard_Integer argccc = 5;
2025     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2026     const char **argvvv = (const char **) bufff;
2027     while (ViewerMainLoop( argccc, argvvv) ) { }
2028     // fin de la boucle
2029     
2030     TopoDS_Shape ShapeB;
2031     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2032       ShapeB = TheAISContext()->SelectedShape();
2033     }
2034     
2035     TopoDS_Face  FaceA=TopoDS::Face(ShapeA);
2036     TopoDS_Face  FaceB=TopoDS::Face(ShapeB);
2037     
2038     BRepExtrema_ExtFF myDeltaFaceFace  (FaceA ,FaceB );
2039     // On verifie que les deux faces sont bien parelles.
2040     if (!myDeltaFaceFace.IsParallel() ) {di<<"vdistdim error: the faces are not parallel. "<<"\n";return 1; }
2041     
2042     // recuperation des edges des faces.
2043     TopExp_Explorer FaceExpA(FaceA,TopAbs_EDGE);
2044     TopExp_Explorer FaceExpB(FaceB,TopAbs_EDGE);
2045     
2046     TopoDS_Edge EdgeA=TopoDS::Edge(FaceExpA.Current() );
2047     TopoDS_Edge EdgeB=TopoDS::Edge(FaceExpB.Current() );
2048     
2049     // On recupere les  vertexes extremites des edge A et B.
2050     BRepAdaptor_Curve theCurveA(EdgeA);
2051     BRepAdaptor_Curve theCurveB(EdgeB);
2052     // On recupere 3 points A,B,C des  curves.
2053     gp_Pnt A=theCurveA.Value(0.1);
2054     gp_Pnt B=theCurveA.Value(0.9);
2055     gp_Pnt C=theCurveB.Value(0.5);
2056     
2057     // Construction du Geom_Plane
2058     GC_MakePlane MkPlane(A,B,C);
2059     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2060     // Fermeture du contexte local.
2061     TheAISContext()->CloseLocalContext(myCurrentIndex);
2062     // Construction de l'AIS_ParallelRelation
2063     Handle(AIS_ParallelRelation) myParaRelation= new AIS_ParallelRelation(FaceA ,FaceB ,theGeomPlane );
2064     TheAISContext()->Display(myParaRelation );
2065     GetMapOfAIS().Bind (myParaRelation ,argv[1]);
2066     
2067     
2068     
2069   }
2070   
2071   
2072   return 0;
2073   
2074 }
2075
2076
2077
2078
2079 //==============================================================================
2080 //function : VPerpendicularRelation
2081 //purpose  : Display the Perpendicular Relation
2082 //Draw arg : vperpendicular Name 
2083 //==============================================================================
2084 #include <AIS_PerpendicularRelation.hxx>
2085 #include <TCollection_ExtendedString.hxx>
2086 #include <GC_MakePlane.hxx>
2087 #include <BRepAdaptor_Curve.hxx>
2088 #include <TopExp_Explorer.hxx>
2089
2090
2091
2092 static int VPerpendicularBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
2093 {
2094   // Declarations
2095   Standard_Integer myCurrentIndex;
2096  
2097   // Verification
2098   if (argc!=2) {di<<" vortho error"<<"\n";return 1;}
2099   
2100   // Fermeture des contextes locaux
2101   TheAISContext()->CloseAllContexts();
2102   
2103   // Ouverture d'un contexte local et recuperation de son index.
2104   TheAISContext()->OpenLocalContext();
2105   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
2106   
2107   // On active les modes de selections Edges.
2108   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
2109   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(4) );
2110   di<<" Select an edge or a face "<<"\n";
2111   
2112   // Boucle d'attente waitpick.
2113   Standard_Integer argcc = 5;
2114   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2115   const char **argvv = (const char **) buff;
2116   while (ViewerMainLoop( argcc, argvv) ) { }
2117   // fin de la boucle
2118   
2119   TopoDS_Shape ShapeA;
2120   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2121     ShapeA = TheAISContext()->SelectedShape();
2122   }
2123   
2124   // ShapeA est un edge.
2125   // ===================
2126   if (ShapeA.ShapeType()==TopAbs_EDGE ) {
2127     
2128     // desactivation du mode face
2129     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(4) );
2130     di<<" Select a second edge"<<"\n";
2131     // Boucle d'attente waitpick.
2132     Standard_Integer argccc = 5;
2133     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2134     const char **argvvv = (const char **) bufff;
2135     while (ViewerMainLoop( argccc, argvvv) ) { }
2136     // fin de la boucle
2137     
2138     TopoDS_Shape ShapeB;
2139     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2140       ShapeB = TheAISContext()->SelectedShape();
2141     }
2142     
2143     // recuperation des edges.
2144     TopoDS_Edge  EdgeA=TopoDS::Edge(ShapeA);
2145     TopoDS_Edge  EdgeB=TopoDS::Edge(ShapeB);
2146     
2147     // On recupere les  curves
2148     BRepAdaptor_Curve theCurveA(EdgeA);
2149     BRepAdaptor_Curve theCurveB(EdgeB);
2150     // on verifie si les edges sont orthogonaux.
2151     //gp_Lin theLineA=theCurveA.Line();
2152     //gp_Lin theLineB=theCurveB.Line();
2153     //if (abs(theLineA.Angle(theLineB) ) != M_PI/2 ) {cout<<"vperpendicular error: Edges are not  othogonals."<<endl;return 1;}
2154     
2155     // On recupere 3 points A,B,C des  curves.
2156     gp_Pnt A=theCurveA.Value(0.1);
2157     gp_Pnt B=theCurveA.Value(0.9);
2158     gp_Pnt C=theCurveB.Value(0.5);
2159     // Construction du Geom_Plane
2160     GC_MakePlane MkPlane(A,B,C);
2161     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2162     // Fermeture du contexte local.
2163     TheAISContext()->CloseLocalContext(myCurrentIndex);
2164     // Construction de l'AIS_ParallelRelation
2165     Handle(AIS_PerpendicularRelation) myOrthoRelation= new AIS_PerpendicularRelation (EdgeA ,EdgeB ,theGeomPlane );
2166     TheAISContext()->Display(myOrthoRelation );
2167     GetMapOfAIS().Bind (myOrthoRelation ,argv[1]);
2168     
2169     
2170   }
2171   
2172   // Shape A est une face
2173   // ====================
2174   else {
2175     
2176     // desactivation du mode edge
2177     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(2) );
2178     di<<" Select a second edge"<<"\n";
2179     // Boucle d'attente waitpick.
2180     Standard_Integer argccc = 5;
2181     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2182     const char **argvvv = (const char **) bufff;
2183     while (ViewerMainLoop( argccc, argvvv) ) { }
2184     // fin de la boucle
2185     
2186     TopoDS_Shape ShapeB;
2187     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2188       ShapeB = TheAISContext()->SelectedShape();
2189     }
2190     
2191     // pas de verification d'orthogonalite.
2192     TopoDS_Face  FaceA=TopoDS::Face(ShapeA);
2193     TopoDS_Face  FaceB=TopoDS::Face(ShapeB);
2194     
2195     // recuperation des edges des faces.
2196     TopExp_Explorer FaceExpA(FaceA,TopAbs_EDGE);
2197     TopExp_Explorer FaceExpB(FaceB,TopAbs_EDGE);
2198     
2199     TopoDS_Edge EdgeA=TopoDS::Edge(FaceExpA.Current() );
2200     TopoDS_Edge EdgeB=TopoDS::Edge(FaceExpB.Current() );
2201     
2202     // On recupere les  vertexes extremites des edge A et B.
2203     BRepAdaptor_Curve theCurveA(EdgeA);
2204     BRepAdaptor_Curve theCurveB(EdgeB);
2205     // On recupere 3 points A,B,C des  curves.
2206     gp_Pnt A=theCurveA.Value(0.1);
2207     gp_Pnt B=theCurveA.Value(0.9);
2208     gp_Pnt C=theCurveB.Value(0.5);
2209     // Construction du Geom_Plane
2210     GC_MakePlane MkPlane(A,B,C);
2211     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2212     // Fermeture du contexte local.
2213     TheAISContext()->CloseLocalContext(myCurrentIndex);
2214     // Construction de l'AIS_PerpendicularRelation
2215     Handle(AIS_PerpendicularRelation) myOrthoRelation= new AIS_PerpendicularRelation(FaceA ,FaceB );
2216     TheAISContext()->Display(myOrthoRelation );
2217     GetMapOfAIS().Bind (myOrthoRelation  ,argv[1]);
2218     
2219     
2220     
2221   }
2222   
2223   
2224   return 0;
2225   
2226 }
2227
2228
2229 //==============================================================================
2230 //function : VTangentRelation
2231 //purpose  : Display the tangent Relation
2232 //Draw arg : vtangent Name 
2233 //==============================================================================
2234 #include <AIS_TangentRelation.hxx>
2235
2236
2237 static int VTangentBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
2238 {
2239   // Declarations
2240   Standard_Integer myCurrentIndex;
2241  
2242   // Verification
2243   if (argc!=2) {di<<" vtangent error"<<"\n";return 1;}
2244   
2245   // Fermeture des contextes locaux
2246   TheAISContext()->CloseAllContexts();
2247   
2248   // Ouverture d'un contexte local et recuperation de son index.
2249   TheAISContext()->OpenLocalContext();
2250   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
2251   
2252   // On active les modes de selections Edges.
2253   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
2254   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(4) );
2255   di<<" Select two coplanar edges(First the circular edge then the tangent edge) or two faces "<<"\n";
2256   
2257   // Boucle d'attente waitpick.
2258   Standard_Integer argcc = 5;
2259   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2260   const char **argvv = (const char **) buff;
2261   while (ViewerMainLoop( argcc, argvv) ) { }
2262   // fin de la boucle
2263   
2264   TopoDS_Shape ShapeA;
2265   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2266     ShapeA = TheAISContext()->SelectedShape();
2267   }
2268   
2269   // ShapeA est un edge.
2270   // ===================
2271   if (ShapeA.ShapeType()==TopAbs_EDGE ) {
2272     
2273     // desactivation du mode face
2274     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(4) );
2275     di<<" Select a second edge"<<"\n";
2276     // Boucle d'attente waitpick.
2277     Standard_Integer argccc = 5;
2278     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2279     const char **argvvv = (const char **) bufff;
2280     while (ViewerMainLoop( argccc, argvvv) ) { }
2281     // fin de la boucle
2282     
2283     TopoDS_Shape ShapeB;
2284     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2285       ShapeB = TheAISContext()->SelectedShape();
2286     }
2287     
2288     // recuperation des edges.
2289     TopoDS_Edge  EdgeA=TopoDS::Edge(ShapeA);
2290     TopoDS_Edge  EdgeB=TopoDS::Edge(ShapeB);
2291     
2292     // On recupere les  curves
2293     BRepAdaptor_Curve theCurveA(EdgeA);
2294     BRepAdaptor_Curve theCurveB(EdgeB);
2295     
2296     // On recupere 3 points A,B,C des  curves.
2297     gp_Pnt A=theCurveA.Value(0.1);
2298     gp_Pnt B=theCurveA.Value(0.9);
2299     gp_Pnt C=theCurveB.Value(0.5);
2300
2301     // Construction du Geom_Plane
2302     GC_MakePlane MkPlane(A,B,C);
2303     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2304     // Fermeture du contexte local.
2305     TheAISContext()->CloseLocalContext(myCurrentIndex);
2306     // Construction de l'AIS_TangentRelation
2307     Handle(AIS_TangentRelation) myTanRelation= new AIS_TangentRelation  (EdgeA ,EdgeB ,theGeomPlane );
2308     TheAISContext()->Display(myTanRelation );
2309     GetMapOfAIS().Bind (myTanRelation ,argv[1]);
2310     
2311     
2312   }
2313   
2314   // Shape A est une face
2315   // ====================
2316   else {
2317     
2318     // desactivation du mode edge
2319     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(2) );
2320     di<<" Select a second edge"<<"\n";
2321     // Boucle d'attente waitpick.
2322     Standard_Integer argccc = 5;
2323     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2324     const char **argvvv = (const char **) bufff;
2325     while (ViewerMainLoop( argccc, argvvv) ) { }
2326     // fin de la boucle
2327     
2328     TopoDS_Shape ShapeB;
2329     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2330       ShapeB = TheAISContext()->SelectedShape();
2331     }
2332     
2333     TopoDS_Face  FaceA=TopoDS::Face(ShapeA);
2334     TopoDS_Face  FaceB=TopoDS::Face(ShapeB);
2335     
2336     // recuperation des edges des faces.
2337     TopExp_Explorer FaceExpA(FaceA,TopAbs_EDGE);
2338     TopExp_Explorer FaceExpB(FaceB,TopAbs_EDGE);
2339     
2340     TopoDS_Edge EdgeA=TopoDS::Edge(FaceExpA.Current() );
2341     TopoDS_Edge EdgeB=TopoDS::Edge(FaceExpB.Current() );
2342     
2343     // On recupere les  vertexes extremites des edge A et B.
2344     BRepAdaptor_Curve theCurveA(EdgeA);
2345     BRepAdaptor_Curve theCurveB(EdgeB);
2346     // On recupere 3 points A,B,C des  curves.
2347     gp_Pnt A=theCurveA.Value(0.1);
2348     gp_Pnt B=theCurveA.Value(0.9);
2349     gp_Pnt C=theCurveB.Value(0.5);
2350
2351     // Construction du Geom_Plane
2352     GC_MakePlane MkPlane(A,B,C);
2353     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2354     // Fermeture du contexte local.
2355     TheAISContext()->CloseLocalContext(myCurrentIndex);
2356     // Construction de l'AIS_PerpendicularRelation
2357     Handle(AIS_TangentRelation) myTanRelation= new AIS_TangentRelation(FaceA ,FaceB,theGeomPlane );
2358     TheAISContext()->Display(myTanRelation );
2359     GetMapOfAIS().Bind (myTanRelation  ,argv[1]);
2360     
2361     
2362     
2363   }
2364   
2365   
2366   return 0;
2367   
2368 }
2369
2370 //==============================================================================
2371 //function : VSymetricalRelation
2372 //purpose  : Display the Symetrical Relation
2373 //Draw arg : vsymetric Name 
2374 //==============================================================================
2375 #include <AIS_SymmetricRelation.hxx>
2376 #include <AIS_InteractiveObject.hxx>
2377 #include <AIS_Dimension.hxx>
2378
2379
2380 static int VSymmetricBuilder(Draw_Interpretor& di, Standard_Integer argc, const char** argv) 
2381 {
2382   // Declarations
2383   Standard_Integer myCurrentIndex;
2384  
2385   // Verification
2386   if (argc!=2) {di<<" vSymmetric error"<<"\n";return 1;}
2387   
2388   // Fermeture des contextes locaux
2389   TheAISContext()->CloseAllContexts();
2390   
2391   // Ouverture d'un contexte local et recuperation de son index.
2392   TheAISContext()->OpenLocalContext();
2393   myCurrentIndex=TheAISContext()->IndexOfCurrentLocal();
2394   
2395   // On active les modes de selections
2396   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
2397   di<<" Select an edge:the axis of symetry "<<"\n";
2398   
2399   // Boucle d'attente waitpick.
2400   Standard_Integer argcc = 5;
2401   const char *buff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2402   const char **argvv = (const char **) buff;
2403   while (ViewerMainLoop( argcc, argvv) ) { }
2404   // fin de la boucle
2405   
2406   TopoDS_Shape ShapeA;
2407   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2408     ShapeA = TheAISContext()->SelectedShape();
2409   }
2410   // recuperation des edges.
2411   TopoDS_Edge  EdgeA=TopoDS::Edge(ShapeA);
2412   
2413   // On active les modes de selections
2414   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(2) );
2415   TheAISContext()->ActivateStandardMode (AIS_Shape::SelectionType(1) );
2416   di<<" Select two edges or two vertices. "<<"\n";
2417   
2418   // Boucle d'attente waitpick.
2419   Standard_Integer argcc2 = 5;
2420 //  const char *buff2[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2421   const char **argvv2 = (const char **) buff;
2422   while (ViewerMainLoop( argcc2, argvv2) ) { }
2423   // fin de la boucle
2424   
2425   TopoDS_Shape ShapeB;
2426   for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2427     ShapeB = TheAISContext()->SelectedShape();
2428   }
2429   
2430   
2431   
2432   
2433   
2434   // ShapeB est un edge.
2435   // ===================
2436   if (ShapeB.ShapeType()==TopAbs_EDGE ) {
2437     
2438     // desactivation du mode vertex
2439     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(1) );
2440     di<<" Select a second edge"<<"\n";
2441     // Boucle d'attente waitpick.
2442     Standard_Integer argccc = 5;
2443     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2444     const char **argvvv = (const char **) bufff;
2445     while (ViewerMainLoop( argccc, argvvv) ) { }
2446     // fin de la boucle
2447     
2448     TopoDS_Shape ShapeC;
2449     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2450       ShapeC = TheAISContext()->SelectedShape();
2451     }
2452     
2453     // recuperation des edges.
2454     TopoDS_Edge  EdgeB=TopoDS::Edge(ShapeB);
2455     TopoDS_Edge  EdgeC=TopoDS::Edge(ShapeC);
2456     // on verifie que les edges sont paralleles
2457     BRepExtrema_ExtCC myDeltaEdgeAB (EdgeA ,EdgeB );
2458     BRepExtrema_ExtCC myDeltaEdgeAC (EdgeA ,EdgeC );
2459     // on verifie qu'ils  sont paralleles.
2460     if (!myDeltaEdgeAB.IsParallel() ) {di<<"vsymetric error: non parallel edges."<<"\n";return 1; }
2461     if (!myDeltaEdgeAC.IsParallel() ) {di<<"vsymetric error: non parallel edges."<<"\n";return 1; }
2462     // on recupere les vertexs
2463     TopoDS_Vertex  Va,Vb,Vc,Vd;
2464     TopExp::Vertices(EdgeB,Va,Vb );
2465     TopExp::Vertices(EdgeC,Vc,Vd );
2466     gp_Pnt A=BRep_Tool::Pnt(Va);
2467     gp_Pnt B=BRep_Tool::Pnt(Vc);
2468     gp_Pnt C = Get3DPointAtMousePosition();
2469     
2470     //    gp_Pnt C=BRep_Tool::Pnt(Vc);
2471     // Construction du Geom_Plane
2472     GC_MakePlane MkPlane(A,B,C);
2473     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2474     // Fermeture du contexte local.
2475     TheAISContext()->CloseLocalContext(myCurrentIndex);
2476     // Construction de l'AIS_SymmetricRelation
2477     Handle(AIS_SymmetricRelation) mySymRelation= new AIS_SymmetricRelation (EdgeA ,EdgeB ,EdgeC, theGeomPlane );
2478     TheAISContext()->Display(mySymRelation );
2479     GetMapOfAIS().Bind (mySymRelation ,argv[1]);
2480     
2481     
2482   }
2483   
2484   // Shape B est un vertex
2485   // =====================
2486   else {
2487     
2488     // desactivation du mode edge
2489     TheAISContext()->DeactivateStandardMode (AIS_Shape::SelectionType(2) );
2490     di<<" Select a second edge"<<"\n";
2491     // Boucle d'attente waitpick.
2492     Standard_Integer argccc = 5;
2493     const char *bufff[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2494     const char **argvvv = (const char **) bufff;
2495     while (ViewerMainLoop( argccc, argvvv) ) { }
2496     // fin de la boucle
2497     
2498     TopoDS_Shape ShapeC;
2499     for(TheAISContext()->InitSelected() ;TheAISContext()->MoreSelected() ;TheAISContext()->NextSelected() ) {
2500       ShapeC = TheAISContext()->SelectedShape();
2501     }
2502     
2503     // recuperation des Vertex
2504     TopoDS_Vertex  VertexB=TopoDS::Vertex(ShapeB);
2505     TopoDS_Vertex  VertexC=TopoDS::Vertex(ShapeC);
2506     // transfo en gp_Pnt
2507     gp_Pnt B=BRep_Tool::Pnt(VertexB);
2508     gp_Pnt C=BRep_Tool::Pnt(VertexC);
2509     
2510     // on recupere les vertexes de l'axe de sym
2511     TopoDS_Vertex  Va,Vb;
2512     TopExp::Vertices(EdgeA,Va,Vb );
2513     gp_Pnt A=BRep_Tool::Pnt(Va);
2514     // Construction du Geom_Plane
2515     GC_MakePlane MkPlane(A,B,C);
2516     Handle(Geom_Plane) theGeomPlane=MkPlane.Value();
2517     // Fermeture du contexte local.
2518     TheAISContext()->CloseLocalContext(myCurrentIndex);
2519     // Construction de l'AIS_SymmetricRelation
2520     Handle(AIS_SymmetricRelation) mySymRelation= new AIS_SymmetricRelation (EdgeA ,VertexB ,VertexC, theGeomPlane );
2521     TheAISContext()->Display(mySymRelation );
2522     GetMapOfAIS().Bind (mySymRelation ,argv[1]);
2523     
2524     
2525     
2526   }
2527   
2528   
2529   return 0;
2530   
2531 }
2532
2533 //=======================================================================
2534 //function : VDimParam
2535 //purpose  : Sets aspect parameters to dimension.
2536 //=======================================================================
2537 static int VDimParam (Draw_Interpretor& theDi, Standard_Integer theArgNum, const char** theArgVec)
2538 {
2539   if (theArgNum < 3)
2540   {
2541     theDi << theArgVec[0] << " error: the wrong number of input parameters.\n";
2542     return 1;
2543   }
2544
2545
2546   TCollection_AsciiString aName (theArgVec[1]);
2547   gp_Pln aWorkingPlane;
2548   Standard_Boolean isCustomPlane = Standard_False;
2549   Standard_Boolean toUpdate = Standard_True;
2550
2551   NCollection_DataMap<TCollection_AsciiString, Standard_Real> aRealParams;
2552   NCollection_DataMap<TCollection_AsciiString, TCollection_AsciiString> aStringParams;
2553
2554   if (!GetMapOfAIS().IsBound2 (aName))
2555   {
2556     theDi << theArgVec[0] << "error: no object with this name.\n";
2557     return 1;
2558   }
2559
2560   Handle(AIS_InteractiveObject) anObject = Handle(AIS_InteractiveObject)::DownCast(GetMapOfAIS().Find2 (aName));
2561   if (anObject->Type() != AIS_KOI_Dimension)
2562   {
2563     theDi << theArgVec[0] << "error: no dimension with this name.\n";
2564     return 1;
2565   }
2566
2567   Handle(AIS_Dimension) aDim = Handle(AIS_Dimension)::DownCast (anObject);
2568   Handle(Prs3d_DimensionAspect) anAspect = aDim->DimensionAspect();
2569
2570   if (ParseDimensionParams (theArgNum, theArgVec, 2, anAspect,
2571                             isCustomPlane, aWorkingPlane,
2572                             aRealParams, aStringParams))
2573   {
2574     return 1;
2575   }
2576
2577   if (isCustomPlane)
2578   {
2579     aDim->SetCustomPlane (aWorkingPlane);
2580   }
2581
2582   SetDimensionParams (aDim, aRealParams, aStringParams);
2583
2584   if (!aDim->IsValid())
2585   {
2586     std::cerr << "Error: Dimension geometry or plane is not valid.\n";
2587     return 1;
2588   }
2589
2590   // Redisplay a dimension after parameter changing.
2591   if (ViewerTest::GetAISContext()->IsDisplayed (aDim))
2592   {
2593     ViewerTest::GetAISContext()->Redisplay (aDim, toUpdate);
2594   }
2595
2596   return 0;
2597 }
2598
2599 //=======================================================================
2600 //function : VMoveDim
2601 //purpose  : Moves dimension or relation text label to defined or picked
2602 //           position and updates the object.
2603 //draw args: vmovedim [name] [x y z]
2604 //=======================================================================
2605 static int VMoveDim (Draw_Interpretor& theDi, Standard_Integer theArgNum, const char** theArgVec) 
2606 {
2607   if (theArgNum > 5)
2608   {
2609     theDi << theArgVec[0] << " error: the wrong number of parameters.\n";
2610     return 1;
2611   }
2612
2613   // Parameters parsing
2614   Standard_Boolean isNameSet = (theArgNum ==2 || theArgNum == 5);
2615   Standard_Boolean isPointSet = (theArgNum == 4 || theArgNum == 5);
2616
2617   Handle(AIS_InteractiveObject) aPickedObj;
2618   gp_Pnt aPoint (gp::Origin());
2619   Standard_Integer aMaxPickNum = 5;
2620
2621   // Find object
2622   if (isNameSet)
2623   {
2624      TCollection_AsciiString aName (theArgVec[1]);
2625      if (!GetMapOfAIS().IsBound2 (aName))
2626      {
2627        theDi << theArgVec[0] << " error: no object with this name.\n";
2628        return 1;
2629      }
2630
2631      aPickedObj = Handle(AIS_InteractiveObject)::DownCast (GetMapOfAIS().Find2 (aName));
2632      
2633      if (aPickedObj.IsNull())
2634      {
2635        theDi << theArgVec[0] << " error: the object with this name is not valid.\n";
2636        return 1;
2637      }
2638
2639      if (aPickedObj->Type() != AIS_KOI_Dimension && aPickedObj->Type() != AIS_KOI_Relation)
2640      {
2641        theDi << theArgVec[0] << " error: no dimension or relation with this name.\n";
2642        return 1;
2643      }
2644   }
2645   else // Pick dimension or relation
2646   {
2647     // Close all local contexts
2648     TheAISContext()->CloseAllContexts();
2649
2650     // Open local context and get its index for recovery.
2651     TheAISContext()->OpenLocalContext();
2652
2653     // Loop that will be handle picking.
2654     Standard_Integer anArgNum = 5;
2655     const char *aBuffer[] = { "VPick", "X", "VPickY","VPickZ", "VPickShape" };
2656     const char **anArgVec = (const char **) aBuffer;
2657
2658     Standard_Boolean isPicked = Standard_False;
2659     Standard_Integer aPickNum = 0;
2660     while (!isPicked && aPickNum < aMaxPickNum)
2661     {
2662       while (ViewerMainLoop (anArgNum, anArgVec)) { }
2663
2664       for (TheAISContext()->InitSelected(); TheAISContext()->MoreSelected(); TheAISContext()->NextSelected())
2665       {
2666         aPickedObj = TheAISContext()->SelectedInteractive();
2667       }
2668
2669       isPicked = (!aPickedObj.IsNull() && (aPickedObj->Type() == AIS_KOI_Dimension || aPickedObj->Type() == AIS_KOI_Relation));
2670
2671       if (isPicked)
2672       {
2673         break;
2674       }
2675       aPickNum++;
2676     }
2677     if (!isPicked)
2678     {
2679       theDi << theArgVec[0] << ": no dimension or relation is selected." << "\n";
2680       return 1;
2681     }
2682   }
2683
2684   // Find point
2685   if (isPointSet)
2686   {
2687     aPoint = theArgNum == 4 ? gp_Pnt (atoi (theArgVec[1]), atoi (theArgVec[2]), atoi (theArgVec[3]))
2688                             : gp_Pnt (atoi (theArgVec[2]), atoi (theArgVec[3]), atoi (theArgVec[4]));
2689   }
2690   else // Pick the point
2691   {
2692     Standard_Integer aPickArgNum = 5;
2693     const char *aPickBuff[] = {"VPick", "X", "VPickY", "VPickZ", "VPickShape"};
2694     const char **aPickArgVec = (const char **) aPickBuff;
2695
2696     while (ViewerMainLoop (aPickArgNum, aPickArgVec)) { }
2697
2698     // Set text position, update relation or dimension.
2699     if (aPickedObj->Type() == AIS_KOI_Relation)
2700     {
2701       Handle(AIS_Relation) aRelation = Handle(AIS_Relation)::DownCast (aPickedObj);
2702       aPoint = Get3DPointAtMousePosition();
2703       aRelation->SetPosition (aPoint);
2704       TheAISContext()->Redisplay (aRelation);
2705     }
2706     else
2707     {
2708       Handle(AIS_Dimension) aDim = Handle(AIS_Dimension)::DownCast (aPickedObj);
2709       gp_Pnt aFirstPoint, aSecondPoint;
2710       if (aDim->KindOfDimension() == AIS_KOD_PLANEANGLE)
2711       {
2712         Handle(AIS_AngleDimension) anAngleDim = Handle(AIS_AngleDimension)::DownCast (aDim);
2713         aFirstPoint = anAngleDim->FirstPoint();
2714         aSecondPoint = anAngleDim->SecondPoint();
2715       }
2716       else if (aDim->KindOfDimension() == AIS_KOD_LENGTH)
2717       {
2718         Handle(AIS_LengthDimension) aLengthDim = Handle(AIS_LengthDimension)::DownCast (aDim);
2719         aFirstPoint = aLengthDim->FirstPoint();
2720         aSecondPoint = aLengthDim->SecondPoint();
2721       }
2722       else if (aDim->KindOfDimension() == AIS_KOD_RADIUS)
2723       {
2724         Handle(AIS_RadiusDimension) aRadiusDim = Handle(AIS_RadiusDimension)::DownCast (aDim);
2725         aFirstPoint = aRadiusDim->AnchorPoint();
2726         aSecondPoint = aRadiusDim->Circle().Location();
2727       }
2728       else if (aDim->KindOfDimension() == AIS_KOD_DIAMETER)
2729       {
2730         Handle(AIS_DiameterDimension) aDiameterDim = Handle(AIS_DiameterDimension)::DownCast (aDim);
2731         aFirstPoint = aDiameterDim->AnchorPoint();
2732         aSecondPoint = aDiameterDim->Circle().Location();
2733       }
2734
2735       if (!Get3DPointAtMousePosition (aFirstPoint, aSecondPoint, aPoint))
2736       {
2737         return 1;
2738       }
2739
2740       aDim->SetTextPosition (aPoint);
2741       TheAISContext()->Redisplay (aDim);
2742     }
2743
2744   }
2745
2746   // Set text position, update relation or dimension.
2747   if (aPickedObj->Type() == AIS_KOI_Relation)
2748   {
2749     Handle(AIS_Relation) aRelation = Handle(AIS_Relation)::DownCast (aPickedObj);
2750     aRelation->SetPosition (aPoint);
2751     TheAISContext()->Redisplay (aRelation);
2752   }
2753   else
2754   {
2755     Handle(AIS_Dimension) aDim = Handle(AIS_Dimension)::DownCast (aPickedObj);
2756     aDim->SetTextPosition (aPoint);
2757     TheAISContext()->Redisplay (aDim);
2758   }
2759
2760   return 0;
2761 }
2762
2763 //=======================================================================
2764 //function : RelationsCommands
2765 //purpose  : 
2766 //=======================================================================
2767       
2768
2769 void ViewerTest::RelationCommands(Draw_Interpretor& theCommands)
2770 {
2771   const char *group = "AISRelations";
2772
2773   theCommands.Add("vdimension",
2774       "vdimension name {-angle|-length|-radius|-diameter} -shapes shape1 [shape2 [shape3]]\n"
2775       "[-text 3d|2d wf|sh|wireframe|shading IntegerSize]\n"
2776       "[-font FontName]\n"
2777       "[-label left|right|hcenter|hfit top|bottom|vcenter|vfit]\n"
2778       "[-arrow external|internal|fit]\n"
2779       "[{-arrowlength|-arlen} RealArrowLength]\n"
2780       "[{-arrowangle|-arangle} ArrowAngle(degrees)]\n"
2781       "[-plane xoy|yoz|zox]\n"
2782       "[-flyout FloatValue -extension FloatValue]\n"
2783       "[-value CustomNumberValue]\n"
2784       "[-dispunits DisplayUnitsString]\n"
2785       "[-modelunits ModelUnitsString]\n"
2786       "[-showunits | -hideunits]\n"
2787       " -Builds angle, length, radius and diameter dimensions.\n"
2788       " -See also: vdimparam, vmovedim.\n",
2789       __FILE__,VDimBuilder,group);
2790
2791   theCommands.Add("vdimparam",
2792     "vdimparam name"
2793     "[-text 3d|2d wf|sh|wireframe|shading IntegerSize]\n"
2794     "[-font FontName]\n"
2795     "[-label left|right|hcenter|hfit top|bottom|vcenter|vfit]\n"
2796     "[-arrow external|internal|fit]\n"
2797     "[{-arrowlength|-arlen} RealArrowLength]\n"
2798     "[{-arrowangle|-arangle} ArrowAngle(degrees)]\n"
2799     "[-plane xoy|yoz|zox]\n"
2800     "[-flyout FloatValue -extension FloatValue]\n"
2801     "[-value CustomNumberValue]\n"
2802     "[-dispunits DisplayUnitsString]\n"
2803     "[-modelunits ModelUnitsString]\n"
2804     "[-showunits | -hideunits]\n"
2805     " -Sets parameters for angle, length, radius and diameter dimensions.\n"
2806     " -See also: vmovedim, vdimension.\n",
2807     __FILE__,VDimParam,group);
2808
2809   theCommands.Add("vangledim",
2810                   "vangledim Name:Selection in the viewer only ",
2811                   __FILE__,VAngleDimBuilder,group);
2812   
2813   theCommands.Add("vdiameterdim",
2814                   "vdiameterdim Name : Selection in the viewer only ",
2815                   __FILE__,VDiameterDimBuilder,group);
2816   
2817   theCommands.Add("vconcentric",
2818                   "vconcentric Name : Selection in the viewer only ",
2819                   __FILE__,VConcentricBuilder,group);
2820
2821   theCommands.Add("vequaldist",
2822                   "vequaldist Name Selection in the viewer only ",
2823                   __FILE__,VEqualDistRelation ,group);
2824   
2825   theCommands.Add("vequalrad",
2826                   "vequalrad Name Selection in the viewer only ",
2827                   __FILE__,VEqualRadiusRelation  ,group);
2828   
2829   theCommands.Add("vfix",  
2830                   "vfix Name Selection in the viewer only ",
2831                   __FILE__,VFixRelation  ,group);
2832   
2833   theCommands.Add("videntity",
2834                   "videntity Name Selection in the viewer only ",
2835                   __FILE__,VIdenticRelation  ,group);
2836   
2837   theCommands.Add("vdistdim",
2838                   "vdistdim Name Selection in the viewer only ",
2839                   __FILE__,VLenghtDimension ,group);
2840   
2841   theCommands.Add("vradiusdim",
2842                   "vradiusdim Name Selection in the viewer only ",
2843                   __FILE__,VRadiusDimBuilder ,group);
2844   
2845   theCommands.Add("voffsetdim",
2846                   "voffsetdim Name Selection in the viewer only ",
2847                   __FILE__,VOffsetDimBuilder ,group);
2848   
2849   theCommands.Add("vparallel",
2850                   "vparallel Name Selection in the viewer only ",
2851                   __FILE__,VParallelBuilder ,group);
2852   
2853   theCommands.Add("vortho",
2854                   "vortho Name Selection in the viewer only ",
2855                   __FILE__,VPerpendicularBuilder ,group);
2856   
2857   theCommands.Add("vtangent",  
2858                   "vtangent Name Selection in the viewer only ",
2859                   __FILE__,VTangentBuilder ,group);
2860   
2861   
2862   theCommands.Add("vsymetric",
2863                   "vsymetric Name Selection in the viewer only ",
2864                   __FILE__,VSymmetricBuilder ,group);
2865
2866   theCommands.Add("vmovedim",
2867       "vmovedim : vmovedim [name] [x y z]"
2868       "\n\t\t: Moves picked or named (if name defined)"
2869       "\n\t\t: dimension to picked mouse position or input point."
2870       "\n\t\t: Text label of dimension 'name' is moved to position, another parts of dimensionare adjusted.",
2871                   __FILE__,VMoveDim,group);
2872
2873 }