def mode_param (suffix v) (expr e) = if unknown mode_guard_.v: v := e; mode_guard_.v := 1; fi enddef;
def mode_common_setup_ = mode_param (proofing, 0); mode_param (fontmaking, 1); mode_param (tracingtitles, if pixels_per_inch > 700: 1 else: 0 fi); enddef;
def landscape = extra_setup := extra_setup & "landscape_;" enddef;
def landscape_ = begingroup interim warningcheck := 0; pixels_per_inch := aspect_ratio * pixels_per_inch; aspect_ratio := 1 / aspect_ratio; fix_units; endgroup enddef;
def mode_special_ (suffix ) = strings, d;s : = str; d := decimal scantokens s; special s & "=" & d; enddef;
def mode_output_specials_ = begingroup save d, s, p, p_p_i; string p;
interim warningcheck := 0;
p_p_i = pixels_per_inch / mag;
save pixels_per_inch; pixels_per_inch := p_p_i;
special "jobname=" & jobname; mode_special_ (mag);
p := if string mode: mode else: substring (0, length (mode_name[mode]) - 1) of mode_name[mode] fi; special "mode=" & p;
mode_special_ (pixels_per_inch); if aspect_ratio <> 1: mode_special_ (aspect_ratio); fi; mode_special_ (blacker); mode_special_ (fillin); mode_special_ (o_correction); endgroup enddef;
def BCPL_string (expr s, n) = for l := if length (s) >= n: n-1 else: length (s) fi: l for k := 1 upto l: , substring (k - 1, k) of s endfor for k := l + 2 upto n: , 0 endfor endfor enddef;
def coding_scheme expr s = headerbyte 9: BCPL_string (s, 40); special "codingscheme=" & s enddef;
def font_family expr s = headerbyte 49: BCPL_string (s, 20); special "fontid=" & s enddef;
def font_face_byte expr x = headerbyte 72: x; special "fontfacebyte"; numspecial x enddef;
Xerox_world := 1;
inner end; let primitive_end_ = end; def end = if fontmaking > 0: font_family font_identifier_; coding_scheme font_coding_scheme_; font_face_byte max (0, 254 - round 2designsize); mode_output_specials_; fi; primitive_end_. enddef;
outer end, primitive_end_; let bye = end;
def mode_write_white_setup_ = begingroup let black_setup = font_setup; def font_setup = black_setup; min_Vround:=max(fine.breadth,crisp.breadth,tiny.breadth,2); if min_Vround<vround min_Vround: min_Vround:=vround min_Vround; fi if flare<vround flare: flare:=vround flare; fi forsuffixes = vair, bar, slab, capbar, capband, vair', vstem, capvstem, bold : if<min_Vround: : = minVround;fiendforforsuffixes=thin_join,hair,curve,flare,dot_size,cap_hair,cap_curve, vair,bar,slab,cap_bar,cap_band,stem',cap_stem',vair',fudged.hair, fudged.stem,fudged.cap_stem: : = max(,2); endfor enddef; endgroup; let mode_write_white_setup_ = relax enddef;
mode_def agfafzz = mode_param (pixels_per_inch, 406); mode_param (blacker, .2); mode_param (fillin, 0); mode_param (o_correction, .6); mode_common_setup_; enddef; AgfaFourZeroZero := agfafzz;
mode_def amiga = mode_param (pixels_per_inch, 100); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef;
mode_def aps = mode_param (pixels_per_inch, 722.909); mode_param (blacker, .2); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_; enddef;
mode_def apssixhi = mode_param (pixels_per_inch, 1016); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef;
mode_def atariezf = mode_param (pixels_per_inch, 300); mode_param (blacker, -.25); mode_param (fillin, .5); mode_param (o_correction, 0); mode_common_setup_; mode_write_white_setup_; enddef; AtariSLMEightZeroFour := atariezf;
mode_def atarinf = mode_param (pixels_per_inch, 95); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0.1); mode_common_setup_; enddef; AtariNineFive := atarinf;
mode_def atarins = mode_param (pixels_per_inch, 96); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0.1); mode_common_setup_; enddef; AtariNineSix := atarins;
mode_def atariotf = mode_param (pixels_per_inch, 101); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .4); mode_common_setup_; enddef; AtariSMOneTwoFour := atariotf;
mode_def bitgraph = mode_param (pixels_per_inch, 118); mode_param (blacker, .55); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef;
mode_def bjtenex = mode_param (pixels_per_inch, 360); mode_param (blacker, .6); mode_param (fillin, 0); mode_param (o_correction, .6); mode_common_setup_; enddef;
mode_def boise = mode_param (pixels_per_inch, 180); mode_param (blacker, .55); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef;
mode_def canonex = mode_param (pixels_per_inch, 600); mode_param (blacker, .2); mode_param (fillin, .1); mode_param (o_correction, .85); mode_common_setup_; enddef; CanonEX := canonex;
mode_def canonlbp = mode_param (pixels_per_inch, 240); mode_param (blacker, .2); mode_param (fillin, .2); mode_param (o_correction, .4); mode_common_setup_; enddef; CanonLBPTen := canonlbp;
mode_def cg = mode_param (pixels_per_inch, 1301.5); mode_param (aspect_ratio, 1569 / pixels_per_inch); mode_param (blacker, .2); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_; enddef; CompugraphicEightSixZeroZero := cg;
mode_def cgl = cg_; landscape; enddef;
mode_def cgnszz = mode_param (pixels_per_inch, 1200); mode_param (blacker, .65); mode_param (fillin, -.1); mode_param (o_correction, .5); mode_common_setup_; enddef; CompugraphicNineSixZeroZero := cgnszz;
mode_def crs = mode_param (pixels_per_inch, 4000 + 4000/3); mode_param (blacker, 4); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef;
mode_def cx = mode_param (pixels_per_inch, 300); mode_param (blacker, 0); mode_param (fillin, .2); mode_param (o_correction, .6); mode_common_setup_; enddef; CanonCX := cx; corona := cx; dp := cx; hplaser := cx; imagen := cx; kyocera := cx; laserwriter := cx; laserjethi := cx; laserjet := cx; CanonSX := cx; CanonLBPLX := cx;
mode_def datadisc = mode_param (pixels_per_inch, 70); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef; DD := datadisc;
mode_def newdd = mode_param (aspect_ratio, 4/3); datadisc_; enddef; DataDiscNew := newdd;
mode_def declarge = mode_param (pixels_per_inch, 100); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; DEClarge := declarge; elvira := declarge;
mode_def decsmall = mode_param (pixels_per_inch, 82); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; DECsmall := decsmall;
mode_def deskjet = mode_param (pixels_per_inch, 300); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .6); mode_common_setup_; enddef; HPDeskJet := deskjet;
mode_def docutech = mode_param (pixels_per_inch, 600); mode_param (blacker, 1); mode_param (fillin, .1); mode_param (o_correction, 0.9); mode_common_setup_; enddef; XeroxDocutech := docutech;
mode_def dover = mode_param (pixels_per_inch, 384); mode_param (blacker, 1.2); mode_param (fillin, 0); mode_param (o_correction, .6); mode_common_setup_; enddef;
mode_def epsdrft = mode_param (pixels_per_inch, 120); mode_param (aspect_ratio, 72 / pixels_per_inch); epson_; enddef; epsdraft := epsdrft;
mode_def epsdrftl = epsdrft_; landscape; enddef;
mode_def epsfast = mode_param (pixels_per_inch, 60); mode_param (aspect_ratio, 72 / pixels_per_inch); epson_; enddef;
mode_def epsfastl = epsfast_; landscape; enddef;
mode_def epson = mode_param (pixels_per_inch, 240); mode_param (aspect_ratio, 216 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef; EpsonMXFX := epson; epshi := epson; epsonfx := epson;
mode_def epsonl = epson_; landscape; enddef;
mode_def epsonact = mode_param (pixels_per_inch, 300); mode_param (blacker, .8); mode_param (fillin, 0); mode_param (o_correction, 0.95); mode_common_setup_; enddef; EpsonAction := epsonact;
mode_def epsonlo = mode_param (pixels_per_inch, 120); mode_param (aspect_ratio, 216 / pixels_per_inch); epson_; enddef; epslo := epsonlo;
mode_def epsonlol = epsonlo_; landscape; enddef;
mode_def gtfax = mode_param (pixels_per_inch, 204); mode_param (aspect_ratio, 196 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, .2); mode_param (o_correction, .2); mode_common_setup_; enddef; GThreefax := gtfax; gtfaxhi := GThreefax;
mode_def gtfaxl = gtfax_; landscape; enddef;
mode_def gtfaxlo = mode_param (pixels_per_inch, 204); mode_param (aspect_ratio, 98 / pixels_per_inch); gtfax_; enddef;
mode_def gtfaxlol = gtfaxlo_; landscape; enddef;
mode_def hprugged = mode_param (pixels_per_inch, 180); mode_param (blacker, .55); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef;
mode_def ibm_a = mode_param (pixels_per_inch, 240); mode_param (blacker, .35); mode_param (fillin, -.2); mode_param (o_correction, .2); mode_common_setup_; enddef;
mode_def ibmd = mode_param (pixels_per_inch, 240); mode_param (blacker, .3); mode_param (fillin, .4); mode_param (o_correction, .75); mode_common_setup_; enddef;
mode_def ibmega = mode_param (pixels_per_inch, 96); mode_param (aspect_ratio, .841); mode_param (blacker, .3); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef;
mode_def ibmegal = ibmega_; landscape; enddef;
mode_def ibmfzon = mode_param (pixels_per_inch, 300); mode_param (blacker, .1); mode_param (fillin, 0); mode_param (o_correction, .75); mode_common_setup_; mode_write_white_setup_; enddef; IBMFourZeroOneNine := ibmfzon;
mode_def ibmfztn = mode_param (pixels_per_inch, 600); mode_param (blacker, .05); mode_param (fillin, 0); mode_param (o_correction, .75); mode_common_setup_; enddef; IBMFourZeroTwoNine := ibmfztn; IBMFourTwoThreeZero := ibmfztn; IBMFourTwoFiveZero := ibmfztn;
mode_def ibmpp = mode_param (pixels_per_inch, 240); mode_param (aspect_ratio, 216 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_; enddef; IBMProPrinter := ibmpp; proprinter := IBMProPrinter;
mode_def ibmppl = ibmpp_; landscape; enddef;
mode_def ibmsoff = mode_param (pixels_per_inch, 118); mode_param (blacker, .8); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_; enddef; IBMSixOneFiveFour := ibmsoff;
mode_def sherpa = mode_param (pixels_per_inch, 240); mode_param (blacker, 1); mode_param (fillin, 1); mode_param (o_correction, .5); mode_common_setup_; mode_write_white_setup_; enddef; IBMSixSixSevenZero := sherpa;
mode_def ibmteot = mode_param (pixels_per_inch, 240); mode_param (blacker, .6); mode_param (fillin, .4); mode_param (o_correction, 0); mode_common_setup_; mode_write_white_setup_; enddef; IBMThreeEightOneTwo := ibmteot; IBMUlfHolleberg := IBMThreeEightOneTwo;
mode_def ibmtetz = mode_param (pixels_per_inch, 240); mode_param (blacker, .78); mode_param (fillin, .25); mode_param (o_correction, .5); mode_common_setup_; enddef; IBMThreeEightTwoZero := ibmtetz;
mode_def ibmtont = mode_param (pixels_per_inch, 100); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; IBMThreeOneNineThree := ibmtont;
mode_def ibmtosn = mode_param (pixels_per_inch, 87); mode_param (aspect_ratio, 0.75); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; IBMThreeOneSevenNine := ibmtosn;
mode_def ibmtosnl = ibmtosn_; landscape; enddef;
mode_def ibmvga = mode_param (pixels_per_inch, 110); mode_param (blacker, .3); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef;
mode_def ibx = mode_param (pixels_per_inch, 4000 + 4000 + 1600); mode_param (blacker, 4); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; ChelgraphIBX := ibx;
mode_def itoh = mode_param (pixels_per_inch, 160); mode_param (aspect_ratio, 144 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .1); mode_common_setup_; enddef; CItohEightFiveOneZero := itoh;
mode_def itohl = itoh_; landscape; enddef;
mode_def itohtoz = mode_param (pixels_per_inch, 240); mode_param (aspect_ratio, 144 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef; citohtoz := itohtoz; CItohThreeOneZero := itohtoz; cthreeten := itohtoz;
mode_def itohtozl = itohtoz_; landscape; enddef;
mode_def iw = mode_param (pixels_per_inch, 144); mode_param (blacker, 0); mode_param (fillin, 0.3); mode_param (o_correction, .2); mode_common_setup_; enddef; imagewriter := iw;
mode_def jetiiisi = mode_param (pixels_per_inch, 300); mode_param (blacker, .2); mode_param (fillin, 0); mode_param (o_correction, .7); mode_common_setup_; enddef; HPLaserJetIIISi := jetiiisi;
mode_def lasf = mode_param (pixels_per_inch, 144); mode_param (blacker, .3); mode_param (fillin, -.1); mode_param (o_correction, 0); mode_common_setup_; enddef; LASevenFive := lasf;
mode_def linolo = mode_param (pixels_per_inch, 635); linoone_; enddef; LinotypeOneZeroZeroLo := linolo; linohalf := LinotypeOneZeroZeroLo;
mode_def linoone = mode_param (pixels_per_inch, 1270); mode_param (blacker, .65); mode_param (o_correction, 1); mode_param (fillin, -.1); mode_common_setup_; enddef; LinotypeOneZeroZero := linoone; linohi := LinotypeOneZeroZero; linothreelo := LinotypeOneZeroZero;
mode_def linotzzh = mode_param (pixels_per_inch, 2540); mode_param (blacker, .2); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_; enddef; linothree := linotzzh; LinotypeThreeZeroZeroHi := linotzzh; linosuper := linotzzh;
mode_def ljfour = mode_param (pixels_per_inch, 600); mode_param (blacker, .25); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; laserjetfour := ljfour; qmsesz := ljfour; aselect := ljfour;
mode_def ljlo = mode_param (pixels_per_inch, 150); mode_param (blacker, 0); mode_param (fillin, .1); mode_param (o_correction, 1); mode_common_setup_; enddef; laserjetlo := ljlo;
mode_def lmaster = mode_param (pixels_per_inch, 1000); mode_param (blacker, 0.2); mode_param (fillin, 0.0); mode_param (o_correction, 0.4); mode_common_setup_; enddef; lasermaster := lmaster;
mode_def lnzo = mode_param (pixels_per_inch, 300); mode_param (blacker, .9); mode_param (fillin, 0); mode_param (o_correction, .5); mode_common_setup_; mode_write_white_setup_; enddef; LNZeroOne := lnzo;
mode_def lps = mode_write_white_setup_; lnzo_; enddef; LPSFourZero := lps;
mode_def lpstz = mode_param (pixels_per_inch, 300); mode_param (blacker, .6); mode_param (fillin, -.3); mode_param (o_correction, .6); mode_common_setup_; enddef; LPSTwoZero := lpstz;
mode_def lqlores = mode_param (pixels_per_inch, 180); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .1); mode_common_setup_; enddef; EpsonLQFiveZeroZeroLo := lqlores;
mode_def lqmed = mode_param (pixels_per_inch, 360); mode_param (aspect_ratio, 180 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .1); mode_common_setup_; enddef; lqmredres := lqmed; EpsonLQFiveZeroZeroMed := lqmed;
mode_def lqmedl = lqmed_; landscape; enddef;
mode_def lview = mode_param (pixels_per_inch, 118.06); mode_param (aspect_ratio, 109.25 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef;
mode_def macmag = mode_param (pixels_per_inch, 86.4); mode_param (blacker, .35); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef;
mode_def mactrue = mode_param (pixels_per_inch, 72); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; MacTrueSize := mactrue;
mode_def ncd = mode_param (pixels_per_inch, 95); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef;
mode_def nec = mode_param (pixels_per_inch, 180); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef;
mode_def nechi = mode_param (pixels_per_inch, 360); cx_; enddef; lqhires := nechi;
mode_def nexthi = mode_param (pixels_per_inch, 400); cx_; enddef; NeXTprinter := nexthi; Newgen := nexthi;
mode_def nextscrn = mode_param (pixels_per_inch, 100); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; NeXTscreen := nextscrn; nextscreen := nextscrn;
mode_def nullmode = mode_param (pixels_per_inch, 101); mode_param (proofing, -1); mode_param (fontmaking, 1); enddef;
mode_def ocessfz = mode_param (pixels_per_inch, 508); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .7); mode_common_setup_; enddef; OCESixSevenFiveZeroPS := ocessfz;
mode_def okidata = mode_param (pixels_per_inch, 240); mode_param (aspect_ratio, 288 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef; okihi := okidata;
mode_def okidatal = okidata_; landscape; enddef;
mode_def pcscreen = mode_param (pixels_per_inch, 118); mode_param (blacker, .35); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef;
mode_def phaser = mode_param (pixels_per_inch, 300); mode_param (blacker, 1.1); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef;
mode_def prntware = mode_param (pixels_per_inch, 1200); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; PrintwareSevenTwoZeroIQ := prntware; printware := prntware;
mode_def qms = mode_param (pixels_per_inch, 300); mode_param (blacker, .6); mode_param (fillin, -.3); mode_param (o_correction, .6); mode_common_setup_; mode_write_white_setup_; enddef;
mode_def qmsostf = mode_param (pixels_per_inch, 600); mode_param (blacker, 1); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; mode_write_white_setup_; enddef; QMSOneSevenTwoFive := qmsostf;
mode_def qmsoszz = mode_param (pixels_per_inch, 600); mode_param (blacker, .2); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; mode_write_white_setup_; enddef; QMSOneSevenZeroZero := qmsoszz;
mode_def ricoh = mode_param (pixels_per_inch, 300); mode_param (blacker, .2); mode_param (fillin, -.2); mode_param (o_correction, .5); mode_common_setup_; mode_write_white_setup_; enddef; RicohFourZeroEightZero := ricoh; RicohFortyEighty := ricoh;
mode_def ricoha = mode_param (pixels_per_inch, 300); mode_param (blacker, .2); mode_param (fillin, 0); mode_param (o_correction, .75); mode_common_setup_; mode_write_white_setup_; enddef; RicohA := ricoha; IBMFourTwoOneSix := ricoha;
mode_def ricohlp = mode_param (pixels_per_inch, 300); mode_param (blacker, .65); mode_param (fillin, -.2); mode_param (o_correction, .5); mode_common_setup_; mode_write_white_setup_; enddef; RicohLP := ricohlp; LNOthree := ricohlp; LNZeroThree := ricohlp;
mode_def sparcptr = mode_param (pixels_per_inch, 400); mode_param (blacker, .25); mode_param (fillin, .2); mode_param (o_correction, .6); mode_common_setup_; enddef; SparcPrinter := sparcptr;
mode_def starnlt = mode_param (pixels_per_inch, 240); mode_param (aspect_ratio, 216 / pixels_per_inch); mode_param (blacker, -.6); mode_param (fillin, .2); mode_param (o_correction, .4); mode_common_setup_; enddef; StarNLOneZero := starnlt;
mode_def starnltl = starnlt_; landscape; enddef;
mode_def sun = mode_param (pixels_per_inch, 85); mode_param (blacker, .35); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef;
mode_def supre = mode_param (pixels_per_inch, 2400); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef;
mode_def toshiba = mode_param (pixels_per_inch, 180); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef; epsonlq := toshiba;
mode_def ultre = mode_param (pixels_per_inch, 1200); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; Prism := ultre;
mode_def vs = mode_param (pixels_per_inch, 78); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; VAXstation := vs; gpx := vs;
mode_def vtftzz = mode_param (pixels_per_inch, 1800); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; VarityperFourTwoZeroZero := vtftzz;
mode_def vtftzzhi = mode_param (pixels_per_inch, 2400); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; VarityperFourThreeZeroZeroHi := vtftzzhi;
mode_def vtftzzlo = mode_param (pixels_per_inch, 1200); mode_param (blacker, 3.5); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; VarityperFourThreeZeroZeroLo := vtftzzlo;
mode_def vtfzszw = mode_param (pixels_per_inch, 600); mode_param (blacker, .7); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; VarityperFiveZeroSixZeroW := vtfzszw; APSSixMed := vtfzszw;
mode_def vtszz = mode_param (pixels_per_inch, 600); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; VarityperSixZeroZero := vtszz; VTSix := vtszz; varityper := vtszz;
mode_def xrxesnz = mode_param (pixels_per_inch, 300); mode_param (blacker, 0.4); mode_param (fillin, 0); mode_param (o_correction, 0.2); mode_common_setup_; mode_write_white_setup_; enddef; XeroxEightSevenNineZero := xrxesnz;
mode_def xrxfzfz = mode_param (pixels_per_inch, 300); mode_param (blacker, .7); mode_param (fillin, 0); mode_param (o_correction, .5); mode_common_setup_; enddef; XeroxFourZeroFiveZero := xrxfzfz;
mode_def xrxnszz = mode_param (pixels_per_inch, 300); mode_param (blacker, .7); mode_param (fillin, 0); mode_param (o_correction, .5); mode_common_setup_; enddef; XeroxNineSevenZeroZero := xrxnszz;
mode_def xrxtszz = mode_param (pixels_per_inch, 300); mode_param (blacker, .85); mode_param (fillin, -.1); mode_param (o_correction, .5); mode_common_setup_; mode_write_white_setup_; enddef; XeroxThreeSevenZeroZero := xrxtszz;
mode_def help = for i = 1 upto number_of_modes: message mode_name[i]; endfor; save ?; enddef;
let ? = help_;
screen_cols := 400; screen_rows := 500;
localfont := cx;