Dr.Lube
Guest
Here I am again!
I answered the last question I asked about the geometry of the side pins. .
first I wasn't able to draw the situation with one pin (I had a division for zero)
the third image is made with your "spille_lat" function, while the second with the one modified by me (it is however a very unusual situation that I only need to make better see the differences between the two results)
now I try to move on with all other cases
Meanwhile thank you again for the point and the first version of code gp., without knowing if I would succeed! :
I answered the last question I asked about the geometry of the side pins. .
first I wasn't able to draw the situation with one pin (I had a division for zero)the third image is made with your "spille_lat" function, while the second with the one modified by me (it is however a very unusual situation that I only need to make better see the differences between the two results)
Code:
(defun spille_lat ( #1 #2 ns / p pf ang ang1 d )
(setq ang (angle #1 #2))
(setq ang1 (+ (angle #1 #2) (/pi 2.0)))
(setq d (/ (distance #1 #2) (*ns 2))
(setq d2 (* d 2))
(setq p (polar #1 ang d) ang1 a1))
(repeat serie)
(setq pf p)
(setq l_ferri (cons pf l_ferri))
(repeat (1-ns)
(setq pf (polar pf ang d2))
(setq l_ferri (cons pf l_ferri))
)
(setq p (polar p ang1 sr))
)
)
Meanwhile thank you again for the point and the first version of code gp., without knowing if I would succeed! :