%!PS-ADOBE-3.0 %%BoundingBox: 0 0 10 2400 %%Title: vague.eps %%Creator: Vincent Zoonekynd %%CreationDate: June 1998 %%EndComments /vz@Dict 20 dict def vz@Dict begin /une_vague { /y exch def /x exch def gsave x y moveto x 4 sub y 2 add lineto x y 4 add lineto stroke grestore } bind def /deux_vagues { gsave 1 setlinecap 1 setlinejoin 2 copy une_vague exch 4 add exch une_vague grestore } bind def /do_it { 0 4 2400 { 5 exch deux_vagues } for } bind def end vz@Dict begin do_it end