From 68136a0b476cd6d5bb8fb512b1dae4b1c697425b Mon Sep 17 00:00:00 2001
From: Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de>
Date: Mon, 5 Dec 2011 12:19:01 +0100
Subject: titlo placement

---
 .../third/cyrillicnumbers/t-cyrillicnumbers.mkiv   | 31 +++++++++++-----------
 1 file changed, 16 insertions(+), 15 deletions(-)

(limited to 'tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkiv')

diff --git a/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkiv b/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkiv
index 8788c5e..79a47e6 100644
--- a/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkiv
+++ b/tex/context/third/cyrillicnumbers/t-cyrillicnumbers.mkiv
@@ -1,13 +1,13 @@
 %D \module
-%D   [      file=t-cyrillicnumbers,
-%D        version=2011-11-29 09:58:48+0100,
-%D          title=\CONTEXT\ User Module,
-%D       subtitle=Cyrillic Number Module,
-%D         author=Philipp Gesang,
-%D           date=\currentdate,
-%D      copyright=Philipp Gesang,
-%D        license=2-clause BSD,
-%D          email={gesang at stud dot uni-heidelberg dot de}]
+%D   [     file=t-cyrillicnumbers,
+%D      version=2011-11-29 09:58:48+0100,
+%D        title=\CONTEXT\ User Module,
+%D     subtitle=Cyrillic Number Module,
+%D       author=Philipp Gesang,
+%D         date=\currentdate,
+%D    copyright=Philipp Gesang,
+%D      license=2-clause BSD,
+%D        email={gesang at stud dot uni-heidelberg dot de}]
 %D This module is licensed under the conditions of the BSD license with 
 %D two clauses. There is a copy in a file named "COPYING" in the
 %D t-cyrillicnumbers source tree.
@@ -32,9 +32,9 @@
   \startluacode
     local tc = thirddata.cyrnum
     tc.placetitlo    = "\cyrnumparameter{titlo}"
-    tc.titlospan     = "\cyrnumparameter{titlospan}"
-    tc.titlolocation = "\cyrnumparameter{titlolocation}"
-    tc.drawdots      = "\cyrnumparameter{dots}" == "yes"
+    tc.titlospan     = tonumber("\cyrnumparameter{titlospan}") or false
+    tc.titlolocation = tc.last_synonyms["\cyrnumparameter{titlolocation}"] and "l" or "m"
+    tc.drawdots      = tc. yes_synonyms["\cyrnumparameter{dots}"] or false
     tc.dotsymbol     = "\cyrnumparameter{dotsymbol}"
   \stopluacode%
 }
@@ -44,7 +44,7 @@
 \setupcyrnum[
           titlo=mp,     % font|mp|no
       titlospan=3,      % n|all
-  titlolocation=middle, % final|middle -- only effective if span ~= all
+  titlolocation=middle, % final|middle -- only effective if using the font’s titlo
            dots=\v!yes, % yes|no
       dotsymbol=·,
        penwidth=3,
@@ -143,12 +143,12 @@
   save penwidth ; penwidth = \cyrnumparameter{penwidth} ;
   save High, Low ;
   save Vfactor ; Vfactor = .20 ;
-  save Hfactor ; Hfactor = .85 ;
+  save Hfactor ; Hfactor = .75 ;
   titlo := ( 0.00, -0.8*Vfactor) {dir 90} .. {dir 90}
            ( 1.00,  1.2*Vfactor) ;
   pickup pensquare yscaled penwidth xscaled 2 rotated 85 ;
   draw titlo
-       xysized (Hfactor*OverlayWidth-.5*penwidth,Vfactor*OverlayHeight)
+       xysized (Hfactor*OverlayWidth-penwidth,Vfactor*OverlayHeight)
        shifted (.5*(OverlayWidth-Hfactor*OverlayWidth),OverlayHeight-Vfactor*OverlayHeight) ;
   setbounds currentpicture to boundingbox OverlayBox ;
 \stopuniqueMPgraphic
@@ -282,3 +282,4 @@
 
 \unprotect \endinput
 
+%   vi:ft=context:fo=co:ts=4:expandtab:sw=4
-- 
cgit v1.2.3