diff options
author | Marius <mariausol@gmail.com> | 2011-10-13 22:40:14 +0300 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2011-10-13 22:40:14 +0300 |
commit | b356573a2d7c9f73058b973e322791d5eee16ef5 (patch) | |
tree | 2a4dc5359a5af1a77114ce64e34b21b50700ee9a /metapost/context/base/mp-txts.mp | |
parent | 5d962b2279f50640b57dd1f86236a36da8f5cdf5 (diff) | |
download | context-b356573a2d7c9f73058b973e322791d5eee16ef5.tar.gz |
beta 2011.10.13 21:36
Diffstat (limited to 'metapost/context/base/mp-txts.mp')
-rw-r--r-- | metapost/context/base/mp-txts.mp | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/metapost/context/base/mp-txts.mp b/metapost/context/base/mp-txts.mp deleted file mode 100644 index f208c7149..000000000 --- a/metapost/context/base/mp-txts.mp +++ /dev/null @@ -1,67 +0,0 @@ -%D \module -%D [ file=mp-txts.mp, -%D version=2006.06.08, -%D title=\CONTEXT\ \METAPOST\ graphics, -%D subtitle=more text support, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright=PRAGMA] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See licen-en.pdf for -%C details. - -if unknown context_tool : input mp-tool ; fi ; -if known context_txts : endinput ; fi ; - -boolean context_txts ; context_txts := true ; - -%D The real code: - -string txtfile ; txtfile := "" ; -string txtfont ; txtfont := defaultfont ; -string txtpref ; txtpref := "00001::::" ; -numeric txtnext ; txtnext := 0 ; -numeric txtdepth ; txtdepth := 0 ; - -vardef nexttxt = - txtnext := txtnext + 1 ; - txtnext -enddef ; - -picture savedtxts[] ; -numeric depthtxts[] ; - -vardef zerofilled(expr fd) = - if fd<10: "0000" else : - if fd<100: "000" else : - if fd<1000: "00" else : - if fd<10000: "0" else : - fi fi fi fi & decimal fd -enddef; - -vardef savetxt(expr n,w,h,d) text t = - depthtxts[n] := d ; - savedtxts[n] := ((txtpref & zerofilled(n)) infont txtfont) xysized(w,h+d) t -enddef ; - -vardef sometxt(expr n) = - if known savedtxts[n] : - txtdepth := depthtxts[n] ; savedtxts[n] - else : - txtdepth := 0 ; nullpicture - fi -enddef ; - -def loadtxts = - if txtfile <> "" : - readfile(txtfile) ; - fi ; -enddef ; - -def StartTexts = - loadtxts ; -enddef ; - -def StopTexts = -enddef ; |