-------------------------//Md5=74d2b3a99ef5c512722f8c3d187da36e
#region
dfn_ssg_tolistvla
(defun dfn_ssg_tolistvla(freepick / ldm idx $rr $rl nop cpm)
/*c2s: vl_load_com();
ldm=(type(freepick)==read("PICKSET"))?freepick:
(type(freepick)==read("ENAME"))?ssadd(freepick,ssadd()):nil,
idx=(ldm)?(sslength(ldm)-1):RTCAN,
$rl=nil,
$rr=nil;
if (ldm&&idx>0)
for(;idx>=0;idx=idx-1)
cpm=ssname(ldm,idx),
$rr=cons(cpm,$rr),
cpm=vlax.ename->vla_object(cpm),
$rl=(cpm)?cons(cpm,$rl):$rl;
*/
(list $rl $rr))
%include=vl_load_com
#endregion
------------------------- //Md5=c8f340319185b5573c5136da0f3b17fa
#region
pp_brownian_static
(defun pp_brownian_static(/ $rr ptList1 ptList5 maxell ldcw lcmp acb acf acl jne lxor ixor)
/*c2s:
jne="A",
maxell=2.5,
ace=1,
acl=2,
acf=5,
ixor="\nDef:Brownian motion, or pedesis is the random motion of particles suspended in a medium.\n--This pattern of motion typically consists of random fluctuations.",
lxor="\nBrownian motion(E.color1set)(F.color2set)(G.color3line)(M.setMaxDist)\n(A.about)(B.aboutBrown)(X.Exit)(0.run)=",
ldcw="CIRCLERAD";
vl_load_com();
for(;jne!="X";)
{ jne=dfn_getx_readkey("[ABEFGMRX\n]",lxor);
if (jne=="M")
acwhile(maxell<1.0,
maxell=dfn_getx_real("\nGetRandMax <1..99>-=",getvar(ldcw)),
lcmp=(maxell>1.0)?setvar(ldcw,maxell):nil);
if (jne=="A") alert(readme.txt);
if (jne=="B") alert(ixor);
if (jne=="E") ace=rod_epscolor("\nAceColor_",list(ace,acf,acl),ace);
if (jne=="F") acf=rod_epscolor("\nAcfColor_",list(acf,ace,acl),acf);
if (jne=="G") acf=rod_epscolor("\nAclColor_",list(acl,ace,acf),acl);
if (jne=="0")
{ ptList1=rod_getpointlist(ace),
ptList2=rod_getpointlist(acf),
nestedList=rod_getdistlist(ptList1,ptList2,maxell),
pointPairs=rod_getpointpairs(nestedList),
lcmp=(pointPairs && (length(pointPairs)>3))?list(rod_drawlines(pointpairs),terpri()):nil;
};
};
*/
)
%include=vl_load_com
%include=dfn_getx_readkey
%include=rod_drawlines
%include=rod_getdistlist
%include=rod_getpointlist
%include=rod_getpointpairs
%include=dfn_ssg_tolistvla
%include=rod_epscolor
%include=dfn_getx_real
#endregion
------------------------- //Md5=f6feae3c7907cf8816c95cd822f91cbd
#region
rod_drawlines
(defun rod_drawlines(pointpairs / $rr pair)
/*c2s:
$rr=foreach(pair,pointpairs,dfn_enamk_line(car(pair),cadr(pair),"",15,""));
*/
$rr)
%include=dfn_enamk_line
#endregion
-------------------------//Md5=a2f19d7e9af2fe8631f72d4fd1cae451
#region
rod_getdistlist
(defun rod_getdistlist (ptList1 ptList2 maxDist / ptDistList dist jsr)
/*c2s: nestedlist=nil;
foreach(pt1,ptList1,
ptDistList=nil,
foreach(pt2,ptList2,
dist=distance(pt1,pt2),
ptDistList=(dist< maxDist)?cons(cons(pt2,dist),ptDistList):ptDistList),
jsr=(ptDistList!=nil)?1:0,
ptDistList=(jsr==1)?vl.sort(ptDistList,function(lambda(pair1(pair2),(cdr(pair1) <cdr(pair2))))):ptDistList,
nestedlist=(jsr==1)?cons(cons(pt1,ptDistList),nestedlist):nestedlist);
nestedList=vl.sort(nestedlist,
function(lambda(lst1(lst2), (cdr(cadr(lst1)) <cdr(cadr(lst2))))));
*/
nestedlist)
%include=vl_load_com
#endregion
-------------------------//Md5=c05578affa25111a2caf7d1b69925726
#region
rod_getpointlist
(defun rod_getpointlist (colour / $rr ss1 stb ino)
/*c2s: $rr=nil,
ss1=ssget("X",lISt(cons(62,colour),cons(67,0)));
ino=(ss1==nil)?RTCAN:(sslength(ss1)-1);
if (ino<0) alert("*errorr* I do not found any entity with newcolor\nI'm trying to come up with a way of finding point\n
-- pairs from two different sets of points. But I'm\n
-- having trouble even starting.
-- Can anyone give me some hints.?");
else for(;ino>=0;ino=ino-1)
stb=ssname(ss1,ino),
$rr=cons(cdr(assoc(10,entget(stb))),$rr);
*/
$rr)
#endregion
-------------------------//Md5=cebdec731bb8bceef4668583c62ffb64
#region
rod_getpointpairs
(defun rod_getpointpairs (nestedList / newList jsr $rr)
/*c2s: removeList=nil,
pointPairs=nil,
$rr=nil;
for(pointPairs=nil;nestedList;newList=nil)
{ headerList=car(nestedList);
pt1=car(headerList),
ptDistList=cdr(headerList),
pt2=car(car(ptDistList)),
pointPairs=cons(lISt(pt1,pt2),pointpairs);
foreach(headerList,cdr(nestedlist),
header=car(headerList),
ptDistList=cdr(headerList),
ptDistList=vl.remove_if(function(lambda(pair(),equal(car(pair),pt2))),ptDistList),
jsr=(ptDistList)?1:0,
newlist=(jsr==1)?cons(cons(header,ptDistList),newList): newList,
);
nestedList=vl.sort(newList,function(lambda(lst1(lst2), (cdr(cadr(lst1)) <cdr(cadr(lst2))))));
};
$rr=reverse(pointPairs);
*/
$rr)
%include=vl_load_com
#endregion
-------------------------//Md5=8065ca613e733550a9efe50a4c585b34
#region
-cad_amain_callend2
/*c2s: princ("\nEnd");*/
T)
#endregion
-------------------------//Md5=3d14f4ad8a8831fd926f456420291222
#region
-cad_amain_eof2
(prompt "\nCommand.com: Q2[enter]\n")
%include=coff_linkerarx
#endregion