diff options
Diffstat (limited to 'metapost/context/mp-spec.mp')
-rw-r--r-- | metapost/context/mp-spec.mp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/metapost/context/mp-spec.mp b/metapost/context/mp-spec.mp index 1ec8164bc..563c45067 100644 --- a/metapost/context/mp-spec.mp +++ b/metapost/context/mp-spec.mp @@ -156,15 +156,17 @@ fi ; %D Shade allocation. +newinternal shadefactor ; shadefactor := 1 ; + vardef define_linear_shade (expr a, b, ca, cb) = - flush_special(30, 15, "0 1 1" & + flush_special(30, 15, "0 1 " & decimal shadefactor & " " & dddecimal ca & ddecimal a & dddecimal cb & ddecimal b ) ; _special_counter_ enddef ; vardef define_circular_shade (expr a, b, ra, rb, ca, cb) = - flush_special(31, 17, "0 1 1" & + flush_special(31, 17, "0 1 " & decimal shadefactor & " " & dddecimal ca & ddecimal a & " " & decimal ra & dddecimal cb & ddecimal b & " " & decimal rb ) ; _special_counter_ |