Subversion Repositories wimsdev

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

slib_author=Gang, XIAO

slib_example=5/br2out,,,acsrc,diode,cap,res

!exit

:proc
!distribute items $wims_read_parm into \
        slib_type,slib_dotwidth,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_x0=0
!default slib_y0=0
!default slib_dotwidth=6
!default slib_color=black
!default slib_textsize=medium
slib_comp=!item 5 to -1 of $wims_read_parm
!if / notin $slib_type
 !exit
!endif
slib_rec=$slib_prefix/$slib_type.data
slib_t=!recordcnt $slib_rec
!if $slib_t<2
 !exit
!endif
slib_xyr=!record 2 of $slib_rec
slib_n1=!item 3 of $slib_xyr
slib_n2=!itemcnt $slib_comp
slib_n=$[min($slib_n1,$slib_n2)]
slib_pairs=!item 4 of $slib_xyr
slib_pairs=!declosing $slib_pairs

slib_out=trange 0,1
slib_cdata=!record 3 of $slib_rec

!read data/circuits/compdata

slib_paired=-1
!for slib_i=1 to $slib_n
 slib_l=!item $slib_i of $slib_comp
 slib_name=!word 1 of $slib_l
 !if $slib_name!=
  slib_text=!word 2 to -1 of $slib_l
  slib_text=!translate internal @ to $ $ in $slib_text
  slib_tlen=!charcnt $slib_text
  !if " notin $slib_text
   slib_text="$slib_text"
  !endif
  slib_ct=!line $slib_i of $slib_cdata
  !if $slib_name=color
   !default slib_text=grey
  !endif
  !distribute item $slib_ct into \
        slib_x,slib_y,slib_xt,slib_yt,slib_orient,slib_e1,slib_e2
  !if R isin $slib_name
   slib_t=-1
  !else
   slib_t=1
  !endif
  slib_name=!text delete R in $slib_name
  slib_cmd=$slib_name
  !if $slib_orient=1 and $slib_name notwordof $comp_norotate
   slib_matrix=0,-($slib_t),$slib_t,0
  !else
   slib_matrix=$slib_t,0,0,$slib_t
  !endif
  slib_extender=
  slib_ee=!nonempty items $slib_e1,$slib_e2
  !if $slib_ee!= \
        ($(comp_$slib_cmd)!= or $slib_cmd=wire) and \
        $slib_cmd notwordof none num
   !if $slib_orient=1
    slib_extender=$\
affine 0,-1,1,0,$slib_x,$slib_y
   !else
    slib_extender=$\
affine 1,0,0,1,$slib_x,$slib_y
   !endif
   !for slib_e in $slib_ee
    !if $slib_e<-1
     slib_extender=$slib_extender\
disk $slib_e,0,$slib_dotwidth,_color_\
line $slib_e,0,-1,0,_color_
    !endif
    !if $slib_e>1
     slib_extender=$slib_extender\
disk $slib_e,0,$slib_dotwidth,_color_\
line $slib_e,0,1,0,_color_
    !endif
   !next slib_e
  !endif
  !if $slib_i isitemof $slib_pairs
   !if $slib_orient=0
    slib_mat2=1,0,0,1
   !else
    slib_mat2=0,1,-1,0
   !endif
   !if $slib_name=wire
    slib_paired=$[$slib_i+1]
    slib_out=$slib_out\
affine $slib_mat2,$slib_x,$slib_y\
parallel -1,0,0.5,0,3.5,0,2,_color_$slib_extender
    !goto loopend
   !else
    slib_out=$slib_out\
affine $slib_mat2,$slib_x,$slib_y\
line 1,0,2,0,_color_
   !endif
  !endif
  !if $slib_i=$slib_paired
    !if $slib_orient=0
     slib_x=$[$slib_x-1.5]
     slib_xt=$[$slib_xt-1.5]
    !else
     slib_y=$[$slib_y+1.5]
     slib_yt=$[$slib_yt+1.5]
    !endif
  !endif
  slib_out=$slib_out\
affine $slib_matrix,$slib_x,$slib_y\
$(comp_$slib_cmd)$slib_extender
  !if $slib_tlen>0 and $slib_name notwordof $comp_notext
   !ifval $slib_tlen=1 and $slib_cmd iswordof src
    slib_xt=$[$slib_x-0.15]
    slib_yt=$[$slib_y+0.4]
   !endif
   !if $slib_name iswordof voltmeterN ammeterN lampN
    slib_xt=$[$slib_x+0.30]
    slib_yt=$[$slib_y+0.30]
   !endif
   slib_out=$slib_out\
killaffine\
text _color_,$slib_xt,$slib_yt,$slib_textsize,$slib_text
  !endif
 !endif
 :loopend
!next slib_i

slib_out=!replace internal _color_ by $slib_color in $slib_out\
killaffine