;************************************************************************
;* [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))
;------------------------------------------------------------------------
|