summaryrefslogtreecommitdiff
path: root/info/examples/tlc2/w.ps
blob: b6e84dce5017186fd7eb22b9a5be42e8fc31cae2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
%! A small Encapsulated PostScript image used in the examples
%%BoundingBox:100 100 150 150
100 100     translate % put origin at 100 100
  0   0     moveto    % define current point
 50  50     rlineto   % trace diagonal line
 50 neg 0   rlineto   % trace horizontal line
 50  50 neg rlineto   % trace other diagonal line
stroke                % draw (stroke) the lines
  0   0     moveto    % redefine current point
/Times-Roman findfont % get Times-Roman font
 50         scalefont % scale it to 50 big points
            setfont   % make it the current font
(W) show              % draw an uppercase W