Groups > comp.lang.postscript > #1986

How to rewrite this

Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!us.feeder.erje.net!newsfeed.fsmpi.rwth-aachen.de!weretis.net!feeder4.news.weretis.net!newsfeed.tele2net.at!news.panservice.it!feed.xsnews.nl!border01.ams.xsnews.nl!feeder01.ams.xsnews.nl!frontend-F09-06.ams.news.kpn.nl
From	Cecil Westerhof <Cecil@decebal.nl>
Newsgroups	comp.lang.postscript
Subject	How to rewrite this
Organization	Decebal Computing
X-Face	"(y8cC@tg_12{">GF'UXTW]FHI2wMiZNrnf'1EFQ&O#$m:f#O7+7}kR<J%a^F2lh4[N~Yz4 nSp#c+aQo1b5=?HcNEkQ7QzF<])O3X4MDL/AYjys&*mt>,v+Pti8=Vi/Z"g^?b"E
X-Homepage	http://www.decebal.nl/
Date	Tue, 19 Aug 2014 19:02:35 +0200
Message-ID	<87fvgs5s5w.fsf@Equus.decebal.nl> (permalink)
User-Agent	Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux)
Cancel-Lock	sha1:9t/GD/oQipelE4bS8GUFQ2pbuzQ=
MIME-Version	1.0
Content-Type	text/plain
Lines	33
NNTP-Posting-Host	77.171.42.144
X-Trace	1408468572 news.kpn.nl 26857 77.171.42.144@kpn/77.171.42.144:42635
Xref	csiph.com comp.lang.postscript:1986

Show key headers only | View raw

I use the following code to draw a star:
    15  15  moveto
    20   0  lineto
    25  15  lineto
    40  20  lineto
    25  25  lineto
    20  40  lineto
    15  25  lineto
     0  20  lineto
    closepath
    fill

I thought to rewrite this neatly like this:
    gsave
        20  20  translate
        4 {
            -5   -5  moveto
             0  -20  lineto
             5   -5  lineto
            90  rotate
        } repeat
        closepath
        fill
    grestore

But then only four triangles are filled and the square in the middle
is not. I could of-course fill the square also, but I was wondering if
there is a better way.

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

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

Thread

How to rewrite this Cecil Westerhof <Cecil@decebal.nl> - 2014-08-19 19:02 +0200
  Re: How to rewrite this jdaw1 <jdawiseman@gmail.com> - 2014-08-20 00:43 -0700
  Re: How to rewrite this Herbert Voss <Herbert.Voss@alumni.tu-berlin.de> - 2014-08-20 13:08 +0200
    Re: How to rewrite this Cecil Westerhof <Cecil@decebal.nl> - 2014-08-20 15:28 +0200
  Re: How to rewrite this tlvp <mPiOsUcB.EtLlLvEp@att.net> - 2014-08-30 01:47 -0400
  Re: How to rewrite this luser- -droog <mijoryx@yahoo.com> - 2014-08-29 23:43 -0700
    Re: How to rewrite this luser- -droog <mijoryx@yahoo.com> - 2014-08-30 01:23 -0700
      Re: How to rewrite this Terry White <TW382@aol.com> - 2014-09-01 09:43 +0100
        Re: How to rewrite this luser- -droog <mijoryx@yahoo.com> - 2014-09-01 18:20 -0700
          Re: How to rewrite this Terry White <TW382@aol.com> - 2014-09-02 11:58 +0100

csiph-web