Anonymous user
Bitmap/Midpoint circle algorithm: Difference between revisions
Bitmap/Midpoint circle algorithm (view source)
Revision as of 20:30, 24 February 2009
, 15 years ago→{{header|Modula-3}}
m (→{{header|C}}: interface and impl words text added) |
|||
Line 251:
IMPORT Bitmap;
PROCEDURE Draw(
center: Bitmap.Point;
radius: CARDINAL;
color: Bitmap.Pixel);
END Circle.</lang>
Line 259 ⟶ 262:
IMPORT Bitmap;
PROCEDURE Draw(
center: Bitmap.Point;
radius: CARDINAL;
color: Bitmap.Pixel) =
VAR f := 1 - radius;
ddfx := 0;
|