Continued fraction/Arithmetic/G(matrix ng, continued fraction n): Difference between revisions

fn

fprint_14point (outf : FILEref) : void =

begin

fprintln! (outf, "%%% This file is public domain.");

fprintln! (outf, "%%% Originally written 1992, Don Hosek.");

fprintln! (outf, "%%% This declaration added by Clea F. Rees 2008/11/16 with the permission of Dan Hosek.");

fprintln! (outf, "%%%");

fprintln! (outf, "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%");

fprintln! (outf, "% This file sets up a fourteen point environment for TeX. It can be initialized");

fprintln! (outf, "% with the '\\fourteenpoint' macro.");

fprintln! (outf, "% It also sets up a '\\tenpoint' macro in case you want to go back down.");

fprintln! (outf, "% By Don Hosek");

fprintln! (outf, "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%");

fprintln! (outf, " ");

fprintln! (outf, "\\ifx\\tenpoint\\undefined\\let\\loadedfrommacro=Y");

fprintln! (outf, " \\input 10point");

fprintln! (outf, " \\let\\loadedfrommacro=N\\fi");

fprintln! (outf, " ");

fprintln! (outf, "%%%");

fprintln! (outf, "%%% Load in the fonts");

fprintln! (outf, "%%%");

fprintln! (outf, "\\font\\fourteenrm=cmr12 scaled \\magstep1");

fprintln! (outf, "\\font\\fourteeni=cmmi12 scaled \\magstep1");

fprintln! (outf, "\\font\\fourteensy=cmsy10 scaled \\magstep2");

fprintln! (outf, "\\font\\fourteenex=cmex10 scaled \\magstep2");

fprintln! (outf, "\\font\\fourteenbf=cmbx12 scaled \\magstep1");

fprintln! (outf, "\\font\\fourteensl=cmsl12 scaled \\magstep1");

fprintln! (outf, "\\font\\fourteentt=cmtt12 scaled \\magstep1");

fprintln! (outf, "\\font\\fourteenit=cmti12 scaled \\magstep1");

fprintln! (outf, "\\font\\fourteencsc=cmcsc10 scaled \\magstep2");

fprintln! (outf, " ");

fprintln! (outf, "%%%");

fprintln! (outf, "%%% Set up the fourteenpoint macros");

fprintln! (outf, "%%%");

fprintln! (outf, "\\ifx\\fourteenpoint\\undefined");

fprintln! (outf, " \\def\\fourteenpoint{\\def\\rm{\\fam0\\fourteenrm}% switch to 14-point type");

fprintln! (outf, " \\textfont0=\\fourteenrm \\scriptfont0=\\tenrm \\scriptscriptfont0=\\sevenrm");

fprintln! (outf, " \\textfont1=\\fourteeni \\scriptfont1=\\teni \\scriptscriptfont1=\\seveni");

fprintln! (outf, " \\textfont2=\\fourteensy \\scriptfont2=\\tensy \\scriptscriptfont2=\\sevensy");

fprintln! (outf, " \\textfont3=\\fourteenex \\scriptfont3=\\fourteenex");

fprintln! (outf, " \\scriptscriptfont3=\\fourteenex");

fprintln! (outf, " \\textfont\\itfam=\\fourteenit \\def\\it{\\fam\\itfam\\fourteenit}%");

fprintln! (outf, " \\textfont\\slfam=\\fourteensl \\def\\sl{\\fam\\slfam\\fourteensl}%");

fprintln! (outf, " \\textfont\\ttfam=\\fourteentt \\def\\tt{\\fam\\ttfam\\fourteentt}%");

fprintln! (outf, " \\textfont\\bffam=\\fourteenbf \\scriptfont\\bffam=\\tenbf");

fprintln! (outf, " \\scriptscriptfont\\bffam=\\sevenbf \\def\\bf{\\fam\\bffam\\fourteenbf}%");

fprintln! (outf, " \\textfont\\scfam=\\fourteencsc \\def\\sc{\\fam\\scfam\\fourteencsc}%");

fprintln! (outf, " \\normalbaselineskip=17pt");

fprintln! (outf, " \\setbox\\strutbox=\\hbox{\\vrule height11.9pt depth6.3pt width0pt}%");

fprintln! (outf, " \\normalbaselines\\rm}");

fprintln! (outf, " \\fi")

end

fprintln! (outf, "\\pagewidth 6in\\hoffset-1in\\hsize 6in");

fprintln! (outf, "\\pageheight 6in\\voffset-1.05in\\vsize 6in");

(* Suppress the page number. *)

(* Print large. *)

fprint_14point (outf);

fprintln! (outf, "\\fourteenpoint");

fprintln! (outf, "\\normallineskip 6pt");