Mercurial > octave-nkf

changeset 11639:78f183f65ca2 release-3-0-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixes for quiver3
author Kostas Poulios
date Tue, 12 Feb 2008 16:32:24 -0500
parents b80ff179c08d
children 6c36c5d3c38b
files scripts/ChangeLog scripts/plot/__quiver__.m
diffstat 2 files changed, 14 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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)