# HG changeset patch
# User Kostas Poulios
# Date 1202851944 18000
# Node ID 78f183f65ca290c7d0d70dfed2657c9ad27a73b3
# Parent  b80ff179c08d9aab64c6ace43e8249de326661d8
Fixes for quiver3

diff -r b80ff179c08d -r 78f183f65ca2 scripts/ChangeLog
--- a/scripts/ChangeLog	Tue Feb 12 16:23:25 2008 -0500
+++ b/scripts/ChangeLog	Tue Feb 12 16:32:24 2008 -0500
@@ -1,3 +1,8 @@
+2008-02-08  Kostas Poulios  <poulios.konstantinos@googlemail.com>
+
+	* plot/__quiver__.m: make arrow head be in z-plane of the arrow
+	body. Allow the linespec to specify the arrow color.
+
 2008-02-12  David Bateman  <dbateman@free.fr>
 
 	* miscellaneous/cast.m: Also treat the logical type.
diff -r b80ff179c08d -r 78f183f65ca2 scripts/plot/__quiver__.m
--- a/scripts/plot/__quiver__.m	Tue Feb 12 16:23:25 2008 -0500
+++ b/scripts/plot/__quiver__.m	Tue Feb 12 16:32:24 2008 -0500
@@ -133,11 +133,13 @@
 	h1 = plot3 ([x.'; xend.'; NaN(1, length (x))](:),
 		    [y.'; yend.'; NaN(1, length (y))](:),
 		    [z.'; zend.'; NaN(1, length (z))](:),
-		    "linestyle", linespec.linestyle);
+		    "linestyle", linespec.linestyle, 
+		    "color", linespec.color);
       else
 	h1 = plot ([x.'; xend.'; NaN(1, length (x))](:),
 		   [y.'; yend.'; NaN(1, length (y))](:),
-		   "linestyle", linespec.linestyle);
+		   "linestyle", linespec.linestyle, 
+		    "color", linespec.color);
       endif
     else
       if (is3d)
@@ -158,7 +160,7 @@
     yarrw1 = ytmp - (x - xend) * arrowsize / 3;
     yarrw2 = ytmp + (x - xend) * arrowsize / 3;
     if (is3d)
-      zarrw1 = zarrw2 = zend - w(:) * arrowsize / 3;
+      zarrw1 = zarrw2 = zend - w(:) * arrowsize;
     endif
 
     if (have_line_spec)
@@ -179,11 +181,13 @@
 	  h2 = plot3 ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:),
 		      [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:),
 		      [zarrw1.'; zend.'; zarrw2.'; NaN(1, length (z))](:),
-		      "linestyle", linespec.linestyle);
+		      "linestyle", linespec.linestyle,
+		      "color", linespec.color);
 	else
 	  h2 = plot ([xarrw1.'; xend.'; xarrw2.'; NaN(1, length (x))](:),
 		     [yarrw1.'; yend.'; yarrw2.'; NaN(1, length (y))](:),
-		     "linestyle", linespec.linestyle);
+		     "linestyle", linespec.linestyle,
+		      "color", linespec.color);
 	endif
       endif
     elseif (is3d)