summaryrefslogtreecommitdiff
path: root/metapost/context/base/mpiv/mp-blob.mpiv
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2018-06-13 09:56:22 +0200
committerContext Git Mirror Bot <phg42.2a@gmail.com>2018-06-13 09:56:22 +0200
commit204057fdc5023b5f4ff55a69bc6593388ea427e7 (patch)
tree2153d525f1fb854189772d3109be782a0aeb14fd /metapost/context/base/mpiv/mp-blob.mpiv
parent7686a24f79edfef2a9d013882c822c76a12e23dc (diff)
downloadcontext-204057fdc5023b5f4ff55a69bc6593388ea427e7.tar.gz
2018-06-12 21:56:00
Diffstat (limited to 'metapost/context/base/mpiv/mp-blob.mpiv')
-rw-r--r--metapost/context/base/mpiv/mp-blob.mpiv5
1 files changed, 5 insertions, 0 deletions
diff --git a/metapost/context/base/mpiv/mp-blob.mpiv b/metapost/context/base/mpiv/mp-blob.mpiv
index d2bdf741a..1d8a205f1 100644
--- a/metapost/context/base/mpiv/mp-blob.mpiv
+++ b/metapost/context/base/mpiv/mp-blob.mpiv
@@ -37,6 +37,7 @@ if mfun_use_one_pass :
xscaled redpart mfun_blob_b
yscaled (greenpart mfun_blob_b + bluepart mfun_blob_b)
shifted (0,- bluepart mfun_blob_b)
+ withprescript "mf_object=texblob"
withprescript "tb_blob=" & decimal lua.mp.blob_index(mfun_blob_n,n) ;
mfun_blob_c
enddef ;
@@ -50,6 +51,7 @@ else :
xscaled redpart mfun_blob_b
yscaled (greenpart mfun_blob_b + bluepart mfun_blob_b)
shifted (0,- bluepart mfun_blob_b)
+ withprescript "mf_object=texblob"
withprescript "tb_stage=inject"
withprescript "tb_blob=" & decimal lua.mp.blob_index(mfun_blob_n,n) ;
mfun_blob_c
@@ -125,6 +127,7 @@ if mfun_use_one_pass :
draw boundingbox currentpicture withpen pencircle scaled .25pt withcolor blue ;
fi ;
draw fullcircle scaled 100bp
+ withprescript "mf_object=followtext"
withprescript "ft_stage=final"
withprescript "ft_category=" & decimal mfun_blob_n ;
)
@@ -137,6 +140,7 @@ else :
mfun_blob_n := mfun_blob_n + 1 ;
if mfun_trial_run :
draw fullcircle scaled 100bp
+ withprescript "mf_object=followtext"
withprescript "ft_stage=trial"
withprescript "ft_category=" & decimal mfun_blob_n
withpostscript txt ;
@@ -196,6 +200,7 @@ else :
draw boundingbox currentpicture withpen pencircle scaled .25pt withcolor blue ;
fi ;
draw fullcircle scaled 100bp
+ withprescript "mf_object=followtext"
withprescript "ft_stage=final"
withprescript "ft_category=" & decimal mfun_blob_n ;
fi ;