summaryrefslogtreecommitdiff
path: root/metapost/context/base/mp-txts.mp
diff options
context:
space:
mode:
authorMarius <mariausol@gmail.com>2011-10-13 22:40:14 +0300
committerMarius <mariausol@gmail.com>2011-10-13 22:40:14 +0300
commitb356573a2d7c9f73058b973e322791d5eee16ef5 (patch)
tree2a4dc5359a5af1a77114ce64e34b21b50700ee9a /metapost/context/base/mp-txts.mp
parent5d962b2279f50640b57dd1f86236a36da8f5cdf5 (diff)
downloadcontext-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.mp67
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 ;