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

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

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