diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/itrans/kanspc.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/itrans/kanspc.mf | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf b/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf deleted file mode 100644 index 98d74be993f..00000000000 --- a/Master/texmf-dist/fonts/source/public/itrans/kanspc.mf +++ /dev/null @@ -1,52 +0,0 @@ -%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; -%% |