%!PS %%BoundingBox: -40 -40 40 40 %%Creator: cgl (inspired by Guy Shaw) %%CreationDate: 1996.05.23:1858 %%Pages: 1 %%EndProlog %%Page: 1 1 %Essential part %300 500 translate 25 34 moveto currentpoint 0 -68 rlineto currentpoint%down -120 rotate 25 34 lineto%preserve symmetry 120 rotate currentpoint 17 20 lineto currentpoint -17.6 0 lineto currentpoint %labels /Courier findfont 8 scalefont setfont moveto -5 -3 rmoveto (5) show moveto 1 1 rmoveto (4) show moveto 2 -5 rmoveto (3) show moveto 2 0 rmoveto (2) show moveto 2 0 rmoveto (1) show stroke showpage