diff options
author | Karl Berry <karl@freefriends.org> | 2009-10-03 14:58:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-10-03 14:58:41 +0000 |
commit | 556ccc6a2633ddbc27a22319d2e16e8a5d7483d1 (patch) | |
tree | 6f0b1301fabae1e14d1c00703e774efd67543d16 /Master/texmf-dist/metapost/mfpic/dvipsnam.mp | |
parent | 4d18074405a67946d5505fd5e0836e115d220541 (diff) |
mfpic 1.00 (30sep09)
git-svn-id: svn://tug.org/texlive/trunk@15602 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/mfpic/dvipsnam.mp')
-rw-r--r-- | Master/texmf-dist/metapost/mfpic/dvipsnam.mp | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/Master/texmf-dist/metapost/mfpic/dvipsnam.mp b/Master/texmf-dist/metapost/mfpic/dvipsnam.mp index 1bc8d9f64c9..0529714a4d1 100644 --- a/Master/texmf-dist/metapost/mfpic/dvipsnam.mp +++ b/Master/texmf-dist/metapost/mfpic/dvipsnam.mp @@ -8,34 +8,34 @@ %% %% ------------------------------------------------------------------- %% -%% Copyright 2002--2006, Daniel H. Luecking +%% Copyright 2002--2009, Daniel H. Luecking %% %% Mfpic may be distributed and/or modified under the conditions of the -%% LaTeX Project Public License, either version 1.3b of this license or (at +%% LaTeX Project Public License, either version 1.3c of this license or (at %% your option) any later version. The latest version of this license is in %% <http://www.latex-project.org/lppl.txt> -%% and version 1.3b or later is part of all distributions of LaTeX version -%% 2005/12/01 or later. +%% and version 1.3c or later is part of all distributions of LaTeX version +%% 2008/12/01 or later. %% %% Mfpic has maintenance status "author-maintained". The Current Maintainer %% is Daniel H. Luecking. There are several Base Interpreters associated %% with mfpic: plain TeX, LaTeX, plain Metafont and plain MetaPost. %% +%%% File: grafbase.dtx +%%% A part of mfpic 1.00 2009/09/22 +%%% if unknown grafbaseversion: - vardef snapto expr t = - if unknown t: 0 - elseif not (numeric t): 0 - elseif t < 0: 0 - elseif t > 1: 1 - else: t - fi - enddef; - vardef cmyk (expr c, m, y, k) = - (snapto 1-c-k, snapto 1-m-k, snapto1-y-k) - enddef; + if unknown mpversion: + let cmykcolor=color; + vardef cmyk (expr c, m, y, k) = + (max(1-c-k,0), max(1-m-k,0), max(1-y-k,0)) + enddef; + else: + vardef cmyk (expr c, m, y, k) = (c, m, y, k) enddef; + fi fi -color Apricot, Aquamarine, Bittersweet, Black, Blue, BlueGreen, +cmykcolor Apricot, Aquamarine, Bittersweet, Black, Blue, BlueGreen, BlueViolet, BrickRed, Brown, BurntOrange, CadetBlue, CarnationPink, Cerulean, CornflowerBlue, Cyan, Dandelion, DarkOrchid, Emerald, ForestGreen, Fuchsia, Goldenrod, Gray, Green, GreenYellow, JungleGreen, |