Path: csiph.com!usenet.pasdenom.info!gegeweb.org!talisker.lacave.net!lacave.net!feed.xsnews.nl!border-1.ams.xsnews.nl!feeder.xennanews.com!nf39.xennanews.com!not-for-mail
From: Cecil Westerhof <Cecil@decebal.nl>
Newsgroups: comp.lang.postscript
Subject: Re: Keeping values of a temporary dictionary
Organization: Decebal Computing
References: <87han8c43o.fsf@Compaq.site.inet> <87zk10afux.fsf@Compaq.site.inet>
X-Homepage: http://www.decebal.nl/
Date: Wed, 26 Dec 2012 19:02:43 +0100
Message-ID: <87txr8adz0.fsf@Compaq.site.inet>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux)
Cancel-Lock: sha1:+/0j1UrSU4cXPsAfIE3CbGVTeJ0=
MIME-Version: 1.0
Content-Type: text/plain
X-Complaints-To: abuse@xennanews.com
Lines: 27
NNTP-Posting-Host: 84.53.123.169 (84.53.123.169)
NNTP-Posting-Date: Wed, 26 Dec 2012 19:14:06 +0100
Xref: csiph.com comp.lang.postscript:1194

Op woensdag 26 dec 2012 18:21 CET schreef Cecil Westerhof:

> /gradient1 setColourScheme /gradient1 get def
> /gradient2 setColourScheme /gradient2 get def
> /textColor setColourScheme /textColor get def
>
> Maybe I should write a function to retrieve the values.

Done:
    /getDictValues { % dictionary nameArray
        {
            dup
            3 -1 roll
            dup
            4 1 roll
            exch
            get def
        } forall
        pop
    } def

    setColourScheme [/gradient1 /gradient2 /textColor] getDictValues

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