Class poly (unit Zone_Rings)

Inherits from

Tobject

Constructors


constructor Create(x,y,s,c,rt,ve:integer; rd,xa,ya:double);

----------------------------------------------------------------------- } { Polygon object structure } { -----------------------------------------------------------------------


Functions

procedure copy_from_below(source:poly);

// debug if (colour<>-10) and ((colour<0) or (colour>235)) then begin thinking(nil,Pchar(IntToStr(colour))); Sleep(100); Stopped_thinking; end;

procedure drawpoly;


procedure drawvert;


procedure erasepoly;

must use this for correct bit values

procedure erasevert;

#define PALETTEINDEX(i) / ((COLORREF) (0x01000000 | (DWORD) (WORD) (i)))

procedure update_vertices;

-----------------------------------------------------------------------

Properties

Events

Variables

changed : longbool;

5

col : integer;


rad : double;

8

rot : integer;


sid : integer;

4

vel : integer;

1 Keep these together for quickcopy

vertices : polypoints;


xasp : double;

6

xc : integer;

2

yasp : double;

7

yc : integer;

3


Constructors


constructor Create(x,y,s,c,rt,ve:integer; rd,xa,ya:double);

----------------------------------------------------------------------- } { Polygon object structure } { -----------------------------------------------------------------------


Functions


procedure copy_from_below(source:poly);

// debug if (colour<>-10) and ((colour<0) or (colour>235)) then begin thinking(nil,Pchar(IntToStr(colour))); Sleep(100); Stopped_thinking; end;


procedure drawpoly;


procedure drawvert;


procedure erasepoly;

must use this for correct bit values


procedure erasevert;

#define PALETTEINDEX(i) / ((COLORREF) (0x01000000 | (DWORD) (WORD) (i)))


procedure update_vertices;

-----------------------------------------------------------------------


Properties


Events


Variables


changed : longbool;

5


col : integer;


rad : double;

8


rot : integer;


sid : integer;

4


vel : integer;

1 Keep these together for quickcopy


vertices : polypoints;


xasp : double;

6


xc : integer;

2


yasp : double;

7


yc : integer;

3