Clase Circulo Param

' 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