Changeset 26

Timestamp:

08/26/09 11:54:01 (15 years ago)

Author:

pinsard

Message:

production de .ps au lieu de .eps

Location:

trunk/PROGRAMMES

Files:

• carte_SST.m (modified) (8 diffs, 1 prop)
• eof_NCEP_sais.m (modified) (9 diffs, 1 prop)
• initfig.m (modified) (2 diffs)
• reg_seriestemporelles.m (modified) (3 diffs)
• tpacpandreg_startup.m (modified) (1 diff)
• whorldmap.m (modified) (3 diffs, 1 prop)

trunk/PROGRAMMES/carte_SST.m

@@ -1 @@
-%CARTE_SST  Ce programme permet de visualiser les cartes mensuelles moyennes de temperature de surface
+%CARTE_SST Ce programme permet de visualiser les cartes mensuelles moyennes de temperature de surface
 %
 % Date: Avril-Mai 2008
@@ -22 +22 @@
 % et ``../DONNEES/skt.mon.tropatl.mat``.
 %
-% ``carte_SST`` calcule les moyennes mensuelles de SST  dans
+% ``carte_SST`` calcule les moyennes mensuelles de SST dans
 % l'Atlantique tropical a partir d'un champ mensuel de 60 ans
 % fourni en entree
@@ -28 +28 @@
 % ``carte_SST`` affiche à l'écran les moyennes mensuelles de SST.
 %
-% ``carte_SST`` sauve cette image dans ``./carte_SST.eps``.
+% ``carte_SST`` sauve cette image dans ``./carte_SST.ps``.
 %
 % EXAMPLES
@@ -66 +66 @@
 % improve description
 %
+% KNOWN PROBLEMS
+% ==============
+% 
+% 
+% - fplod 2009-08-26T08:46:48Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%   * ne fonctionne pas sous octave 3.2.2
+%     
+%     ::
+%
+%    error: gnuplot (as of v4.2) only supports 3D filled triangular patches
+%    error: called from:
+%    error:   /usr/local_linux/octave/64/3.2.2//share/octave/3.2.2/m/plot/__go_draw_axes__.m at line 563, column 6
+%    error:   /usr/local_linux/octave/64/3.2.2//share/octave/3.2.2/m/plot/__go_draw_figure__.m at line 93, column 3
+%    error:   /usr/local_linux/octave/64/3.2.2//share/octave/3.2.2/m/plot/gnuplot_drawnow.m at line 88, column 5
+%    error:   /usr/local_linux/octave/64/3.2.2//share/octave/3.2.2/m/plot/print.m at line 696, column 7
+%    error:   /.autofs/home/fplod/incas/tpoctave/tpacpandreg_ws/PROGRAMMES/carte_SST.m at line 212, column 1
+%    
 % EVOLUTIONS
 % ==========
 %
 % $Id$
+%
+% - fplod 2009-08-26T09:00:11Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%  * titre: nom de chaque mois
+%  * remplacement de ``eps`` par ``ps` pour pouvoir imprimer les figures 
+%    produites par ``octave``
+%    Dans le fichier .eps produit par ``octave`` on pouvait lire 
+%    ``!PS-Adobe-2.0 EPSF-2.0``.
+%    Aucun message d'erreur n'apparaît suite à la demande d'impression 
+%    ``zeus$ lpr -o job-sheets='none' carte_SST.ps``, mais aucune feuille ne
+%    sort.
+%    Pour info dans le fichier .eps produit par matlab, on pouvait lire
+%    ``%!PS-Adobe-2.0 EPSF-1.2``. Aucun souci d'impression avec ce fichier !
+%    En remplaçant ``eps`` par ``ps`, on n'a plus de souci d'impression.
+%
+%
+% - jmignot 2009-08-25
+%
+%  * suppression d'appel à contlab et colorbartype sous octave
 %
 % - fplod 2009-08-25T10:40:16Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -82 +119 @@
 %  * contraintes sur les limites x et y de axes car matlab et octave ne
 %    fixent pas les même limites par défaut
-%  * utisation de ``contlab`` pour ++
+%  * utilisation de ``contlab`` pour ++
 %
 % - fplod 2009-08-17T12:39:51Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -175 +212 @@
   whorldmap
 
-  % limites geographies et labels de longitude et de latitude
+  % limites géographiques et labels de longitude et de latitude
   ylim([geo(3) geo(4)])
   xlim([geo(1) geo(2)])
-  set(gca, 'Xtick', xti, 'Ytick', yti)
+  set(gca, 'Xtick', xti, 'Ytick', yti);
   if (run_octave == 0)
     [longstr, latstr] = contlab(xti, yti);
-    set(gca, 'Xticklabel', longstr, 'Yticklabel', latstr)
+    set(gca, 'Xticklabel', longstr, 'Yticklabel', latstr);
   end;
   if iplot>=10
@@ -191 +228 @@
 
   %titre: nom de chaque mois
-  title(['mois ' num2str(iplot)])
+  cmois = datestr(datenum([2000 iplot 1 00 00 00]), 'mmm');
+  title(cmois);
+  clear cmois;
 
 end;
@@ -202 +241 @@
   title('SST mensuelle moyenne en degC')
 else
-  colorbar('East') %colorbar par defaut
+ colorbar('East') %colorbar par defaut
 end;
 
 % sauvegarde de la figure
-printer='eps';
+printer='ps';
 print_printer=['-d', printer];
 fullfilename=['./', mfilename, '.', printer];

trunk/PROGRAMMES/eof_NCEP_sais.m

@@ -30 +30 @@
 % ``eof_NCEP_sais`` calcule ++blabla++
 %
-% ``eof_NCEP_sais`` sauvegarde dans ``../DONNEES/eof_SSTmens_tropAtl30N-20S.mat``.
-%
-% Ces fichiers sont lus par ``Reg_serietemporelles.m_``\ .
+% ``eof_NCEP_sais`` sauvegarde dans 
+% ``../DONNEES/eof_SSTmens_tropAtl30N-20S.mat``.
+%
+% Ces fichiers sont lus par ``reg_serietemporelles.m_``\ .
 %
 % ``eof_NCEP_sais`` affiche trois figures :
@@ -39 +40 @@
 %  - valeurs propres de la matrice de covariance
 %
-% ``eof_NCEP_sais`` sauve ces images dans ``./eof_SSTmens_tropAtl30N-20S_[123].eps``.
+% ``eof_NCEP_sais`` sauve ces images dans 
+% ``./eof_SSTmens_tropAtl30N-20S_[123].ps``.
 %
 % ++
@@ -89 +91 @@
 %
 % $Id$
+%
+%  * remplacement de ``eps`` par ``ps` pour pouvoir imprimer les figures 
+%    produites par ``octave``
+%    Dans le fichier .eps produit par ``octave`` on pouvait lire 
+%    ``!PS-Adobe-2.0 EPSF-2.0``.
+%    Aucun message d'erreur n'apparaît suite à la demande d'impression 
+%    ``zeus$ lpr -o job-sheets='none' eof_SSTmens_tropAtl30N-20S_1.octave.ps``, 
+%    mais aucune feuille ne sort.
+%    Pour info dans le fichier .eps produit par matlab, on pouvait lire
+%    ``%!PS-Adobe-2.0 EPSF-1.2``. Aucun souci d'impression avec ce fichier !
+%    En remplaçant ``eps`` par ``ps`, on n'a plus de souci d'impression.
+%
+%
+% - jmignot 2009-08-25
+%
+%  * suppression d'appel à contlab et colorbartype sous octave
+%
 %
 % - fplod 2009-08-25T10:40:16Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -297 +316 @@
 %niveaux de couleurs
   lev=[-2:.02:2];
-  clip_lev=[-0.06 0.06]
+  clip_lev=[-0.06 0.06];
 
 figure(1);
@@ -318 +337 @@
    z=squeeze(TABEOF(:,:,i));
    contourf(x,y,z,lev);
-   caxis(clip_lev)
+   caxis(clip_lev);
    hold on
    whorldmap
@@ -338 +357 @@
   if (run_octave == 0)
     hpal=jet(100); %carte des couleurs: du bleu au rouge par defaut.
-    pos1=get(gca,'Position')
+    pos1=get(gca,'Position');
     pos=[pos1(1) pos1(2)-.075 pos1(3) .013];
     colorbartype(pos,lev,1,clip_lev,hpal,0);
@@ -347 +366 @@
   
    % sauvegarde de la figure
-   printer='eps';
+   printer='ps';
    print_printer=['-d', printer];
    fullfilename=['.' filesep nomfic num2str(limite_latN) 'N' num2str(limite_latS) 'S_' , num2str(ifigure) '.' printer];
@@ -366 +385 @@
    %
    % sauvegarde de la figure
-   printer='eps';
+   printer='ps';
    print_printer=['-d', printer];
    fullfilename=['.' filesep nomfic num2str(limite_latN) 'N' num2str(limite_latS) 'S_' , num2str(ifigure) '.' printer];
@@ -384 +403 @@
 
 % sauvegarde de la figure
-printer='eps';
+printer='ps';
 print_printer=['-d', printer];
 fullfilename=['.' filesep nomfic num2str(limite_latN) 'N' num2str(limite_latS) 'S_' , num2str(ifigure) '.' printer];

trunk/PROGRAMMES/initfig.m

@@ -42 +42 @@
 % $Id$
 %
+% - fplod 2009-08-25T16:41:34Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%  * ajout pour octave 3.2 (uniquement sous 
+%    /usr/local_linux/octave/64/3.2.2/bin/octave donc dedale)
+%
 % - fplod 2009-08-17T12:39:51Z aedon.locean-ipsl.upmc.fr (Darwin)
 %
@@ -56 +61 @@
  set(gcf,'PaperPosition',[0,0,1,1]);
 else
- warning('www : octave can not initialise Units, position, PaperType PaperUnits PaperPosition');
+ switch OCTAVE_VERSION
+  case {'3.0.2'}
+   warning('www : octave 3.0.2 can not initialise Units, position, PaperType PaperUnits PaperPosition');
+  case {'3.2.2'}
+   set(gcf,'Units','normalized');
+   set(gcf,'position',[0.1 0.08,0.5,0.8])
+   set(gcf,'PaperType', 'a4');
+   set(gcf,'PaperUnits','normalized');
+   set(gcf,'PaperPosition',[0,0,1,1]);
+  otherwise
+   warning('www : do no know about octave initialise Units, position, PaperType PaperUnits PaperPosition');
+  end
 end
 

trunk/PROGRAMMES/reg_seriestemporelles.m

@@ -30 +30 @@
 %
 % ``reg_seriestemporelles`` sauve cette image dans
-% ``./eof_SSTmens_tropAtl30N-20S.mat_reg_seriestemporelles_1.eps``.
+% ``./eof_SSTmens_tropAtl30N-20S.mat_reg_seriestemporelles_1.ps``.
 %
 % EXAMPLES
@@ -65 +65 @@
 %
 % $Id$
+%
+% - fplod 2009-08-26T09:49:43Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%  * remplacement de ``eps`` par ``ps` pour pouvoir imprimer les figures 
+%    produites par ``octave``
 %
 % - fplod 2009-08-25T10:40:16Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -210 +215 @@
 
 % sauvegarde de la figure
-printer='eps';
+printer='ps';
 print_printer=['-d', printer];
 fullfilename=['.' filesep file '_' mfilename '_'  num2str(ifigure) '.' printer];

trunk/PROGRAMMES/tpacpandreg_startup.m

@@ -1 @@
-% TPACPANDREG_STARTUP initialisation of matlab/octave environment for TPACPANDREG project
+%TPACPANDREG_STARTUP initialisation of matlab/octave environment for TPACPANDREG project
 
 %+

trunk/PROGRAMMES/whorldmap.m

@@ -40 +40 @@
 % 
 % $Id$
+%
+% - fplod 2009-08-26T09:02:22Z aedon.locean-ipsl.upmc.fr (Darwin)
+%
+%   * add missing octave warning on Erasemode
 %
 % - fplod 2009-08-25T09:32:28Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -139 +143 @@
     set(lh,'Erasemode','none');
    else
-    warning('www : octave do not know Erasemode property')
+    warning('www : octave do not know Erasemode property');
    end
    set(gca,'aspect',[1 1]);
@@ -145 +149 @@
 
 if (drawtwice),
-   line(coastlines(1,:),coastlines(2,:),'Linestyle','-',...
-   'Erasemode','none');
+   if ~ exist('OCTAVE_VERSION','builtin')
+    line(coastlines(1,:),coastlines(2,:),'Linestyle','-',...
+    'Erasemode','none');
+   else
+    warning('www : octave do not know Erasemode property');
+    line(coastlines(1,:),coastlines(2,:),'Linestyle','-')
+   end
 end;