RosettaCodeData/Task/Bitmap-Midpoint-circle-algo.../Modula-3/bitmap-midpoint-circle-algo...

12 lines
149 B
Plaintext

INTERFACE Circle;
IMPORT Bitmap;
PROCEDURE Draw(
img: Bitmap.T;
center: Bitmap.Point;
radius: CARDINAL;
color: Bitmap.Pixel);
END Circle.