Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
165 lines (138 sloc) 4.02 KB
%
% Unicode page 72 (Kanji) for Tsukurimashou
% Copyright (C) 2011, 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
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginfont
% AUTODEPS
input buildkanji.mp;
input gradenine.mp;
input gradeone.mp;
input gradethree.mp;
input gradetwo.mp;
input radical.mp;
do_late_includes;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
vardef kanji.grthree.thing =
push_pbox_toexpand("kanji.grthree.thing");
build_kanji.lr(420,80)
(kanji.leftrad.cow)
(kanji.grnine.must_not);
expand_pbox;
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
vardef kanji.grnine.male =
push_pbox_toexpand("kanji.grnine.male");
build_kanji.lr(450,80)
(kanji.leftrad.cow)
(kanji.grone.earth);
expand_pbox;
enddef;
vardef kanji.grnine.moo =
push_pbox_toexpand("kanji.grnine.moo");
build_kanji.tb(510,0)
(kanji.radical.mu)
(kanji.grtwo.cow);
expand_pbox;
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
vardef kanji.leftrad.cow =
push_pbox_toexpand("kanji.leftrad.cow");
kanji.grtwo.cow;
replace_strokep(0)((140,200)..tension 1.2..(520,250)..(880-30*mincho,340));
replace_strokeq(0)((1.7,1.7)--(1.5,1.5)--(1,1));
set_boserif(0,1,whatever);
expand_pbox;
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% chichi "father"
begintsuglyph("uni7236",54);
kanji.grtwo.father;
tsu_render;
endtsuglyph;
% kyuu/ushi "cow"
begintsuglyph("uni725B",91);
kanji.grtwo.cow;
tsu_render;
endtsuglyph;
% naked cow radical
begintsuglyph("uni725C",92);
build_kanji.lr(450,20)(kanji.leftrad.cow)();
tsu_render;
endtsuglyph;
% extra "female"
begintsuglyph("uni725D",93);
build_kanji.lr(450,20)
(kanji.leftrad.cow)
(kanji.radical.spoon);
tsu_render;
endtsuglyph;
% extra
begintsuglyph("uni725E",94);
build_kanji.lr(450,20)
(kanji.leftrad.cow)
(kanji.grone.power);
tsu_render;
endtsuglyph;
% bou/mu "moo (cow sound)"
begintsuglyph("uni725F",95);
kanji.grnine.moo;
tsu_render;
endtsuglyph;
% extra
begintsuglyph("uni7260",96);
build_kanji.lr(450,20)
(kanji.leftrad.cow)
(kanji.grnine.to_be);
tsu_render;
endtsuglyph;
% bo/osu "male (animal)"
begintsuglyph("uni7261",97);
kanji.grnine.male;
tsu_render;
endtsuglyph;
% butsu/mono "thing"
begintsuglyph("uni7269",105);
kanji.grthree.thing;
tsu_render;
endtsuglyph;
% extra
begintsuglyph("uni726A",106);
build_kanji.lr(450,20)
(kanji.leftrad.cow)
(kanji.grtwo.cow);
tsu_render;
endtsuglyph;
% inu "dog"
begintsuglyph("uni72AC",172);
kanji.grone.dog;
tsu_render;
endtsuglyph;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
endfont;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Something went wrong with that request. Please try again.