From 28bb796fea7870a32014e84d986e56aeb84968ba Mon Sep 17 00:00:00 2001
From: PaddleStroke <pierrelouis.boyer@gmail.com>
Date: Tue, 7 May 2024 15:42:03 +0200
Subject: [PATCH] Sketcher: Red point if end-point perpendicular

---
 src/Mod/Sketcher/Gui/EditModeGeometryCoinManager.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Mod/Sketcher/Gui/EditModeGeometryCoinManager.cpp b/src/Mod/Sketcher/Gui/EditModeGeometryCoinManager.cpp
index 982600b8c3..10e5034a12 100644
--- a/src/Mod/Sketcher/Gui/EditModeGeometryCoinManager.cpp
+++ b/src/Mod/Sketcher/Gui/EditModeGeometryCoinManager.cpp
@@ -139,7 +139,9 @@ void EditModeGeometryCoinManager::updateGeometryColor(const GeoListFacade& geoli
             ViewProviderSketchCoinAttorney::getConstraints(viewProvider);
         for (auto& constr : constraints) {
             if (constr->Type == Coincident
-                || (constr->Type == Tangent && constr->FirstPos != Sketcher::PointPos::none)) {
+                || (constr->Type == Tangent && constr->FirstPos != Sketcher::PointPos::none)
+                || (constr->Type == Perpendicular && constr->FirstPos != Sketcher::PointPos::none
+                    && constr->SecondPos != Sketcher::PointPos::none)) {
                 if ((constr->First == GeoId && constr->FirstPos == PosId)
                     || (constr->Second == GeoId && constr->SecondPos == PosId)) {
                     return true;