% `thyristor.m4'
.PS
cct_init

down_

{Q: thyristor
 "\sl A" at Q.A rjust above
 "\sl K" at Q.K rjust below
 "\sl G" at Q.G ljust
 }
{`"\tt thyristor"' at Q.s+(0,-0.25) }

move right 0.75 ; down_
{Q1: thyristor(,B)
 "\sl T1" at Q1.T1 rjust above
 "\sl T2" at Q1.T2 rjust below
 "\sl G" at Q1.G below ljust
 }
{`B: "\tt ...(,B)"' at Q1.s+(0,-0.25) }

move right 0.75 ; down_
{Q: thyristor(,BR,,)
 "\sl T1" at Q.T1 ljust above
 "\sl T2" at Q.T2 ljust below
 "\sl G" at Q.G below rjust
 }
{`"\tt ...(,BR)"' at Q.s+(0,-0.21) }

move right 1 ; down_
{Q: thyristor(,BGE)
 "\sl T1" at Q.T1 rjust above
 "\sl T2" at Q.T2 rjust below
 "\sl G" at Q.G below ljust
 }
{`"\tt ...(,BGE)"' at Q.s+(0,-0.21) }

move right 1 ; down_
{Q: thyristor(,BRGE)
 "\sl T1" at Q.T1 rjust above
 "\sl T2" at Q.T2 rjust below
 "\sl G" at Q.G rjust
 }
{`BR:"\tt ...(,BRGE)"' at Q.s+(0,-0.21) }

move right 0.75 ; down_
{Q: thyristor(,ARE) at (Here,last [])
 "\sl A" at Q.A rjust above
 "\sl K" at Q.K rjust below
 "\sl G" at Q.G rjust below
 }
{`"\tt ...(,ARE)"' at (Q,B) }

move right 0.75 ; down_
{Q: thyristor(,C) at (Here,last [])
 "\sl A" at Q.A ljust above
 "\sl K" at Q.K ljust below
thinlines_
 arrow <- right 0.2 from Q.G chop 0.01
 "\sl G" ljust
thicklines_
 }
{`"\tt ...(,C)"' at (Q,BR) }

.PE