% Fuchisch 17 pt (ist etwas größer geworden...)

mode_setup;

font_size 17pt#;

% Richtmaße:
unit#:= 1pt#;

% Maße der Buchstaben:
serifx#:= 0.5unit#;      % Größe der Serifen am Ulos usw.
serify#:= serifx#;
bserifx#:= 1.5unit#;     % Größe der großen Serifen an Endbuchstaben
bserify#:= bserifx#;
innenx#:= 2.5unit#;      % Radius eines Sel-Innenschwunges
curvx#:= 1.5unit#;       % X-Radius einer einfachen Kurve
curvy#:= 1.5unit#;       % Y-Radius einer einfachen Kurve
hat#:= 0.7unit#;         % Zusatzbreite eines Ilos-Hutes
rundx#:= 2.5unit#;       % Radius eines Nel
smallerx#:= 0.8unit#;    % Einrückung eines Nel links und rechts
uloshalby#:= 1.8unit#;   % Tiefe des mittleren Punktes beim Ulos
ulosradx#:= 2.5unit#;    % X-Radius eines Ulosbogens
ulosofsxo#:= 0unit#;     % Beginn des Bogens auf der Grundlinie
ulosofsxu#:= 0.2unit#;   % Abstand vom letzten Bogenpunkt zum Serifenanfang
ulosofsxs#:= 1unit#;    % Abstand des letzten Punktes vor einer Serife zum Rand
olosradx#:= 1/2rundx#;   % X-Radius des kleinen Olos-Kreises
olosrady#:= olosradx#;   % Y-Radius des kleinen Olos-Kreises
olosinnenx#:= innenx#;   % Abstand vom unteren Bogenpkt zum oberen Kreispkt.
zhelinnenx#:= 2.5unit#;  % Zwischenraum im Innern eines Zhel
linginnenx#:= 2unit#;    % Einrückung des mittleren Striches nach rechts
ylosminx#:= 0.5unit#;    % halbe Differenz zwischen unterem und oberem Radius
ylosminy#:= 0.5unit#;    % halbe Differenz zwischen unterem und oberem Radius
zweitinnenx#:= 2unit#;   % wie ,linginnenx` für San-/Songdigh 2
furradx#:= 2.2unit#;     % X-Radius des mittleren Kreises eines Furdigh
furrady#:= furradx#;     % Y-Radius des mittleren Kreises eines Furdigh
basdashx#:= 1curvx#;


if unknown hspace#: hspace#:= 0; else: hspace#:= hspace#*unit#; fi
                         % Zusatzabstand zwischen zwei Buchstaben

if unknown circumlinex#: circumlinex#:= 0; fi
if unknown circumliney#: circumliney#:= 0; fi
                         % Zusatzfreiraum um den Strich

% Breiten verschiedener Buchstaben:
ilos#:= 2curvx#;
las#:= 2curvx#;
sel#:= 2innenx#+2curvx#;
ulos#:= ulosofsxo#+ulosradx#;
olos#:= curvx#+innenx#+olosinnenx#+olosradx#;
zhel#:= ilos#+zhelinnenx#;
sandigh#:= 4.5unit#;
sandighb#:= sandigh#+1unit#;
flungdigh#:= sandighb#+1unit#;
em#:= olos#;

% Höhen verschiedener Buchstaben:
nel#:=5unit#;
has#:=6unit#;
rel#:=10unit#;
songdigh#:=11unit#;

font_quad           1em#;
font_normal_space   1las#;
font_normal_stretch 1/2las#;
font_normal_shrink  1/2las#;
font_extra_space    0unit#;
font_slant          0#;
font_x_height       1nel#;
font_coding_scheme  "T1";
font_identifier     "fukhian";

% Def. des Stiftes
if fuchface=0:           % sf
  penthickx#:=fuchthick# * unit#;
  penthicky#:=penthickx#;
  penrotated:=0;
elseif fuchface=1:       % rz
  penthickx#:=fuchthick# * unit#;
  penthicky#:=0;
  penrotated:=30;
else:                    %rm
  penthickx#:=fuchthick# * unit#;
  penthicky#:=1/8unit#;
  penrotated:=30;
fi
penthick#:= if penthickx#>penthicky#: penthickx# else: penthicky# fi;

clx#:= circumlinex#*unit#;
cly#:= circumliney#*unit#;
boolean docircum;
docircum:= (clx#>epsilon) or (cly#>epsilon);
circumline#:= if clx#>cly#: clx# else: cly# fi;

wideplus#:= if docircum: penthick# else: 0 fi;
deltaaddyling#= 1/8nel#;

define_pixels (sel,las,nel,has,ilos,rel,ulos,zhel,olos,em,
               songdigh,sandigh,sandighb,flungdigh,
               innenx,curvx,curvy,hat,rundx,basdashx,
               uloshalby,ulosradx,ulosofsxo,ulosofsxu,ulosofsxs,
               olosradx,olosrady,olosinnenx,
               zhelinnenx,
               linginnenx,
               ylosminx, ylosminy,
               zweitinnenx, unit,
               furradx,furrady,
               hspace, smallerx,
               bserifx, bserify,deltaaddyling,
               serifx, serify);
define_blacker_pixels(penthickx,penthicky,penthick,fuchthick,
               clx,cly,circumline,wideplus);

pen ppen,
    poverpen,
    poverpenhoriz,
    poverpenvert;

if fuchpencircle:
  ppen:= pencircle xscaled penthickx yscaled penthicky rotated penrotated;
  poverpen:= pencircle xscaled (penthickx+clx) yscaled (penthicky+cly)
                       rotated penrotated;
else:
  ppen:= penrazor xscaled penthickx yscaled penthicky rotated penrotated;
  poverpen:= penrazor xscaled (penthickx+clx) yscaled (penthicky+cly)
                      rotated penrotated;
fi
poverpenhoriz:= pensquare yscaled (penthicky+cly) rotated penrotated;
poverpenvert:= pensquare xscaled (penthickx+clx) rotated penrotated;

def thepen=
  pickup ppen;
enddef;

def theoverpen=
  pickup poverpen;
enddef;

def theoverpenhoriz=
  pickup poverpenhoriz;
enddef;

def theoverpenvert=
  pickup poverpenvert;
enddef;

boolean stickynel;
stickynel:= false;    % Nel zieht's zur Grundlinie

boolean ilosfull;
ilosfull:= false;

ueberstand:= 2.0fuchthick;

pair deltaru,deltald;
deltaru= -deltald= right + 3/4up;
pair deltard,deltalu;
deltard= -deltalu= right + 3/4down;
pair deltaling;
deltaling= left+1/2up;

deltaaddy= 1/4nel;
deltawidth= ulosradx;
deltawidth#= ulosradx#;
deltaaddx= uloshalby;
deltaligx= 1/4ulosradx;
deltabasx= 1/4nel;

boolean deltabaseline;
deltabaseline:= false;

input fuch.mf;

end.