Subversion Repositories wimsdev

Rev

Rev 17168 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17168 Rev 17214
Line 22... Line 22...
22
 
22
 
23
slib_ff_=!line $[1+$slib_t+$slib_somcnt] to $[$slib_t+1+$slib_somcnt+$slib_facecnt] of $slib_pol
23
slib_ff_=!line $[1+$slib_t+$slib_somcnt] to $[$slib_t+1+$slib_somcnt+$slib_facecnt] of $slib_pol
24
!for slib_j=1 to $slib_facecnt
24
!for slib_j=1 to $slib_facecnt
25
  slib_tmp=!row $slib_j of $slib_ff_
25
  slib_tmp=!row $slib_j of $slib_ff_
26
  slib_tmp=!words2items $slib_tmp
26
  slib_tmp=!words2items $slib_tmp
27
  slib_ff=!append item [$slib_tmp] to $slib_ff
27
  slib_ff=!append item [$(slib_tmp[1..$(slib_tmp[1])+1])] to $slib_ff
28
!next
28
!next
29
 
29
 
30
!if $slib_header_patron=
30
!if $slib_header_patron=
31
  !readproc gp/spanning_tree.gp
31
  !readproc gp/spanning_tree.gp
32
  slib_pr=!exec pari $slib_header_patron
32
  slib_pr=!exec pari $slib_header_patron