1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
!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
|
