summaryrefslogtreecommitdiff
path: root/language/telugu/mffiles
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /language/telugu/mffiles
Initial commit
Diffstat (limited to 'language/telugu/mffiles')
-rw-r--r--language/telugu/mffiles/tel10.mf7
-rw-r--r--language/telugu/mffiles/tel100.mf8
-rw-r--r--language/telugu/mffiles/tel10b.mf7
-rw-r--r--language/telugu/mffiles/tel10nx.mf10
-rw-r--r--language/telugu/mffiles/tel10ny.mf10
-rw-r--r--language/telugu/mffiles/tel10s.mf7
-rw-r--r--language/telugu/mffiles/tel11.mf7
-rw-r--r--language/telugu/mffiles/tel11b.mf7
-rw-r--r--language/telugu/mffiles/tel11nx.mf10
-rw-r--r--language/telugu/mffiles/tel11ny.mf10
-rw-r--r--language/telugu/mffiles/tel11s.mf7
-rw-r--r--language/telugu/mffiles/tel12.mf7
-rw-r--r--language/telugu/mffiles/tel12b.mf7
-rw-r--r--language/telugu/mffiles/tel12nx.mf10
-rw-r--r--language/telugu/mffiles/tel12ny.mf10
-rw-r--r--language/telugu/mffiles/tel12s.mf7
-rw-r--r--language/telugu/mffiles/tel15.mf7
-rw-r--r--language/telugu/mffiles/tel15b.mf7
-rw-r--r--language/telugu/mffiles/tel15s.mf7
-rw-r--r--language/telugu/mffiles/tel172.mf9
-rw-r--r--language/telugu/mffiles/tel18.mf7
-rw-r--r--language/telugu/mffiles/tel18b.mf7
-rw-r--r--language/telugu/mffiles/tel18s.mf7
-rw-r--r--language/telugu/mffiles/tel20.mf7
-rw-r--r--language/telugu/mffiles/tel20b.mf7
-rw-r--r--language/telugu/mffiles/tel20s.mf7
-rw-r--r--language/telugu/mffiles/tel25.mf7
-rw-r--r--language/telugu/mffiles/tel25b.mf7
-rw-r--r--language/telugu/mffiles/tel25s.mf7
-rw-r--r--language/telugu/mffiles/tel30.mf7
-rw-r--r--language/telugu/mffiles/tel30s.mf7
-rw-r--r--language/telugu/mffiles/tel35.mf7
-rw-r--r--language/telugu/mffiles/tel35s.mf7
-rw-r--r--language/telugu/mffiles/tel40.mf7
-rw-r--r--language/telugu/mffiles/tel40s.mf7
-rw-r--r--language/telugu/mffiles/tel55.mf7
-rw-r--r--language/telugu/mffiles/tel55s.mf7
-rw-r--r--language/telugu/mffiles/tel72.mf8
-rw-r--r--language/telugu/mffiles/teloffset.mf12
-rw-r--r--language/telugu/mffiles/telspa.mf36
-rw-r--r--language/telugu/mffiles/telspb.mf40
-rw-r--r--language/telugu/mffiles/telspc.mf52
42 files changed, 428 insertions, 0 deletions
diff --git a/language/telugu/mffiles/tel10.mf b/language/telugu/mffiles/tel10.mf
new file mode 100644
index 0000000000..2b18f6471b
--- /dev/null
+++ b/language/telugu/mffiles/tel10.mf
@@ -0,0 +1,7 @@
+%tel10%
+input telmode;
+font_size 10pt#;
+slant:=0;
+pen_width#:=0.35pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel100.mf b/language/telugu/mffiles/tel100.mf
new file mode 100644
index 0000000000..4a10d218c2
--- /dev/null
+++ b/language/telugu/mffiles/tel100.mf
@@ -0,0 +1,8 @@
+%tel100%
+% generate big characters
+input telmode;
+font_size 100pt#;
+slant:=0;
+pen_width#:=5.0pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel10b.mf b/language/telugu/mffiles/tel10b.mf
new file mode 100644
index 0000000000..50d0db45e9
--- /dev/null
+++ b/language/telugu/mffiles/tel10b.mf
@@ -0,0 +1,7 @@
+%tel10b%
+input telmode;
+font_size 10pt#;
+slant:=0;
+pen_width#:=0.5pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel10nx.mf b/language/telugu/mffiles/tel10nx.mf
new file mode 100644
index 0000000000..60025b035b
--- /dev/null
+++ b/language/telugu/mffiles/tel10nx.mf
@@ -0,0 +1,10 @@
+%tel10nx% non-uniform pen(x-axis)
+input telmode;
+font_size 10pt#;
+slant:=0;
+pen_width#:=0.5pt#;
+vardef special_telpen =
+ pickup pencircle xscaled (pen_width/2) yscaled (pen_width);
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel10ny.mf b/language/telugu/mffiles/tel10ny.mf
new file mode 100644
index 0000000000..d655d36cbc
--- /dev/null
+++ b/language/telugu/mffiles/tel10ny.mf
@@ -0,0 +1,10 @@
+%tel10ny% non-uniform pen(y-axis)
+input telmode;
+font_size 10pt#;
+slant:=0;
+pen_width#:=0.48pt#;
+vardef special_telpen =
+ pickup pencircle xscaled pen_width yscaled (pen_width/2);
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel10s.mf b/language/telugu/mffiles/tel10s.mf
new file mode 100644
index 0000000000..5c96730fd0
--- /dev/null
+++ b/language/telugu/mffiles/tel10s.mf
@@ -0,0 +1,7 @@
+%tel10s%
+input telmode;
+font_size 10pt#;
+slant:=1/4;
+pen_width#:=0.4pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel11.mf b/language/telugu/mffiles/tel11.mf
new file mode 100644
index 0000000000..5bcf4c5238
--- /dev/null
+++ b/language/telugu/mffiles/tel11.mf
@@ -0,0 +1,7 @@
+%tel11%
+input telmode;
+font_size 11pt#;
+slant:=0;
+pen_width#:=0.41pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel11b.mf b/language/telugu/mffiles/tel11b.mf
new file mode 100644
index 0000000000..0e67417a3d
--- /dev/null
+++ b/language/telugu/mffiles/tel11b.mf
@@ -0,0 +1,7 @@
+%tel11b%
+input telmode;
+font_size 11pt#;
+slant:=0;
+pen_width#:=0.57pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel11nx.mf b/language/telugu/mffiles/tel11nx.mf
new file mode 100644
index 0000000000..8460105a03
--- /dev/null
+++ b/language/telugu/mffiles/tel11nx.mf
@@ -0,0 +1,10 @@
+%tel11nx% non-uniform pen(x_axis)
+input telmode;
+font_size 11pt#;
+slant:=0;
+pen_width#:=0.62pt#;
+vardef special_telpen =
+ pickup pencircle xscaled (pen_width/2) yscaled (pen_width);
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel11ny.mf b/language/telugu/mffiles/tel11ny.mf
new file mode 100644
index 0000000000..a7ad3a5504
--- /dev/null
+++ b/language/telugu/mffiles/tel11ny.mf
@@ -0,0 +1,10 @@
+%tel11ny% non-uniform pen(y-axis)
+input telmode;
+font_size 11pt#;
+slant:=0;
+pen_width#:=0.60pt#;
+vardef special_telpen =
+ pickup pencircle xscaled pen_width yscaled (pen_width/2);
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel11s.mf b/language/telugu/mffiles/tel11s.mf
new file mode 100644
index 0000000000..d32c4129d4
--- /dev/null
+++ b/language/telugu/mffiles/tel11s.mf
@@ -0,0 +1,7 @@
+%tel11s%
+input telmode;
+font_size 11pt#;
+slant:=1/4;
+pen_width#:=0.56pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel12.mf b/language/telugu/mffiles/tel12.mf
new file mode 100644
index 0000000000..c33adccf1c
--- /dev/null
+++ b/language/telugu/mffiles/tel12.mf
@@ -0,0 +1,7 @@
+%tel12%
+input telmode;
+font_size 12pt#;
+slant:=0;
+pen_width#:=0.5pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel12b.mf b/language/telugu/mffiles/tel12b.mf
new file mode 100644
index 0000000000..b54210f2ee
--- /dev/null
+++ b/language/telugu/mffiles/tel12b.mf
@@ -0,0 +1,7 @@
+%tel12b%
+input telmode;
+font_size 12pt#;
+slant:=0;
+pen_width#:=0.68pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel12nx.mf b/language/telugu/mffiles/tel12nx.mf
new file mode 100644
index 0000000000..b012a6547a
--- /dev/null
+++ b/language/telugu/mffiles/tel12nx.mf
@@ -0,0 +1,10 @@
+%tel12nx% non-uniform pen(x-axis)
+input telmode;
+font_size 12pt#;
+slant:=0;
+pen_width#:=0.74pt#;
+vardef special_telpen =
+ pickup pencircle xscaled (pen_width/2) yscaled (pen_width);
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel12ny.mf b/language/telugu/mffiles/tel12ny.mf
new file mode 100644
index 0000000000..ea0f796e09
--- /dev/null
+++ b/language/telugu/mffiles/tel12ny.mf
@@ -0,0 +1,10 @@
+%tel12ny% non-uniform pen(y-axis)
+input telmode;
+font_size 12pt#;
+slant:=0;
+pen_width#:=0.65pt#;
+vardef special_telpen =
+ pickup pencircle xscaled pen_width yscaled (pen_width/2);
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel12s.mf b/language/telugu/mffiles/tel12s.mf
new file mode 100644
index 0000000000..6816c2d6d5
--- /dev/null
+++ b/language/telugu/mffiles/tel12s.mf
@@ -0,0 +1,7 @@
+%tel12s%
+input telmode;
+font_size 12pt#;
+slant:=1/4;
+pen_width#:=0.61pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel15.mf b/language/telugu/mffiles/tel15.mf
new file mode 100644
index 0000000000..b71a6b52f1
--- /dev/null
+++ b/language/telugu/mffiles/tel15.mf
@@ -0,0 +1,7 @@
+%tel15%
+input telmode;
+font_size 15pt#;
+slant:=0;
+pen_width#:=0.68pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel15b.mf b/language/telugu/mffiles/tel15b.mf
new file mode 100644
index 0000000000..c003c4158a
--- /dev/null
+++ b/language/telugu/mffiles/tel15b.mf
@@ -0,0 +1,7 @@
+%tel15b%
+input telmode;
+font_size 15pt#;
+slant:=0;
+pen_width#:=0.8pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel15s.mf b/language/telugu/mffiles/tel15s.mf
new file mode 100644
index 0000000000..a9a33da4d6
--- /dev/null
+++ b/language/telugu/mffiles/tel15s.mf
@@ -0,0 +1,7 @@
+%tel15s%
+input telmode;
+font_size 15pt#;
+slant:=1/4;
+pen_width#:=0.74pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel172.mf b/language/telugu/mffiles/tel172.mf
new file mode 100644
index 0000000000..535cc2c671
--- /dev/null
+++ b/language/telugu/mffiles/tel172.mf
@@ -0,0 +1,9 @@
+%tel172%
+% generate very very big characters, x_height is 1 inch
+input telmode;
+font_size 172pt#;
+slant:=0;
+pen_width#:=6.0pt#;
+%pen_width#:=1.3pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel18.mf b/language/telugu/mffiles/tel18.mf
new file mode 100644
index 0000000000..a54da7079e
--- /dev/null
+++ b/language/telugu/mffiles/tel18.mf
@@ -0,0 +1,7 @@
+%tel18%
+input telmode;
+font_size 18pt#;
+slant:=0;
+pen_width#:=0.86pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel18b.mf b/language/telugu/mffiles/tel18b.mf
new file mode 100644
index 0000000000..a01ea33ade
--- /dev/null
+++ b/language/telugu/mffiles/tel18b.mf
@@ -0,0 +1,7 @@
+%tel18b%
+input telmode;
+font_size 18pt#;
+slant:=0;
+pen_width#:=1.05pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel18s.mf b/language/telugu/mffiles/tel18s.mf
new file mode 100644
index 0000000000..178bfdc4c9
--- /dev/null
+++ b/language/telugu/mffiles/tel18s.mf
@@ -0,0 +1,7 @@
+%tel18s%
+input telmode;
+font_size 18pt#;
+slant:=1/4;
+pen_width#:=1.00pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel20.mf b/language/telugu/mffiles/tel20.mf
new file mode 100644
index 0000000000..a4ca3401b1
--- /dev/null
+++ b/language/telugu/mffiles/tel20.mf
@@ -0,0 +1,7 @@
+%tel20%
+input telmode;
+font_size 20pt#;
+slant:=0;
+pen_width#:=1.05pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel20b.mf b/language/telugu/mffiles/tel20b.mf
new file mode 100644
index 0000000000..cc6d334859
--- /dev/null
+++ b/language/telugu/mffiles/tel20b.mf
@@ -0,0 +1,7 @@
+%tel20b%
+input telmode;
+font_size 20pt#;
+slant:=0;
+pen_width#:=1.25pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel20s.mf b/language/telugu/mffiles/tel20s.mf
new file mode 100644
index 0000000000..adafbc64b6
--- /dev/null
+++ b/language/telugu/mffiles/tel20s.mf
@@ -0,0 +1,7 @@
+%tel20s%
+input telmode;
+font_size 20pt#;
+slant:=1/4;
+pen_width#:=1.10pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel25.mf b/language/telugu/mffiles/tel25.mf
new file mode 100644
index 0000000000..31045bd7df
--- /dev/null
+++ b/language/telugu/mffiles/tel25.mf
@@ -0,0 +1,7 @@
+%tel25%
+input telmode;
+font_size 25pt#;
+slant:=0;
+pen_width#:=1.25pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel25b.mf b/language/telugu/mffiles/tel25b.mf
new file mode 100644
index 0000000000..d72da96091
--- /dev/null
+++ b/language/telugu/mffiles/tel25b.mf
@@ -0,0 +1,7 @@
+%tel25b%
+input telmode;
+font_size 25pt#;
+slant:=0;
+pen_width#:=1.70pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel25s.mf b/language/telugu/mffiles/tel25s.mf
new file mode 100644
index 0000000000..8dbeea22db
--- /dev/null
+++ b/language/telugu/mffiles/tel25s.mf
@@ -0,0 +1,7 @@
+%tel25s%
+input telmode;
+font_size 25pt#;
+slant:=1/4;
+pen_width#:=1.35pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel30.mf b/language/telugu/mffiles/tel30.mf
new file mode 100644
index 0000000000..16f0333854
--- /dev/null
+++ b/language/telugu/mffiles/tel30.mf
@@ -0,0 +1,7 @@
+%tel30%
+input telmode;
+font_size 30pt#;
+slant:=0;
+pen_width#:=1.75pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel30s.mf b/language/telugu/mffiles/tel30s.mf
new file mode 100644
index 0000000000..e6168f9b80
--- /dev/null
+++ b/language/telugu/mffiles/tel30s.mf
@@ -0,0 +1,7 @@
+%tel30s%
+input telmode;
+font_size 30pt#;
+slant:=1/4;
+pen_width#:=1.8pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel35.mf b/language/telugu/mffiles/tel35.mf
new file mode 100644
index 0000000000..cd5ea009b7
--- /dev/null
+++ b/language/telugu/mffiles/tel35.mf
@@ -0,0 +1,7 @@
+%tel35%
+input telmode;
+font_size 35pt#;
+slant:=0;
+pen_width#:=2.30pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel35s.mf b/language/telugu/mffiles/tel35s.mf
new file mode 100644
index 0000000000..4890775138
--- /dev/null
+++ b/language/telugu/mffiles/tel35s.mf
@@ -0,0 +1,7 @@
+%tel35s%
+input telmode;
+font_size 35pt#;
+slant:=1/4;
+pen_width#:=2.40pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel40.mf b/language/telugu/mffiles/tel40.mf
new file mode 100644
index 0000000000..ec8de3a0b2
--- /dev/null
+++ b/language/telugu/mffiles/tel40.mf
@@ -0,0 +1,7 @@
+%tel40%
+input telmode;
+font_size 40pt#;
+slant:=0;
+pen_width#:=2.75pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel40s.mf b/language/telugu/mffiles/tel40s.mf
new file mode 100644
index 0000000000..46563d9814
--- /dev/null
+++ b/language/telugu/mffiles/tel40s.mf
@@ -0,0 +1,7 @@
+%tel40s%
+input telmode;
+font_size 40pt#;
+slant:=1/4;
+pen_width#:=2.85pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel55.mf b/language/telugu/mffiles/tel55.mf
new file mode 100644
index 0000000000..7bad311d9f
--- /dev/null
+++ b/language/telugu/mffiles/tel55.mf
@@ -0,0 +1,7 @@
+%tel55%
+input telmode;
+font_size 55pt#;
+slant:=0;
+pen_width#:=3.15pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel55s.mf b/language/telugu/mffiles/tel55s.mf
new file mode 100644
index 0000000000..60dc0eb3b2
--- /dev/null
+++ b/language/telugu/mffiles/tel55s.mf
@@ -0,0 +1,7 @@
+%tel55s%
+input telmode;
+font_size 55pt#;
+slant:=1/4;
+pen_width#:=3.25pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/tel72.mf b/language/telugu/mffiles/tel72.mf
new file mode 100644
index 0000000000..92c5aa828c
--- /dev/null
+++ b/language/telugu/mffiles/tel72.mf
@@ -0,0 +1,8 @@
+%tel72%
+% generate big characters, sc_height to des_depth is 1 inch
+input telmode;
+font_size 72pt#;
+slant:=0;
+pen_width#:=3.8pt#;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/teloffset.mf b/language/telugu/mffiles/teloffset.mf
new file mode 100644
index 0000000000..acc42fd79c
--- /dev/null
+++ b/language/telugu/mffiles/teloffset.mf
@@ -0,0 +1,12 @@
+%teloffset% generates TeX macros to define codes & offsets
+input telmode;
+font_size 10pt#;
+slant:=0;
+pen_width#:=0.3pt#;
+vardef offsets_only=
+ proofing:=-1;
+ fontmaking:=0;
+ tracingtitles:=0;
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/telspa.mf b/language/telugu/mffiles/telspa.mf
new file mode 100644
index 0000000000..f49a2e145c
--- /dev/null
+++ b/language/telugu/mffiles/telspa.mf
@@ -0,0 +1,36 @@
+%telspa%
+% genarates characters with stripes
+input telmode;
+font_size 72pt#;
+slant:=0;
+pen_width#:=3.2pt#;
+% Following code(with minor modifications) is taken from the article,
+% The ABC's of Special Effects by Georgia K. M. Tobin,
+% that appeared in TUGboat, Volume 9(1988), No. 1
+vardef special_effects=
+% creates characters filled with stripes.
+ cullit;
+ picture Normalchar;
+ Normalchar:=currentpicture;
+ clearit;
+% Depending on the output device, pen size(0.28pt) may need to be
+% changed.
+ pickup pencircle scaled 0.28pt;
+ filldraw (0,-d)--(w,-d)--
+ (w,h)--(0,h)--cycle;
+ picture Blackbox;
+ Blackbox:=currentpicture;
+ picture Reversevideo;
+ Reversevideo:=Blackbox-Normalchar;
+ clearit;
+% Depending on the output device,stepsize(uh/3) may need to be
+% changed.
+ for f=-d step uh/3 until h:
+ draw(0,f)--(w,f);
+ endfor;
+ picture Stripeoverlay;
+ Stripeoverlay:=currentpicture;
+ currentpicture:=Stripeoverlay-Reversevideo;
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/telspb.mf b/language/telugu/mffiles/telspb.mf
new file mode 100644
index 0000000000..9c424502ed
--- /dev/null
+++ b/language/telugu/mffiles/telspb.mf
@@ -0,0 +1,40 @@
+%telspb%
+% generate characters filled with tiny dots
+input telmode;
+%mode:=proof;
+%boolean testing; testing := true;
+font_size 72pt#;
+slant:=0;
+pen_width#:=2.5pt#;
+% Following code(with minor modifications) is taken from the article,
+% The ABC's of Special Effects by Georgia K. M. Tobin,
+% that appeared in TUGboat, Volume 9(1988), No. 1
+vardef special_effects=
+% creates characters filled with tiny dots.
+ cullit;
+ picture Normalchar;
+ Normalchar:=currentpicture;
+ clearit;
+% Depending on the output device, pen size (0.5pt) may need to be
+% changed.
+ pickup pencircle scaled 0.5pt;
+ filldraw (0,-d)--(w,-d)--
+ (w,h)--(0,h)--cycle;
+ picture Blackbox;
+ Blackbox:=currentpicture;
+ picture Reversevideo;
+ Reversevideo:=Blackbox-Normalchar;
+ clearit;
+% Depending on the output device,stepsizes(u/4 and uh/4) may need to be
+% changed.
+ for g=0 step u/4 until w:
+ for f=-d step uh/4 until h:
+ draw(g,f);
+ endfor;
+ endfor;
+ picture Dottedoverlay;
+ Dottedoverlay:=currentpicture;
+ currentpicture:=Dottedoverlay-Reversevideo;
+enddef;
+input telparam;
+%%
diff --git a/language/telugu/mffiles/telspc.mf b/language/telugu/mffiles/telspc.mf
new file mode 100644
index 0000000000..c2ae45d132
--- /dev/null
+++ b/language/telugu/mffiles/telspc.mf
@@ -0,0 +1,52 @@
+%telspc%
+% generates striped characters with shading
+input telmode;
+font_size 72pt#;
+slant:=0;
+pen_width#:=2.5pt#;
+% Following code(with minor modifications) is taken from the article,
+% The ABC's of Special Effects by Georgia K. M. Tobin,
+% that appeared in TUGboat, Volume 9(1988), No. 1
+vardef special_effects=
+% creates characters filled with stripes and followed by a shadow.
+ cullit;
+ picture Normalchar;
+ Normalchar:=currentpicture;
+ clearit;
+% Depending on the output device, pen size(0.1pt) may need to be
+% changed.
+ pickup pencircle scaled 0.1pt;
+ filldraw (0,-d)--(w,-d)--
+ (w,h)--(0,h)--cycle;
+ picture Blackbox;
+ Blackbox:=currentpicture;
+ picture Reversevideo;
+ Reversevideo:=Blackbox-Normalchar;
+ clearit;
+% Depending on the output device,stepsize(uh/3) may need to be
+% changed.
+ for f=-d step uh/3 until h:
+ draw(0,f)--(w,f);
+ endfor;
+ currentpicture:=
+ currentpicture-Reversevideo;
+ cullit;
+ picture Stripedchar;
+ Stripedchar:=currentpicture;
+ clearit;
+% Depending on the output device,offset(1.5pt) may need to be
+% changed.
+ currentpicture:=Normalchar shifted(1.5pt,-1.5pt);
+ picture Shadow;
+ Shadow:=currentpicture;
+ clearit;
+ currentpicture:=Shadow-Normalchar;
+ cullit;
+ picture Shadowonly;
+ Shadowonly:=currentpicture;
+ clearit;
+
+ currentpicture:=Shadowonly+Stripedchar;
+enddef;
+input telparam;
+%%