Changeset 59

Show
Ignore:
Timestamp:
03/25/08 19:28:23 (10 months ago)
Author:
christophe
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/mp-geo/mp-geo.mp

    r55 r59  
    22%Auteur:Christophe Poulain 
    33%Version 0.61 
    4 %24/03/2008 
    5  
    6 prologues:=2; 
     4%25/03/2008 
    75 
    86input marith; 
    …… 
    553551vardef Lecture(expr Nomfichier)= 
    554552  NomFichier:=arborescence&Nomfichier; 
    555   %show NomFichier; 
    556553  nblec:=scantokens readfrom NomFichier; 
    557554  for w=1 upto nblec: 
    …… 
    568565string projection; 
    569566projection:="non"; 
    570  
    571 %xunit:=1; 
    572 %yunit:=2*cm; 
    573567 
    574568vardef zoom(expr nbzoom)= 
    …… 
    719713  endfor; 
    720714  closefrom nomfichiermul; 
    721  if (projection="mercator") or (projection="cyliindrique") or (projection="simple"): 
     715 if (projection="mercator") or (projection="cylindrique") or (projection="simple"): 
    722716    clip currentpicture to feuillet; 
    723717  fi; 
    …… 
    14171411  fi; 
    14181412  fill cercles(pte3,pte1,pte3,pte1,pte4) withcolor ciel; 
    1419   %Lecture("Cameriquesud.dat"); 
    1420   %Lecture("Ccaraibes.dat"); 
    1421   %Lecture("Cameriquecentrale.dat"); 
    1422   %Lecture("Cameriquenord.dat"); 
    1423   %Lecture("Casie.dat"); 
     1413  Lecture("Cameriquesud.dat"); 
     1414  Lecture("Ccaraibes.dat"); 
     1415  Lecture("Cameriquecentrale.dat"); 
     1416  Lecture("Cameriquenord.dat"); 
     1417  Lecture("Casie.dat"); 
    14241418  Lecture("Ceurope.dat"); 
    1425   %Lecture("Cafrique.dat"); 
     1419  Lecture("Cafrique.dat"); 
    14261420  if volcans=true: 
    14271421    Lecturevolcans;