/state save def
/S { show } bind def
/M { moveto } bind def
/L { rlineto currentpoint stroke moveto } bind def
currentscreen		% freq angle proc
3 -1 roll		% angle proc freq
2 mul			% angle proc 2*freq
3 1 roll		% 2*freq angle proc
setscreen
