home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
circle.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-03-13
|
728b
|
17 lines
(*-------------------------------------------------------------------------*)
(* CIRCLE.PAS *)
(* Kreis mit durch Include spez. Algorithmus zeichnen *)
(*-------------------------------------------------------------------------*)
PROCEDURE circle (x: x_Koord; y: y_Koord; radius: INTEGER);
BEGIN
IF Origin_is_Top THEN
do_circle(x + ScreenXmin_Sys, ScreenYmax - y + ScreenYmin_Sys, radius)
ELSE
do_circle(x + ScreenXmin_Sys, y + ScreenYmin_Sys, radius);
END;
(*-------------------------------------------------------------------------*)
(* Ende von CIRCLE.PAS *)