home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxttf.zip / rxttf.cmd < prev    next >
OS/2 REXX Batch file  |  1999-03-14  |  513b  |  24 lines
  1. /*A REXX program that demonstrates the use of rxttf_image */
  2.  
  3. call RxFuncAdd 'rxttf_image', 'RXTTF', 'rxttf_image'
  4.  
  5.  
  6. message='Hello!'
  7.  
  8. /* replace d:\psfonts\cour.ttf with a ttf font filename on your system */
  9. ttf_file='e:\os2\mdos\winos2\system\times.ttf'
  10. rc = rxttf_image(message, ttf_file, 14,'data')
  11.  
  12. if rc > 0 then do
  13.   say 'Failed with rc =' rc
  14.   exit
  15. end
  16.  
  17. say data.!rows 'rows x' data.!cols 'cols'
  18.  
  19. do i = 0 to data.!rows - 1
  20.   say translate(data.i, ' *', XRANGE('00'x, '01'x))
  21. end
  22.  
  23.  
  24.