Polymorphism: Difference between revisions

DECLARE SUB PointInit1 (pthis AS Point, x0 AS INTEGER)

DECLARE SUB PointInit2 (pthis AS Point, x0 AS INTEGER, y0 AS INTEGER)

DECLARE SUB PointSetX (pthis AS Point, x0 AS INTEGER)

DECLARE SUB PointSetY (pthis AS Point, y0 AS INTEGER)

DECLARE SUB CircleInitP0 (pthis AS Circle, p as Point)

DECLARE SUB CircleInitP0 (pthis AS Circle, p as Point, r0 AS INTEGER)

DECLARE SUB CircleSetX (pthis AS Circle, x0 AS INTEGER)

DECLARE SUB CircleSetY (pthis AS Circle, y0 AS INTEGER)