Anonymous user
Bitmap/Midpoint circle algorithm: Difference between revisions
no edit summary
(Vedit macro language added) |
No edit summary |
||
Line 6:
=={{header|Ada}}==
<lang ada>
procedure Circle
( Picture : in out Image;
Line 42:
end loop;
end Circle;
</
The following illustrates use:
<lang ada>
X : Image (1..16, 1..16);
begin
Line 50:
Circle (X, (8, 8), 5, Black);
Print (X);
</
Sample output:
<pre>
Line 150:
== {{Header|OCaml}} ==
<lang ocaml>let raster_circle ~img ~color ~c:(x0, y0) ~r =
let plot = put_pixel img color in
let x = 0
Line 176:
in
loop x y m
;;</
=={{header|Vedit macro language}}==
| |||