Программа построения Архимедовой спирали, но только двумерной параметр
Objects=Sysvar(60);
r=1500; // Максимальный Размер спирали
k=4; // число витков
Half=Pi()/180/2;
n=Round(k*2*Pi()/Half);
Hr=r/n;
Alf=0;
r=0;
xc=0
yc=0
i=1
line xc yc 0
met1:
if i<n
{
let i=i+1
let xv=(xc+r*Cos(Alf))
let yv=(yc-r*Sin(Alf))
xv+0.1 yv+0.1 0
let Alf=Alf+Half
let r=r+Hr
goto met1
}
done ;
Objects=SysVAr(60)-Objects;
Path select last Objects done last 1 ;
exit;
|