;; gc:ProjectOnLine
;; Retourne la projection de pt sur la droite p1 p2
;;
;; Arguments
;; pt : le point à projeter
;; p1 : un point sur la droite
;; p2 : un point sur la droite
(mapcar '
+ p1
(gc:ScaleVector u
(gc:DotProduct u v
))) )
)
)
;; gc:GetVector
;; Retourne le vecteur de p1 à p2
;;
;; Arguments
;; p1, p2 : 2 points
;; gc:ScaleVector
;; Multiplie le vecteur par un scalaire
;;
;; Arguments
;; v : un vecteur
;; s : un nombre
)
;; gc:DotProduct
;; Retourne le produit scalaire de deux vecteurs
;; Arguments
;; v1, v2 : deux vecteurs
;; gc:GetUnitVector
;; Retourne le vecteur unitaire de sens p1 p2
;;
;; Arguments
;; p1, p2 : 2 points
)
)
)
)