source: trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro @ 327

Last change on this file since 327 was 327, checked in by pinsard, 16 years ago

modification of headers : mainly blanks around = sign for keywords in declaration of function and pro
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.4 KB
Line 
1;+
2;
3; @file_comments
4; determination of the column and of the line corresponding in input to small
5; ++
6;
7; @categories
8;
9; @param SMALL
10;
11; @keyword OUT
12;
13; @keyword ERASE
14;
15; @keyword FILL
16;
17; @returns
18;
19; @uses
20;
21; @restrictions
22;
23; @examples
24;
25; @history
26;
27; @version
28; $Id$
29;
30; @todo
31; seb
32;
33;-
34PRO tracecadre, small, OUT=out, ERASE=erase, FILL=fill
35;
36  compile_opt idl2, strictarrsubs
37;
38   numdessin = small[2]-1
39   numligne = numdessin/small[0]
40   numcolonne = numdessin-numligne*small[0]
41; determination of poscadre
42   largeurcolonne = 1./small[0]
43   largeurligne = 1./small[1]
44   cadre = [numcolonne*largeurcolonne,1.-((numligne+1)*largeurligne) $
45            , (numcolonne+1)*largeurcolonne, 1.-(numligne*largeurligne)]
46   decale = 0.001
47   cadre = cadre+[decale,decale,-decale,-decale]
48   reinitplt
49   !p.position = [0., 0., 1., 1.]
50   IF keyword_set(fill) then begin
51      polyfill, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
52       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]], color = 255, /normal
53   ENDIF ELSE BEGIN
54      plot, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
55       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]] $
56       , xrange = [0, 1], yrange = [0, 1], linestyle = 2*keyword_set(out) $
57       , /noerase, /normal, thick = 2, color = 0+255*keyword_set(erase)
58   ENDELSE
59;------------------------------------------------------------
60   return
61end
Note: See TracBrowser for help on using the repository browser.