Calport ASoP version

font.mf

@@ -1,7 +1,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                         %
 % MF Calport v1.0                                                         %
-% � 2016 by Marco Mueller                                                 %
+% � 2016 by Marco Mueller                                                 %
 % thanks to Linus Roemer, Alexis Reigel, Jeremy Gibbons                   %
 % <http://www.metaflop.com>                                               %
 % licensed under gpl v3: www.gnu.org/licenses/                            %
@@ -25,22 +25,23 @@
 
 
 font_size 10pt#;            % the "design size" of this font @hidden
-ht#:=7pt#;                  % height of characters           @hidden
-x_ht#:=4.5pt#;                % x-height of characters         $ 3 / 6
+ht#:=8pt#;                  % height of characters           @hidden
+x_ht#:=5.5pt#;                % x-height of characters         $ 3 / 6
 desc_depth#:=2.5pt#;          % depth of descenders			 $ 1 / 3
-u#:=0.1pt#;                 % unit width                     $ 0.05 / 2
-xgap#:=0.6pt#;              % horizontal adjustment          @hidden
-px#:=0.5pt#;                % horizontal thickness of pen    $ 0.1 / 1.5
-py#:=0.5pt#;                % vertical pen thickness         $ 0.1 / 1.5
+u#:=0.15pt#;                 % unit width                     $ 0.05 / 2
+xgap#:=0.75pt#;              % horizontal adjustment          @hidden
+px#:=0.75pt#;                % horizontal thickness of pen    $ 0.1 / 1.5
+py#:=0.75pt#;                % vertical pen thickness         $ 0.1 / 1.5
 prot:=0;                    % rotation angle of the pen      $ 0 / 90
 ptiny#:=.05*min(px#,py#);   % tiny pen width for pen outline @hidden
 o#:=.2*(px#*cosd(prot))++(py#*sind(prot)); % overshoot       @hidden
 slant:=0;                   % slanting amount                $ -0.3 / 0.3
-font_normal_space 20u#;     % width of the space char		 @hidden
-dnum:=0.5;                  % number of dots                 $ 0.1 / 3
+font_normal_space 15u#;     % width of the space char		 @hidden
+dnum:=2.2;                  % number of dots                 $ 0.1 / 3
 drawingstyle:=1;            % 1=line / 2=dots / 3=overdraw
 penshape:=1;                % 1=circle / 2=square / 3=razor / 4=triangle / 5=pentagon
 
+
 input fontbase;             % now generate the font, no need to input ligkerndef because font is monospaced
 input glyphs_preview;
 bye;                

fontbase.mf

@@ -8,14 +8,15 @@ define_pixels(s,u,xgap,px,py,ptiny,x_ht,ht,o,desc_depth);
 %ho#:=o#;                                % horizontal overshoot
 %leftstemloc#:=2.5u#+s#;                 % position of left stem
 
+
 font_coding_scheme "T1";
 font_slant slant;
 font_normal_stretch 3u#;
 font_normal_shrink 2u#;
 font_x_height x_ht#;
 %font_quad 18u#+2s#;
 font_extra_space 2u#;
-code_offset:=0; % may later used for small caps 
+code_offset:=0; % may later used for small caps
 
 %define_pixels(s,u);
 %define_whole_pixels(xgap);
@@ -559,6 +560,7 @@ path penpath;
 if penshape=1:
  penpath=fullcircle xscaled px yscaled py rotated prot;
  pickup pencircle xscaled px yscaled py rotated prot; 
+
 elseif penshape=2:
  penpath=unitsquare shifted -(.5,.5) xscaled px yscaled py rotated prot;
  pickup pensquare xscaled px yscaled py rotated prot;