source: trunk/SRC/ToBeReviewed/PLOTS/DIVERS/givewindowsize.pro @ 163

Last change on this file since 163 was 163, checked in by navarro, 18 years ago

header improvements : type of parameters and keywords, default values, spell checking + idldoc assistant (IDL online_help)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 933 bytes
Line 
1;+
2; @file_comments
3;
4;
5; @categories
6;
7;
8; @returns
9;
10;
11; @uses
12;
13;
14; @restrictions
15;
16;
17; @examples
18;
19;
20; @history
21;
22;
23; @version
24; $Id$
25;
26; @todo seb
27;-
28FUNCTION givewindowsize
29
30;------------------------------------------------------------
31; include commons
32;
33  compile_opt idl2, strictarrsubs
34;
35@cm_4ps
36IF NOT keyword_set(key_forgetold) THEN BEGIN
37@updatenew
38ENDIF
39;------------------------------------------------------------
40;
41   dimensions = get_screen_size(RESOLUTION=resolution)
42   coef = floor(1./resolution[0])
43   if NOT keyword_set(windowsize_scale) then BEGIN
44     windowsize_scale = 1.
45     IF NOT keyword_set(key_forgetold) THEN BEGIN
46     @updateold
47     ENDIF
48   ENDIF
49   coef = windowsize_scale * coef
50;
51    mipgsz = min(page_size, max = mapgsz)
52;
53    xsize = coef * (mipgsz*key_portrait + mapgsz*(1-key_portrait))
54    ysize = coef * (mipgsz*(1-key_portrait) + mapgsz*key_portrait)
55;
56   return, [xsize, ysize]
57end
Note: See TracBrowser for help on using the repository browser.