Classement

Puisqu'il est question de LISP dans le titre du sujet, je n'ai pas pu résister. Voici un LISP qui génère un motif de hachure pour des ardoises en losange en spécifiant la longueur des segments longs (d). (defun ardoisePat (d / z a b c) (setq z (getvar 'dimzin) a (/ d 9.) b (* a (sqrt 2.)) c (* d (sqrt 0.5)) ) (setvar 'dimzin 8) (princ (strcat "0, " (rtos (* -1 b) 2 12) ",0, " (rtos (+ c b) 2 12) "," (rtos c 2 12) ", " (rtos (* 2 b) 2 12) "," (rtos (* -2 c) 2 12) "\n225, 0,0, " (rtos (* 10 a) 2 12) "," (rtos (- a) 2 12) ", " (rtos d 2 12) "," (rtos (* -10. d) 2 12) "\n315, 0,0, " (rtos (* 10 a) 2 12) "," (rtos a 2 12) ", " (rtos d 2 12) "," (rtos (* -10. d) 2 12) ) ) (setvar 'dimzin z) (princ) ) À lancer en ligne de commande (ou dans l'éditeur Visual LISP). Commande: (ardoisepat 0.14) 0, -0.021998877637,0, 0.120993827003,0.098994949366, 0.043997755274,-0.197989898732 225, 0,0, 0.155555555556,-0.015555555556, 0.14,-1.4 315, 0,0, 0.155555555556,0.015555555556, 0.14,-1.4

L'astuce c'est d'avoir un décalage en X (ici 0.15) qui soit un multiple du décalage en Y (ici 0.015). On peut aussi le faire avec une largeur de 15 cm et le même décalage en Y de 1.5 cm. *Ardoises 0, -0.0212132034,0, 0.12727923,0.10606601, 0.0424264069,-0.21213205 225, 0,0, 0.165,-0.015, 0.15,-1.65 315, 0,0, 0.165,0.015, 0.15,-1.65