BiA_AngleT_D

Fonction Catégorie Version
BIA 08 BiA_AngleT_D Fonction Arithmétique 1.0 - Janvier 2007

Description

But Vérifie si l’angle formé par 2 points permet l’écriture normale d’un texte.
Prototype (BiA_AngleT_D Pt1 Pt2)
Arguments Pt1 - Coordonnées du premier point - Liste -
Pt2 - Coordonnées du second point - Liste -
Retours L’angle, en degrés, formé par les 2 points. - Réel
Var. globales Néant
Description Retourne en degrés la valeur de l’angle formé par 2 points de telle façon que l’angle formé soit compatible avec l’insertion d’un texte - c’est à dire un angle inférieur à 90° ou supérieur à 270°.
Notes Si l’angle n’est pas correct, pour une lecture normale, c’est l’angle contraire qui est retourné.
Exemples

Command: (setq Pt1 ‘(50 50 0)
Command: (setq Pt2 ‘(100 100 0)
Command:(BiA_AngleT_D Pt1 Pt2)     
	retourne     45.0
	mais 
Command:(BiA_AngleT_D Pt2 Pt1)     
	retourne également    45.0
	alors que
Command:(BiA_RtD (Angle Pt2 Pt1))     
	retourne      225.0
	(La fonction BiA_RtD transforme les radians en degrés).

La fonction


    1-  (defun BiA_AngleT_D (*Pt1 *Pt2)

    2-	   (if (and (> (angle *Pt1 *Pt2) (/ pi 2))
    3-		           (< (angle *Pt1 *Pt2) (* (/ pi 2) 3))
    4-         )
    5-	       (* (/ (angle *Pt2 *Pt1) pi) 180)
    6-	       (* (/ (angle *Pt1 *Pt2) pi) 180)
    7-	   )
    8-  )
Ligne 2 :Si l’angle formé par *Pt1 et *Pt2 est supérieur à  pi/2 (90° - 
				(Valeur donnée en radian)
Ligne 3 :	et inférieur à 270°
Ligne 4 :	Retourne la valeur de l’angle formé par *Pt2 *Pt1, transformée en degrés.
Ligne 5 :	Sinon,  retourne la valeur de l’angle formé par *Pt1 *Pt2, 
			transformée en degrés.

Angle : Donne l’angle en radians d’une ligne définie par 2 points.
Pi : Constante de valeur approximative 3.1415926 - pi radian - ou 3.1416 radian - équivaut à 180°