Do not add constellation to label

pchev · Oct 28, 2021 · 417cb6f · 417cb6f
1 parent c412d8d
commit 417cb6f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git 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
@@ -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;