Status: offline
Registered: 09/30/2005
Posts: 4040
|
As I remember, I simply wrote a task that produced a table of available greek fonts. Both CDL and IRAF used the same stroke table.
It isn't very clever, but I did manage to locate the SPP source for this and will include it here:
PHP Formatted Code
task gtab = t_gtab
procedure t_gtab ()
pointer gp , gopen ()
errchk gopen
begin
iferr (gp = gopen ("stdgraph", NEW_FILE , STDGRAPH ))
call error (0, "Error opening graphics device.")
call gswind (gp , 0.0, 100.0, 0.0, 30.0)
call gtext (gp ,44.,29.,"Greek Font Set","");
call gtext (gp ,12.,27.,"32 ","f=g");
call gtext (gp ,12.,26.,"33 !","f=g");
call gtext (gp ,12.,25.,"34 \"","f=g");
call gtext (gp ,12.,24.,"35 #","f=g");
call gtext (gp ,12.,23.,"36 $","f=g");
call gtext (gp ,12.,22.,"37 %","f=g");
call gtext (gp ,12.,21.,"38 &","f=g");
call gtext (gp ,12.,20.,"39 '","f=g");
call gtext (gp ,12.,19.,"40 (","f=g");
call gtext (gp ,12.,18.,"41 )","f=g");
call gtext (gp ,12.,17.,"42 *","f=g");
call gtext (gp ,12.,16.,"43 +","f=g");
call gtext (gp ,12.,15.,"44 ,","f=g");
call gtext (gp ,12.,14.,"45 -","f=g");
call gtext (gp ,12.,13.,"46 .","f=g");
call gtext (gp ,12.,12.,"47 /","f=g");
call gtext (gp ,12.,11.,"48 0","f=g");
call gtext (gp ,12.,10.,"49 1","f=g");
call gtext (gp ,12., 9.,"50 2","f=g");
call gtext (gp ,12., 8.,"51 3","f=g");
call gtext (gp ,12., 7.,"52 4","f=g");
call gtext (gp ,12., 6.,"53 5","f=g");
call gtext (gp ,12., 5.,"54 6","f=g");
call gtext (gp ,12., 4.,"55 7","f=g");
call gtext (gp ,35.,27.,"56 8","f=g");
call gtext (gp ,35.,26.,"57 9","f=g");
call gtext (gp ,35.,25.,"58 :","f=g");
call gtext (gp ,35.,24.,"59 ;","f=g");
call gtext (gp ,35.,23.,"60 <","f=g");
call gtext (gp ,35.,22.,"61 =","f=g");
call gtext (gp ,35.,21.,"62 >","f=g");
call gtext (gp ,35.,20.,"63 ?","f=g");
call gtext (gp ,35.,19.,"64 @","f=g");
call gtext (gp ,35.,18.,"65 A","f=g");
call gtext (gp ,35.,17.,"66 B","f=g");
call gtext (gp ,35.,16.,"67 C","f=g");
call gtext (gp ,35.,15.,"68 D","f=g");
call gtext (gp ,35.,14.,"69 E","f=g");
call gtext (gp ,35.,13.,"70 F","f=g");
call gtext (gp ,35.,12.,"71 G","f=g");
call gtext (gp ,35.,11.,"72 H","f=g");
call gtext (gp ,35.,10.,"73 I","f=g");
call gtext (gp ,35., 9.,"74 J","f=g");
call gtext (gp ,35., 8.,"75 K","f=g");
call gtext (gp ,35., 7.,"76 L","f=g");
call gtext (gp ,35., 6.,"77 M","f=g");
call gtext (gp ,35., 5.,"78 N","f=g");
call gtext (gp ,35., 4.,"79 O","f=g");
call gtext (gp ,57.,27.," 80 P","f=g");
call gtext (gp ,57.,26.," 81 Q","f=g");
call gtext (gp ,57.,25.," 82 R","f=g");
call gtext (gp ,57.,24.," 83 S","f=g");
call gtext (gp ,57.,23.," 84 T","f=g");
call gtext (gp ,57.,22.," 85 U","f=g");
call gtext (gp ,57.,21.," 86 V","f=g");
call gtext (gp ,57.,20.," 87 W","f=g");
call gtext (gp ,57.,19.," 88 X","f=g");
call gtext (gp ,57.,18.," 89 Y","f=g");
call gtext (gp ,57.,17.," 90 Z","f=g");
call gtext (gp ,57.,16.," 91 [","f=g");
call gtext (gp ,57.,15.," 92 \\","f=g");
call gtext (gp ,57.,14.," 93 ]","f=g");
call gtext (gp ,57.,13.," 94 ^","f=g");
call gtext (gp ,57.,12.," 95 _","f=g");
call gtext (gp ,57.,11.," 96 `","f=g");
call gtext (gp ,57.,10.," 97 a","f=g");
call gtext (gp ,57., 9.," 98 b","f=g");
call gtext (gp ,57., 8.," 99 c","f=g");
call gtext (gp ,57., 7.,"100 d","f=g");
call gtext (gp ,57., 6.,"101 e","f=g");
call gtext (gp ,57., 5.,"102 f","f=g");
call gtext (gp ,57., 4.,"103 g","f=g");
call gtext (gp ,82.,27.,"104 h","f=g");
call gtext (gp ,82.,26.,"105 i","f=g");
call gtext (gp ,82.,25.,"106 j","f=g");
call gtext (gp ,82.,24.,"107 k","f=g");
call gtext (gp ,82.,23.,"108 l","f=g");
call gtext (gp ,82.,22.,"109 m","f=g");
call gtext (gp ,82.,21.,"110 n","f=g");
call gtext (gp ,82.,20.,"111 o","f=g");
call gtext (gp ,82.,19.,"112 p","f=g");
call gtext (gp ,82.,18.,"113 q","f=g");
call gtext (gp ,82.,17.,"114 r","f=g");
call gtext (gp ,82.,16.,"115 s","f=g");
call gtext (gp ,82.,15.,"116 t","f=g");
call gtext (gp ,82.,14.,"117 u","f=g");
call gtext (gp ,82.,13.,"118 v","f=g");
call gtext (gp ,82.,12.,"119 w","f=g");
call gtext (gp ,82.,11.,"120 x","f=g");
call gtext (gp ,82.,10.,"121 y","f=g");
call gtext (gp ,82., 9.,"122 z","f=g");
call gtext (gp ,82., 8.,"123 {","f=g");
call gtext (gp ,82., 7.,"124 |","f=g");
call gtext (gp ,82., 6.,"125 }","f=g");
call gtext (gp ,82., 5.,"126 ~","f=g");
call gtext (gp ,82., 4.,"127 ","f=g");
call gtab2 (gp )
call gclose (gp )
end
procedure gtab2 (gp )
pointer gp
begin
call gtext (gp ,12.,27.,"32 ","");
call gtext (gp ,12.,26.,"33 !","");
call gtext (gp ,12.,25.,"34 \"","");
call gtext (gp ,12.,24.,"35 #","");
call gtext (gp ,12.,23.,"36 $","");
call gtext (gp ,12.,22.,"37 %","");
call gtext (gp ,12.,21.,"38 &","");
call gtext (gp ,12.,20.,"39 '","");
call gtext (gp ,12.,19.,"40 (","");
call gtext (gp ,12.,18.,"41 )","");
call gtext (gp ,12.,17.,"42 *","");
call gtext (gp ,12.,16.,"43 +","");
call gtext (gp ,12.,15.,"44 ,","");
call gtext (gp ,12.,14.,"45 -","");
call gtext (gp ,12.,13.,"46 .","");
call gtext (gp ,12.,12.,"47 /","");
call gtext (gp ,12.,11.,"48 0","");
call gtext (gp ,12.,10.,"49 1","");
call gtext (gp ,12., 9.,"50 2","");
call gtext (gp ,12., 8.,"51 3","");
call gtext (gp ,12., 7.,"52 4","");
call gtext (gp ,12., 6.,"53 5","");
call gtext (gp ,12., 5.,"54 6","");
call gtext (gp ,12., 4.,"55 7","");
call gtext (gp ,35.,27.,"56 8","");
call gtext (gp ,35.,26.,"57 9","");
call gtext (gp ,35.,25.,"58 :","");
call gtext (gp ,35.,24.,"59 ;","");
call gtext (gp ,35.,23.,"60 <","");
call gtext (gp ,35.,22.,"61 =","");
call gtext (gp ,35.,21.,"62 >","");
call gtext (gp ,35.,20.,"63 ?","");
call gtext (gp ,35.,19.,"64 @","");
call gtext (gp ,35.,18.,"65 A","");
call gtext (gp ,35.,17.,"66 B","");
call gtext (gp ,35.,16.,"67 C","");
call gtext (gp ,35.,15.,"68 D","");
call gtext (gp ,35.,14.,"69 E","");
call gtext (gp ,35.,13.,"70 F","");
call gtext (gp ,35.,12.,"71 G","");
call gtext (gp ,35.,11.,"72 H","");
call gtext (gp ,35.,10.,"73 I","");
call gtext (gp ,35., 9.,"74 J","");
call gtext (gp ,35., 8.,"75 K","");
call gtext (gp ,35., 7.,"76 L","");
call gtext (gp ,35., 6.,"77 M","");
call gtext (gp ,35., 5.,"78 N","");
call gtext (gp ,35., 4.,"79 O","");
call gtext (gp ,57.,27.," 80 P","");
call gtext (gp ,57.,26.," 81 Q","");
call gtext (gp ,57.,25.," 82 R","");
call gtext (gp ,57.,24.," 83 S","");
call gtext (gp ,57.,23.," 84 T","");
call gtext (gp ,57.,22.," 85 U","");
call gtext (gp ,57.,21.," 86 V","");
call gtext (gp ,57.,20.," 87 W","");
call gtext (gp ,57.,19.," 88 X","");
call gtext (gp ,57.,18.," 89 Y","");
call gtext (gp ,57.,17.," 90 Z","");
call gtext (gp ,57.,16.," 91 [","");
call gtext (gp ,57.,15.," 92 \\","");
call gtext (gp ,57.,14.," 93 ]","");
call gtext (gp ,57.,13.," 94 ^","");
call gtext (gp ,57.,12.," 95 _","");
call gtext (gp ,57.,11.," 96 `","");
call gtext (gp ,57.,10.," 97 a","");
call gtext (gp ,57., 9.," 98 b","");
call gtext (gp ,57., 8.," 99 c","");
call gtext (gp ,57., 7.,"100 d","");
call gtext (gp ,57., 6.,"101 e","");
call gtext (gp ,57., 5.,"102 f","");
call gtext (gp ,57., 4.,"103 g","");
call gtext (gp ,82.,27.,"104 h","");
call gtext (gp ,82.,26.,"105 i","");
call gtext (gp ,82.,25.,"106 j","");
call gtext (gp ,82.,24.,"107 k","");
call gtext (gp ,82.,23.,"108 l","");
call gtext (gp ,82.,22.,"109 m","");
call gtext (gp ,82.,21.,"110 n","");
call gtext (gp ,82.,20.,"111 o","");
call gtext (gp ,82.,19.,"112 p","");
call gtext (gp ,82.,18.,"113 q","");
call gtext (gp ,82.,17.,"114 r","");
call gtext (gp ,82.,16.,"115 s","");
call gtext (gp ,82.,15.,"116 t","");
call gtext (gp ,82.,14.,"117 u","");
call gtext (gp ,82.,13.,"118 v","");
call gtext (gp ,82.,12.,"119 w","");
call gtext (gp ,82.,11.,"120 x","");
call gtext (gp ,82.,10.,"121 y","");
call gtext (gp ,82., 9.,"122 z","");
call gtext (gp ,82., 8.,"123 {","");
call gtext (gp ,82., 7.,"124 |","");
call gtext (gp ,82., 6.,"125 }","");
call gtext (gp ,82., 5.,"126 ~","");
call gtext (gp ,82., 4.,"127 ","");
end
|