|  |  |  | Segmento | 
prototipo (Segment nome extremities p1 p2)
  nome: stringa di caratteri che designa il nome dell'oggetto
p1: riferimento ad un punto estremo del segmento
p2: riferimento ad un punto estremo del segmento
output: riferimento ad un segmento definito dai suoi estremi.
Esempio:
(lets Point "A" free  1 5)
(lets Point "B" free 10 4)
(lets Segment "" extremities A B)
|  |  |  | Segmento |