moveto 20 10
lineto 20 60
moveto 0 0
lineto 40 0
moveto 0 10
lineto 40 10
solidbrush 0 0 0
polygon 0 0, 20 0, 10 10, 0 0
polygon 20 10, 40 10, 30 0, 20 10
*gate
solidpen 255 0 0 0
moveto -20 20
lineto 5 20
lineto 10 10