Mercurial > hg > octave-max
changeset 7475:aa5208636bea
Fixes for quiver3
author | Kostas Poulios |
---|---|
date | Tue, 12 Feb 2008 16:32:37 -0500 |
parents | 318c54123d28 |
children | e9f10b4c05cf |
files | scripts/ChangeLog scripts/plot/__quiver__.m |
diffstat | 2 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,8 @@ +2008-02-12 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 +++ b/scripts/plot/__quiver__.m @@ -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)