upr_B.xgf

<?xml version="1.0"?>
<xgridfit xmlns="http://xgridfit.sourceforge.net/Xgridfit2">
 <!--B, Cyr V-->
 <glyph ps-name="B" init-graphics="yes">
  
  <!--
      
      Copyright (C) 2007, 2008, 2009, 2010 Andrey V. Panov
      
      This program is free software: you can redistribute it and/or modify
      it under the terms of the GNU General Public License as published by
      the Free Software Foundation, either version 3 of the License, or
      (at your option) any later version.
      
      This program is distributed in the hope that it will be useful,
      but WITHOUT ANY WARRANTY; without even the implied warranty of
      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      GNU General Public License for more details.
      
      You should have received a copy of the GNU General Public License
      along with this program.  If not, see "http://www.gnu.org/licenses/".
      
      -->
  
  <param name="baseline" value="cap-x-baseline"/>
  <param name="x-height" value="cap-x-height"/>
  <param name="intersect-height" value="cap-h-intersect-height"/>
  <param name="vert-stem" value="cap-vert-stem"/>
  <param name="curve-stem" value="cap-o-curve-stem"/>
  <param name="horiz-stem" value="cap-horiz-stem"/>
  <param name="lbearing" value="cap-h-lbearing"/>
  <param name="space" value="cap-b-low-space"/>
  
  <constant name="lstem-left-bottom" value="first-point"/>
  <constant name="lstem-left-top" value="lstem-left-bottom + vstem-vcount"/>
  <constant name="right-top" value="lstem-left-top + smooth-count"/>
  <constant name="up-outer-right" value="right-top + 3"/>
  <constant name="curve-intersect" value="up-outer-right + 3"/>
  <constant name="low-outer-right" value="curve-intersect + 3 + 1"/>
  <constant name="right-bottom" value="low-outer-right + 3"/>
  <constant name="up-inner-left-bottom" value="low-inner-left-top + 1"/>
  <constant name="up-inner-right-bottom" value="up-inner-left-bottom + 1"/>
  <constant name="up-inner-right" value="up-inner-right-bottom + 3"/>
  <constant name="up-inner-right-top" value="up-inner-right + 3"/>
  <constant name="up-inner-left-top" value="up-inner-right-top + 1"/>
  <constant name="low-inner-left-bottom" value="right-bottom + 1"/>
  <constant name="low-inner-right-bottom" value="low-inner-left-bottom + 1"/>
  <constant name="low-inner-right" value="low-inner-right-bottom + 3"/>
  <constant name="low-inner-right-top" value="low-inner-right + 3"/>
  <constant name="low-inner-left-top" value="low-inner-right-top + 1"/>
  <constant name="last" value="up-inner-left-top"/>
  
  <compile-if test="slanted">
   <set-freedom-vector x-component="x-skew2" y-component="y-skew2"/>
   <set-projection-vector axis="y"/>
   <!--   <set-round-state round="to-grid"/> -->
   <else>
    <set-vectors axis="y"/>
   </else>
  </compile-if>
  <compile-if test="smooth">
   <if test="vertical-smoothing">
    <set-round-state round="no"/>
   </if>
  </compile-if>
  
  <move distance="baseline">
   <point num="lstem-left-bottom"/>
   <align>
    <point num="right-bottom"/>
   </align>
   <move distance="horiz-stem" color="black">
    <point num="low-inner-left-bottom"/>
    <align>
     <point num="low-inner-right-bottom"/>
    </align>
   </move>
  </move>
  <move distance="intersect-height">
   <point num="low-inner-left-top"/>
   <align>
    <point num="low-inner-right-top"/>
   </align>
   <move distance="horiz-stem" color="black">
    <point num="up-inner-left-bottom"/>
    <align>
     <point num="up-inner-right-bottom"/>
    </align>
   </move>
  </move>
  <move distance="x-height">
   <point num="lstem-left-top"/>
   <align>
    <point num="right-top"/>
   </align>
   <move distance="horiz-stem" color="black">
    <point num="up-inner-left-top"/>
    <align>
     <point num="up-inner-right-top"/>
    </align>
   </move>
  </move>
  <interpolate>
   <reference>
    <point num="low-inner-left-top"/>
    <point num="up-inner-left-bottom"/>
   </reference>
   <point num="curve-intersect"/>
  </interpolate>
  <interpolate>
   <reference>
    <point num="low-inner-left-bottom"/>
    <point num="low-inner-left-top"/>
   </reference>
   <point num="low-inner-right"/>
   <point num="low-outer-right"/>
  </interpolate>
  
  <compile-if test="slanted">
   <set-projection-vector x-component="x-skew1" y-component="y-skew1"/>
   <set-freedom-vector axis="x"/>
   <set-round-state round="no"/>
   <else>
    <set-vectors axis="x"/>
    <compile-if test="smooth">
     <if test="only-vertical-smoothing">
      <set-round-state round="to-grid"/>
     </if>
    </compile-if>
   </else>
  </compile-if>
  
  <move distance="lbearing" color="white">
   <reference>
    <point num="left-bearing"/>
   </reference>
   <point num="lstem-left-bottom"/>
   <align>
    <point num="lstem-left-top"/>
   </align>
   <move distance="vert-stem" color="black">
    <point num="up-inner-left-top"/>
    <align>
     <point num="up-inner-left-bottom"/>
     <point num="low-inner-left-top"/>
     <point num="low-inner-left-bottom"/>
    </align>
   </move>
   <move distance="space" color="black">
    <point num="low-outer-right"/>
    <move distance="curve-stem" color="black" compile-if="slanted = 0">
     <point num="low-inner-right"/>
    </move>
    <move min-distance="no" round="to-grid" compile-if="slanted = 0">
     <point num="up-outer-right"/>
     <move distance="vert-stem" color="black">
      <point num="up-inner-right"/>
     </move>
    </move>
    <move min-distance="no" color="white" compile-if="slanted = 0">
     <point num="right-bearing"/>
    </move>
   </move>
  </move>
  
  <compile-if test="slanted">
   <set-projection-vector axis="x"/>
   <set-round-state round="to-grid"/>
   <set-minimum-distance value="1.0p"/>
   <move>
    <point num="low-outer-right"/>
    <move round="no" distance="curve-stem" color="black">
     <point num="low-inner-right"/>
    </move>
    <move min-distance="no" color="white">
     <point num="right-bearing"/>
    </move>
    <move min-distance="no">
     <point num="up-outer-right"/>
     <move round="no" distance="vert-stem" color="black">
      <point num="up-inner-right"/>
     </move>
    </move>
   </move>
  </compile-if>
  
  <interpolate>
   <reference>
    <point num="up-inner-left-bottom"/>
    <point num="up-inner-right"/>
   </reference>
   <point num="curve-intersect"/>
   <point num="up-inner-right-top"/>
   <point num="up-inner-right-bottom"/>
   <point num="right-top"/>
  </interpolate>
  <compile-if test="smooth or slanted">
   <compile-if test="slanted">
    <set-projection-vector axis="x"/>
   </compile-if>
   <move round="to-grid">
    <point num="right-bearing"/>
   </move>
  </compile-if>
  <interpolate-untouched-points/>
 </glyph> <!--B, Cyr V-->
</xgridfit>