;|  trigo couleur

 (setq ang (* ang (/ 180 pi))  ;;   convertion radian en degrés      
 (setq ang (* pi (/ ang 180))) ;;   convertion de degrés en radian  

|;

(defun c:tmp (/ centre inc accro ang-deg angle-rad couleur pt-t ray)
  ;;(gc)  ;;quand je fait des test, je met souvent ça pour éviter d'avoir 
  ;; à déclarer toutes les variables en local (gc) est une vidange de toutes les mémoires
  (setq lst-entre '((0.0 0.0) 20.0 (20.0 0.0)))
  (setq centre (car lst-entre))
  (setq ray (cadr lst-entre))

  (setq	inc (/ 360 250.0)
	ang-deg	0.0
	couleur 0
  )

  (setq accro (getvar "osmode")) ;;on mémorise l'accrochage
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  
;;-----------------------------------------------------  
  
  (repeat 255
    (setq ang-deg (+ inc ang-deg)
	  couleur (+ 1 couleur))
    (setq ang-rad (* pi (/ ang-deg 180)))
    (setq pt-t (polar centre ang-rad ray))
    (setq pt-l (polar centre ang-rad (/ ray 1.5)))
    (setq lst-line   ;; création de la liste qui va servir à créer la ligne
	   (list '(0 . "LINE")
		 (cons 10 centre) ;; départ			 
		 (cons 11 pt-l)   ;; fin		  
		 (cons 62 couleur)      ;; couleur
	   )
    )
          ;;création du texte
    (entmake lst-line)          ;; création de la ligne


  )  ;;fin repeat
  
  ;;-----------------------------------------------------  

  (setvar "osmode" accro)
  (setvar "cmdecho" 1)
  (princ)
)							    ;fin defun


;;                                                                                   
;;                                                                                   
;;