th=2

x=findgen(101)/100.*2.*!pi

extra={thick: th, xthick: th, ythick: th, xticklen: 0.015,yticklen: 0.015,xstyle: 1, $
      xtext_color: 'white', ytext_color: 'white', font_size: 14, xminor: 1 }

w=window(dim=[800,500],background_color='blue')

p=plot(x,sin(x),_extra=extra,color='yellow',layout=[2,1,1],/current, $
      xcolor='white',ycolor='white')

q=plot(x,sin(x),_extra=extra,color='blue',background_color='yellow',layout=[2,1,2],/current, $
       xcolor='red',ycolor='red')

w.save,'exercise1.png',resolution=192

END