Les fonctions: GET-PERS.LSP

;************************************************************************
;* [CMFAO] AME 6602 ACQUISITION DES DONNÉES SPATIALES                   *
;* [GRCAO] Claude Parisel                                               *
;* Mars 1999                                                            *
;************************************************************************
; GET-PERS
; Saisie de la perspective
; cv       Centre de visée
; ob       Position de l'observateur
;------------------------------------------------------------------------
; RETOUR:
; Matrice de perspective
;------------------------------------------------------------------------
(defun get-pers ( / cv ob)
  (setq cv (getpoint "\nDonnez le centre de visée: "))
  (setq ob (getpoint "\nDonnez la position de l'observateur: "))
  (make-pers ob cv)
)
;------------------------------------------------------------------------
; Exemple:
; Command: (get-pers)
;          Donnez le centre de visée:
[point]
;          Donnez la position de l'observateur: [point]
;          ((0.759253 -0.361946 0.0 0.00248882)(-0.650796 -0.422265 0.0 0.00290359)
;          (0.0 0.831076 0.0 0.00255921) (-4.33839 12.8026 0.0 -0.170772))
;------------------------------------------------------------------------