home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / useful / dist / text / tex / pastex / mf / rexx / createonemode.rexx < prev    next >
OS/2 REXX Batch file  |  1993-09-07  |  2KB  |  77 lines
  1. /*
  2.  *  CreateOneMode
  3.  *
  4.  *  Create the all fonts of one mode (defined via xdpi/ydpi and Modes file).
  5.  *
  6.  */
  7.  
  8. parse arg xdpi ydpi pkdir .
  9.  
  10. SIGNAL ON ERROR
  11. SIGNAL ON FAILURE
  12. SIGNAL ON BREAK_C
  13. SIGNAL ON BREAK_D
  14.  
  15. flistdir = "MF:config/fontlist"
  16. CMagBatch = "MF:rexx/CreateMagBatch"
  17. BatchFile = "RAM:MagBatch.sh"
  18.  
  19. magmult.0  = 13
  20.  
  21. magmult.num.1  = 1.000000    /* magstep(0)   */
  22. magmult.str.1  = "0"
  23. magmult.num.2  = 1.095445    /* magstep(0.5) */
  24. magmult.str.2  = "0.5"
  25. magmult.num.3  = 1.200000    /* magstep(1)   */
  26. magmult.str.3  = "1"
  27. magmult.num.4  = 1.314534    /* magstep(1.5) */
  28. magmult.str.4  = "1.5"
  29. magmult.num.5  = 1.440000    /* magstep(2)    */
  30. magmult.str.5  = "2"
  31. magmult.num.6  = 1.577441    /* magstep(2.5)    */
  32. magmult.str.6  = "2.5"
  33. magmult.num.7  = 1.728000    /* magstep(3)    */
  34. magmult.str.7  = "3"
  35. magmult.num.8  = 2.073600    /* magstep(4)    */
  36. magmult.str.8  = "4"
  37. magmult.num.9  = 2.488320    /* magstep(5)    */
  38. magmult.str.9  = "5"
  39. magmult.num.10 = 2.985984    /* magstep(6)    */
  40. magmult.str.10 = "6"
  41. magmult.num.11 = 3.583180    /* magstep(7)    */
  42. magmult.str.11 = "7"
  43. magmult.num.12 = 4.299817    /* magstep(8)    */
  44. magmult.str.12 = "8"
  45. magmult.num.13 = 5.159780    /* magstep(9)    */
  46. magmult.str.13 = "9"
  47.  
  48.  
  49. DO i=1 TO magmult.0
  50.  
  51.   flist = flistdir"/flst-"magmult.str.i
  52.   IF exists(flist) THEN DO
  53.     dpi = xdpi * magmult.num.i + 0.5
  54.     dpi = dpi % 1
  55.     
  56.     pkdest = pkdir""dpi
  57.     IF ~exists(pkdest) THEN address command 'makedir 'pkdest
  58.     CMagBatch flist dpi xdpi ydpi pkdest"/"
  59.     
  60.     address command 'execute 'BatchFile
  61.   END
  62.  
  63. END
  64.  
  65.  
  66.  
  67. EXIT 0
  68.  
  69. /*---------------------------------*/
  70.  
  71.  
  72. BREAK_C:
  73. BREAK_D:
  74. ERROR:
  75. FAILURE:
  76.          EXIT 5
  77.