Changeset 136 for trunk/SRC/Postscript

Timestamp:

07/10/06 17:20:19 (18 years ago)

Author:

pinsard

Message:

some improvements and corrections in some .pro file according to
aspell and idldoc log file

Location:

trunk/SRC/Postscript

Files:

• closeps.pro (modified) (3 diffs)
• openps.pro (modified) (3 diffs)
• printps.pro (modified) (6 diffs)

trunk/SRC/Postscript/closeps.pro

@@ -6 +6 @@
 ; Close the Postscript mode
 ;
-;  when archive_ps ne 0, we add the name and the date
-;  at the bottom left corner of the postcript page. If the
-;  postscript is called idl.ps we change its name to number.ps
-;  (number automatically found to be 1 larger that any of the
-;  existing ps file)
+; when archive_ps ne 0, we add the name and the date at the bottom left corner
+; of the postscript page.
+; If the postscript is called idl.ps we change its name to number.ps
+; (number automatically found to be 1 larger that any of the existing ps file)
 ;
-; @keyword INFOWIDGET A long integer giving the id of the information
-;           widget (created by openps) that we have de destroy at
-;           the end of closeps (when the postscript is done)
+; @keyword INFOWIDGET
+; A long integer giving the id of the information widget (created by openps)
+; that we have to destroy at the end of closeps (when the postscript is done).
 ;
 ; @uses cm_4ps
@@ -81 +80 @@
      ENDIF
 ;------------------------------------------------------------
-; we annote the postscript
+; we annotate the postscript
 ;------------------------------------------------------------
      date = byte(systime(0))    ; we get the date
@@ -89 +88 @@
    ENDIF
 ;------------------------------------------------------------
-; close the postcript mode
+; close the postscript mode
    device, /close
 ;

trunk/SRC/Postscript/openps.pro

@@ -5 +5 @@
 ;
 ; @file_comments
-; switch to postcript mode and define it
+; switch to postscript mode and define it
 ;
-; @param namepsin {in}{optional} name of the postscript file.
-; Extension '.ps' is added
-; if missing. It will be stored in the psdir directory.
+; @param namepsin {in}{optional}
+; name of the postscript file.
+; Extension '.ps' is added if missing. It will be stored in the psdir directory.
 ;
 ; @keyword FILENAME
-; to define the name of the postcript file through
-; a keyword rather than with nameps inut argument
+; to define the name of the postscript file through
+; a keyword rather than with nameps input argument
 ; (in this case the keyword can be pass through
 ; different routines via _EXTRA keyword).
@@ -28 +28 @@
 ;
 ; @keyword PORTRAIT
+;
 ; @keyword LANDSCAPE
-; @keyword KEEPPFONT same as keep_pfont
 ;
-; @keyword LIGHTNESS a scalar used to change the Lightness of the color
-;            palette to be abble to adjust according to the printer we use,
-;            the media (paper or slide)...
-;               lightness < 1 to get lighter colors
-;                         > 1 to get darker colors
+; @keyword KEEPPFONT
+; same as keep_pfont
 ;
-; @keyword _EXTRA used to pass any keyword to device procedure.
+; @keyword LIGHTNESS
+; a scalar used to change the Lightness of the color palette to be able to
+; adjust according to the printer we use, the media (paper or slide)...
+; > 1 to get darker colors
+;
+; @keyword _EXTRA
+; used to pass any keyword to device procedure.
 ;
 ; @uses cm_4ps
@@ -72 +75 @@
 ENDIF
 ;------------------------------------------------------------
-; close the postcript device if we are already in postcsrit mode
+; close the postscript device if we are already in postscript mode
    IF !d.name EQ 'PS' THEN device, /close
 ; switch to postscript mode

trunk/SRC/Postscript/printps.pro

@@ -12 +12 @@
 ; the archiving is done automatically whereas we ask if the postscript
 ; file must be archived or not.
-; If the postcript name is "idl.ps" (default name) then this name will
+; If the postscript name is "idl.ps" (default name) then this name will
 ; be changed to number.ps (number automatically found to be 1 larger
 ; that any of the existing ps file).
@@ -39 +39 @@
 ;                       25/8/19999 utilisation des widgets
 ;                       8/9/1999 utilisation de cw_bgroup
-; June 2005: Sebastien Masson: cleaning, english version with new commons
+; June 2005: Sebastien Masson: cleaning, English version with new commons
 ;
 ; @version $Id$
@@ -138 +138 @@
 ; we destroy the widget
   widget_control, event.top, /destroy
-; if the file was originaly gzipped, then we re-gzip it and exit
+; if the file was originally gzipped, then we re-gzip it and exit
   IF uval.gzip THEN BEGIN
     spawn, '\gzip ' + uval.nameps
@@ -149 +149 @@
     AND keyword_set(archive_ps) THEN BEGIN
     IF archive_ps NE 1 AND uval.name EQ 'print' then begin
-      wesave = report('Shall we archive the postcript?', /default_no, /question)
+      wesave = report('Shall we archive the postscript?', /default_no, /question)
       IF wesave EQ 0 THEN RETURN
     ENDIF
@@ -159 +159 @@
        allps = file_basename(allps,'.pdf')
 ; find which of these names corresponds to numbers...
-; get ascii codes of the names
+; get ASCII codes of the names
        testnumb = byte(allps)
 ; longest name
        maxstrlen = (size(testnumb, /dimensions))[0]
-; ascii codes can be 0 or between byte('0') and byte('9')
+; ASCII codes can be 0 or between byte('0') and byte('9')
        testnumb = testnumb EQ 0 OR $
                   (testnumb GE (byte('0'))[0] AND testnumb LE (byte('9'))[0])
@@ -203 +203 @@
 ;                       25/8/19999 utilisation des widgets
 ;                       8/9/1999 utilisation de cw_bgroup
-; June 2005: Sebastien Masson: cleaning, english version with new commons
+; June 2005: Sebastien Masson: cleaning, English version with new commons
 ;
 ; @version $Id$