David.
> --
> Sent from my phone. Please excuse my brevity.
>
> On June 14, 2017 3:27:15 PM PDT, David Winsemius <dwinsemius at comcast.net> wrote:
>>
>>> On Jun 14, 2017, at 1:53 PM, Rolf Turner <r.turner at auckland.ac.nz>
>> wrote:
>>>
>>> On 15/06/17 05:29, David Winsemius wrote:
>>>>> On Jun 14, 2017, at 10:18 AM, David Winsemius
>> <dwinsemius at comcast.net> wrote:
>>>>>
>>>>>
>>>>>> On Jun 14, 2017, at 9:46 AM, Jeff Newmiller
>> <jdnewmil at dcn.davis.ca.us> wrote:
>>>>>>
>>>>>> I don't see a question. If your question is whether R supports
>> pattern fills, AFAIK it does not. If that is not your question, ask
>> one.
>>>>>> --
>>>>>> Sent from my phone. Please excuse my brevity.
>>>>>>
>>>>>> On June 14, 2017 7:57:41 AM PDT, jean-philippe
>> <jeanphilippe.fontaine at gssi.infn.it> wrote:
>>>>>>> dear R users,
>>>>>>>
>>>>>>> I would like to fill a circle with yellow stripes instead of a
>> uniform
>>>>>>> yellow color. To draw the circle I used the following command
>> after
>>>>>>> having loaded the (very nice !) plotrix library :
>>>> I finally understood the question and it needs a hack to the
>> draw.circle function in plotrix since the angle and density arguments
>> don't get passed in:
>>>> First get code for draw.circle:
>>>> ------
>>>> draw.circle # then copy to console and edit
>>>> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL,
>> col = NA, lty = 1,
>>>> density=NA, angle=45, lwd = 1 )
>>>> {
>>>> xylim <- par("usr")
>>>> plotdim <- par("pin")
>>>> ymult <- getYmult()
>>>> angle.inc <- 2 * pi/nv
>>>> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
>>>> if (length(col) < length(radius))
>>>> col <- rep(col, length.out = length(radius))
>>>> for (circle in 1:length(radius)) {
>>>> xv <- cos(angles) * radius[circle] + x
>>>> yv <- sin(angles) * radius[circle] * ymult + y
>>>> polygon(xv, yv, border = border, col = col, lty = lty,
>> density=density, angle=angle,
>>>> lwd = lwd)
>>>> }
>>>> invisible(list(x = xv, y = yv))
>>>> }
>>>> Now run your call to pdf with draw.circle2 instead of draw.circle.
>>>
>>> This is just idle curiosity, since I'm not really able to contribute
>> anything useful, but I can't resist asking: When I try to run the OP's
>> code I get an error:
>>>
>>>> Error in alpha("red", 0.4) : could not find function "alpha".
>>>
>>> Why does this (apparently) not happen to anyone else? Why does the
>> universe pick on *me*? What is the function "alpha()"? Where is it to
>> be found?
>>
>> I discovered some time ago that I no longer needed to load the ggplot2
>> package. I wasn't entirely happy to make this discovery since I stilll
>> cling to the old lattice style. Eventually I figgured out that it was
>> because one of packages that I load in my .Rprofile-file had changed
>> its imports. The `alpha` function I see is from ggplot2. Resistance is
>> futile. I've now been partially assimilated.
>>
>>
>>>
>>> Searching on "alpha" is of course completely unproductive; there are
>> far too many (totally irrelevant) instances.
>>
>>
>>>
>>> cheers,
>>>
>>> Rolf
>>>
>>> --
>>> Technical Editor ANZJS
>>> Department of Statistics
>>> University of Auckland
>>> Phone: +64-9-373-7599 ext. 88276
>>
>> David Winsemius
>> Alameda, CA, USA
David Winsemius
Alameda, CA, USA