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

   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