Changeset 118 for trunk/SRC/Postscript


Ignore:
Timestamp:
06/27/06 17:47:06 (18 years ago)
Author:
pinsard
Message:

add $ in Calendar, Grid, Interpolation, Obsolete and Postscript *.pro files, add svn:keywords Id to all these files, some improvements in header

Location:
trunk/SRC/Postscript
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Postscript/closeps.pro

    • Property svn:keywords changed from Author Date Id Revision to Id
    r114 r118  
    1212; 
    1313; @keyword INFOWIDGET A long integer giving the id of the information 
    14 ;           widget (created by openps) that we have de destroy at  
     14;           widget (created by openps) that we have de destroy at 
    1515;           the end of closeps (when the postscript is done) 
    1616; 
    … …  
    1919; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    2020;                       21/12/98 
    21 ; June 2005: Sebastien Masson, english version with new commons  
     21; June 2005: Sebastien Masson, english version with new commons 
     22; 
     23; @version $Id$ 
     24; 
    2225;- 
    2326;------------------------------------------------------------ 
    … …  
    4043;------------------------------------------------------------ 
    4144; if archive_ps /= 0 we will add its name and the date at the bottom 
    42 ; left corner of the page (in case if the postscript will be archived  
    43 ; in printps  
     45; left corner of the page (in case if the postscript will be archived 
     46; in printps 
    4447;------------------------------------------------------------ 
    4548   IF keyword_set(archive_ps) THEN BEGIN 
    4649;------------------------------------------------------------ 
    47 ; we get the name of the latest created postscript.  
     50; we get the name of the latest created postscript. 
    4851;------------------------------------------------------------ 
    4952     psdir = isadirectory(psdir, title = 'Select psdir') 
    … …  
    9598     'WIN': SET_PLOT, thisOS 
    9699     ELSE: SET_PLOT, 'X' 
    97    ENDCASE     
     100   ENDCASE 
    98101   def_myuniquetmpdir 
    99102   colorfile = myuniquetmpdir + 'original_colors.dat' 

  • trunk/SRC/Postscript/openps.pro

    • Property svn:keywords changed from Author Date Id Revision to Id
    r114 r118  
    1111; @keyword FILENAME to define the name of the postcript file through 
    1212;                  a keyword rather than with nameps inut argument 
    13 ;                  (in this case the keyword can be pass through  
     13;                  (in this case the keyword can be pass through 
    1414;                  different routines via _extra keyword). 
    1515; 
    … …  
    2121; @keyword KEEP_PFONT activate to suppress the modification of !p.font 
    2222;            (by defaut we force  !p.font = 0  to make smaller postscripts) 
     23; @keyword PORTRAIT 
     24; @keyword LANDSCAPE 
    2325; @keyword KEEPPFONT same as keep_pfont 
    2426; 
    2527; @keyword LIGHTNESS a scalar used to change the Lightness of the color 
    2628;            palette to be abble to adjust according to the printer we use, 
    27 ;            the media (paper or slide)...  
     29;            the media (paper or slide)... 
    2830;               lightness < 1 to get lighter colors 
    2931;                         > 1 to get darker colors 
    3032; 
    31 ; @keyword _EXTRA: used to pass any keyword to device procedure. 
    32 ;   
    33 ; uses cm_4ps 
     33; @keyword _EXTRA used to pass any keyword to device procedure. 
     34; 
     35; @uses cm_4ps 
    3436; 
    3537; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    … …  
    3739; 1/2/98: ajout de nameps en input 
    3840; 1/9/1999: ajout du mot cle FILENAME et du widget 
    39 ; June 2005: Sebastien Masson, cleaning, english version with new commons  
     41; June 2005: Sebastien Masson, cleaning, english version with new commons 
     42; 
     43; @version $Id$ 
     44; 
    4045;- 
    4146;------------------------------------------------------------ 
    … …  
    9297   nameps = isafile(nameps, iodir = psdir, /new) 
    9398;------------------------------------------------------------ 
    94 ; we define xsize, ysize, xoffset et  yoffset  
     99; we define xsize, ysize, xoffset et  yoffset 
    95100;------------------------------------------------------------ 
    96101   IF n_elements(portrait) NE 0 OR n_elements(landscape) NE 0 THEN $ 
    … …  
    102107      xoff = 0. 
    103108      yoff = 0. 
    104    ENDIF ELSE BEGIN  
     109   ENDIF ELSE BEGIN 
    105110      xs = max(page_size) 
    106111      ys = min(page_size) 
    107112      xoff = 0. 
    108113      yoff = max(page_size) 
    109    ENDELSE  
     114   ENDELSE 
    110115;------------------------------------------------------------ 
    111116; We define the device of the postscript mode 
    … …  
    117122; to make smaller postcripts 
    118123   IF NOT (keyword_set(keeppfont) OR keyword_set(keep_pfont)) $ 
    119    THEN !p.font = 0    
     124   THEN !p.font = 0 
    120125; show some informations 
    121126   IF arg_present(infowidget) THEN $ 

  • trunk/SRC/Postscript/printps.pro

    • Property svn:keywords set to Id
    r114 r118  
    44;+ 
    55; 
    6 ; 
    7 ; 
     6; @file_comments 
    87; - archiving possibilities - 
    9 ;  
     8; 
    109; if archive_ps (common variable of cm_4ps) ne 0 then the postscript 
    1110; can be saved for archiving if it is printed or if the button 
    … …  
    1918; @categories for the postscripts 
    2019; 
     20; @param event 
     21; 
    2122; @restrictions 
    2223; 
    … …  
    3839;                       25/8/19999 utilisation des widgets 
    3940;                       8/9/1999 utilisation de cw_bgroup 
    40 ; June 2005: Sebastien Masson: cleaning, english version with new commons  
     41; June 2005: Sebastien Masson: cleaning, english version with new commons 
     42; 
     43; @version $Id$ 
     44; 
    4145;- 
    4246;------------------------------------------------------------ 
    … …  
    5963  CASE uval.name OF 
    6064;------------------------------------------------------------ 
    61 ; visualize case : postscript visualization  
    62 ;------------------------------------------------------------ 
    63     'visualize':BEGIN  
     65; visualize case : postscript visualization 
     66;------------------------------------------------------------ 
     67    'visualize':BEGIN 
    6468; paper orientation 
    6569      if key_portrait EQ 1 then ori = 'portrait' ELSE ori = 'seascape' 
    … …  
    97101        round(10*(43.18 + 27.94)) : papsize = 'ledger' 
    98102        ELSE:papsize = 'a4' 
    99       ENDCASE     
     103      ENDCASE 
    100104; call the viewers 
    101105      CASE event.value OF 
    … …  
    104108        'Kghostview':spawn, '\kghostview '+uval.nameps 
    105109      ENDCASE 
    106       return  
     110      return 
    107111    END 
    108112;------------------------------------------------------------ 
    109113; print case: print and archive the file if needed 
    110114;------------------------------------------------------------ 
    111     'print':BEGIN  
     115    'print':BEGIN 
    112116; printer selection 
    113117      printer = printer_machine_names[event.value] 
    … …  
    131135    END 
    132136    ELSE: 
    133   ENDCASE  
     137  ENDCASE 
    134138; we destroy the widget 
    135   widget_control, event.top, /destroy  
     139  widget_control, event.top, /destroy 
    136140; if the file was originaly gzipped, then we re-gzip it and exit 
    137141  IF uval.gzip THEN BEGIN 
    … …  
    176180    spawn, '\gzip ' + uval.nameps 
    177181  ENDIF 
    178 ;   
     182; 
    179183  return 
    180184end 
    … …  
    187191;           visualize and/or print and/or archive. It can also refer 
    188192;           to a gzipped postscript file. If needed, this name will 
    189 ;           be completed by .ps and/or .gz  
     193;           be completed by .ps and/or .gz 
    190194; 
    191195; @uses cm_4ps 
    … …  
    198202;                       25/8/19999 utilisation des widgets 
    199203;                       8/9/1999 utilisation de cw_bgroup 
    200 ; June 2005: Sebastien Masson: cleaning, english version with new commons  
     204; June 2005: Sebastien Masson: cleaning, english version with new commons 
     205; 
     206; @version $Id$ 
     207; 
    201208;- 
    202209;------------------------------------------------------------ 
    … …  
    209216; 
    210217  thisOS = strupcase(strmid(!version.os_family, 0, 3)) 
    211   CASE thisOS OF  
     218  CASE thisOS OF 
    212219    'MAC':return 
    213220    'WIN':return 
    … …  
    236243    END 
    237244    1: nameps = psfilename 
    238     ELSE: BEGIN  
     245    ELSE: BEGIN 
    239246      ras = report('printps accept only one element: psfilename') 
    240247      RETURN 
    241     END  
    242   ENDCASE        
     248    END 
     249  ENDCASE 
    243250;------------------------------------------------------------ 
    244251; we check if the file is exist in psdir. if necessary we complete 
    … …  
    246253;------------------------------------------------------------ 
    247254  nameps = find(nameps+'{.ps,}{.gz,}', iodir = psdir, /nopro) 
    248   IF nameps EQ 'NOT FOUND' THEN BEGIN  
     255  IF nameps EQ 'NOT FOUND' THEN BEGIN 
    249256    ng = report('file '+nameps+'[.ps][.gz] does not exist ') 
    250257    return 
    251   ENDIF  
     258  ENDIF 
    252259  gzipped = strpos(nameps, '.gz') 
    253260; if the file is gzipped we call gunzip et change its name 
    … …  
    264271  psviewers = ['no psviewers found'] 
    265272  IF file_which(getenv('PATH'), 'ghostview') NE '' THEN $ 
    266     psviewers = [psviewers, 'Ghostview']  
     273    psviewers = [psviewers, 'Ghostview'] 
    267274  IF file_which(getenv('PATH'), 'gs') NE '' THEN $ 
    268     psviewers = [psviewers, 'Ghostscript']  
     275    psviewers = [psviewers, 'Ghostscript'] 
    269276  IF file_which(getenv('PATH'), 'kghostview') NE '' THEN $ 
    270     psviewers = [psviewers, 'Kghostview']  
     277    psviewers = [psviewers, 'Kghostview'] 
    271278; if at least one of viewer was found we define these buttons 
    272   IF n_elements(psviewers) GT 1 THEN BEGIN  
     279  IF n_elements(psviewers) GT 1 THEN BEGIN 
    273280    psviewers = psviewers[1:*] 
    274281    notused = cw_bgroup(base, psviewers, /frame, label_top = 'Visualize' $ 
    275282                        , uvalue = {name:'visualize', nameps:nameps} $ 
    276283                        , /column, /return_name) 
    277   ENDIF  
     284  ENDIF 
    278285; printers list grouped buttons 
    279286; are the common variables printer_human_names and printer_human_names 
Note: See TracChangeset for help on using the changeset viewer.