%! /w 640 def /h 160 def w 2 div h 2 div translate 24 dup scale 1 8 div setlinewidth /N 400 def /llx -30 def /urx 30 def /dx urx llx sub N div def /Pi 3.14159265358979 def /Cos { //Pi div 180 mul cos } def newpath /x llx def /y x Cos def x y moveto N { /x x dx add def /y x Cos def x y lineto } repeat stroke gsave 0 1 translate /N 400 def /llx -30 def /urx 30 def /dx urx llx sub N div def /Pi 3.14159265358979 def /Cos { //Pi div 180 mul cos } def newpath /x llx def /y x Cos def x y moveto N { /x x dx add def /y x Cos def x y lineto } repeat stroke grestore x y moveto N { /x x dx add def /y x Cos def x y lineto } repeat stroke newpath 0 0 0 setrgbcolor /Times-Bold findfont 1 scalefont setfont -6 3 moveto (Constructive Interference) show