Changeset 47 for trunk/ToBeReviewed/TEXtoIDL/textable.pro

Timestamp:

05/09/06 11:13:01 (18 years ago)

Author:

pinsard

Message:

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

File:

• trunk/ToBeReviewed/TEXtoIDL/textable.pro (copied) (copied from trunk/TEXT2IDL/textable.pro) (4 diffs)

trunk/ToBeReviewed/TEXtoIDL/textable.pro

@@ -30 +30 @@
 ;       $Id$
 ;       $Log: textable.pro,v $
+;       Revision 1.8  2004/06/15 17:25:54  mcraig
+;       Fixed bug in regular expression, changed array notation to square brackets
+;
 ;       Revision 1.7  1996/07/22 23:56:08  mcraig
 ;       Added \vartheta.
@@ -54 +57 @@
 ;
 ; RELEASE:
-;       $Name: Rel_1_2 $
+;       $Name: Rel_2_1_2 $
 ;
 ; COPYRIGHT:
@@ -94 +97 @@
 ;  Set IDL font sequence needed to switch to Greek letters.
     GreekFont = strarr(3)
-    GreekFont(VECFONT) = '!7'
-    GreekFont(PSFONT) = '!M'
+    GreekFont[VECFONT] = '!7'
+    GreekFont[PSFONT] = '!M'
 
 ;  Set IDL font sequence needed to switch to special symbol font.
     SymbolFont = strarr(3)
-    SymbolFont(VECFONT) = '!M'
-    SymbolFont(PSFONT) = '!M'
+    SymbolFont[VECFONT] = '!M'
+    SymbolFont[PSFONT] = '!M'
 
 ;  Set IDL font sequence needed to switch back to initial font.
     PreviousFont = strarr(3)
-    PreviousFont(VECFONT) = '!X'
-    PreviousFont(PSFONT) = '!X'
+    PreviousFont[VECFONT] = '!X'
+    PreviousFont[PSFONT] = '!X'
 
 ;lowercase Greek -- 
@@ -205 +208 @@
         [ '\circ',              "%"   ,  string(byte(176))  ]$
                           ]
-    LowercaseGreek(1,*) = $
-      GreekFont(FontSelection) $
-      + LowercaseGreek(FontSelection,*) $
-      + PreviousFont(FontSelection)
-    UppercaseGreek(1,*) = $
-      GreekFont(FontSelection) +$
-      UppercaseGreek(FontSelection,*) $
-      + PreviousFont(FontSelection)
-    Symbols(1,*) = $
-      SymbolFont(FontSelection) $
-      + Symbols(FontSelection,*) $
-      + PreviousFont(FontSelection)
+    LowercaseGreek[1,*] = $
+      GreekFont[FontSelection] $
+      + LowercaseGreek[FontSelection,*] $
+      + PreviousFont[FontSelection]
+    UppercaseGreek[1,*] = $
+      GreekFont[FontSelection] +$
+      UppercaseGreek[FontSelection,*] $
+      + PreviousFont[FontSelection]
+    Symbols[1,*] = $
+      SymbolFont[FontSelection] $
+      + Symbols[FontSelection,*] $
+      + PreviousFont[FontSelection]
 
     TranslationTable = [[LowercaseGreek],[UppercaseGreek],[Symbols]]
-    return,TranslationTable(0:1,*)
+    return,TranslationTable[0:1,*]
 
 END