Class poly (unit Zone_Rings) |
Inherits from
Tobject
constructor Create(x,y,s,c,rt,ve:integer; rd,xa,ya:double);
- ----------------------------------------------------------------------- } { Polygon object structure } { -----------------------------------------------------------------------
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;
-----------------------------------------------------------------------
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
constructor Create(x,y,s,c,rt,ve:integer; rd,xa,ya:double);
----------------------------------------------------------------------- } { Polygon object structure } { -----------------------------------------------------------------------
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;
-----------------------------------------------------------------------
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