anchor.diff:  end;
   
   { ADD_VERTEX }
  -procedure vcgen_stroke.add_vertex;
  +procedure vcgen_stroke.add_vertex(x ,y : double; cmd : unsigned );
   var
    vd : vertex_dist;
   
  
positive.code: end;
  
  { REWIND }
  procedure vcgen_stroke.rewind;
  begin
   if m_status = initial then
    begin
  
negative.code: end;
  
  { VERTEX }
  function vcgen_stroke.vertex(x ,y : double_ptr ) : unsigned;
  var
   c : point_type_ptr;
  
  