.PS
# Nordic.m4
# https://www.semanticscholar.org/paper/Implementation-and-validation-of-the-Nordic-test-in-Ospina-Corr%C3%AAa/41a531b02b6705d1ee22b27e4a570ab08a212579/figure/0
cct_init
include(libSLD.m4)
ifsvg(`svg_font(sans-serif,8.5bp__)',`command "{\small\sf"')

linewid = linewid*3/4
  del = dimen_/3
  textoffset = 1 bp__
define(`thick400',thick 2.4)
define(`thick220',thick 1.6)
define(`thick130',thick 0.8)
define(`txtoff',`(0,0.09)')

define(`sl_tr',`pushdef(`dimen_',dimen_/3) sl_transformer($1,type=S,`$3')
  popdef(`dimen_')
  ifelse(`$2',,{line thick 1 right_ dimen_/3 at last line.end}) ')
define(`sl_gen',`pushdef(`dimen_',dimen_*2/3)sl_generator($1,$2) dnl
  popdef(`dimen_')')
define(`slta',`sl_tr(`$1' dimen_*3/4); arrow dimen_/3; `$2'')
define(`sltg',`sl_tr(`$1' dimen_*3/4); sl_gen(dimen_/4,name=`$2')
  "`$3'" ljust at ifelse(`$2',,Head,`$2').e')
define(`lconnect',`line `$4' from `$1' ifelse(`$5',,down_,up_) dnl
  ifelse(`$2',,del,`$2'); continue to (`$3',Here) then to `$3'')

[
 B4011: sl_busbar(right_ dimen_*2,5,line=thick400)
  "4011" ljust at last [].nw+txtoff
  sltg(from B4011 up_,G9,g9)
 B4071: sl_busbar(right_ dimen_*2,5,line=thick400) \
  with .e at B4011.w-(dimen_*2,0); "4071" at last [].ne+txtoff
  sltg(from B4071.P4 up_,G19,g19)
  slta(from B4071.P1 down_,"71" below)
  sl_inductor(from B4071.P2 up_ dimen_/5)
  line thick400 from B4071.P2 down_ 2*dimen_
  line thick400 from B4071.P3 down_ last line.len
 B4072: sl_busbar(right_ B4071.wid/5*3,4,line=thick400) \
  at (1/2 between B4071.P2 and B4071.P3,Here)
  "4072" at last [].ne+(3bp__,0)+txtoff
  slta(from B4072.P1 down_,"72" below)
  sltg(from B4072.P3 down_,G20,g20)
  lconnect(B4071.P5 thick400,,B4011.P1)
 B1011: sl_busbar(right_ B4071.wid*4/5,4,line=thick 0.8) \
  with .w at B4011.e+(1.5*dimen_,0); "1011" at last [].nw+txtoff
  line from B4011.P5 down del; corner
  sl_tr(to (B1011.P1,Here),N); corner; line to B1011.P1
 B1013: sl_busbar(right_ B4071.wid,5,line=thick130)\
  with .w at B1011.e+(2*dimen_,0); "1013" at last [].nw+txtoff
  lconnect(B1011.P4,,B1013.P1)
  lconnect(B1011.P3,del*2,B1013.P2)
  slta(from B1011.P2 down_,"11" below)
  slta(from B1013.P5 down_,"13" below)
  sltg(from B1013.P3 up_,G2,g2)
  line from B1013.P3 down_ 2*dimen_
  line from B1013.P4 down_ last line.len
 B1014: sl_busbar(right_ B1011.wid,4,line=thick130) with .w at (B1013.w,Here)
  "1014" at last [].nw+txtoff
  sltg(from B1014.P4 down_,G3,g3)
 B1012: sl_busbar(right_ B1014.wid,4,line=thick130) \
  with .e at B1014.w-(dimen_*3/2,0); "1012" at last [].nw+txtoff
  lconnect(B1012.P4,,B1014.P1)
  lconnect(B1012.P3,del*2,B1014.P2)
  slta(from B1012.P3 up_,"12" ljust)
 B4012: sl_busbar(right_ B1012.wid,4,line=thick400) with .e at (B4011,B1012)
  "4012" at last [].nw+txtoff
  line from B4012.P4 down_ del; corner; 
  sl_tr(to (B1012.P1,Here),N); corner; line to B1012.P1
  line thick400 from B4011.P2 to (B4011.P2,B4012)
  line thick400 from B4071.P4 down_ 2*del; continue to (B4011.P1,Here) \
   then to (B4011.P1,B4012)
  sl_inductor(from B4012.P1 down_ dimen_/5)
  sltg(from B1012.P2 down_,G1,g1)
  sltg(from B4012.P2 down_,G10,g10)
 B4021: sl_busbar(right_ B1012.wid*3/4,2,line=thick400;indent=B1012.wid/4) \
   with .w at B1012.w+(dimen_*0.6,-2.75*dimen_); "4021" at last [].nw+txtoff
  line thick400 from B4011.P4 down_ dimen_/2 then to B4021.P1+(0,dimen_/2) \
   then to B4021.P1
  sltg(from B4021.P2 up_,G11,g11)
  line thick400 from B4021.P1 down_ dimen_*2
 B4032: sl_busbar(right_ B4021.wid,3,line=thick400) with .P2 at Here
  "4032" at last [].nw+txtoff
 B4022: sl_busbar(right_ B4021.wid,4,line=thick400) \
   with .e at B4021.w-(2*dimen_,0); "4022" at last [].nw+txtoff
  line thick400 from B4012.P3 down_ dimen_/2 then to B4022.P2+(0,dimen_/2) \
    then to B4022.P2
 B1022: sl_busbar(right_ B4011.wid,5,line=thick130) \
   with .e at B4022.w-(dimen_/2,0)
  "1022" ljust at last [].nw+txtoff
  line from B1022.P5 down_ del; corner; 
  sl_tr(to (B4022.P1,Here),N); corner; line to B4022.P1
  sl_capacitor(from B1022.P4 down_ dimen_/2)
  slta(from B1022.P3 down_,"22" below)
 B1021: sl_busbar(right_ B4022.wid,3,line=thick130) \
   with .e at B1022.w-(dimen_/2,0)
  "1021" rjust at last [].ne+txtoff
  lconnect(B1021.P3,,B1022.P1)
  lconnect(B1021.P2,2*del,B1022.P2)
  sltg(from B1021.P1 down_,G4,g4)
  line thick400 from B4022.P2 to (B4022.P2,B4032)
 B4031: sl_busbar(right_ B4012.wid,4,line=thick400) with .P2 at Here
  "4031" at last [].nw+txtoff
  line thick400 from B4011.P3 down_ dimen_/2 \
    then to (B4031.P3,B4022+(0,dimen_/2)) then to B4031.P3
  sltg(from B4031.P4 up_,G12,g12)
 B2031: sl_busbar(right_ B4012.wid,4,line=thick220) \
  with .e at B4031.w-(dimen_,0); "2031" ljust at last [].nw+txtoff
 B2032: sl_busbar(right_ B2031.wid,4,line=thick220) \
  with .e at B2031.w-(dimen_/2,0); "2032" rjust at last [].ne+txtoff
  lconnect(B2032.P4,,B2031.P1,thick220)
  lconnect(B2032.P3,2*del,B2031.P2,thick220)
  lconnect(B4032.P1,,B4031.P4,thick400)
  sltg(from B2032.P2 down_,G8,g8)
  slta(from B2032.P1 down_,"32" rjust)
  line from B2031.P4 down_ del; corner; 
  sl_tr(to (B4031.P1,Here),N); corner; line to B4031.P1
  slta(from B2031.P3 down_,"31" rjust)
 B4042: sl_busbar(right_ B2031.wid,5,line=thick400) \
  with .w at (B4032.P3,B4032-(0,dimen_*3))
  "4042" at last [].nw-(3bp__,0)+txtoff
  slta(from B4042.P4 up_,"42" ljust)
  sltg(from B4042.P4 down_,G14,g14)
  line thick400 down_ del from B4021.P2 \
    then to B4042.P3+(0,del) then to B4042.P3
  line thick400 down_ del from B4032.P3 \
    then to B4042.P1+(del/2,del) then to B4042.P1+(del/2,0)
 B4041: sl_busbar(right_ dimen_*2.5,5,line=thick400) \
  with .w at (B4071.w,B4042); "4041" at last [].nw+txtoff
  line thick400 from B4031.P2 down_ dimen_/2 then to B4041.P2+(0,dimen_/2) \
    then to B4041.P2
  line thick400 from B4031.P3 down_ dimen_/2 then to B4041.P3+(0,dimen_/2) \
    then to B4041.P3
  slta(from B4041.P2 down_,"41" ljust)
  sl_capacitor(from B4041.P3 down_ dimen_/2)
  sl_tr(from B4041.P4 down_ dimen_*3/4)
  G13:sl_disk(down_ dimen_/4,diam=dimen_*4/9); "g13" below rjust at Head.s
   "CS" ljust at Head.e
 B4046: sl_busbar(right_ B4031.wid,4,line=thick400) at B4042.e+(0,-dimen_*2)
  "4046" at last [].ne+txtoff
 B4043: sl_busbar(right_ B4046.wid/4*5,5,line=thick400) \
  with .e at B4046.w-(dimen_/2,0); "4043" ljust at last [].nw+txtoff
  line thick400 from B4042.P3 down_ del then to B4043.P3+(0,del) \
   then to B4043.P3
  sl_capacitor(from B4043.P3 down_ dimen_/2)
  slta(from B4043.P2 down_,"43" rjust)
  lconnect(B4043.P5,,B4046.P1,thick400)
 B4044: sl_busbar(right_ B4043.wid*1.2,5,line=thick400) \
  with .e at B4043.w-(dimen_,0); "4044" at last [].nw+txtoff
  lconnect(B4044.P5,,B4043.P1,thick400)
  sl_capacitor(from B4046.P3 down_ dimen_/2)
  slta(from B4046.P2 down_,"46" below)
  line thick400 from B4032.P2 down_ del then to B4044.P3+(0,del) \
   then to B4044.P3
  line thick400 from B4042.P1 down_ del then to B4044.P4+(0,del) \
   then to B4044.P4
  line thick400 from B4041.P5 down_ del then to B4044.P2+(0,del) \
   then to B4044.P2
  sl_tr(from B4044.P2 down_ dimen_,N)
 B1044: sl_busbar(right_ B4043.wid,4,line=thick130) with .P4 at Here
  "1044" below at last [].se+(del/2,-del/3)
  sl_capacitor(from B1044.P2 up_ dimen_/2)
  slta(from B1044.P1 up_,"4" above)
 B1043: sl_busbar(right_ B1044.wid*0.95,4,line=thick130) with .e at B1044.w+(-del,0)
  "1043" at last [].ne-(3bp__,0)+txtoff
  lconnect(B1043.P4,,B1044.P1)
  lconnect(B1043.P3,2*del,B1044.P2)
  sl_tr(from B4044.P1 down_ dimen_,N)
  sltg(from B1043.P3 up_,G7,g7)
  sl_capacitor(from B1043.P2 up_ dimen_/2)
  slta(from B1043.P1 up_,"3" rjust)
 B1042: sl_busbar(right_ B4022.wid,3,line=thick130) \
   with .w at (B4043.w.x,B1044.y-1.5*dimen_)
  "1042" rjust at last [].P1+(2bp__,0)+txtoff
  lconnect(B1044.P4,2*del,B1042.P2)
  lconnect(B1044.P3,3*del,B1042.P1)
  sltg(from B1042.P3 up_,G6,g6)
  slta(from B1042.P3 down_,"2" below)
 B1045: sl_busbar(right_ B1011.wid,4,line=thick130) at B1042-(dimen_*2,dimen_)
  "1045" rjust at last [].nw
 B1041: sl_busbar(right_ B1011.wid,4,line=thick130) \
   with .w at (B1043.w,B1045); "1041" ljust at last [].ne
  sl_tr(from B1045.P4 down_ dimen_*3/2,N)
  sl_tr(from B1045.P3 down_ dimen_*3/2,N)
 B4045: sl_busbar(right_ B4044.wid+del,4,line=thick400) with .P1 at Here
  "4045" rjust at last []+(0,-del/4) below
  sl_capacitor(from B1045.P2 down_ dimen_/2)
  slta(from B1045.P1 down_,"5" rjust)
  sl_capacitor(from B1041.P4 down_ dimen_/2)
  slta(from B1041.P3 down_,"1" ljust)
  line thick130 from B1041.P1 up_ B1043.y-B1041.y
  line thick130 from B1041.P2 up_ B1043.y-B1041.y
  lconnect(B1041.P3,2*del,B1045.P2,,U)
  lconnect(B1041.P4,,B1045.P1,,U)
  line thick130 from B1045.P3 up del
  continue to (B1042.P1,Here) then to B1042.P1
 B4061: sl_busbar(right_ dimen_*1.1,2,line=thick130) \
   with .P2 at (B4041.P1,B1043)
  "4061" ljust at last [].nw+txtoff
  slta(from B4061.P1 down_,"61" below)
  line thick400 from B4041.P1 down_ B4041.y-B4045.y
 B4062: sl_busbar(right_ B2032.wid,4,line=thick400) with .P2 at Here
  "4062" at last [].ne+txtoff
  slta(from B4062.P1 up_,"62" above)
  sltg(from B4062.P3 up_,G17,g17)
  lconnect(B4062.P4,,B4045.P1,thick400)
  line thick400 from B4062.P1 down_ dimen_
 B4063: sl_busbar(right_ B4062.wid,4,line=thick400) with .P1 at Here
  "4063" at last [].ne+txtoff
  sltg(from B4063.P1 down_,G18,g18)
  slta(from B4063.P4 down_,"63" below)
  line thick400 from B4062.P2 to B4063.P2
 B4051: sl_busbar(right_ B4045.wid,6,line=thick400) \
  with .P1 at (B4045.P3-(del/4,0),B4063)
  "4051" ljust below at last [].nw+(0,-del/4)
  slta(from B4051.P6-(del/8,0) up_,"51" rjust below)
  sltg(from B4051.P4 up_,G16,g16)
  sl_capacitor(from B4051.P3 up_ dimen_/2)
  line thick400 from B4051.P2 up_ B4045.y+2*del-B4051.y \
   then to B4044.P4-(0,2*del) then to B4044.P4 
  line thick400 from B4051.P1 up_ B4045.y+2*del-B4051.y \
   then to B4044.P3-(0,2*del) then to B4044.P3 
  line thick400 from B4046.P4 down_ (B4046.y-B4045.y)
 B4047: sl_busbar(right_ B4046.wid,4,line=thick130) \
   with .P3 at Here; "4047" at last [].ne below
  sltg(from B4047.P4 up_,G15,g15)
  slta(from B4047.P1 up_,"47" rjust)
  line thick400 from B4043.P4 down_ 2*del then to B4047.P2+(0,2*del) \
   then to B4047.P2
 W: B4061.w
 S: G18.s
 E: B1013.e
 N: G9.n
  line thick400 right_ del from B4021.e+(del*2,del); move right_ del
   "400 kV" ljust
  move down_ del from last line.start
  line thick220 right_ last line.len; move right_ del; "220 kV" ljust
  move down_ del from last line.start
  line thick130 right_ last line.len; move right_ del; "130 kV" ljust
  move down_ del*3/2 from last line.start
  CS: circle diam del with .w at Here; ; "CS" ljust at CS.e+(del,0)
  "Synchronous" ljust at CS+(del,-del*2) "condenser" ljust

  line thick 1 dotted from (B4071.e+(del*2,0),N) down_ N.y-G20.s.y+del/2
  continue to (W,Here)
  "EQUIV" rjust at (last line.start,B4071-(0,dimen_*5/4))
  line thick 1 dotted from (W,B4041.w+(0,dimen_)) right_ (E.x-W.x)*2/3
  "CENTRAL" ljust at last line+(0,-dimen_*2/3)
    continue to (E,Here+(0,dimen_*2))
  "NORTH" at last ""+(dimen_*3,dimen_*3/2)
  line thick 1 dotted from (W,B4061.w+(0,del*1.7)) right_ B4061.wid*5/4
  continue down_ Here.y-G17.ne.y-del/2 then to ((E+W)*0.22,S)
  "SOUTH" ljust at B4063.e+(dimen_,-dimen_*2/3)
  ]
#howbox_


ifsvg(`command "</g>"',`command "}%"')
.PE