% %-------------------------------------------------------------------------- % This file can be loaded after PLAIN.MF. % It introduces conventions that are commonly used at RMCS. %-------------------------------------------------------------------------- base_version:=base_version&"/RMCS 08-AUGUST-1989"; % %-------------------------------------------------------------------------- % Define these for on-line graphics; necessary to set the VMS logical name % MF$TERM to be one of the strings "go140", "tek" or "gp" to support % the GraphOn, Tektronix or GraphicsPlus terminals, respectively. % The following values are appropriate for Tektronix 4010 etc, % since METAFONT doubles them before output as coordinates. %-------------------------------------------------------------------------- screen_rows:=336; screen_cols:=512; % %-------------------------------------------------------------------------- % Some new internal commands from TEXHAX26.88 % % Submitted by Charles R. LaBrec % crl@maxwell.physics.purdue.edu %-------------------------------------------------------------------------- newinternal blacker_min; def define_whole_blacker_pixels(text t) = forsuffixes $=t: $:=hround($.#*hppp+blacker); if $<=blacker_min-1: $:=blacker_min; fi endfor enddef; def define_whole_vertical_blacker_pixels(text t) = forsuffixes $=t: $:=vround($.#*hppp+blacker); if $<=blacker_min-1: $:=blacker_min _o_; fi endfor enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def declnIII = % DEC LN03 (Ricoh, write white) proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=300; % rather obvious really blacker:=0.2; % make pens a bit blacker %blacker:=0.3; % From John Sauter TeXHAX V88 #07 %blacker:=0.65; % he also gives this value, but bad for small fonts %blacker:=0.4; % This value by BHK --- how's it look? blacker_min:=2; % minimum width of 2 pixels %fillin:=-0.2; % darken diagonals a bit %fillin:=-0.4; % From Stan (?) UCB - TeXHAX V87.32 fillin:=-0.6; % BHK is trying this huge value! o_correction:=0.5; % don't overshoot as much enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def hpljII = % Hewlett Packard (Canon SX write white) proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=300; % rather obvious really blacker:=0.2; % make pens a bit blacker blacker_min:=2; % minimum width of 2 pixels fillin:=-0.2; % darken diagonals a bit o_correction:=0.5; % don't overshoot as much enddef; % %-------------------------------------------------------------------------- % Epson FX-1000 dot matrix printer (240 x 216 dpi) % From TUGboat 1987, vol 8, no 1, pp 29--33 %-------------------------------------------------------------------------- mode_def epson = % proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles at all pixels_per_inch:=240; % Epson high resolution blacker:=0; % Epson is black enough blacker_min:=2; % minimum width of 2 pixels fillin:=0; % Epson fills OK o_correction:=.2; % Epson overshoots too much aspect_ratio:=9/10; % Epson is actually 240 x 216 dpi enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def ibmnom = % ibm mode: for the IBM3812 nominal proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=240; blacker:=.2; % (this value is conjectural) blacker_min:=1; % minimum width of 1 pixel fillin:=-0.1; % (ditto) o_correction:=0.6; % (ditto) enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def ibmulf = % ibm mode: for the IBM3812 Ulf Holleberg proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=240; blacker:=.4; % (this value is conjectural) fillin:=-0.2; % (ditto) o_correction:=0.4; % (ditto) enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def ibm = % ibm mode: for the IBM3820 proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=240; blacker:=.78; % (this value is conjectural) fillin:=0.25; % (ditto) o_correction:=.5; % (ditto) enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def ibmsch = % ibm PC screen for Arbortext's PREVIEW proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=118; % blacker:=0; % let it be blacker_min:=1; % minimum width of 1 pixel fillin:=0; % and do not compensate for diagonal fillin o_correction:=.2; % but don't overshoot much enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def ibmvga = % ibm PC screen fonts for DVIVGA proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=110; % blacker:=0.3; % blacker pens blacker_min:=1; % minimum width of 1 pixel fillin:=0; % and do not compensate for diagonal fillin o_correction:=0.0; % enddef; % %-------------------------------------------------------------------------- % LAseventyfive mode: for DEC LA75 printer %-------------------------------------------------------------------------- % mode_def declalxxv = proofing:=0; % no, we're not making proofs fontmaking:=1; % yes, we are making a font tracingtitles:=0; % no, don't show titles in the log pixels_per_inch:=144; % pixels per inch blacker:=0.3; % blacker pens blacker_min:=1; % minimum width of 1 pixel fillin:=-0.1; % compensate for light diagonals o_correction:=0.0 % overshoot enddef; % %-------------------------------------------------------------------------- % %-------------------------------------------------------------------------- mode_def laser = % A convenient synonym for DEC LN03 declnIII_; enddef; mode_def localfont = declnIII_; enddef;