summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/node-rul.mkiv
diff options
context:
space:
mode:
authorContext Git Mirror Bot <phg42.2a@gmail.com>2016-02-17 12:15:07 +0100
committerContext Git Mirror Bot <phg42.2a@gmail.com>2016-02-17 12:15:07 +0100
commitb13dd166ce8563c60c10affc97ab28940d6a7776 (patch)
tree6b15f0462d36ae916875ce1fbcdd990660d3f410 /tex/context/base/mkiv/node-rul.mkiv
parenta036ac2dd19b592316e1b479360e9e6c6700e935 (diff)
downloadcontext-b13dd166ce8563c60c10affc97ab28940d6a7776.tar.gz
2016-02-17 11:13:00
Diffstat (limited to 'tex/context/base/mkiv/node-rul.mkiv')
-rw-r--r--tex/context/base/mkiv/node-rul.mkiv16
1 files changed, 12 insertions, 4 deletions
diff --git a/tex/context/base/mkiv/node-rul.mkiv b/tex/context/base/mkiv/node-rul.mkiv
index a3df8481f..8706b8ecf 100644
--- a/tex/context/base/mkiv/node-rul.mkiv
+++ b/tex/context/base/mkiv/node-rul.mkiv
@@ -256,7 +256,15 @@
\unexpanded\def\setupunderbar[#1]% too incompatible for the moment
{}
-%D Experimental new feature:
+%D An experimental new feature:
+%D
+%D \startbuffer
+%D test {\red\underrandoms{test me}} and \underrandom{test} or \underrandom{grep} \blank
+%D test {\red\underdashes {test me}} and \underdash {test} or \underdash {grep} \blank
+%D test {\red\underdots {test me}} and \underdot {test} or \underdot {grep} \blank
+%D \stopbuffer
+%D
+%D \typebuffer \getbuffer
\startuseMPgraphic{rules:under:random}
draw
@@ -271,7 +279,7 @@
draw
((0,RuleDepth) ... (RuleWidth,RuleDepth))
shifted (0,RuleFactor*RuleOffset)
- dashed dashpattern(off 5/RuleFactor on 0 off 5/RuleFactor)
+ dashed dashpattern(on RuleFactor/2 off RuleFactor/2)
withpen pencircle scaled RuleThickness
withcolor RuleColor ;
setbounds currentpicture to unitsquare xysized(RuleWidth,RuleHeight) ;
@@ -281,8 +289,8 @@
draw
((0,RuleDepth) ... (RuleWidth,RuleDepth))
shifted (0,RuleFactor*RuleOffset)
- dashed dashpattern(on RuleFactor/2 off RuleFactor/2)
- withpen pencircle scaled RuleThickness
+ dashed dashpattern(off 3/RuleFactor on 0 off 3/RuleFactor)
+ withpen pencircle scaled 2RuleThickness
withcolor RuleColor ;
setbounds currentpicture to unitsquare xysized(RuleWidth,RuleHeight) ;
\stopuseMPgraphic