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

Last change on this file since 297 was 262, checked in by pinsard, 17 years ago

corrections of some headers and parameters and keywords case. change of pro2href to replace proidl
  • 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;-
34;
35PRO tracecadre, small, OUT = out, ERASE = erase, FILL = fill
36;
37  compile_opt idl2, strictarrsubs
38;
39   numdessin = small[2]-1
40   numligne = numdessin/small[0]
41   numcolonne = numdessin-numligne*small[0]
42; determination of poscadre
43   largeurcolonne = 1./small[0]
44   largeurligne = 1./small[1]
45   cadre = [numcolonne*largeurcolonne,1.-((numligne+1)*largeurligne) $
46            , (numcolonne+1)*largeurcolonne, 1.-(numligne*largeurligne)]
47   decale = 0.001
48   cadre = cadre+[decale,decale,-decale,-decale]
49   reinitplt
50   !p.position = [0., 0., 1., 1.]
51   IF keyword_set(fill) then begin
52      polyfill, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
53       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]], color = 255, /normal
54   ENDIF ELSE BEGIN
55      plot, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
56       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]] $
57       , xrange = [0, 1], yrange = [0, 1], linestyle = 2*keyword_set(out) $
58       , /noerase, /normal, thick = 2, color = 0+255*keyword_set(erase)
59   ENDELSE
60;------------------------------------------------------------
61   return
62end
Note: See TracBrowser for help on using the repository browser.