+#include <ModelAPI_AttributeDouble.h>
+#include <ModelAPI_AttributeInteger.h>
+
+#include <AIS_DisplaySpecialSymbol.hxx>
+
+#define OCCT_28850_FIXED
+
+/// Creates an aspect to be shown in length/radius dimension presentations
+/// \return an instance of aspect
+Handle(Prs3d_DimensionAspect) createDimensionAspect()
+{
+ Handle(Prs3d_DimensionAspect) anAspect = new Prs3d_DimensionAspect();
+ anAspect->MakeArrows3d(false);
+ anAspect->MakeText3d(false);
+ anAspect->MakeTextShaded(false);
+ anAspect->MakeUnitsDisplayed(false);
+ anAspect->TextAspect()->SetHeight(SketcherPrs_Tools::getDefaultTextHeight());
+ anAspect->ArrowAspect()->SetLength(SketcherPrs_Tools::getArrowSize());
+
+ return anAspect;
+}
+
+/// Update variable aspect parameters (depending on viewer scale)
+/// \param theDimAspect an aspect to be changed
+/// \param theDimValue an arrow value
+/// \param theTextSize an arrow value
+void updateArrows(Handle(Prs3d_DimensionAspect) theDimAspect,
+ double theDimValue, double theTextSize, SketcherPrs_Tools::LocationType theLocationType)
+{
+ if (theLocationType == SketcherPrs_Tools::LOCATION_AUTOMATIC) {
+ double anArrowLength = theDimAspect->ArrowAspect()->Length();
+ // This is not realy correct way to get viewer scale.
+ double aViewerScale = (double) SketcherPrs_Tools::getDefaultArrowSize() / anArrowLength;
+
+ if(theTextSize > ((theDimValue - 3 * SketcherPrs_Tools::getArrowSize()) * aViewerScale)) {
+ theDimAspect->SetTextHorizontalPosition(Prs3d_DTHP_Left);
+ theDimAspect->SetArrowOrientation(Prs3d_DAO_External);
+ theDimAspect->SetExtensionSize(
+ (theTextSize / aViewerScale + SketcherPrs_Tools::getArrowSize()) / 2.0);
+ } else {
+ theDimAspect->SetTextHorizontalPosition(Prs3d_DTHP_Center);
+ theDimAspect->SetArrowOrientation(Prs3d_DAO_Internal);
+ }
+ }
+ else if (theLocationType == SketcherPrs_Tools::LOCATION_RIGHT ||
+ theLocationType == SketcherPrs_Tools::LOCATION_LEFT) {
+ theDimAspect->SetTextHorizontalPosition(
+ theLocationType == SketcherPrs_Tools::LOCATION_LEFT ? Prs3d_DTHP_Left : Prs3d_DTHP_Right);
+ theDimAspect->SetArrowOrientation(Prs3d_DAO_External);
+
+ double anArrowLength = theDimAspect->ArrowAspect()->Length();
+ // This is not realy correct way to get viewer scale.
+ double aViewerScale = (double) SketcherPrs_Tools::getDefaultArrowSize() / anArrowLength;
+ theDimAspect->SetExtensionSize(
+ (theTextSize / aViewerScale + SketcherPrs_Tools::getArrowSize()) / 2.0);
+ }
+
+ theDimAspect->SetArrowTailSize(theDimAspect->ArrowAspect()->Length());
+ // The value of vertical aligment is sometimes changed
+ theDimAspect->TextAspect()->SetVerticalJustification(Graphic3d_VTA_CENTER);
+}