🚀 go-pugleaf

Sean Lamont writes
> I need to get the path associated with a character or string of
> characters in a given font to be output in a form that doesn't require
> the font to be loaded on the machine.
> I messed with pathforall, but it doesn't seem to work on a NeXT (none of
> my procedures ever get called) , and it also claims to not be able to
> work with "charpath".

I'm surprised that `pathforall' doesn't work for you -- perhaps your path was  
empty for some reason?  Anyway, I've appended a simple function to get the path  
for a character.  Copy it to a `.psw' file.  Here's an example of how to call  
it:
	int count, type[1024];
	float path_list[4096];
        get_charpath("A", sizeof(path_list), sizeof(type),
                     path_list, type, &count);

Using fixed size arrays is probably bogus; you may wish to worry about that.   
Also, I'd suggest fetching the path of one character at a time, rather than the  
path of an entire string.  (Otherwise, it's difficult to separate the  
characters, and there's a greater likelihood of overflowing your arrays.)

Derek
dclegg@NeXT.com

/* Get the character path of `s'.  Return the points in `path'; `n' is the
 * length of `path'.  Return the type of the points in `type'; `m' is the
 * length of `type'.  Return the total number of path elements in `count'.
 */
defineps get_charpath(char *s; int n, m
                      | float path[n]; int type[m]; int *count)
  currentpoint newpath moveto
  0
  (s) false charpath
  {
    0 type
    exch path path
    1 add
  }
  {
    1 type
    exch path path
    1 add
  }
  {
    2 type
    6 -2 roll exch path path
    4 -2 roll exch path path
    exch path path
    1 add
  }
  {
    3 type
    1 add
  }
  pathforall
  count
endps