12 lines
149 B
Text
12 lines
149 B
Text
|
INTERFACE Circle;
|
||
|
|
|
||
|
|
IMPORT Bitmap;
|
||
|
|
|
||
|
|
PROCEDURE Draw(
|
||
|
|
img: Bitmap.T;
|
||
|
|
center: Bitmap.Point;
|
||
|
|
radius: CARDINAL;
|
||
|
|
color: Bitmap.Pixel);
|
||
|
|
|
||
|
|
END Circle.
|