
/prep7


*if,positionr,gt,0,then

cmsel,s,knunten
nsel,r,loc,x,positionr,laenge
esln,s
cmsel,u,knunten
cmsel,s,knoben
nsel,r,loc,x,positionr,laenge

ceintf

cmsel,s,knunten
nsel,r,loc,x,0,positionr-1e-6
esln,s
cm,knuntens,node
cm,eluntens,elem

cmsel,s,_statorg
agen,1,all,,,-laenge,,,,,1
cmsel,s,knoben
nsel,r,loc,x,0,positionr-1e-6
cmsel,a,eluntens
cmsel,u,knuntens
ceintf
cmsel,s,_statorg
agen,1,all,,,laenge,,,,,1

*else

cmsel,s,knunten
nsel,r,loc,x,0,laenge+positionr
esln,s
cmsel,u,knunten
cmsel,s,knoben
nsel,r,loc,x,0,laenge+positionr
ceintf

cmsel,s,knunten
nsel,r,loc,x,laenge+positionr+1e-6,laenge
esln,s
cm,knuntens,node
cm,eluntens,elem

cmsel,s,_statorg
agen,1,all,,,laenge,,,,,1
cmsel,s,knoben
nsel,r,loc,x,laenge+positionr+1e-6,laenge
cmsel,a,eluntens
cmsel,u,knuntens
ceintf
cmsel,s,_statorg
agen,1,all,,,-laenge,,,,,1

*endif

