Subversion Repositories wimsdev

Rev

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

Rev 17534 Rev 18461
Line 88... Line 88...
88 
      !endif
 88 
      !endif
89 
      !reset slib_tmp
 89 
      !reset slib_tmp
90 
    !endif
 90 
    !endif
91 
  !endif
 91 
  !endif
92 
!next
 92 
!next
93 
!for slib_j=1 to $slib_facecnt
 93 
!for slib_k=1 to $slib_facecnt
94 
  !reset slib_coord slib_tmp_face
 94 
  !reset slib_coord slib_tmp_face
95 
  !set slib_jj=!declosing $(slib_face[$slib_j])
 95 
  !set slib_ff=!declosing $(slib_face[$slib_k])
96 
  !for slib_t=2 to $(slib_jj[1])+1
 96 
  !for slib_t=2 to $(slib_ff[1])+1
97 
    !set slib_coord=!append semicolon $(slib_som[$(slib_jj[$slib_t])+1;1,2]) to $slib_coord
 97 
    !set slib_coord=!append semicolon $(slib_som[$(slib_ff[$slib_t])+1;1,2]) to $slib_coord
98 
  !next
 98 
  !next
99 
  !if tikz iswordof $slib_option
 99 
  !if tikz iswordof $slib_option
100 
    !set slib_coord_tikz=!replace internal ; by ) -- ( in ($slib_coord;$(slib_coord[;1,2]))
 100 
    !set slib_coord_tikz=!replace internal ; by ) -- ( in ($slib_coord;$(slib_coord[;1,2]))
101 
  !endif
 101 
  !endif
102 
  !set slib_coord=!replace internal ; by , in $slib_coord
 102 
  !set slib_coord=!replace internal ; by , in $slib_coord
103 
  !if $slib_option_face!=$empty and ($slib_j isitemof $slib_option_face or $slib_option_face=all)
 103 
  !if $slib_option_face!=$empty and ($slib_k isitemof $slib_option_face or $slib_option_face=all)
104 
    !set slib_facemid=!exec pari v=[$slib_coord];[sum(j=1,#v/2,v[2*j-1]),sum(j=1,#v/2,v[2*j])]/#v*2
 104 
    !set slib_facemid=!exec pari v=[$slib_coord];[sum(j=1,#v/2,v[2*j-1]),sum(j=1,#v/2,v[2*j])]/#v*2
105 
    !if $(slib_jj[$(slib_jj[1])+2])!=$empty
 105 
    !if $(slib_ff[$(slib_ff[1])+2])!=$empty
106 
      !set slib_tmp_face=$(slib_jj[$(slib_jj[1])+2])
 106 
      !set slib_tmp_face=$(slib_ff[$(slib_ff[1])+2])
107 
    !endif
 107 
    !endif
108 
    !default slib_tmp_face=$slib_j
 108 
    !default slib_tmp_face=$slib_k
109 
    !set slib_face_legend=!append line text black,$slib_facemid,large,$slib_tmp_face \
 109 
    !set slib_face_legend=!append line text black,$slib_facemid,large,$slib_tmp_face \
110 
        to $slib_face_legend
 110 
        to $slib_face_legend
111 
      !if tikz iswordof $slib_option
 111 
      !if tikz iswordof $slib_option
112 
        !set slib_face_legend_tikz=!append line \node at ($slib_facemid) () {$slib_tmp_face};\
 112 
        !set slib_face_legend_tikz=!append line \node at ($slib_facemid) () {$slib_tmp_face};\
113 
          to $slib_face_legend_tikz
 113 
          to $slib_face_legend_tikz
114 
      !endif
 114 
      !endif
115 
    !endif
 115 
    !endif
116 
  !endif
 116 
  !endif
117 
 
 - 
 
118 
  !set slib_tmp=!select $slib_color where $slib_j iswordof column 1
 117 
  !set slib_tmp=!select $slib_color where $slib_k iswordof column 1
119 
  !if $slib_tmp=$empty
 118 
  !if $slib_tmp=$empty
120 
    !set slib_tmp=$(slib_color[1;])
 119 
    !set slib_tmp=$(slib_color[1;])
121 
  !else
 120 
  !else
122 
    !set slib_tmp=$(slib_tmp[2])
 121 
    !set slib_tmp=$(slib_tmp[2])
123 
  !endif
 122 
  !endif