home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / text / font / metafont / rexx / maketexfontset.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-12-21  |  12.3 KB  |  439 lines
  1. /* MakeTeXFontSet.rexx  */
  2.  
  3.    Version = '1.0'
  4.    Author  = ' Ulrich Wisser';
  5.  
  6. /*
  7.    Date   : 13-Jul-92
  8.  
  9.    Please send new features and bugreports to
  10.  
  11.    Author : Ulrich Wisser
  12.             Heerstr. 125
  13.             53111 Bonn
  14.             Germany
  15.  
  16.    WARNING!!!
  17.  
  18.    This script will call METAFONT 7 times per font and driver and
  19.    another 22 times per font for ShowDVI.
  20.    Assuming that METAFONT will only need 30 minutes per call one font
  21.    will take 3.5 hours to create for one driver and 11 hours for
  22.    ShowDVI.
  23.  
  24.                                THIS MEANS:
  25.            TO CREATE ONE FONT FOR ONE PRINTER AND ShowDVI WILL TAKE
  26.                AT LEAST 14.5 HOURS (FOR SURE IT WILL BE MORE!)
  27.  
  28.  
  29.  
  30.                    USE THIS SCRIPT ONLY WHEN NECESSARY!
  31.  
  32.   NEVER SET CALLMF TO MakeTeXFontSet.rexx because it does't understand how to
  33.   create single fonts (nor does it understand the parameters).
  34.  
  35.                              !!!!!!!!!!!!!!!!!!!
  36.  
  37.  
  38.    HOW THIS ALL WORKS!
  39.  
  40.    First install MakeBatch.rexx and MakeTeXFont.rexx as described in their
  41.    installation guide. When you "familiar" with these scripts and you really
  42.    want to create a full fontset call MakeTexFontSet.rexx. It is easy to
  43.    use. The only optional argument are a list of fonts to create.
  44.    You will be asked everything by the script. The fonts for ShowDVI are
  45.    handeled seperatly (see SHOWDVI section).
  46.  
  47.  
  48.    SIZES
  49.  
  50.    For all modes (resolutions) the following magsteps are created:
  51.       magstep 0
  52.       magstep 0.5
  53.       magstep 1
  54.       magstep 2
  55.       magstep 3
  56.       magstep 4
  57.       magstep 5
  58.  
  59.    These are the "normal" sizes which are defined by TeX's \magstep command.
  60.    The resolutions should be found in any correct installed TeX enviroment.
  61.  
  62.  
  63.     SHOWDVI
  64.  
  65.         The following table shows the DPI sizes of the magsteps:
  66.  
  67.                  |        ShowDVI Resolution        |
  68.          magstep |   44 |   83 |   91 |  100 |  120 |
  69.         ---------------------------------------------
  70.            0     |   44 |   83 |   91 |  100 |  120 |
  71.            0.5   |   48 |   91 |  100 |  110 |  131 |
  72.            1     |   53 |  100 |  109 |  120 |  144 |
  73.            2     |   63 |  120 |  131 |  144 |  173 |
  74.            3     |   76 |  143 |  157 |  173 |  207 |
  75.            4     |   91 |  172 |  189 |  207 |  249 |
  76.            5     |  109 |  207 |  226 |  249 |  299 |
  77.  
  78.          Some entries have the same DPI size so they will not be
  79.          calculated twice.
  80.  
  81.          The following table shows which DPI sizes will be really
  82.          created:
  83.  
  84.                  |        ShowDVI Resolution        |
  85.          magstep |   44 |   83 |   91 |  100 |  120 |
  86.         ---------------------------------------------
  87.            0     |   44 |   83 |   91 |  100 |  120 |
  88.            0.5   |   48 |      |      |  110 |  131 |
  89.            1     |   53 |      |  109 |      |  144 |
  90.            2     |   63 |      |      |      |  173 |
  91.            3     |   76 |  143 |  157 |      |  207 |
  92.            4     |      |  172 |  189 |      |  249 |
  93.            5     |      |      |  226 |      |  299 |
  94.  
  95.  
  96.  
  97.    USER CONFIGURATION
  98.  
  99.    This configuration should statisfy your "normal" needs. If you
  100.    need any other magsteps (or magnification) follow this instruction.
  101.  
  102.    If you have any other modes for it just append another array entry.
  103.    If you want additional magsteps you must change the array magmult.
  104.    ATTENTION this will need changes to array SDVI.
  105.    This additionell magsteps will be generated for all other modes as well.
  106.  
  107.    magmult holds all magstep information:
  108.  
  109.    magmult.0        number of entries in array magmult
  110.    magmult.i.str    holds the magstep
  111.    magmult.i.num    the relating number 1.2^(magmult.i.str)
  112.  
  113.    SDVI             holds all information relating to ShowDVI
  114.    SDVI.pkdir       dir to copy pk to (needs trailing '/')
  115.    SDVI.ModesAnz    number of modes for ShowDVI
  116.    SDVI.i           holds all information relating to one mode
  117.    SDVI.i.name      name of the mode (used by METAFONT)
  118.    SDVI.i.xdpi      horizontal resolution
  119.    SDVI.i.ydpi      vertical resolution
  120.    SDVI.i.Mag       holds all information relating to magsteps for i-th mode
  121.    SDVI.i.Mag.Anz   number of magsteps to create
  122.    SDVI.i.Mag.j     index to magmult (e.g. SDVI.i.Mag.j = 1 means magstep 0)
  123.  
  124. */
  125.  
  126. NUMERIC DIGITS 12       /* Needed to calculte correct DPI number */
  127.  
  128. magmult.0      = 7     /* number of saved magsteps */
  129. magmult.num.1  = 1.0
  130. magmult.str.1  = "0"
  131. magmult.num.2  = 1.09544511501
  132. magmult.str.2  = "0.5"
  133. magmult.num.3  = 1.2
  134. magmult.str.3  = "1"
  135. magmult.num.4  = 1.44
  136. magmult.str.4  = "2"
  137. magmult.num.5  = 1.728
  138. magmult.str.5  = "3"
  139. magmult.num.6  = 2.0736
  140. magmult.str.6  = "4"
  141. magmult.num.7  = 2.48832
  142. magmult.str.7  = "5"
  143.  
  144. SDVI.pkdir     = 'MF:SDVI/';
  145. SDVI.ModeAnz   =   5;
  146.  
  147. SDVI.1.name    = 'FourFour';
  148. SDVI.1.xdpi    =  44;
  149. SDVI.1.ydpi    =  44;
  150. SDVI.1.Mag.Anz =   5;
  151. SDVI.1.Mag.1   =   1; /* index to magmult */
  152. SDVI.1.Mag.2   =   2;
  153. SDVI.1.Mag.3   =   3;
  154. SDVI.1.Mag.4   =   4;
  155. SDVI.1.Mag.5   =   5;
  156.  
  157. SDVI.2.name    = 'EightThree';
  158. SDVI.2.xdpi    =  83;
  159. SDVI.2.ydpi    =  83;
  160. SDVI.2.Mag.Anz =   3;
  161. SDVI.2.Mag.1   =   1;
  162. SDVI.2.Mag.2   =   5;
  163. SDVI.2.Mag.3   =   6;
  164.  
  165.  
  166. SDVI.3.name    = 'NineOne';
  167. SDVI.3.xdpi    =  91;
  168. SDVI.3.ydpi    =  91;
  169. SDVI.3.Mag.Anz =   5;
  170. SDVI.3.Mag.1   =   1;
  171. SDVI.3.Mag.2   =   3;
  172. SDVI.3.Mag.3   =   5;
  173. SDVI.3.Mag.4   =   6;
  174. SDVI.3.Mag.5   =   7;
  175.  
  176. SDVI.4.name    = 'OneZeroZero';
  177. SDVI.4.xdpi    = 100;
  178. SDVI.4.ydpi    = 100;
  179. SDVI.4.Mag.Anz =   2;
  180. SDVI.4.Mag.1   =   1;
  181. SDVI.4.Mag.2   =   2;
  182.  
  183. SDVI.5.name    = 'OneTwoZero';
  184. SDVI.5.xdpi    = 120;
  185. SDVI.5.ydpi    = 120;
  186. SDVI.5.Mag.Anz =   7;
  187. SDVI.5.Mag.1   =   1;
  188. SDVI.5.Mag.2   =   2;
  189. SDVI.5.Mag.3   =   3;
  190. SDVI.5.Mag.4   =   4;
  191. SDVI.5.Mag.5   =   5;
  192. SDVI.5.Mag.6   =   6;
  193. SDVI.5.Mag.7   =   7;
  194.  
  195. /* TRACE RESULTS */
  196.  
  197. SIGNAL ON BREAK_C;
  198. SIGNAL ON BREAK_D;
  199.  
  200. modefilename = "mf:config/modes"
  201. batchname    = "mf:MakeTeXFont.sh";
  202.  
  203. SAY;
  204. SAY "MakeTeXFont.rexx Version "Version" by "Author".";
  205. SAY;
  206.  
  207. IF ~exists(batchname) THEN DO
  208.   IF ~OPEN(batchfile,batchname,'W') THEN DO
  209.     SAY "MakeBatch: Could not create "batchname" !";
  210.     EXIT 10
  211.   END
  212.   ELSE DO
  213.     CALL WRITELN(batchfile,";# Batchfile for font generation");
  214.     IF CLOSE(batchfile) THEN DO
  215.       'protect 'batchname' ADD s';
  216.       SAY "MakeBatch: Batchfile "batchname" created.";
  217.     END
  218.     ELSE DO
  219.       SAY "MakeBatch: Error during creation of "batchname" !";
  220.       EXIT 10;
  221.     END
  222.   END
  223. END
  224.  
  225. MakeFontScript = 'MF:rexx/MakeTeXFont.rexx';
  226. OPTIONS PROMPT 'Should I call 'MakeFontScript' (Y/n) ? ';
  227. DO UNTIL yn='Y'|yn='N'
  228.   PARSE UPPER PULL yn;
  229.   IF yn = '' THEN yn = 'Y';
  230. END;
  231. IF yn = "N" THEN DO
  232.   OPTIONS PROMPT "Please enter scriptname to use or RETURN to cancel:";
  233.   PARSE PULL MakeFontScript;
  234. END;
  235. DROP yn;
  236. IF MakeFontScript = '' THEN DO
  237.   SAY "Sorry, no script for fontcreation.";
  238.   EXIT;
  239. END;
  240. IF UPPER(RIGHT(MakeFontScript, 5)) = '.REXX' THEN
  241.   MakeFontScript = LEFT(MakeFontScript, Length(MakeFontScript)-5);
  242.  
  243. PARSE ARG Fontline
  244. Fonts.Anz = WORDS(Fontline)
  245. DO i=1 TO Fonts.Anz
  246.   Fonts.i = WORD(Fontline, i);
  247. END; /* DO i */
  248. IF Fonts.Anz = 0 THEN DO
  249.   SAY "You didn't supply a fontname as argument!";
  250.   SAY
  251.   OPTIONS PROMPT 'DO you want to enter fontnames (Y/n) ? '
  252.   DO UNTIL yn='Y'|yn='N'
  253.     PARSE UPPER PULL yn;
  254.     IF yn='' THEN yn = 'Y';
  255.   END;
  256. END /* IF Fonts.Anz = 0 */
  257. ELSE DO
  258.   SAY "I found the following fonts to create: ";
  259.   DO i = 1 TO Fonts.Anz
  260.     SAY '                          'Fonts.i;
  261.   END;
  262.   SAY
  263.   OPTIONS PROMPT 'DO you want to enter some more fontnames (y/N) ? '
  264.   DO UNTIL yn='Y'|yn='N'
  265.     PARSE UPPER PULL yn;
  266.     IF yn='' THEN yn = 'N';
  267.   END;
  268. END; /* ELSE */
  269.  
  270. IF yn = 'Y' THEN DO
  271.   SAY 'ENTER for no more fonts!';
  272.   inp = 'BlaBla';
  273.   DO UNTIL inp = ''
  274.     OPTIONS PROMPT 'Please enter 'Fonts.Anz+1'. font : ';
  275.     PARSE PULL inp;
  276.     IF inp ~= '' THEN DO
  277.       Fonts.Anz = Fonts.Anz + 1;
  278.       i         = Fonts.Anz;
  279.       Fonts.i   = inp;
  280.     END;
  281.   END;
  282. END; /* IF yn */
  283.  
  284. IF Fonts.Anz = 0 THEN DO
  285.   SAY 'Sorry, no FONTS ==> NOTHING TO DO';
  286.   EXIT;
  287. END;
  288.  
  289. DO i=1 TO Fonts.Anz
  290.   IF UPPER(RIGHT(Fonts.i, 3)) = '.MF' THEN
  291.     Fonts.i = LEFT(Fonts.i, LENGTH(Fonts.i)-3);
  292. END;
  293.  
  294. DPISTR = '';
  295. DO i=1 TO SDVI.ModeAnz
  296.   DPISTR=  DPISTR' 'SDVI.i.xdpi'x'SDVI.i.ydpi;
  297.   IF i < SDVI.ModeAnz THEN DPISTR = DPISTR',';
  298. END;
  299. SAY 'Default ShowDVI resolutions are DPI'DPISTR'.';
  300. DROP DPISTR;
  301. OPTIONS PROMPT 'Make a full set of ShowDVI fonts (y/N) ? ';
  302. DO UNTIL yn='Y'|yn='N'
  303.   PARSE UPPER PULL yn;
  304.   IF yn='' THEN yn = 'N';
  305. END;
  306. IF yn = 'N' THEN
  307.   SDVI.ModeAnz = 0;
  308. ELSE DO
  309.   OPTIONS PROMPT "Use '"SDVI.pkdir"' (Y/n) ?"
  310.   DO UNTIL yn='Y'|yn='N'
  311.     PARSE UPPER PULL yn;
  312.     IF yn='' THEN yn = 'Y';
  313.   END;
  314.   IF yn = 'N' THEN DO
  315.     OPTIONS PROMPT 'Please enter new pk-dir with absolute path (enter to cancel):'
  316.     ende = 0;
  317.     DO UNTIL ende
  318.       PARSE PULL SDVI.pkdir
  319.       IF SDVI.pkdir = '' THEN SIGNAL BREAK_C;
  320.       IF POS(':', SDVI.pkdir) = 0 THEN
  321.         SAY "Sorry, absolute path must be given e.g. 'TeX:pk/'";
  322.       ELSE ende = 1;
  323.     END;
  324.     IF (RIGHT(SDVI.pkdir, 1) ~= ':') & (RIGHT(SDVI.pkdir,1 ) ~= '/') THEN
  325.       SDVI.pkdir = SDVI.pkdir'/';
  326.     DROP ende;
  327.   END;
  328. END;
  329.  
  330. ModesAnz = 0;
  331.  
  332. IF ~open('modefile', modefilename, 'read') THEN DO
  333.   SAY "Can't find file "modefilename"!";
  334.   EXIT 5;
  335. END;
  336. DO UNTIL eof('modefile')
  337.   line = readln('modefile');
  338.   line = strip(translate(line, ' ', '   '));
  339.   IF POS(';', line) > 0 THEN line = LEFT(line, POS(';', line)-1);
  340.   mode = word(line, 1);
  341.   xres = word(line, 2);
  342.   yres = word(line, 3);
  343.   isSDVI = 0;
  344.   DO i=1 TO SDVI.ModeAnz
  345.     IF mode = SDVI.i.name THEN isSDVI = 1;
  346.   END;
  347.   IF ~isSDVI             THEN
  348.   IF mode ~= ''          THEN
  349.   IF DATATYPE(xres, 'W') THEN
  350.   IF DATATYPE(yres, 'W') THEN DO
  351.     OPTIONS PROMPT 'Create FontSet with mode 'mode' DPI 'xres'x'yres' (y/N) ? ';
  352.     DO UNTIL yn = 'Y'|yn='N'
  353.       PARSE UPPER PULL yn;
  354.       IF yn = '' THEN yn = 'N';
  355.     END;
  356.     IF yn = "Y" THEN DO
  357.       ModesAnz = ModesAnz + 1;
  358.       modes.ModesAnz.name = mode;
  359.       modes.ModesAnz.xdpi = xres;
  360.       modes.ModesAnz.ydpi = yres;
  361.       modes.ModesAnz.pkdir= 'MF:'mode'/';
  362.       OPTIONS PROMPT 'Use 'modes.ModesAnz.pkdir' as pk-dir (Y/n) ?'
  363.       DO UNTIL yn = 'Y'|yn='N'
  364.         PARSE UPPER PULL yn;
  365.         IF yn = '' THEN yn = 'Y';
  366.       END;
  367.       IF yn = 'N' THEN DO
  368.         OPTIONS PROMPT 'Please enter new pk-dir with absolute path (enter to cancel):'
  369.         ende = 0;
  370.         DO UNTIL ende
  371.           PARSE PULL modes.ModesAnz.pkdir
  372.           IF modes.ModesAnz.pkdir = '' THEN SIGNAL BREAK_C;
  373.           IF POS(':', modes.ModesAnz.pkdir) = 0 THEN
  374.             SAY "Sorry, absolute path must be given e.g. 'TeX:pk/'";
  375.           ELSE ende = 1;
  376.         END;
  377.         IF RIGHT(modes.ModesAnz.pkdir,1 ) ~= ':' & RIGHT(modes.ModesAnz.pkdir, 1) ~= '/' THEN
  378.           modes.ModesAnz.pkdir = modes.ModesAnz.pkdir'/';
  379.         DROP ende;
  380.       END;
  381.     END; /* IF yn        */
  382.   END;   /* IF mode ...  */
  383. END;     /* DO UNTIL eof */
  384. IF ~close('modefile') THEN DO
  385.   SAY "Can't close mode-file!";
  386. END;
  387. DROP yn;
  388.  
  389. IF ModesAnz = 0 THEN DO
  390.   IF SDVI.ModeAnz = 0 THEN DO
  391.     SAY "You dind't select any mode. Nothing to do!";
  392.     EXIT;
  393.   END;
  394. END;
  395.  
  396. IF OPEN(batchfile, batchname, 'append') THEN DO
  397.   DO i=1 TO ModesAnz
  398.     DO f=1 TO Fonts.Anz
  399.       DO j=1 TO magmult.0
  400.         dpi = (magmult.num.j * modes.i.xdpi)+0.5;
  401.         IF POS('.', dpi) > 0 THEN dpi = LEFT(dpi, POS('.', dpi)-1);
  402.         WRITELN(batchfile, 'rx 'MakeFontScript Fonts.f dpi modes.i.xdpi modes.i.ydpi 'MakeTeXFontSet' dpi'/'Fonts.f'.'dpi'pk' modes.i.pkdir);
  403.       END; /* DO j */
  404.     END;   /* DO f */
  405.   END;     /* DO i */
  406.   DO i=1 TO SDVI.ModeAnz
  407.     DO f=1 TO Fonts.Anz
  408.       DO j=1 TO SDVI.i.Mag.Anz
  409.         k   = SDVI.i.Mag.j;  /* just a help to index magmult */
  410.         dpi = (magmult.num.k * SDVI.i.xdpi) + 0.5;
  411.         IF POS('.', dpi) > 0 THEN dpi = LEFT(dpi, POS('.', dpi)-1);
  412.         WRITELN(batchfile, 'rx 'MakeFontScript Fonts.f dpi SDVI.i.xdpi SDVI.i.ydpi 'MakeTeXFontSet' dpi'/'Fonts.f'.'dpi'pk' SDVI.pkdir);
  413.       END; /* DO j           */
  414.     END;   /* DO f           */
  415.   END;     /* DO i           */
  416.   CLOSE('batchfile');
  417. END;       /* IF open        */
  418.  
  419. EXIT; /* normal end reached */
  420.  
  421. BREAK_C:
  422. BREAK_D:
  423. SAY 'USER REQUESTED BREAK!';
  424. EXIT;
  425.  
  426. mygetenv: procedure          /* when will ARexx supply GetEnv/SetEnv ? */
  427.    PARSE ARG name
  428.    IF open(TEMPFILE,"ENV:"||name,'r') THEN DO
  429.      gives = readln(TEMPFILE)
  430.      CALL close TEMPFILE
  431.    END
  432.    ELSE gives = ""
  433.    RETURN gives
  434.  
  435. mysetenv: procedure
  436.    PARSE ARG name,content
  437.    ADDRESS COMMAND "SetEnv" name '"'content'"'
  438.    RETURN 1
  439.