Welcome to iraf.net Friday, March 29 2024 @ 06:12 AM GMT


 Forum Index > Help Desk > Misc New Topic Post Reply
 greek.ps
   
Jason Quinn
 12/26/2016 05:15PM (Read 1351 times)  
+++++
Active Member

Status: offline


Registered: 04/07/2006
Posts: 175

Hi, Mike.

In the cdl releases, there's a postscipt file called "greek.ps". Do you happen to remember how you generated that file any chance?

Cheers,
Jason

 
Profile Email
 Quote
fitz
 01/23/2017 05:08PM  
AAAAA
Admin

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
 

 
Profile Email
 Quote
   
Content generated in: 0.25 seconds
New Topic Post Reply

Normal Topic Normal Topic
Sticky Topic Sticky Topic
Locked Topic Locked Topic
New Post New Post
Sticky Topic W/ New Post Sticky Topic W/ New Post
Locked Topic W/ New Post Locked Topic W/ New Post
View Anonymous Posts 
Anonymous users can post 
Filtered HTML Allowed 
Censored Content 
dog allergies remedies cialis 20 mg chilblain remedies


Privacy Policy
Terms of Use

User Functions

Login