Subversion Repositories wimsdev

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

slib_author=Gang, XIAO

slib_example=5/br2out,2,6,blue,medium

!exit

:proc
!distribute items $wims_read_parm into slib_type,slib_lwid,slib_dwid,slib_color,slib_textsize
slib_c=!char 1 of $slib_type
!if $slib_c isin 123456789
  slib_prefix=data/circuits
!else
  slib_prefix=
!endif
slib_out=
!default slib_color=black
!bound slib_lwid between integer 1 and 10 default 1
!bound slib_dwid between integer 2 and 20 default 7
!bound slib_textsize within tiny,small,medium,large,huge default large

slib_rec=$slib_prefix/$slib_type.data
slib_wiring=!record 4 of $slib_rec
slib_dots=!record 5 of $slib_rec
!if $slib_wiring=
  !exit
!endif
slib_range=!record 2 of $slib_rec
slib_wiring=!replace internal _dot_ by $slib_dwid in $slib_wiring

slib_out=!replace internal _color_ by $slib_color in \
linewidth $slib_dwid\
points _color_,$slib_dots\
linewidth $slib_lwid\
$slib_wiring