Subversion Repositories wimsdev

Rev

Rev 17213 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17213 Rev 17222
Line 124... Line 124...
124 
    while(f2D[kk]==0,\
 124 
    while(f2D[kk]==0,\
125 
      l=kk; while(f2D[v[l]]==0,l=v[l]);\
 125 
      l=kk; while(f2D[v[l]]==0,l=v[l]);\
126 
      [i1,j1,i2,j2]=adj(f[l],f[v[l]]);\
 126 
      [i1,j1,i2,j2]=adj(f[l],f[v[l]]);\
127 
      n1=f[l][1];\
 127 
      n1=f[l][1];\
128 
      r=deplacement_poly(s2D[f2D[v[l]][j1]+1,1..2],s2D[f2D[v[l]][j2]+1,1..2],f2[l],i1-1,i2-1);\
 128 
      r=deplacement_poly(s2D[f2D[v[l]][j1]+1,1..2],s2D[f2D[v[l]][j2]+1,1..2],f2[l],i1-1,i2-1);\
129 
      for (t=1,#f,if(pat[t] && intersecte(pat[t],r),print("nogeom")));\
 129 
      for (t=1,#f,if(pat[t] && intersecte(pat[t],r),print("pseudonet")));\
130 
      pat[l]=r;\
 130 
      pat[l]=r;\
131 
      rr=vector(n1+1);\
 131 
      rr=vector(n1+1);\
132 
      rr[1]=n1;\
 132 
      rr[1]=n1;\
133 
      rr[i1]=f2D[v[l]][j1];\
 133 
      rr[i1]=f2D[v[l]][j1];\
134 
      rr[i2]=f2D[v[l]][j2];\
 134 
      rr[i2]=f2D[v[l]][j2];\