| Class poly (unit Zone_Rings) |
Tobject
| Constructors |
constructor Create(x,y,s,c,rt,ve:integer; rd,xa,ya:double);| Functions |
procedure copy_from_below(source:poly);
procedure drawpoly;
procedure drawvert;
procedure erasepoly;
procedure erasevert;
procedure update_vertices;| Properties |
| Events |
| Variables |
changed : longbool;
col : integer;
rad : double;
rot : integer;
sid : integer;
vel : integer;
vertices : polypoints;
xasp : double;
xc : integer;
yasp : double;
yc : integer;| 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