\' Gambas class file
Public Sub _new(...)
Select Case Param.Count
Case 2
Print "-----------------------------------------------------------"
Print "Circulo definido por el radio y la coordenada del centro"
Print "Ciculo radio: ", Param[0]
Print "Coordenada Centro: ("; Param[1][0]; " , "; Param[1][1]; ")"
\'el primer dato es el radio
\'el segundo dato es una cordenada
\'a continuación el algoritmo del cálculo del círculo dado el centro y su radio.
Case 3
Print "-----------------------------------------------------------"
Print "Circulo definido por 3 pares de coordenadas, (3 puntos por donde debe de pasar el circulo)"
\'se dan 3 puntos por los cuales debe de pasar el circulo
Print "Coordenada Punto 1: ("; Param[0][0]; " , "; Param[0][1]; ")"
Print "Coordenada Punto 2: ("; Param[1][0]; " , "; Param[1][1]; ")"
Print "Coordenada Punto 3: ("; Param[2][0]; " , "; Param[2][1]; ")"
\'a continuación el algoritmo del cálculo del circulo que pase los 3 puntos
End Select
End