Pascal/Turbo Pascal - Funcion GETARCCOORDS

   
Vista:

Funcion GETARCCOORDS

Publicado por Tete (8 intervenciones) el 21/02/2008 12:55:12
Con el fin de realizar un trabajo que me piden en clase es por lo que me atrevo a pedirles su ayuda. Se trata de la funcion GETARCCOORDS, que no encuentro manuales ni tutoriales que me lo aclaren suficientemente; ya sean unas explicaciones, unos ejemplos (código fuente de programas) o ambos a la vez.

De antemano muy agradecido.
Tete
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Funcion GETARCCOORDS

Publicado por Roberto Garcia (56 intervenciones) el 28/02/2008 19:56:18
Truco:
Teclea la funcion o procedimiento en el editor de Turbo pascal, y a contnuacion presiona Ctrl+F1 o clic derecho sobre la palabra y selecciona "Topic Search" y recibiras ayuda instantanea.

GetArcCoords, procedimiento (Graph unit)
Consigue las coordenadas de la Última
instrucción Arc.

Declaración:
procedure GetArcCoords(var ArcCoords: _ArcCoordsType_);

Observaciones:
GetArcCoords devuelve una variable del tipo
ArcCoordsType. GetArcCoords Devuelve una
variable conteniendo el centro (X, Y), la
posición de comienzo (Xstart, Ystart), y la
posición final (Xend, Yend) de la Última
instrucción Arc o Ellipse.

Estos valores son Útiles si se necesita
conectar una línea al final de una elipse.

Restricciones:
Debe usarse en modo gr fico.

Véase también:
Arc
Circle
Ellipse
PieSlice

Programa Ejemplo:

{Getarccd.PAS}

{Programa ejemplo para el procedimiento GetArcCoords.}

uses Graph;

var
Gd, Gm: Integer;
ArcCoords: ArcCoordsType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Arc(100, 100, 0, 270, 30);
GetArcCoords(ArcCoords);
with ArcCoords do
Line(Xstart, Ystart, Xend, Yend);
Readln;
CloseGraph;
end.

*********************************************************************
En ingles por cualquier cosa

GetArcCoords (procedure) (Graph unit)
Gets the coordinates of the last Arc command.

Declaration:
procedure GetArcCoords(var ArcCoords: _ArcCoordsType_);

Remarks:
GetArcCoords returns a variable of type
ArcCoordsType. GetArcCoords returns a variable
containing the center point (X, Y), the
starting position
(Xstart, Ystart), and the ending position (Xend, Yend) of the last Arc or
Ellipse command.

These values are useful if you need to connect
a line to the end of an ellipse.

Restrictions:
Must be in graphics mode.

See Also:
Arc
Circle
Ellipse
PieSlice

Sample Code:

{Getarccd.PAS}

{Sample code for the GetArcCoords procedure.}

uses Graph;

var
Gd, Gm: Integer;
ArcCoords: ArcCoordsType;
begin
Gd := Detect;
InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then
Halt(1);
Arc(100, 100, 0, 270, 30);
GetArcCoords(ArcCoords);
with ArcCoords do
Line(Xstart, Ystart, Xend, Yend);
Readln;
CloseGraph;
end.

======================================================
Si quieres la ayuda de Turbo Pascal en Español la puedes encontrar en http://mx.geocities.com/antrahxg en la seciond e Pascal
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar