Hunger for help and sugestions

Baçon · 2nd May 2005 12:26 am

Helo:

Thank you for reading

Best regards

**paulmcz** · 2nd May 2005 11:19 pm

Code:

&#40;defun c&#58;whatever &#40;/ ip inr nv u1&#41;
  &#40;setq	ns   &#40;getint "\n Number of polygon sides&#58; "&#41;
	inr  &#40;getdist "\n Circumscribed circle radius&#58; "&#41;
	nv   &#40;getint "\n Number of laps&#58; "&#41;
	ip   &#40;getpoint "\n Insertion point&#58; "&#41;
	u1    0
	osn  &#40;getvar "osmode"&#41;
	u2   &#40;/ pi ns&#41;&#41;	
  &#40;setvar "osmode" 0&#41;
  &#40;while &#40;>= nv 1&#41;
    &#40;command "polygon" ns ip "" &#40;polar ip u1 inr&#41;&#41;
    &#40;setq inr &#40;* inr &#40;cos u2&#41;&#41;
	  nv   &#40;1- nv&#41;
	  u1    &#40;+ u1 u2&#41;&#41;&#41;					
  &#40;setvar "osmode" osn&#41;
  &#40;princ&#41;
&#41;

Here you go...

Thread: Hunger for help and sugestions

Thread Tools

Hunger for help and sugestions

Bookmarks

Bookmarks

Posting Permissions