Changeset 49 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro

Timestamp:

05/09/06 11:47:44 (18 years ago)

Author:

pinsard

Message:

upgrade of AUTOUR_de_XXX according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro (copied) (copied from trunk/WIDGET/AUTOUR_de_XXX/tracecadre.pro) (1 diff)

trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro

@@ -1 @@
-PRO tracecadre, petit, out = out, erase = erase, fill = fill
+PRO tracecadre, small, out = out, erase = erase, fill = fill
 ;------------------------------------------------------------
-; determination de la colonne et de la ligne correspondant au petit en
+; determination de la colonne et de la ligne correspondant au small en
 ; entree
-   numdessin = petit[2]-1
-   numligne = numdessin/petit[0]
-   numcolonne = numdessin-numligne*petit[0]
+   numdessin = small[2]-1
+   numligne = numdessin/small[0]
+   numcolonne = numdessin-numligne*small[0]
 ; determination de poscadre
-   largeurcolonne = 1./petit[0]
-   largeurligne = 1./petit[1]
+   largeurcolonne = 1./small[0]
+   largeurligne = 1./small[1]
    cadre = [numcolonne*largeurcolonne,1.-((numligne+1)*largeurligne) $
             , (numcolonne+1)*largeurcolonne, 1.-(numligne*largeurligne)]