From b356573a2d7c9f73058b973e322791d5eee16ef5 Mon Sep 17 00:00:00 2001 From: Marius Date: Thu, 13 Oct 2011 22:40:14 +0300 Subject: beta 2011.10.13 21:36 --- metapost/context/base/mp-txts.mp | 67 ---------------------------------------- 1 file changed, 67 deletions(-) delete mode 100644 metapost/context/base/mp-txts.mp (limited to 'metapost/context/base/mp-txts.mp') 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 ; -- cgit v1.2.3