solidbrush 0 0 0
component D 20 5
polyline 20 20  20 60
polyline 20 -5 -5 -5 -5 2
polyline -10 2 0 2
polyline -10 5 0 5
polyline -5 5 -5 20
*gate
solidpen 255 0 0 0
moveto -20 20
lineto 7 20
lineto 17 10