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