1 | PRO tracecadre, small, out = out, erase = erase, fill = fill |
---|
2 | ;------------------------------------------------------------ |
---|
3 | ; determination de la colonne et de la ligne correspondant au small en |
---|
4 | ; entree |
---|
5 | ; |
---|
6 | compile_opt idl2, strictarrsubs |
---|
7 | ; |
---|
8 | numdessin = small[2]-1 |
---|
9 | numligne = numdessin/small[0] |
---|
10 | numcolonne = numdessin-numligne*small[0] |
---|
11 | ; determination de poscadre |
---|
12 | largeurcolonne = 1./small[0] |
---|
13 | largeurligne = 1./small[1] |
---|
14 | cadre = [numcolonne*largeurcolonne,1.-((numligne+1)*largeurligne) $ |
---|
15 | , (numcolonne+1)*largeurcolonne, 1.-(numligne*largeurligne)] |
---|
16 | decale = 0.001 |
---|
17 | cadre = cadre+[decale,decale,-decale,-decale] |
---|
18 | reinitplt |
---|
19 | !p.position = [0., 0., 1., 1.] |
---|
20 | IF keyword_set(fill) then begin |
---|
21 | polyfill, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $ |
---|
22 | , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]], color = 255, /normal |
---|
23 | ENDIF ELSE BEGIN |
---|
24 | plot, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $ |
---|
25 | , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]] $ |
---|
26 | , xrange = [0, 1], yrange = [0, 1], linestyle = 2*keyword_set(out) $ |
---|
27 | , /noerase, /normal, thick = 2, color = 0+255*keyword_set(erase) |
---|
28 | ENDELSE |
---|
29 | ;------------------------------------------------------------ |
---|
30 | return |
---|
31 | end |
---|