beta 2011.03.29 12:49

1 files changed, 9 insertions, 3 deletions

diff --git a/tex/context/base/node-tra.lua b/tex/context/base/node-tra.lua
index 84d772670..f86ab791a 100644
--- a/tex/context/base/node-tra.lua
+++ b/tex/context/base/node-tra.lua
@@ -638,14 +638,20 @@ end
 
 -- might move elsewhere
 
-local factor   = number.dimenfactors.pt
+local ptfactor = number.dimenfactors.pt
+local bpfactor = number.dimenfactors.bp
 local stripper = lpeg.patterns.stripzeros
 
 local points = function(n)
-    return lpegmatch(stripper,format("%.5fpt",n*factor))
+    return lpegmatch(stripper,format("%.5fpt",n*ptfactor))
 end
 
-number.points = points
+local basepoints = function(n)
+    return lpegmatch(stripper,format("%.5fbp",n*bpfactor))
+end
+
+number.points     = points
+number.basepoints = basepoints
 
 --~ function nodes.thespec(s)
 --~     local stretch_order = s.stretch_order