[Vegan-commits] r446 - pkg/R

[noreply at r-forge.r-project.org]

Author: jarioksa
Date: 2008-07-14 08:01:37 +0200 (Mon, 14 Jul 2008)
New Revision: 446

Modified:
   pkg/R/orditkplot.R
Log:
orditkplot: corrected pch triangle shape

Modified: pkg/R/orditkplot.R
===================================================================
--- pkg/R/orditkplot.R	2008-07-14 05:44:49 UTC (rev 445)
+++ pkg/R/orditkplot.R	2008-07-14 06:01:37 UTC (rev 446)
@@ -127,10 +127,10 @@
                x+SQ*diam, y, x, y-SQ*diam, x-SQ*diam, y,
                outline = col, fill = fill),
                "24" = tkcreate(can, "polygon", x, y-SQ*diam,
-               x+4/3*diam, y+SQ/3*diam, x-4/3*diam, y+SQ/3*diam,
+               x+sqrt(6)/2*diam, y+SQ/2*diam, x-sqrt(6)/2*diam, y+SQ/2*diam,
                outline = col, fill = fill),
                "25" = tkcreate(can, "polygon", x, y+SQ*diam,
-               x+4/3*diam, y-SQ/3*diam, x-4/3*diam, y-SQ/3*diam,
+               x+sqrt(6)/2*diam, y-SQ/2*diam, x-sqrt(6)/2*diam, y-SQ/2*diam,
                outline = col, fill = fill),
                tkcreate(can, "text",
                         x, y, text = as.character(pch), fill = col))