Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.postscript > #1526

Re: How do you call this figure

Show all headers | View raw

Op maandag 29 jul 2013 09:19 CEST schreef Cecil Westerhof:

> Op zondag 28 jul 2013 21:13 CEST schreef luuk@invalid.lan:
>
>> On 28-07-2013 18:29, Raoul Fleckman wrote:
>>> On 2013-07-28, Mark Carroll <mtbc@bcs.org> wrote:
>>>> Cecil Westerhof <Cecil@decebal.nl> writes:
>>>>
>>>>> How is this figure called? I want to make a postscript libary
>>>>> containing this figure, but giving the correct name would be
>>>>> useful.
>>>>
>>>> That's a good question. It looks to me like a four-leaf clover.
>>>> (-:
>>>
>>> if in doubt throw in some greek --> tetrafoil
>
> That is another figure I saw and want to make a function for:
> http://www.flickr.com/photos/quadralectics/1708462258/
>
> Well, I already know the name for that one then.

I made the function:
    % centerX centerY radius [innerCircle]  tetrafoil  -
    /tetrafoil {
        5 dict begin
            dup type /booleantype eq {
                /innerCircle exch def
            } {
                /innerCircle false def
            } ifelse
            /radius  exch def
            /centerY exch def
            /centerX exch def
    
            /offset radius 2 sqrt mul def
    
            gsave
                newpath
                centerX             centerY offset add  radius  315  225  arc
                centerX offset sub  centerY             radius  45   315  arc
                centerX             centerY offset sub  radius  135  45   arc
                centerX offset add  centerY             radius  225  135  arc
                innerCircle {
                    centerX radius add  centerY  moveto
                    centerX  centerY  radius  0  360  arc
                } if
                stroke
            grestore
        end
    } def
    

And a little demonstration with it:
    [4 6 10 14 20 30 40 60 90] {
        300  300
        3  -1  roll
        tetrafoil
    } forall

-- 
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof

Back to comp.lang.postscript | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

How do you call this figure Cecil Westerhof <Cecil@decebal.nl> - 2013-07-28 16:36 +0200
  Re: How do you call this figure Mark Carroll <mtbc@bcs.org> - 2013-07-28 15:48 +0100
    Re: How do you call this figure Raoul Fleckman <raoul.fleckman@gmail.com> - 2013-07-28 16:29 +0000
      Re: How do you call this figure Luuk <luuk@invalid.lan> - 2013-07-28 21:13 +0200
        Re: How do you call this figure Cecil Westerhof <Cecil@decebal.nl> - 2013-07-29 09:19 +0200
          Re: How do you call this figure Cecil Westerhof <Cecil@decebal.nl> - 2013-07-29 11:24 +0200
            Re: How do you call this figure Cecil Westerhof <Cecil@decebal.nl> - 2013-07-30 11:54 +0200
  Re: How do you call this figure luser- -droog <mijoryx@yahoo.com> - 2013-07-28 23:24 -0700
    Re: How do you call this figure Cecil Westerhof <Cecil@decebal.nl> - 2013-07-29 10:08 +0200

csiph-web