Changeset 47 for trunk/ToBeReviewed/TEXtoIDL/textable.pro
- Timestamp:
- 05/09/06 11:13:01 (18 years ago)
- File:
-
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/TEXtoIDL/textable.pro
r44 r47 30 30 ; $Id$ 31 31 ; $Log: textable.pro,v $ 32 ; Revision 1.8 2004/06/15 17:25:54 mcraig 33 ; Fixed bug in regular expression, changed array notation to square brackets 34 ; 32 35 ; Revision 1.7 1996/07/22 23:56:08 mcraig 33 36 ; Added \vartheta. … … 54 57 ; 55 58 ; RELEASE: 56 ; $Name: Rel_ 1_2 $59 ; $Name: Rel_2_1_2 $ 57 60 ; 58 61 ; COPYRIGHT: … … 94 97 ; Set IDL font sequence needed to switch to Greek letters. 95 98 GreekFont = strarr(3) 96 GreekFont (VECFONT)= '!7'97 GreekFont (PSFONT)= '!M'99 GreekFont[VECFONT] = '!7' 100 GreekFont[PSFONT] = '!M' 98 101 99 102 ; Set IDL font sequence needed to switch to special symbol font. 100 103 SymbolFont = strarr(3) 101 SymbolFont (VECFONT)= '!M'102 SymbolFont (PSFONT)= '!M'104 SymbolFont[VECFONT] = '!M' 105 SymbolFont[PSFONT] = '!M' 103 106 104 107 ; Set IDL font sequence needed to switch back to initial font. 105 108 PreviousFont = strarr(3) 106 PreviousFont (VECFONT)= '!X'107 PreviousFont (PSFONT)= '!X'109 PreviousFont[VECFONT] = '!X' 110 PreviousFont[PSFONT] = '!X' 108 111 109 112 ;lowercase Greek -- … … 205 208 [ '\circ', "%" , string(byte(176)) ]$ 206 209 ] 207 LowercaseGreek (1,*)= $208 GreekFont (FontSelection)$209 + LowercaseGreek (FontSelection,*)$210 + PreviousFont (FontSelection)211 UppercaseGreek (1,*)= $212 GreekFont (FontSelection)+$213 UppercaseGreek (FontSelection,*)$214 + PreviousFont (FontSelection)215 Symbols (1,*)= $216 SymbolFont (FontSelection)$217 + Symbols (FontSelection,*)$218 + PreviousFont (FontSelection)210 LowercaseGreek[1,*] = $ 211 GreekFont[FontSelection] $ 212 + LowercaseGreek[FontSelection,*] $ 213 + PreviousFont[FontSelection] 214 UppercaseGreek[1,*] = $ 215 GreekFont[FontSelection] +$ 216 UppercaseGreek[FontSelection,*] $ 217 + PreviousFont[FontSelection] 218 Symbols[1,*] = $ 219 SymbolFont[FontSelection] $ 220 + Symbols[FontSelection,*] $ 221 + PreviousFont[FontSelection] 219 222 220 223 TranslationTable = [[LowercaseGreek],[UppercaseGreek],[Symbols]] 221 return,TranslationTable (0:1,*)224 return,TranslationTable[0:1,*] 222 225 223 226 END
Note: See TracChangeset
for help on using the changeset viewer.