From 417cb6f78b2d71a8c98e4b85a74ec55ccb4cc67a Mon Sep 17 00:00:00 2001
From: Patrick Chevalley <pch@ap-i.net>
Date: Thu, 28 Oct 2021 11:57:19 +0200
Subject: [PATCH] Do not add constellation to label

---
 skychart/cu_catalog.pas  | 2 ++
 skychart/cu_skychart.pas | 4 +++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/skychart/cu_catalog.pas b/skychart/cu_catalog.pas
index 9b67d35be..33cf2efc4 100644
--- a/skychart/cu_catalog.pas
+++ b/skychart/cu_catalog.pas
@@ -2077,6 +2077,8 @@ procedure Tcatalog.FormatGCatS(var rec: GcatRec);
       rec.star.greeksymbol := GreekLetter(rec.str[5]);
       if rec.star.greeksymbol <> '' then
         rec.star.valid[vsGreekSymbol] := True
+      else
+        rec.star.greeksymbol:=trim(rec.str[5]);
     end;
     if (not bayer) and flam then
     begin
diff --git a/skychart/cu_skychart.pas b/skychart/cu_skychart.pas
index 7bcbde382..75d4bfca9 100644
--- a/skychart/cu_skychart.pas
+++ b/skychart/cu_skychart.pas
@@ -1628,7 +1628,9 @@ function Tskychart.DrawStars: boolean;
             begin
               if lp > 0 then
                 lp := 4;
-              SetLabel(lid, xx, yy, rs, 2, lnum, rec.star.id + dlbl, al, labrotation(
+              gk:=rec.star.greeksymbol;
+              if gk=''  then gk:=rec.star.id;
+              SetLabel(lid, xx, yy, rs, 2, lnum, gk + dlbl, al, labrotation(
                 rec.ra, rec.Dec, lnum, cfgsc), lp, True);
             end;
           end;