Contents of pastex-modes

base_version := base_version & "/modes 0.13/PasTeX";

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, cap_bar, cap_band, vair', vstem, cap_vstem, bold : if<min_Vround: : = min_Vround;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 AgfaFourZeroZero = mode_param (pixels_per_inch, 406); mode_param (blacker, .2); mode_param (fillin, 0); mode_param (o_correction, .6); mode_common_setup_; enddef;

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 AtariNineFive = mode_param (pixels_per_inch, 95); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0.1); mode_common_setup_; enddef;

mode_def AtariNineSix = mode_param (pixels_per_inch, 96); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0.1); mode_common_setup_; enddef;

mode_def AtariSLMEightZeroFour = 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;

mode_def AtariSMOneTwoFour = mode_param (pixels_per_inch, 101); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .4); 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 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 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 CanonCX = mode_param (pixels_per_inch, 300); mode_param (blacker, 0); mode_param (fillin, .2); mode_param (o_correction, .6); mode_common_setup_; enddef; cx := CanonCX; corona := CanonCX; dp := CanonCX; hplaser := CanonCX; imagen := CanonCX; kyocera := CanonCX; laserwriter := CanonCX; laserjethi := CanonCX; laserjet := CanonCX; CanonSX := CanonCX; CanonLBPLX := CanonCX;

mode_def CanonEX = mode_param (pixels_per_inch, 600); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef;

mode_def CanonLBPTen = mode_param (pixels_per_inch, 240); mode_param (blacker, .2); mode_param (fillin, .2); mode_param (o_correction, .4); mode_common_setup_; enddef;

mode_def ChelgraphIBX = 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;

mode_def CItohThreeOneZero = 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; cthreeten := CItohThreeOneZero;

mode_def CItohEightFiveOneZero = 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; itoh := CItohEightFiveOneZero;

mode_def CompugraphicEightSixZeroZero = 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; cg := CompugraphicEightSixZeroZero;

mode_def CompugraphicNineSixZeroZero = mode_param (pixels_per_inch, 1200); mode_param (blacker, .65); mode_param (fillin, -.1); mode_param (o_correction, .5); mode_common_setup_; enddef;

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 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 DataDiscNew = mode_param (aspect_ratio, 4/3); DataDisc_; enddef; newDD := DataDiscNew;

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 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 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 epsdraft = mode_param (pixels_per_inch, 120); mode_param (aspect_ratio, 72 / pixels_per_inch); EpsonMXFX_; enddef;

mode_def epsfast = mode_param (pixels_per_inch, 60); mode_param (aspect_ratio, 72 / pixels_per_inch); EpsonMXFX_; enddef;

mode_def epsonlo = mode_param (pixels_per_inch, 120); mode_param (aspect_ratio, 216 / pixels_per_inch); EpsonMXFX_; enddef; epslo := epsonlo;

mode_def EpsonLQFiveZeroZeroMed = 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; lqmedres := EpsonLQFiveZeroZeroMed;

mode_def EpsonLQFiveZeroZeroLo = mode_param (pixels_per_inch, 180); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .1); mode_common_setup_; enddef; lqlores := EpsonLQFiveZeroZeroLo;

mode_def EpsonMXFX = 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; epson := EpsonMXFX; epshi := EpsonMXFX; epsonfx := EpsonMXFX;

mode_def GThreefax = mode_param (pixels_per_inch, 200); mode_param (aspect_ratio, 100 / pixels_per_inch); mode_param (blacker, 0); mode_param (fillin, .2); mode_param (o_correction, .2); mode_common_setup_; enddef;

mode_def facsimile = mode_param (pixels_per_inch, 204); mode_param (aspect_ratio, 196 / pixels_per_inch); mode_param (blacker, .3); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef;

mode_def HPDeskJet = mode_param (pixels_per_inch, 300); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .6); 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;

IBMFourZeroOneNine := RicohA;

mode_def IBMFourZeroTwoNine = mode_param (pixels_per_inch, 600); mode_param (blacker, .05); mode_param (fillin, 0); mode_param (o_correction, .75); mode_common_setup_; enddef; IBMFourTwoThreeZero := IBMFourZeroTwoNine; IBMFourTwoFiveZero := IBMFourZeroTwoNine;

mode_def IBMFourTwoOneSix = 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 := IBMFourTwoOneSix;

mode_def IBMProPrinter = 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; proprinter := IBMProPrinter;

mode_def IBMSixOneFiveFour = mode_param (pixels_per_inch, 118); mode_param (blacker, .8); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_; enddef;

mode_def IBMSixSixSevenZero = 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; Sherpa := IBMSixSixSevenZero;

mode_def IBMThreeOneSevenNine = 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;

mode_def IBMThreeOneNineThree = mode_param (pixels_per_inch, 100); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef;

mode_def IBMThreeEightOneTwo = 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; IBMUlfHolleberg := IBMThreeEightOneTwo;

mode_def IBMThreeEightTwoZero = mode_param (pixels_per_inch, 240); mode_param (blacker, .78); mode_param (fillin, .25); mode_param (o_correction, .5); 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 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 imagewriter = mode_param (pixels_per_inch, 144); mode_param (blacker, 0); mode_param (fillin, 0.3); mode_param (o_correction, .2); mode_common_setup_; enddef; iw := imagewriter;

mode_def laserjetfour = mode_param (pixels_per_inch, 600); mode_param (blacker, 0); mode_param (fillin, .2); mode_param (o_correction, .6); mode_common_setup_; enddef; ljfour := laserjetfour; laserjetIV := laserjetfour;

mode_def laserjetlo = mode_param (pixels_per_inch, 150); mode_param (blacker, 0); mode_param (fillin, .1); mode_param (o_correction, 1); mode_common_setup_; enddef;

mode_def lasermaster = 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;

mode_def LASevenFive = mode_param (pixels_per_inch, 144); mode_param (blacker, .3); mode_param (fillin, -.1); mode_param (o_correction, 0); mode_common_setup_; enddef;

mode_def LinotypeOneZeroZeroLo = mode_param (pixels_per_inch, 635); LinotypeOneZeroZero_; enddef; linolo := LinotypeOneZeroZeroLo; linohalf := LinotypeOneZeroZeroLo;

mode_def LinotypeOneZeroZero = mode_param (pixels_per_inch, 1270); mode_param (blacker, .65); mode_param (o_correction, 1); mode_param (fillin, -.1); mode_common_setup_; enddef; linoone := LinotypeOneZeroZero; linohi := LinotypeOneZeroZero; linothreelo := LinotypeOneZeroZero;

mode_def LinotypeThreeZeroZeroHi = mode_param (pixels_per_inch, 2540); mode_param (blacker, .2); mode_param (fillin, .2); mode_param (o_correction, 1); mode_common_setup_; enddef; linothree := LinotypeThreeZeroZeroHi; linosuper := LinotypeThreeZeroZeroHi;

mode_def LNZeroOne = 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;

mode_def LPSTwoZero = mode_param (pixels_per_inch, 300); mode_param (blacker, .6); mode_param (fillin, -.3); mode_param (o_correction, .6); mode_common_setup_; enddef;

mode_def LPSFourZero = mode_write_white_setup_; LNZeroOne_; enddef; LPS := LPSFourZero;

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 MacMagnified = mode_param (pixels_per_inch, 86.4); mode_param (blacker, .35); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef; bettermac := MacMagnified;

mode_def MacTrueSize = mode_param (pixels_per_inch, 72); mode_param (blacker, .0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; truemac := MacTrueSize;

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); CanonCX_; enddef; lqhires := NEChi;

mode_def Newgen = mode_param (pixels_per_inch, 400); CanonCX_; enddef;

mode_def NeXTprinter = mode_param (pixels_per_inch, 400); CanonCX_; enddef; nexthi := NeXTprinter;

mode_def NeXTscreen = mode_param (pixels_per_inch, 100); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; nextscreen := NeXTscreen;

mode_def null = mode_param (proofing, -1); mode_param (fontmaking, 1); enddef;

mode_def OCESixSevenFiveZeroPS = mode_param (pixels_per_inch, 508); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .7); mode_common_setup_; enddef;

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 OneTwoZero = mode_param (pixels_per_inch, 120); mode_param (blacker, .35); mode_param (fillin, .1); mode_param (o_correction, .3); mode_common_setup_; enddef; pcscreen := OneTwoZero;

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 PrintwareSevenTwoZeroIQ = mode_param (pixels_per_inch, 1200); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; printware := PrintwareSevenTwoZeroIQ;

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 QMSOneSevenZeroZero = mode_param (pixels_per_inch, 600); mode_param (blacker, .2); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; mode_write_white_setup_; enddef; qmsoszz := QMSOneSevenZeroZero;

mode_def RicohFourZeroEightZero = 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; ricoh := RicohFourZeroEightZero; RicohFortyEighty := RicohFourZeroEightZero;

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; LNOthree := RicohLP; LNZeroThree := RicohLP;

mode_def SparcPrinter = mode_param (pixels_per_inch, 400); mode_param (blacker, .25); mode_param (fillin, .2); mode_param (o_correction, .6); mode_common_setup_; enddef;

mode_def StarNLOneZero = 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;

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 VarityperFiveZeroSixZeroW = mode_param (pixels_per_inch, 600); mode_param (blacker, .7); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; APSSixMed := VarityperFiveZeroSixZeroW;

mode_def VarityperFourThreeZeroZeroLo = mode_param (pixels_per_inch, 1200); mode_param (blacker, 3.5); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; VTfthlo := VarityperFourThreeZeroZeroLo;

mode_def VarityperFourThreeZeroZeroHi = mode_param (pixels_per_inch, 2400); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; VTfthhi := VarityperFourThreeZeroZeroHi;

mode_def VarityperFourTwoZeroZero = mode_param (pixels_per_inch, 1800); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef;

mode_def VarityperSixZeroZero = mode_param (pixels_per_inch, 600); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 1); mode_common_setup_; enddef; varityper := VarityperSixZeroZero; VTSix := VarityperSixZeroZero;

mode_def VAXstation = mode_param (pixels_per_inch, 78); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, 0); mode_common_setup_; enddef; vs := VAXstation; gpx := VAXstation;

mode_def XeroxDocutech = mode_param (pixels_per_inch, 600); mode_param (blacker, 1); mode_param (fillin, .1); mode_param (o_correction, 0.9); mode_common_setup_; enddef; docutech := XeroxDocutech;

mode_def XeroxEightSevenNineZero = 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;

mode_def XeroxFourZeroFiveZero = mode_param (pixels_per_inch, 300); mode_param (blacker, .7); mode_param (fillin, 0); mode_param (o_correction, .5); mode_common_setup_; enddef;

mode_def XeroxNineSevenZeroZero = mode_param (pixels_per_inch, 300); mode_param (blacker, .7); mode_param (fillin, 0); mode_param (o_correction, .5); mode_common_setup_; enddef;

mode_def XeroxThreeSevenZeroZero = 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;

mode_def help = for i = 1 upto number_of_modes: message mode_name[i]; endfor; save ?; enddef;

let ? = help_;

epsonLQHQ := EpsonLQFiveZeroZeroMed; necHQ := NEChi; necDraft := NEC;

mode_def FourFour = mode_param (pixels_per_inch, 44); mode_param (blacker, .05); mode_param (fillin, .1); mode_param (o_correction, .2); mode_common_setup_; enddef;

mode_def EightThree = mode_param (pixels_per_inch, 83); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef;

mode_def NineOne = mode_param (pixels_per_inch, 91); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef;

OneZeroZero := amiga;

mode_def OneOneZero = mode_param (pixels_per_inch, 110); mode_param (blacker, 0); mode_param (fillin, 0); mode_param (o_correction, .2); mode_common_setup_; enddef;

screen_cols := 400; screen_rows := 600;

localfont := CanonCX;