source: trunk/WIDGET/AUTOUR_de_XXX/tracecadre.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1PRO tracecadre, petit, out = out, erase = erase, fill = fill
2;------------------------------------------------------------
3; determination de la colonne et de la ligne correspondant au petit en
4; entree
5   numdessin = petit[2]-1
6   numligne = numdessin/petit[0]
7   numcolonne = numdessin-numligne*petit[0]
8; determination de poscadre
9   largeurcolonne = 1./petit[0]
10   largeurligne = 1./petit[1]
11   cadre = [numcolonne*largeurcolonne,1.-((numligne+1)*largeurligne) $
12            , (numcolonne+1)*largeurcolonne, 1.-(numligne*largeurligne)]
13   decale = 0.001
14   cadre = cadre+[decale,decale,-decale,-decale]
15   reinitplt
16   !p.position = [0., 0., 1., 1.]
17   IF keyword_set(fill) then begin
18      polyfill, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
19       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]], color = 255, /normal
20   ENDIF ELSE BEGIN
21      plot, [cadre[0], cadre[2], cadre[2], cadre[0], cadre[0]] $
22       , [cadre[1], cadre[1], cadre[3], cadre[3], cadre[1]] $
23       , xrange = [0, 1], yrange = [0, 1], linestyle = 2*keyword_set(out) $
24       , /noerase, /normal, thick = 2, color = 0+255*keyword_set(erase)
25   ENDELSE
26;------------------------------------------------------------
27   return
28end
Note: See TracBrowser for help on using the repository browser.