home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG099.ARC
/
CIRCLE.I
< prev
next >
Wrap
Text File
|
1979-12-31
|
512b
|
20 lines
Procedure Circle(XCentre,YCentre,XRadius,YRadius : Integer;
F : Operation);
var
X, Y, A, B : Integer;
H : Byte;
Rotate : Real;
Begin
for H := 0 to 40 do
begin
Rotate := 0.15707962 * H;
X := XCentre + Round(XRadius*Cos(Rotate));
Y := YCentre + Round(YRadius*Sin(Rotate));
if H = 0 then begin A := X; B := Y; end;
Plot(A,B,X,Y,F);
A := X; B := Y;
end;
End;