summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/itrans/kanspc.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/itrans/kanspc.mf52
1 files changed, 52 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf b/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf
new file mode 100644
index 00000000000..98d74be993f
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf
@@ -0,0 +1,52 @@
+%kanspc%
+% generates striped characters with shading
+%input kanmode;
+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 kanmain;
+%%