| 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 |
|---|
