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