Subversion Repositories wimsdev

Rev

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

Rev 11989 Rev 12676
Line 24... Line 24...
24 
  slib_label_node=0
 24 
  slib_label_node=0
25 
!endif
 25 
!endif
26 
 
 26 
 
27 
slib_options=!declosing $slib_options
 27 
slib_options=!declosing $slib_options
28 
!default slib_options=rankdir="LR"; node [fontsize=10,width=".2", height=".2", margin=0 shape=box];
 28 
!default slib_options=rankdir="LR"; node [fontsize=10,width=".2", height=".2", margin=0 shape=box];
29 
 
 - 
 
30 
 
 29 
 
31 
slib_sA=!rows2lines $slib_A
 30 
slib_sA=!rows2lines $slib_A
32 
slib_r=!linecnt $slib_sA
 31 
slib_r=!linecnt $slib_sA
33 
slib_A=!lines2rows $slib_A
 32 
slib_A=!lines2rows $slib_A
34 
 
 33 
 
Line 53... Line 52...
53 
      !endif
 52 
      !endif
54 
      slib_graphv=!append line $slib_i $slib_arrow $slib_j [color="blue"] $slib_l ; to $slib_graphv
 53 
      slib_graphv=!append line $slib_i $slib_arrow $slib_j [color="blue"] $slib_l ; to $slib_graphv
55 
    !endif
 54 
    !endif
56 
    !if $slib_orient=1
 55 
    !if $slib_orient=1
57 
      !if $slib_i != $slib_j and $(slib_A[$slib_j;$slib_i]) != 0
 56 
      !if $slib_i != $slib_j and $(slib_A[$slib_j;$slib_i]) != 0
58 
       !if edge iswordof $slib_output
 57 
        !if edge iswordof $slib_output
59 
        slib_l=[label="$(slib_A[$slib_j;$slib_i])"]
 58 
          slib_l=[label="$(slib_A[$slib_j;$slib_i])"]
60 
       !endif
 59 
        !endif
61 
       slib_graphv=!append line $slib_j $slib_arrow $slib_i [color="blue"] $slib_l ; to $slib_graphv
 60 
        slib_graphv=!append line $slib_j $slib_arrow $slib_i [color="blue"] $slib_l ; to $slib_graphv
62 
      !endif
 61 
      !endif
63 
    !endif
 62 
    !endif
64 
  !next
 63 
  !next
65 
  !if $(slib_Node[$slib_i])!= or $slib_label_node=0
 64 
  !if $(slib_Node[$slib_i])!= or $slib_label_node=0
66 
    slib_graphv=!append line $slib_i [label="$(slib_Node[$slib_i])"] [color="blue"] ; to $slib_graphv
 65 
    slib_graphv=!append line $slib_i [label="$(slib_Node[$slib_i])"] [color="blue"] ; to $slib_graphv