[GRASS-SVN] r60524 - grass-addons/grass6/display/d.barb

[svn_grass at osgeo.org]

Author: hamish
Date: 2014-05-27 21:29:10 -0700 (Tue, 27 May 2014)
New Revision: 60524

Modified:
   grass-addons/grass6/display/d.barb/draw.c
Log:
5kt barb a little bit higher on the stem

Modified: grass-addons/grass6/display/d.barb/draw.c
===================================================================
--- grass-addons/grass6/display/d.barb/draw.c	2014-05-27 23:19:56 UTC (rev 60523)
+++ grass-addons/grass6/display/d.barb/draw.c	2014-05-28 04:29:10 UTC (rev 60524)
@@ -275,6 +275,11 @@
 	    R_cont_abs((int)floor(x + 0.5), (int)floor(y + 0.5));
 	}
 	else if (velocity >= 5) {
+	    dx = D_u_to_d_col(easting) + (stem_length -
+					  0.5) * radius * cos(D2R(angle));
+	    dy = D_u_to_d_row(northing) + (stem_length -
+					   0.5) * radius * sin(D2R(angle));
+	    R_move_abs((int)floor(dx + 0.5), (int)floor(dy + 0.5));
 	    x = dx + radius * cos(D2R(rot_angle));
 	    y = dy + radius * sin(D2R(rot_angle));
 	    R_cont_abs((int)floor(x + 0.5), (int)floor(y + 0.5));