Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: 49b8f3c1bf
Fetching contributors…

Cannot retrieve contributors at this time

166 lines (141 sloc) 4.565 kB
%
% Unicode page 7C (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 gradeone.mp;
input gradesix.mp;
input gradethree.mp;
input gradetwo.mp;
input leftrad.mp;
input radical.mp;
input toprad.mp;
do_late_includes;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
vardef kanji.grtwo.answer =
push_pbox_toexpand("kanji.grtwo.answer");
build_kanji.level(build_kanji.tb(540,220)
(kanji.toprad.bamboo)
(kanji.grtwo.join));
expand_pbox;
enddef;
vardef kanji.grtwo.calculate =
push_pbox_toexpand("kanji.grtwo.calculate");
build_kanji.level(build_kanji.tb(560,170)
(kanji.toprad.bamboo)
(build_kanji.tb(360,20)
(kanji.grone.eye)
(kanji.radical.aitch)));
expand_pbox;
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
vardef kanji.grthree.box =
push_pbox_toexpand("kanji.grthree.box");
build_kanji.level(build_kanji.tb(520,190)
(kanji.toprad.bamboo)
(kanji.grthree.correlation));
expand_pbox;
enddef;
vardef kanji.grthree.flute =
push_pbox_toexpand("kanji.grthree.flute");
build_kanji.level(build_kanji.tb(460,220-40*mincho)
(kanji.toprad.bamboo)
(kanji.grthree.reason));
expand_pbox;
enddef;
vardef kanji.grthree.ordinal =
push_pbox_toexpand("kanji.grthree.ordinal");
build_kanji.level(build_kanji.tb(520,230)
(kanji.toprad.bamboo)
(kanji.grtwo.bow));
push_stroke((500,ypart point 0 of get_strokep(-3))--(500,-70),
(1.6,1.6)--(1.4,1.4));
replace_strokep(-1)((point 0 of oldp)--
((subpath (1,infinity) of oldp)
shifted (-820,0) xscaled 0.45 shifted (820,0)));
push_stroke(((get_strokep(0) intersectionpoint get_strokep(-1))+(-40,0))..
tension 1.2..(280,20)..(80,-60),
(1.6,1.6)--(1.4,1.4)--(0.9,0.9));
expand_pbox;
enddef;
vardef kanji.grthree.rank =
push_pbox_toexpand("kanji.grthree.rank");
build_kanji.level(build_kanji.tb(520,190)
(kanji.toprad.bamboo)
(kanji.grtwo.temple));
expand_pbox;
enddef;
vardef kanji.grthree.writing_brush =
push_pbox_toexpand("kanji.grthree.writing_brush");
build_kanji.level(build_kanji.tb(520,190)
(kanji.toprad.bamboo)
(kanji.radical.brush));
expand_pbox;
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% teki/fue "flute"
begintsuglyph("uni7B1B",27);
kanji.grthree.flute;
tsu_render;
endtsuglyph;
% dai "ordinal number"
begintsuglyph("uni7B2C",44);
kanji.grthree.ordinal;
tsu_render;
endtsuglyph;
% hitsu/fude "writing brush"
begintsuglyph("uni7B46",70);
kanji.grthree.writing_brush;
tsu_render;
endtsuglyph;
% tou/hito "rank"
begintsuglyph("uni7B49",73);
kanji.grthree.rank;
tsu_render;
endtsuglyph;
% tou/kota "answer"
begintsuglyph("uni7B54",84);
kanji.grtwo.answer;
tsu_render;
endtsuglyph;
% sen/soru "calculate"
begintsuglyph("uni7B97",151);
kanji.grtwo.calculate;
tsu_render;
endtsuglyph;
% sou/hako "box"
begintsuglyph("uni7BB1",177);
kanji.grthree.box;
tsu_render;
endtsuglyph;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
endfont;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Jump to Line
Something went wrong with that request. Please try again.