Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Bernadette, Perrin-Riou

slib_example=5,6,100,200,0,10,0,7,0,pixels\
7,9,100,200,0,10,0,7,10,pixels\
7,9,100,200,0,10,0,7,0,pixels\
[5,7],[6,9],100,200,0,10,0,7,0,pixels
!exit

:proc
!reset slib_out
!distribute item $wims_read_parm into slib_pix_x,slib_pix_y,slib_pix_sizex,slib_pix_sizey,slib_pix_rangex1,slib_pix_rangex2,slib_pix_rangey1,slib_pix_rangey2,slib_pix_border,slib_pix_pixels
slib_pix_x=!declosing $slib_pix_x
slib_pix_y=!declosing $slib_pix_y
!default slib_pix_border=0
slib_pix_cnt=!itemcnt $slib_pix_x
!for slib_j=1 to $slib_pix_cnt
  !if $slib_pix_pixels=$empty
    slib_out = $slib_out,$[($slib_pix_rangex2-($slib_pix_rangex1))/($slib_pix_sizex)*($(slib_pix_x[$slib_j])+($slib_pix_border))+($slib_pix_rangex1)],$[-($slib_pix_rangey2-($slib_pix_rangey1))/($slib_pix_sizey)*($(slib_pix_y[$slib_j])+($slib_pix_border))+($slib_pix_rangey2)]
  !else
    slib_out = $slib_out,$[round(($slib_pix_sizex)*($(slib_pix_x[$slib_j])-($slib_pix_rangex1))/($slib_pix_rangex2-($slib_pix_rangex1))-($slib_pix_border))],$[round(($slib_pix_sizey)*(-($(slib_pix_y[$slib_j]))+($slib_pix_rangey2))/($slib_pix_rangey2-($slib_pix_rangey1)) - ($slib_pix_border))]
  !endif
!next
slib_out=!nonempty items $slib_out
slib_out=!trim $slib_out