Subversion Repositories wimsdev

Rev

Rev 18546 | Blame | Compare with Previous | Last modification | View Log | RSS feed


!set slib_data=!declosing $slib_data
!distribute items $slib_data into slib_som,slib_face

!set slib_range=!exec pari A=$slib_som;H=[vecmin(A[,1]),vecmax(A[,1]);vecmin(A[,2]),vecmax(A[,2])];[vecmin(H[,1]),vecmax(H[,2])]

slib_som=!declosing $slib_som
slib_face=!declosing $slib_face
slib_facecnt=!itemcnt $slib_face
!for slib_k=1 to $slib_facecnt
  !reset slib_tmp slib_test slib_col
  !set slib_ff=!declosing $(slib_face[$slib_k])
  !if $slib_type0=2
    !set slib_ffcnt=!itemcnt $slib_ff
    !set slib_ff=$slib_ffcnt,$slib_ff,1
  !endif
  !set slib_ffcnt=!itemcnt $slib_ff
  !if $(slib_type0[1])=1 and $(slib_type)=1
    !set slib_col=$(slib_color[1+$(slib_ff[$[$(slib_ff[1])+2]])])
  !else
    !if $(slib_type0[1])=1
      !set slib_col=$(slib_color[1])
    !else
      !set slib_col=$(slib_color[2])
    !endif
  !endif
  !if $slib_k isin $slib_fill
    !set slib_pol1=f$slib_pol
  !else
    !set slib_pol1=$slib_pol
  !endif
  !set slib_tmp=$slib_pol1 $(slib_col)
  !set slib_tmp=!append item $(slib_som[$(slib_ff[2..$(slib_ff[1])+1]);]) to $slib_tmp
  !set slib_tmp=!replace internal ; by , in $slib_tmp
  !if $slib_k<$slib_cnt
    !set slib_dessin=!append line $slib_tmp to $slib_dessin
  !else
    !goto out
    !if $slib_k<800
      !set slib_dessin1=!append line $slib_tmp to $slib_dessin1
    !else
      !if $slib_k<2400
        !set slib_dessin2=!append line $slib_tmp to $slib_dessin2
      !else
        !set slib_dessin3=!append line $slib_tmp to $slib_dessin3
      !endif
    !endif
  !endif
:end
!next
:out