Code: Select all

 
import "ecere"

class Plural {
 Plural next;
 int index;
 virtual bool Compare ( Plural a, Plural b ) { return ( a.index<b.index ); }
 virtual void Copy( Plural from ) {}
 bool Contains( Plural L ) { Plural sL; for ( sL=this; sL!=null; sL=sL.next ) if ( sL==L ) return true; return false; }
 int Length() { Plural n; int count=0; for( n=this; n!=null; n=n.next ) n.index=count++; return count; }
 Plural Push( Plural L ) { L.next=this; return L; }
 Plural Append( Plural L ) { Plural x; if ( !this ) return L; x=this; while ( x.next ) x=x.next; x.next=L; return this; }
 Plural RemoveAndDelete( Plural L ) { Plural s, new_list, s_next; if ( !L ) return this; new_list=null; for ( s=this; s!=null; s=s_next ) { s_next=s.next; if ( s!=L ) { s.next = new_list; new_list=s; } } delete L; return new_list; }
 Plural Remove( Plural L ) { Plural s, new_list, s_next; if ( !L ) return this; new_list=null; for ( s=this; s!=null; s=s_next ) { s_next=s.next; if ( s!=L ) { s.next = new_list; new_list=s; } } return new_list; }
 Plural Reverse() { Plural m, mn, n=null; for ( m=this; m; m=mn ) { mn=m.next; m.next=n; n=m; } return n; }
 Plural Get( int i ) { Plural L; for ( L=this; L; L=L.next ) { i--; if ( i < 0 ) return L; } return null; } 
 Plural Sort() {  Plural head =this;  if (head != null) {   Plural M = head;   Plural c = M.next; while (c) { if(Compare(c,M) ) { Plural t=M; M = c; t.next = c.next; c.next=t; } M = M.next; } return M; } return null; }
 ~Plural() { delete next; }
}

Code: Select all

class gs_point2d : Struct { double x; double y; double angle; };

class gs_point2d_vector : Plural { gs_point2d p;
 gs_point2d anchor;

 inline bool is_equal_points( gs_point2d p1, gs_point2d p2) { return is_equal_Double(p1.x,p2.x) && is_equal_Double(p1.y,p2.y); }
 inline bool is_equal_Double(double v1, double v2) { double diff = v1 - v2; return  (-epsilon <= diff) && (diff <= epsilon); }
 inline double lay_distance(double x1, double y1, const double x2, const double y2) { double dx = (x1 - x2), dy = (y1 - y2); return (dx * dx + dy * dy); }     

 bool Compare(Plural a, Plural b) {
  gs_point2d_vector p1 = (gs_point2d_vector) a, p2 = (gs_point2d_vector) b;
  if (p1.p.angle < p2.p.angle)      return true;
  else if (p1.p.angle > p2.p.angle) return false;
  else if (is_equal_points(p1.p,p2.p))     return false;
  else if (lay_distance(anchor.x, anchor.y, p1.p.x, p1.p.y) < lay_distance(anchor.x, anchor.y, p2.p.x, p2.p.y)) return true;
  else return false;
 }
};