diff options
| author | Hans Hagen <pragma@wxs.nl> | 2004-08-18 00:00:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2004-08-18 00:00:00 +0200 |
| commit | 08a4bcc9bff26007ca9b5d14d6beaacab74c9ce4 (patch) | |
| tree | 87449f5f9902d71dbeb41d8564aa4f715bb992d5 /metapost/context | |
| parent | 57f1545214ebba9625b9be722d4e4f9357dab87a (diff) | |
| download | context-08a4bcc9bff26007ca9b5d14d6beaacab74c9ce4.tar.gz | |
stable 2004.08.18
Diffstat (limited to 'metapost/context')
| -rw-r--r-- | metapost/context/base/mp-core.mp | 2 | ||||
| -rw-r--r-- | metapost/context/base/mp-tool.mp | 40 |
2 files changed, 21 insertions, 21 deletions
diff --git a/metapost/context/base/mp-core.mp b/metapost/context/base/mp-core.mp index b905d85ce..eb038163e 100644 --- a/metapost/context/base/mp-core.mp +++ b/metapost/context/base/mp-core.mp @@ -1242,7 +1242,7 @@ vardef PrepareSyncTasks(expr n, collapse, extendtop, prestartnext) = NOfSyncPaths := NOfSyncPaths + 1 ; if not ok : if i>1 : -% not yet correct when two of teh same follow each other +% not yet correct when two of the same follow each other if sync_t[n][i-1] = sync_t[n][i] : SyncPaths[NOfSyncPaths] := SyncBox(n, i, SyncLeftOffset, SyncWidth, PaperHeight, -PaperHeight) ; SyncTasks[NOfSyncPaths] := i ; diff --git a/metapost/context/base/mp-tool.mp b/metapost/context/base/mp-tool.mp index 0db4a3f47..2609e130f 100644 --- a/metapost/context/base/mp-tool.mp +++ b/metapost/context/base/mp-tool.mp @@ -1520,26 +1520,26 @@ vardef inverted primary p = (p uncolored white) enddef ; -primarydef p softened c = - if color p : - tripled(c) * p - else : - image - (save cc ; color cc ; cc := tripled(c) ; - for i within p : - addto currentpicture - if stroked i or filled i : - if filled i : contour else : doublepath fi pathpart i - dashed dashpart i withpen penpart i - else : - also i - fi - withcolor (redpart cc * redpart i, - greenpart cc * greenpart i, - bluepart cc * bluepart i) ; - endfor ;) - fi -enddef ; +% primarydef p softened c = +% if color p : +% tripled(c) * p +% else : +% image +% (save cc ; color cc ; cc := tripled(c) ; +% for i within p : +% addto currentpicture +% if stroked i or filled i : +% if filled i : contour else : doublepath fi pathpart i +% dashed dashpart i withpen penpart i +% else : +% also i +% fi +% withcolor (redpart cc * redpart i, +% greenpart cc * greenpart i, +% bluepart cc * bluepart i) ; +% endfor ;) +% fi +% enddef ; primarydef p softened c = begingroup |