|  |  | Punto

#### Punto

`prototipo (Punto nombre libre x y)`
`nombre`: Cadena de caracteres que designa al nombre del objeto
`x`: La abscisa del punto
`y`: La ordenada del punto
Devuelve: Referencia a un punto libre del plano con coordenadas iniciales `x` y `y`.
Ejemplo:
`(define p1 (Punto "A" libre 1.2 (acos -1)))`

`prototipo (Punto nombre sobre-la-curva curva x)`
`nombre`: Cadena de caracteres que designa al nombre del objeto
`curva`: Referencia a una curva (recta, semirrecta, segmento, arco, círculo, etc..)
`x`: Abscisa curvilínea (la "abscisa geométrica") del punto libre; el valor pertenece al intervalo [0 ; 1]
Devuelve: Referencia a un punto libre sobre la curva
Ejemplo:
`(Punto "M" sobre-la-curva s1 0.5)`

`prototipo (Punto nombre mitad-2pts p1 p2)`
`nombre`: Cadena de caracteres que designa al nombre del objeto
`p1`: Referencia a un punto
`p2`: Referencia a un punto
Devuelve: Referencia al punto medio de los dos puntos.
Ejemplo:
`(sea Punto "A" libre 1 1)
(sea Punto "B" libre 4 4)
(Punto "I" mitad-2pts A B)`

`prototipo (Punto nombre mitad-segmento s)`
`nombre`: Cadena de caracteres que designa al nombre del objeto
`s`: Referencia a un segmento
Devuelve: Referencia a la mitad de un segmento.
Ejemplo:
`(Punto " L " mitad-segmento s)`

`prototipo (Punto nombre intersección l1 l2)`
`nombre`: Cadena de caracteres que designa al nombre del objeto
`l1`: Referencia a una linea(recta o curva)
`l2`: Referencia a una linea(recta o curva)
Devuelve: Referencia al punto de intersección de las dos lineas
Ejemplo:
`(Punto " I " intersección recta segmento)`

`prototipo (Punto nombre intersección2 l1 l2)`
`nombre`: Cadena de caracteres que designa al nombre del objeto
`l1`: Referencia a una linea(recta o curva)
`l2`: Referencia a una linea(recta o curva)
Devuelve: Referencia al segundo punto de intersección de las dos líneas cuando una de las dos líneas es del tipo arco de círculo o del tipo círculo.
Ejemplo:
`(Punto " I " intersección2 recta círculo)`

|  |  | Punto