!if $wims_read_parm!=$empty
!set parms=$wims_read_parm
!set parms=!replace internal $ $ by $\
$ in $parms
!set size=!line 1 of $parms
!distribute items $size into sx,sy
!set ppm=!line 2 to -1 of $parms
!else
!if $parms=$empty
!endif
!distribute items $parms into sx,sy
!set ppm=!item 3 to -1 of $parms
!endif
!set ppm=!replace internal $ $ by $\
$ in $ppm
!set line_cnt=!linecnt $ppm
!for l_=1 to $line_cnt
!set line=!line $l_ of $ppm
!set im=!item -1 of $line
!if / notin $im
!set ppm=!replace line number $l_ by $(line[1..-2]),\filedir/$im in $ppm
!endif
!endif
!endif
!for pm in ppm, sx, sy
!set $pm=!slashsubst $($pm)
!set pp=!line 1 to -1 of $pp
!set pp=!translate internal $ $ to $\
$ in $pp
!set canvasdraw_out
=!exec canvasdraw\
size $sx,$sy\
$pp
$canvasdraw_out