Prof A Olowofoyeku (The African Chief) wrote:
On 22 Mar 2005 at 15:09, Maurice Lombardi wrote:
[...]
var demo_word : array [0..NUM_DEMO_WORDS-1] of hershey_word = ( ('Invitation', 'HersheyScript-Bold', ( 1.0, 0.0, 0.0, 1.0, -3125.0, 3980.0 ), 'l' ), ('ECONOMY', 'HersheySans', ( 1.0, 0.0, 0.0, 1.0, -3125.0, 3340.0 ), 'l'), ('CARTOGRAPHY', 'HersheySans', ( CART, 0.0, 0.0, CART, -3125.0, 2700.0 ), 'l'), ('Gramma', 'HersheySerifSymbol', ( 1.0, 0.0, 0.0, 1.0, -3125.0, 2060.0 ), 'l'), (chr(8#347)+chr(8#322)+chr(8#301)+chr(8#306)+chr(8#311)+chr(8#313)+chr(8 #301), 'HersheyCyrillic', ( 1.0, 0.0, 0.0, 1.0, -3125.0, 1420.0 ), 'l'), ('COMMUNICATION', 'HersheySans-Bold', ( 1.0, 0.0, 0.0, 1.0, 0.0, 3980.0 ), 'c'), ('VERSATILITY', 'HersheySerif-Italic', ( 1.0, 0.0, 0.0, 1.0, 0.0, 3340.0 ), 'c'), ('Standardization', 'HersheySerif', ( 1.0, 0.0, 0.0, 1.0, 0.0, 2700.0 ), 'c'), ('Sumbolon', 'HersheySerifSymbol', ( INDEXICAL, 0.0, 0.0, INDEXICAL, 0.0, 2060.0 ), 'c'), (chr(8#363)+chr(8#354)+chr(8#357)+chr(8#366)+chr(8#356)+chr(8#357)+chr(8 #363)+chr(8#364)+chr(8#370), 'HersheyCyrillic', ( 1.0, 0.0, 0.0, 1.0, 0.0, 1420.0 ), 'c') );
begin end. -------------------------------------------------------------------- Obtained basically with some search and replace in my editor (regex aware). The only tricky part is the replacement of octal numbers.
Yes, this works well, thanks. I had done the other translations but the octal stuff eluded me ...
Of course, you could also convert the octal to (hexa)decimal numbers. It's just that C only allows octal numbers in characters (or does it allow hex meanwhile? At least originally it didn't AFAIK). Other than that, I see no particular reason for octals here (and almost anywhere else). Frank -- Frank Heckenbach, frank@g-n-u.de, http://fjf.gnu.de/, 7977168E GPC To-Do list, latest features, fixed bugs: http://www.gnu-pascal.de/todo.html GPC download signing key: ACB3 79B2 7EB2 B7A7 EFDE D101 CD02 4C9D 0FE0 E5E8