# HG changeset patch
# User David Bateman <dbateman@free.fr>
# Date 1283287820 -7200
# Node ID e78e531dfa2db306e7c24ff0996dc51c5d4d8d53
# Parent  3a778233e4fbcff4aa2d11ab0599607e0bbf56b8
Improve matlab compatibility with '.' marker

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-07  David Bateman  <dbateman@free.fr>
+
+	* plot/__go_draw_axes__.m: Improve matlab compatibility for "."
+	marker.
+
 2010-08-31  Ben Abbott <bpabbott@mac.com>
 
 	* plot/private/__actual_axis_position__.m, plot/__go_draw_axes__.m,
diff --git a/scripts/plot/__go_draw_axes__.m b/scripts/plot/__go_draw_axes__.m
--- a/scripts/plot/__go_draw_axes__.m
+++ b/scripts/plot/__go_draw_axes__.m
@@ -808,7 +808,7 @@
                lw  = "";
              endif
 
-             [pt, pt2] = gnuplot_pointtype (obj);
+             [pt, pt2, obj] = gnuplot_pointtype (obj);
              if (! isempty (pt))
                pt = sprintf ("pointtype %s", pt);
              endif
@@ -1645,7 +1645,7 @@
     found_style = true;
   endif
 
-  [pt, pt2] = gnuplot_pointtype (obj);
+  [pt, pt2, obj] = gnuplot_pointtype (obj);
 
   if (! isempty (pt))
     found_style = true;
@@ -1761,7 +1761,7 @@
 
 endfunction
 
-function [pt, pt2] = gnuplot_pointtype (obj)
+function [pt, pt2, obj] = gnuplot_pointtype (obj)
   if (isfield (obj, "marker"))
     switch (obj.marker)
       case "+"
@@ -1772,7 +1772,17 @@
       case "*"
         pt = pt2 = "3";
       case "."
-        pt = pt2 = "0";
+        pt = "6";
+        pt2 = "7";
+        if (isfield (obj, "markerfacecolor")
+            || strncmp (obj.markerfacecolor, "none", 4))
+          obj.markerfacecolor = "auto";
+        endif
+        if (isfield (obj, "markersize"))
+          obj.markersize /= 3;
+        else
+          obj.markersize = 5;
+        endif
       case "x"
         pt = pt2 = "2";
       case {"square", "s"}