%! 100 100 translate 100 100 scale 1 100 div setlinewidth /b 3 def /h 1 def /s 1 def newpath 0 0 moveto b 0 lineto b h lineto 0 h lineto closepath 1 0 0 setrgbcolor fill newpath b s sub 0 moveto b 0 lineto b h lineto closepath 0 0 0 setrgbcolor fill 0 2 translate newpath 0 0 moveto b 0 lineto b s add h lineto s h lineto closepath 1 0 0 setrgbcolor fill newpath 0 0 moveto s 0 lineto s h lineto closepath 0 0 0 setrgbcolor fill