CADxp: Dentelle - CADxp

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

Dentelle

#1 L'utilisateur est hors-ligne   zebulon_ 

  • ceinture noire 2em dan
  • Groupe : Membres
  • Messages : 1297
  • Inscrit(e) : 02-mai 03
  • LocationSchnersheim

Posté 23 décembre 2014 - 11:44

Bonjour,

(defun c:dentelle ()
  (setq PAS 0.70)
  (setq PT1 '(0 0))
  (repeat 18
    (setq PT2 '(6 0))
    (repeat 18
      (command "_line" "_non" PT1 "_non" PT2 "")
      (setq PT2 (polar PT2 (/ pi 2) PAS))
    )
    (setq PT1 (polar PT1 (/ pi 2) PAS))
  )
  (princ)
)


extrait du "Pendule de Foucault" d'Umberto Eco. Une illustration que j'ai trouvée jolie.

Amicalement
Vincent
C'est au pied du mur que l'on reconnaît le maçon ! (Anonyme) C’est en restant au pied du mur qu’on ne voit que le mur (Anonyme aussi)
0

#2 L'utilisateur est hors-ligne   VDH-Bruno 

  • ceinture noire 1er dan
  • Groupe : Membres
  • Messages : 899
  • Inscrit(e) : 29-avril 10

Posté 23 décembre 2014 - 12:07

C'est beau, je n'ai pu m'empêcher d'y ajouter une petite touche perso, :rolleyes:
Merci zebulon_

(defun c:dentelle ()
  (setq PAS 0.70)
  (setq PT1 '(0 0))
  (command "_zoom" "_non" '(0. 0.) "_non" '(6. 11.9))
  (repeat 18
    (setq PT2 '(6 0))
    (repeat 18
      (command "_line" "_non" PT1 "_non" PT2 "")
      (command "_.delay" 25)
      (setq PT2 (polar PT2 (/ pi 2) PAS))
    )
    (setq PT1 (polar PT1 (/ pi 2) PAS))
  )
  (princ)
)

Apprendre => Prendre => Rendre
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)