fixed house speed bug for Vehlow

aloistr · aloistr · commit 9485df5b62b3 · 2021-01-04T17:36:01.000+01:00
diff --git a/swehouse.c b/swehouse.c
@@ -1330,17 +1330,16 @@ static int CalcH(
     if (acmc < 0) {
       /* within polar circle we swap AC/DC if AC is on wrong side */
       hsp->ac = swe_degnorm(hsp->ac + 180);
-      hsp->cusp[1] = hsp->ac;
     }
     hsp->cusp[1] = swe_degnorm(hsp->ac - 15);
     for (i = 2; i <=12; i++)
       hsp->cusp[i] = swe_degnorm(hsp->cusp[1] + (i-1) * 30);
-    break;
     if (hsp->do_hspeed) {
       for (i = 1; i <=12; i++) {
 	hsp->cusp_speed[i] = hsp->ac_speed;
       }
     }
+    break;
   case 'W':	/* equal, whole-sign houses */
     acmc = swe_difdeg2n(hsp->ac, hsp->mc);
     if (acmc < 0) {

Original file line number	Diff line number	Diff line change
`@@ -1330,17 +1330,16 @@ static int CalcH(`
`1330`	`1330`	`if (acmc < 0) {`
`1331`	`1331`	`/* within polar circle we swap AC/DC if AC is on wrong side */`
`1332`	`1332`	`hsp->ac = swe_degnorm(hsp->ac + 180);`
`1333`		`- hsp->cusp[1] = hsp->ac;`
`1334`	`1333`	`}`
`1335`	`1334`	`hsp->cusp[1] = swe_degnorm(hsp->ac - 15);`
`1336`	`1335`	`for (i = 2; i <=12; i++)`
`1337`	`1336`	`hsp->cusp[i] = swe_degnorm(hsp->cusp[1] + (i-1) * 30);`
`1338`		`- break;`
`1339`	`1337`	`if (hsp->do_hspeed) {`
`1340`	`1338`	`for (i = 1; i <=12; i++) {`
`1341`	`1339`	`hsp->cusp_speed[i] = hsp->ac_speed;`
`1342`	`1340`	`}`
`1343`	`1341`	`}`
	`1342`	`+ break;`
`1344`	`1343`	`case 'W': /* equal, whole-sign houses */`
`1345`	`1344`	`acmc = swe_difdeg2n(hsp->ac, hsp->mc);`
`1346`	`1345`	`if (acmc < 0) {`