Draw break line (Wave shape)

  File name : WAVE.LSP

This program draws two waves and trim between two waves. 
Two waves are polyline. Program trims entities using F(fance) option. Arcs are 1/4 circle. 
There are two options. One is picking start point and end point. 
Another is picking center point and end point.
 
   Example-1 Pick center point and end point
  <Pick center point>/2point: {p1}      [Pick center point ]
  pick end point: {p2}            [Pick end point]
                       Program draws opposite side by referencing to angle of p1 and p2.
 
  
 
   Example-2 Pick two end point
  <Pick center point>/2point: 2        [Enter 2 to select 2 point option]
  pick start point: {p1}          [Pick start point]
  pick end point: {p2}            [Pick end point]