%  Greek uppercase for GL
%  Author: Bert Bos
%  Date: 29 Oct 1990

defchar(oct"000", F_width#, cap#, 0, ucpen, 0);
%
%            5
% 2 ##########
%    ###     ##
%    ###      # 9
%    ###
%    ###
%    ###
%    ###
%    ###
%    ###
%  1 ###
%   #####
%
  top y5=h; x9=w-u+ho;		%  Top right of F
  z9=top rt z5+uc_thick*dir(-inclination);
  z9'=z9+fine*left;			%  Tip is 'fine' wide
  fill z9--z9'{dir(180-inclination)}..tension tens..{left}bot z5
    --top z5--top rt z5--cycle;

  bot lft z1=(u,0);			%  Bottom of stem
  serif1(-serifwd,serifht);		%  Bottom left serif
  serif1(serifwd,serifht);		%  Bottom right serif
  top lft z2=(u,h);			%  Top of stem
  serif2(-serifwd,-serifht);		%  Top left serif
  draw z5--z2--z1;			%  Top and stem
endchar;