FUNCTION givewindowsize
@common
;
   dimensions = get_screen_size(RESOLUTION=resolution)
   coef = floor(1./resolution[0])
   if NOT keyword_set(ccwindowsize) then ccwindowsize = 1
   coef = ccwindowsize*coef
;
   xsize=coef*(petitfeuille*key_portrait+grandfeuille*(1-key_portrait))
   ysize=coef*(petitfeuille*(1-key_portrait)+grandfeuille*key_portrait)
;
   return, [xsize, ysize]
end