Polymorphism: Difference between revisions
Content added Content deleted
Line 11: | Line 11: | ||
DECLARE SUB PointInit1 (pthis AS Point, x0 AS INTEGER) |
DECLARE SUB PointInit1 (pthis AS Point, x0 AS INTEGER) |
||
DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER) |
DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER) |
||
DECLARE FUNCTION PointGetX |
DECLARE FUNCTION PointGetX%(pthis AS Point) |
||
DECLARE FUNCTION PointGetY |
DECLARE FUNCTION PointGetY%(pthis AS Point) |
||
DECLARE SUB PointSetX (pthis AS Point, x0 AS INTEGER) |
DECLARE SUB PointSetX (pthis AS Point, x0 AS INTEGER) |
||
DECLARE SUB PointSetY (pthis AS Point, y0 AS INTEGER) |
DECLARE SUB PointSetY (pthis AS Point, y0 AS INTEGER) |
||
Line 23: | Line 23: | ||
DECLARE SUB CircleInitP0 (pthis AS Circle, p as Point) |
DECLARE SUB CircleInitP0 (pthis AS Circle, p as Point) |
||
DECLARE SUB CircleInitP0 (pthis AS Circle, p as Point, r0 AS INTEGER) |
DECLARE SUB CircleInitP0 (pthis AS Circle, p as Point, r0 AS INTEGER) |
||
DECLARE FUNCTION CircleGetX |
DECLARE FUNCTION CircleGetX%(pthis AS Circle) |
||
DECLARE FUNCTION CircleGetY |
DECLARE FUNCTION CircleGetY%(pthis AS Circle) |
||
DECLARE FUNCTION CircleGetR |
DECLARE FUNCTION CircleGetR%(pthis AS Circle) |
||
DECLARE SUB CircleSetX (pthis AS Circle, x0 AS INTEGER) |
DECLARE SUB CircleSetX (pthis AS Circle, x0 AS INTEGER) |
||
DECLARE SUB CircleSetY (pthis AS Circle, y0 AS INTEGER) |
DECLARE SUB CircleSetY (pthis AS Circle, y0 AS INTEGER) |