diff -Nru savi-1.5.0a/debian/changelog savi-1.5.0b/debian/changelog --- savi-1.5.0a/debian/changelog 2016-12-19 21:02:49.000000000 +0000 +++ savi-1.5.0b/debian/changelog 2017-06-18 14:12:55.000000000 +0000 @@ -1,3 +1,17 @@ +savi (1.5.0b-1) unstable; urgency=medium + + * Team upload. + * Move from experimental to unstable. + + -- Bas Couwenberg Sun, 18 Jun 2017 16:12:55 +0200 + +savi (1.5.0b-1~exp1) experimental; urgency=medium + + * Team upload. + * New upstream release. + + -- Bas Couwenberg Tue, 13 Jun 2017 20:50:13 +0200 + savi (1.5.0a-1) unstable; urgency=medium * Team upload. diff -Nru savi-1.5.0a/RELEASE-NOTE savi-1.5.0b/RELEASE-NOTE --- savi-1.5.0a/RELEASE-NOTE 2016-12-11 11:20:00.000000000 +0000 +++ savi-1.5.0b/RELEASE-NOTE 2017-06-12 11:30:00.000000000 +0000 @@ -1,3 +1,7 @@ +SaVi 1.5.0b includes codefixes to SaVi 1.5.0a to prevent bugs: +- in tcl/constellations.tcl to prevent rounding errors when generating constellations + (degrees such as 180 and 360 should be 180.0 and 360.0 to force floating point in Tcl.) + SaVi 1.5.0a includes two one-line codefixes to SaVi 1.5.0 to prevent bugs: - in tcl/constellations.tcl to allow loading of unnamed TLEs (elsets) without a name error. - in tcl/coverage_frames.tcl to enable better detection of gifsicle, if installed. diff -Nru savi-1.5.0a/tcl/constellations.tcl savi-1.5.0b/tcl/constellations.tcl --- savi-1.5.0a/tcl/constellations.tcl 2016-12-11 11:20:00.000000000 +0000 +++ savi-1.5.0b/tcl/constellations.tcl 2017-06-12 11:30:00.000000000 +0000 @@ -29,7 +29,7 @@ # hard to get right. Use at own risk. # These need considerable expansion and work. # -# $Id: constellations.tcl,v 1.31 2016/11/17 05:32:50 lloydwood Exp $ +# $Id: constellations.tcl,v 1.32 2017/06/07 11:36:06 lloydwood Exp $ proc walker {T P F alt inc lan_offset phase_offset} { @@ -69,7 +69,7 @@ set RADIUS_OF_EARTH $params(Radius) # this is a very crude first approximation. No seam adjustment - set INTERPLANE_SPACING [expr 180/$NUM_PLANES] + set INTERPLANE_SPACING [expr 180.0 / $NUM_PLANES] # setup orbital elements set a [expr $alt+$RADIUS_OF_EARTH] @@ -78,7 +78,7 @@ set T_per [expr 2 * $PI * pow($a,1.5) / sqrt($MU)] # 360 degrees is $T_per; get the fraction. - set plane_offset [expr $T_per / $SATS_PER_PLANE /2 ] + set plane_offset [expr $T_per / $SATS_PER_PLANE / 2.0 ] satellites GV_BEGIN for {set j 0} {$j < $NUM_PLANES} {incr j} { @@ -139,7 +139,7 @@ set RADIUS_OF_EARTH $params(Radius) set TOTAL_SATS [expr $NUM_PLANES * $SATS_PER_PLANE] - set INTERPLANE_SPACING [expr 360/$NUM_PLANES] + set INTERPLANE_SPACING [expr 360.0 / $NUM_PLANES] # setup orbital elements set a [expr $alt+$RADIUS_OF_EARTH] @@ -149,7 +149,7 @@ # 360 degrees is $T_per; get the fraction. set plane_offset [expr $T_per / $TOTAL_SATS * $F ] - set overall_offset [expr $T_per / 360 * $phase_offset ] + set overall_offset [expr $T_per / 360.0 * $phase_offset ] satellites GV_BEGIN for {set j 0} {$j < $NUM_PLANES} {incr j} { @@ -246,7 +246,7 @@ # if we have everything then write out a satellite! if {($line1 == 1) && ($line2 == 1)} { # write out orbital elements - set period [expr 86400/$mean_motion] + set period [expr 86400.0 / $mean_motion] set a [expr pow($period*sqrt($MU)/2.0/$PI,2.0/3.0)] set mean_anomaly [expr fmod($mean_anomaly + \ $dt*$mean_motion*360.0, 360.0)]