Deselect the star after vcurve learning, update center position to be…

… ready for a new run
pchev · Mar 26, 2018 · 7adf9b6 · 7adf9b6
1 parent f935a0a
commit 7adf9b6
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/pu_main.pas b/src/pu_main.pas
@@ -3768,8 +3768,10 @@ procedure Tf_main.LearnVcurve(Sender: TObject);
  AutofocusSlippageOffset:=0;
  config.SetValue('/StarAnalysis/AutofocusSlippageOffset',AutofocusSlippageOffset);
  // position focuser at new center
- if f_vcurve.Quality>0.9 then
-    focuser.Position:=round((AutofocusVcpiL+AutofocusVcpiR)/2)
+ if f_vcurve.Quality>0.9 then begin
+    focuser.Position:=round((AutofocusVcpiL+AutofocusVcpiR)/2);
+    f_vcurve.FocusPos.Value:=round((AutofocusVcpiL+AutofocusVcpiR)/2);
+ end
  else
     focuser.Position:=round(AutofocusVc[PosFocus,1]);
  wait(1);
@@ -3781,9 +3783,7 @@ procedure Tf_main.LearnVcurve(Sender: TObject);
  f_preview.StackPreview.Checked:=false;
  f_visu.Zoom:=SaveZoom;
  ImgZoom:=f_visu.Zoom;
- f_starprofile.StarX:=xc1;
- f_starprofile.StarY:=yc1;
- f_starprofile.FindStar:=true;
+ f_starprofile.FindStar:=false; {deselect the star so a new run will search for the new star position}
  StartPreviewExposure(nil);
  end;
 end;