R Under development (unstable) (2025-07-22 r88445 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
> library(grid)
> library(gridSVG)

Attaching package: 'gridSVG'

The following objects are masked from 'package:grid':

    linearGradient, pattern, radialGradient

The following object is masked from 'package:grDevices':

    dev.off

> 
> # Primitives to support:
> #  rect
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect()
> popViewport()
> grid.export("rot-rect-default.svg")
> # Check justification
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect(x=0, y=0, just=c("left", "bottom"))
> popViewport()
> grid.export("rot-rect-just.svg")
> 
> # Primitives to support:
> #  text
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.text("rot-test")
> popViewport()
> grid.export("rot-text-default.svg")
> # Check justification
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.circle(r=unit(1, "mm"))
> grid.text("rot-test", just=c("left", "bottom"))
> popViewport()
> grid.export("rot-text-just.svg")
> 
> # Primitives to support:
> #  clipPath
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30, clip=TRUE))
Warning message:
In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
> grid.circle(r=.6)
> popViewport()
> grid.export("rot-clip-default.svg")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
> 
> # Primitives to support:
> #  raster
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.raster(matrix(1:4/5, ncol=2), interp=FALSE)
> popViewport()
> grid.export("rot-raster-default.svg")
> # Check justification
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.raster(matrix(1:4/5, ncol=2), interp=FALSE,
+             x=0, y=0, just=c("left", "bottom"))
> popViewport()
> grid.export("rot-raster-just.svg")
> 
> # Primitives to support:
> #  plotting symbols
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect()
> grid.points(1:5/6, 1:5/6, pch=1:5)
> popViewport()
> grid.export("rot-points.svg")
> 
> #####################################
> # Full STATIC test
> library(lattice)
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> print(xyplot(mpg ~ disp, mtcars, pch=3),
+       newpage=FALSE)
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> popViewport()
> grid.export("rot-lattice.svg")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
4: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
5: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
6: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> #####################################
> 
> # Implications for animation:
> #  rect
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect(gp=gpar(col="grey"))
> grid.rect(x=.1, width=.1, height=.1, just="left", name="r")
> grid.animate("r", x=c(.1, .8))
> popViewport()
> grid.export("rot-rect-animate-x.svg")
> 
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect(gp=gpar(col="grey"))
> grid.rect(x=.1, width=.1, height=.1, just="left", name="r")
> grid.animate("r", x=c(.1, .8), height=c(.1, .5))
> popViewport()
> grid.export("rot-rect-animate-height.svg")
> 
> # Implications for animation:
> #  text
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect(gp=gpar(col="grey"))
> grid.text("rot-test", x=.1, name="t")
> grid.animate("t", x=c(.1, .9))
> popViewport()
> grid.export("rot-text-animate-x.svg")
> 
> # Implications for animation:
> #  raster
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect(gp=gpar(col="grey"))
> grid.raster(matrix(1-4:1/20, ncol=2), interpolate=FALSE,
+             x=.8, width=.1, just="left")
> grid.raster(matrix(1:4/5, ncol=2), interpolate=FALSE,
+             x=.1, width=.1, just="left", name="r")
> grid.animate("r", x=c(.1, .8))
> popViewport()
> grid.export("rot-raster-animate-x.svg")
> 
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect(gp=gpar(col="grey"))
> grid.raster(matrix(1-4:1/20, ncol=2), interpolate=FALSE,
+             x=.8, width=.1, height=.5, just="left")
> grid.raster(matrix(1:4/5, ncol=2), interpolate=FALSE,
+             x=.1, width=.1, just="left", name="r")
> # NOTE important to specify unit for height because default is NULL!
> grid.animate("r", x=c(.1, .8), height=unit(c(.1, .5), "npc"))
> popViewport()
> grid.export("rot-raster-animate-height.svg")
> 
> # Implications for animation:
> #  plotting symbols
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect()
> grid.points(5:1/6, 1:5/6, pch=1:5, gp=gpar(col="grey"))
> grid.points(1:5/6, 1:5/6, pch=1:5, name="p")
> grid.animate("p", x=animUnit(unit(c(1:5, 5:1)/6, "npc"), id=rep(1:5, 2)))
> popViewport()
> grid.export("rot-points-animate-x.svg")
> 
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> grid.rect()
> grid.points(5:1/6, 1:5/6, pch=1:5, size=unit(2, "char"), gp=gpar(col="grey"))
> grid.points(1:5/6, 1:5/6, pch=1:5, name="p")
> grid.animate("p", x=animUnit(unit(c(1:5, 5:1)/6, "npc"), id=rep(1:5, 2)),
+              size=animUnit(unit(rep(1:2, each=5), "char"), i=rep(1:5, 2)))
> popViewport()
> grid.export("rot-points-animate-size.svg")
> 
> #####################################
> # Full DYNAMIC test
> library(lattice)
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30))
> print(xyplot(qsec ~ disp, mtcars, pch=3, col="grey",
+              ylim=extendrange(c(mtcars$mpg, mtcars$qsec))),
+       newpage=FALSE, prefix="plotgrey")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> print(xyplot(mpg ~ disp, mtcars, pch=3,
+              ylim=extendrange(c(mtcars$mpg, mtcars$qsec))),
+       newpage=FALSE, prefix="plot1")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> grid.animate("plot1.xyplot.points.panel.1.1", 
+              y=animUnit(unit(c(mtcars$mpg, mtcars$qsec), "native"),
+                  id=rep(1:nrow(mtcars), 2)))
> ylab <- grid.get("plot1.ylab")
> grid.animate("plot1.ylab", y=ylab$y - unit(0:1, "in"),
+              "fill-opacity"=1:0, "stroke-opacity"=1:0)
> grid.animate("plotgrey.ylab", y=ylab$y + unit(1:0, "in"), 
+              "fill-opacity"=0:1, "stroke-opacity"=0:1)
> popViewport()
> grid.export("rot-lattice-animate.svg")
There were 12 warnings (use warnings() to see them)
> #####################################
> 
> # Implications for exported coordinate system info (*.svg.coords.js)
> #  need to record rotation info 
> #  AND use it in convertViewportX() etc
> library(lattice)
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30,
+                       name="rot"))
> print(xyplot(mpg ~ disp, mtcars, pch=3),
+       newpage=FALSE, prefix="coords")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> downViewport("coords.panel.1.1.off.vp")
> grid.circle(unit(200, "native"), unit(30, "native"),
+             r=unit(2, "mm"), gp=gpar(col=NA, fill="grey"))
> grid.circle(unit(300, "native"), unit(35, "native"),
+             r=unit(1, "mm"), gp=gpar(col=NA, fill="grey"))
> upViewport(0)
> grid.export("rot-lattice-coords.svg",
+             exportCoords="file", exportMappings="file", usePaths="none")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
4: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
5: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
6: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
7: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> # Read image back into R
> library(XML)
> svg <- xmlParse("rot-lattice-coords.svg")
> # Read in coord info 
> gridSVGCoords(readCoordsJS("rot-lattice-coords.svg.coords.js"))
> gridSVGMappings(readMappingsJS("rot-lattice-coords.svg.mappings.js"))
> # Add new point to panel
> panel <- getNodeSet(svg,
+                     "//svg:g[contains(@id, 'coords.panel.1.1.off.vp')]",
+                     namespaces=c(svg="http://www.w3.org/2000/svg"))[[1]]
> vpname <- getSVGMappings("coords.panel.1.1.off.vp", "vp")[1]
> pos <- viewportConvertPos(vpname, 200, 30, "native")
> circ <- newXMLNode("circle",
+                    parent = panel,
+                    attrs = list(
+                        cx = pos$x, cy = pos$y,
+                        r = viewportConvertWidth(vpname, 2, "mm", "svg"),
+                        stroke = "red",
+                        fill = "red",
+                        "fill-opacity" = .5))
> dim <- viewportConvertDim(vpname, 100, 5, "native", "svg")
> line <- newXMLNode("polyline",
+                    parent = panel,
+                    attrs = list(
+                        points =
+                          paste(paste(pos$x, pos$y, sep=","),
+                                paste(pos$x + dim$w, pos$y + dim$h, sep=",")),
+                        r = viewportConvertWidth(vpname, 2, "mm", "svg"),
+                        stroke = "red",
+                        fill = "red",
+                        "fill-opacity" = .5))
> saveXML(svg, "rot-lattice-coords-mod.svg")
[1] "rot-lattice-coords-mod.svg"
> 
> # Pre-existing bug in convertViewportWidth() and convertViewportHeight()
> library(lattice)
> print(xyplot(mpg ~ disp, mtcars, pch=3), prefix="bug")
> downViewport("bug.panel.1.1.off.vp")
> grid.rect(x=200, y=30, width=100, height=5, just=c("left", "bottom"),
+           default="native", gp=gpar(col="grey", fill=NA))
> grid.export("bug-lattice-coords.svg",
+             exportCoords="file", exportMappings="file", usePaths="none")
> library(XML)
> svg <- xmlParse("bug-lattice-coords.svg")
> gridSVGCoords(readCoordsJS("bug-lattice-coords.svg.coords.js"))
> gridSVGMappings(readMappingsJS("bug-lattice-coords.svg.mappings.js"))
> panel <- getNodeSet(svg,
+                     "//svg:g[contains(@id, 'bug.panel.1.1.off.vp')]",
+                     namespaces=c(svg="http://www.w3.org/2000/svg"))[[1]]
> vpname <- getSVGMappings("bug.panel.1.1.off.vp", "vp")[1]
> x <- viewportConvertX(vpname, 200, "native")
> y <- viewportConvertY(vpname, 30, "native")
> w <- viewportConvertWidth(vpname, 100, "native", "svg")
> h <- viewportConvertHeight(vpname, 5, "native", "svg")
> line <- newXMLNode("polyline",
+                    parent = panel,
+                    attrs = list(points = paste(paste(x, y, sep=","),
+                                     paste(x + w, y + h, sep=",")),
+                        r = viewportConvertWidth(vpname, 2, "mm", "svg"),
+                        stroke = "red",
+                        fill = "red",
+                        "fill-opacity" = .5))
> saveXML(svg, "bug-lattice-coords-mod.svg")
[1] "bug-lattice-coords-mod.svg"
> 
> # Implications for exported coordinate system info (*.svg.coords.js)
> #  in viewportCreate()
> library(lattice)
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30,
+                       name="rot"))
> print(xyplot(mpg ~ disp, mtcars, pch=3),
+       newpage=FALSE, prefix="coords")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> downViewport("coords.panel.1.1.off.vp")
> grid.yaxis(main=FALSE, gp=gpar(col="grey", fill="grey"))
> upViewport(0)
> grid.export("rot-lattice-coords-create.svg",
+             exportCoords="file", exportMappings="file", usePaths="none")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
4: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
5: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
6: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
7: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> library(XML)
> svg <- xmlParse("rot-lattice-coords-create.svg")
> # Read in coord info 
> gridSVGCoords(readCoordsJS("rot-lattice-coords-create.svg.coords.js"))
> gridSVGMappings(readMappingsJS("rot-lattice-coords-create.svg.mappings.js"))
> # Create new viewport
> vpname <- getSVGMappings("coords.panel.1.1.off.vp", "vp")[1]
> vp <- viewportCreate(vpname)
> grid.newpage()
> pushViewport(vp)
> # Draw an axis and, convert it to SVG, and extract axis SVG content
> grid.yaxis(main=FALSE, gp=gpar(col="red", fill="red"))
> newsvg <- grid.export(NULL)
> axissvg <- getNodeSet(newsvg$svg,
+                       "//svg:g[contains(@id, 'yaxis')]",
+                       namespaces=c(svg="http://www.w3.org/2000/svg"))[[1]]
> # Add new axis to panel
> panel <- getNodeSet(svg,
+                     "//svg:g[contains(@id, 'coords.panel.1.1.off.vp')]",
+                     namespaces=c(svg="http://www.w3.org/2000/svg"))[[1]]
> addChildren(panel, kids=list(axissvg))
<g id="coords.panel.1.1.off.vp.1">
  <g id="coords.ticks.bottom.panel.1.1.1">
    <polyline id="coords.ticks.bottom.panel.1.1.1.1" points="243.05,166.93 245.88,162.02" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.bottom.panel.1.1.1.2" points="274.93,185.34 277.77,180.43" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.bottom.panel.1.1.1.3" points="306.81,203.75 309.65,198.84" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.bottom.panel.1.1.1.4" points="338.69,222.15 341.53,217.24" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.bottom.panel.1.1.1.5" points="370.58,240.56 373.41,235.65" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
  </g>
  <g id="coords.ticklabels.bottom.panel.1.1.1">
    <g id="coords.ticklabels.bottom.panel.1.1.1.1" transform="rotate(30 248.72 157.11) translate(248.72, 157.11)" stroke-width="0.1">
      <g id="coords.ticklabels.bottom.panel.1.1.1.1.scale" transform="scale(1, -1)">
        <text x="0" y="0" id="coords.ticklabels.bottom.panel.1.1.1.1.text" text-anchor="middle" stroke="rgb(0,0,0)" opacity="1" fill="rgb(0,0,0)" stroke-opacity="1" fill-opacity="1" font-size="9.6" font-weight="normal" font-style="normal">
          <tspan id="coords.ticklabels.bottom.panel.1.1.1.1.tspan.1" dy="7.18" x="0">100</tspan>
        </text>
      </g>
    </g>
    <g id="coords.ticklabels.bottom.panel.1.1.1.2" transform="rotate(30 280.6 175.52) translate(280.6, 175.52)" stroke-width="0.1">
      <g id="coords.ticklabels.bottom.panel.1.1.1.2.scale" transform="scale(1, -1)">
        <text x="0" y="0" id="coords.ticklabels.bottom.panel.1.1.1.2.text" text-anchor="middle" stroke="rgb(0,0,0)" opacity="1" fill="rgb(0,0,0)" stroke-opacity="1" fill-opacity="1" font-size="9.6" font-weight="normal" font-style="normal">
          <tspan id="coords.ticklabels.bottom.panel.1.1.1.2.tspan.1" dy="7.18" x="0">200</tspan>
        </text>
      </g>
    </g>
    <g id="coords.ticklabels.bottom.panel.1.1.1.3" transform="rotate(30 312.48 193.93) translate(312.48, 193.93)" stroke-width="0.1">
      <g id="coords.ticklabels.bottom.panel.1.1.1.3.scale" transform="scale(1, -1)">
        <text x="0" y="0" id="coords.ticklabels.bottom.panel.1.1.1.3.text" text-anchor="middle" stroke="rgb(0,0,0)" opacity="1" fill="rgb(0,0,0)" stroke-opacity="1" fill-opacity="1" font-size="9.6" font-weight="normal" font-style="normal">
          <tspan id="coords.ticklabels.bottom.panel.1.1.1.3.tspan.1" dy="7.18" x="0">300</tspan>
        </text>
      </g>
    </g>
    <g id="coords.ticklabels.bottom.panel.1.1.1.4" transform="rotate(30 344.36 212.33) translate(344.36, 212.33)" stroke-width="0.1">
      <g id="coords.ticklabels.bottom.panel.1.1.1.4.scale" transform="scale(1, -1)">
        <text x="0" y="0" id="coords.ticklabels.bottom.panel.1.1.1.4.text" text-anchor="middle" stroke="rgb(0,0,0)" opacity="1" fill="rgb(0,0,0)" stroke-opacity="1" fill-opacity="1" font-size="9.6" font-weight="normal" font-style="normal">
          <tspan id="coords.ticklabels.bottom.panel.1.1.1.4.tspan.1" dy="7.18" x="0">400</tspan>
        </text>
      </g>
    </g>
  </g>
  <g id="coords.ticks.right.panel.1.1.1">
    <polyline id="coords.ticks.right.panel.1.1.1.1" points="366.87,247.02 371.78,249.85" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.right.panel.1.1.1.2" points="351.93,272.91 356.83,275.74" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.right.panel.1.1.1.3" points="336.98,298.8 341.89,301.64" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.right.panel.1.1.1.4" points="322.03,324.69 326.94,327.53" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.right.panel.1.1.1.5" points="307.08,350.58 311.99,353.42" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
    <polyline id="coords.ticks.right.panel.1.1.1.6" points="292.13,376.48 297.04,379.31" stroke="rgb(0,0,0)" opacity="1" stroke-dasharray="none" stroke-width="0.75" stroke-opacity="1" fill="none"/>
  </g>
  <default:g xmlns:default="http://www.w3.org/2000/svg" xmlns="http://www.w3.org/2000/svg" id="GRID.yaxis.346.1" stroke="rgb(255,0,0)" fill="rgb(255,0,0)" stroke-opacity="1" fill-opacity="1">
    <g id="major.1">
      <polyline id="major.1.1" points="366.88,247.02 292.13,376.48" fill="none"/>
    </g>
    <g id="ticks.1">
      <polyline id="ticks.1.1" points="366.88,247.02 373.11,250.62" fill="none"/>
      <polyline id="ticks.1.2" points="351.93,272.91 358.16,276.51" fill="none"/>
      <polyline id="ticks.1.3" points="336.98,298.81 343.21,302.41" fill="none"/>
      <polyline id="ticks.1.4" points="322.03,324.7 328.27,328.3" fill="none"/>
      <polyline id="ticks.1.5" points="307.08,350.59 313.32,354.19" fill="none"/>
      <polyline id="ticks.1.6" points="292.13,376.48 298.37,380.08" fill="none"/>
    </g>
    <g id="labels.1">
      <g id="labels.1.1" transform="rotate(30 379.35 254.22) translate(379.35, 254.22)" stroke-width="0.1">
        <g id="labels.1.1.scale" transform="scale(1, -1)">
          <text x="0" y="0" id="labels.1.1.text" text-anchor="start" fill="rgb(0,0,0)" fill-opacity="1">
            <tspan id="labels.1.1.tspan.1" dy="4.31" x="0">10</tspan>
          </text>
        </g>
      </g>
      <g id="labels.1.2" transform="rotate(30 364.4 280.11) translate(364.4, 280.11)" stroke-width="0.1">
        <g id="labels.1.2.scale" transform="scale(1, -1)">
          <text x="0" y="0" id="labels.1.2.text" text-anchor="start" fill="rgb(0,0,0)" fill-opacity="1">
            <tspan id="labels.1.2.tspan.1" dy="4.31" x="0">15</tspan>
          </text>
        </g>
      </g>
      <g id="labels.1.3" transform="rotate(30 349.45 306.01) translate(349.45, 306.01)" stroke-width="0.1">
        <g id="labels.1.3.scale" transform="scale(1, -1)">
          <text x="0" y="0" id="labels.1.3.text" text-anchor="start" fill="rgb(0,0,0)" fill-opacity="1">
            <tspan id="labels.1.3.tspan.1" dy="4.31" x="0">20</tspan>
          </text>
        </g>
      </g>
      <g id="labels.1.4" transform="rotate(30 334.5 331.9) translate(334.5, 331.9)" stroke-width="0.1">
        <g id="labels.1.4.scale" transform="scale(1, -1)">
          <text x="0" y="0" id="labels.1.4.text" text-anchor="start" fill="rgb(0,0,0)" fill-opacity="1">
            <tspan id="labels.1.4.tspan.1" dy="4.31" x="0">25</tspan>
          </text>
        </g>
      </g>
      <g id="labels.1.5" transform="rotate(30 319.55 357.79) translate(319.55, 357.79)" stroke-width="0.1">
        <g id="labels.1.5.scale" transform="scale(1, -1)">
          <text x="0" y="0" id="labels.1.5.text" text-anchor="start" fill="rgb(0,0,0)" fill-opacity="1">
            <tspan id="labels.1.5.tspan.1" dy="4.31" x="0">30</tspan>
          </text>
        </g>
      </g>
      <g id="labels.1.6" transform="rotate(30 304.6 383.68) translate(304.6, 383.68)" stroke-width="0.1">
        <g id="labels.1.6.scale" transform="scale(1, -1)">
          <text x="0" y="0" id="labels.1.6.text" text-anchor="start" fill="rgb(0,0,0)" fill-opacity="1">
            <tspan id="labels.1.6.tspan.1" dy="4.31" x="0">35</tspan>
          </text>
        </g>
      </g>
    </g>
  </default:g>
</g> 
> saveXML(svg, "rot-lattice-coords-create-mod.svg")
[1] "rot-lattice-coords-create-mod.svg"
> 
> # Implications for exported coordinate system info (*.svg.coords.js)
> #  in javascript viewportConvertX, etc
> library(lattice)
> grid.newpage()
> pushViewport(viewport(width=.5, height=.5, angle=30,
+                       name="rot"))
> print(xyplot(mpg ~ disp, mtcars, pch=3),
+       newpage=FALSE, prefix="coords")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> downViewport("coords.panel.1.1.off.vp")
> grid.rect(x=200, y=30, width=100, height=5, just=c("left", "bottom"),
+           default="native", gp=gpar(col="grey", fill=NA))
> upViewport(0)
> grid.garnish("coords.background",
+              onclick="addPoint()",
+              "pointer-events"="all")
> grid.script(file="rot-lattice-coords.js")
> grid.export("rot-lattice-coords-js.svg",
+             exportCoords="file", exportMappings="file", usePaths="none",
+             exportJS="file")
Warning messages:
1: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
2: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
3: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
4: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
5: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
6: In grid.Call.graphics(C_setviewport, vp, TRUE) :
  cannot clip to rotated viewport
7: In grid.Call.graphics(C_downviewport, name$name, strict) :
  cannot clip to rotated viewport
> 
> # Pre-existing bug in convertViewportWidth() and convertViewportHeight() (in JS)
> library(lattice)
> print(xyplot(mpg ~ disp, mtcars, pch=3), prefix="bug")
> downViewport("bug.panel.1.1.off.vp")
> grid.rect(x=200, y=30, width=100, height=5, just=c("left", "bottom"),
+           default="native", gp=gpar(col="grey", fill=NA))
> grid.garnish("bug.background",
+              onclick="addPoint()",
+              "pointer-events"="all")
> grid.script(file="bug-lattice-coords.js")
> grid.export("bug-lattice-coords-js.svg",
+             exportCoords="file", exportMappings="file", usePaths="none",
+             exportJS="file")
> 
> 
> 
> 
> proc.time()
   user  system elapsed 
   4.32    0.10    4.43