Path: utzoo!attcan!uunet!aplcen!samsung!usc!cs.utexas.edu!mailrus!ncar!boulder!tramp!judd
From: judd@tramp.Colorado.EDU (JUDD STEPHEN L)
Newsgroups: comp.sys.amiga
Subject: Graphics Text functions
Summary: As in How To?
Message-ID: <14507@boulder.Colorado.EDU>
Date: 3 Dec 89 19:52:08 GMT
Sender: news@boulder.Colorado.EDU
Reply-To: judd@tramp.Colorado.EDU (JUDD STEPHEN L)
Organization: University of Colorado, Boulder
Lines: 29


  Would somebody be so kind as to explain to me how to access the disk-resident
fonts?  My program (see excerpt below) gets to the AvailFonts() call and gurus
(GOMF1.0 says my program is probably out of control.  No kidding :-).  It also
did this at the OpenDiskFont() call (before I put in the AvailFonts() call).
Anyway, I've referenced the Sybex Amiga Programmers Handbook, my Modula-2 SBM
definitions, and an Abacus (Tricks and Tips) program that didn't work (BIG
suprise) and yet the guru still prevails.  ANY help would be appreciated.


  Diskfont:= OpenLibrary(ADR('diskfont.library'), 0);  
  IF Diskfont = NIL THEN HALT; END;
  OpenNewWindow;
  WITH textAttr DO
    taName:= ADR('sapphire');
    taYSize:= 14;
    taFlags:= FontFlagsSet{DiskFont, TallDot, Proportional};
  END;
  ALLOCATE(buffer, 1000D);
  error:= AvailFonts(buffer, 1000D, AvailFontTypeSet{AFDisk});
  Sapphire14:= OpenDiskFont(textAttr);
  .
  .
  .
  [ I lost most of my program in transmission but I think this is correct ]

  - Steve
 
P.S. CU over Notre Dame by 14 points.