%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; %%