Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 1cc600e1c8
Fetching contributors…

Cannot retrieve contributors at this time

file 67 lines (54 sloc) 2.095 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
%
% TsuIta Atama
% Copyright (C) 2012 Matthew Skala
%
% 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, version 3.
%
% As a special exception, if you create a document which uses this font, and
% embed this font or unaltered portions of this font into the document, this
% font does not by itself cause the resulting document to be covered by the
% GNU General Public License. This exception does not however invalidate any
% other reasons why the document might be covered by the GNU General Public
% License. If you modify this font, you may extend this exception to your
% version of the font, but you are not obligated to do so. If you do not
% wish to do so, delete this exception statement from your 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/>.
%
% Matthew Skala
% http://ansuz.sooke.bc.ca/
% mskala@ansuz.sooke.bc.ca
%

% TSUITA ATAMA

input preintro.mp;

stylename:="Atama";

(0,4) transformed tsu_brush_xf = (4,0.77);
(1,1) transformed tsu_brush_xf = (1,0.73);
(4,0) transformed tsu_brush_xf = (0,0.77);

tsu_brush_min:=0.73;
tsu_brush_max:=0.77;

def tsu_brush_opt(expr n,l) =
  if rescale_slant>10: cut(n,rel 90)(l) fi enddef;
def sharp_corners = (rescale_slant>10) enddef;

input intro.mp;

let old_rescale_half = tsu_rescale_half;

def tsu_rescale_half =
  old_rescale_half;
  width_curve:=((-1,-1)--(100,100))..(480,330)..{right}(2000,440);
enddef;

let old_rescale_half_lc = tsu_rescale_half_lc;

def tsu_rescale_half_lc =
  old_rescale_half_lc;
  width_curve:=((-1,-1)--(100,100))..(610,330)..{right}(2000,420);
enddef;

include_late("tsuita-common.mp");

% overridden per-page later
rescale_slant:=190;
Something went wrong with that request. Please try again.