summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/malayalam/effects/malayalam-reverse.mf
blob: 693decab52c300f7579f270c35b5c4c269847e31 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
% reverse.mf -- reverse video effect (does not work correctly
%				with characters that stick out of their box of the
%				left or right).

define_whole_pixels(ht);

topline := 1.6ht;
botline := -1.0ht;

def pattern=
	def endchar=
		cullit;
		picture NormalChar;
			NormalChar=currentpicture;
		clearit;
		% fill (0,-desc-2vo)--(w+ho, -desc-2vo)--
		%	(w+ho, cap+2vo)--(0, cap+2vo)--cycle;
		fill ((0,botline)--(w,botline)--(w,topline)--
			(0,topline)--cycle) shifted -(.5rm, 0);
		picture BlackBox;
			BlackBox:=currentpicture;
		picture ReverseVideo;
			ReverseVideo=BlackBox-NormalChar;
		currentpicture:=ReverseVideo
		% The rest is from standard endchar
		scantokens extra_endchar;
		chardx:=w;
		shipit;
		if displaying>0: showit; fi
		endgroup
	enddef;
enddef;

% end of reverse.mf