Permalink
Browse files

four kanji using "wood" radical

  • Loading branch information...
1 parent 2ae1bdf commit d7571ebf871a3e21ad88185b6d011a5abf15f1a4 @mskala committed Aug 29, 2012
Showing with 64 additions and 0 deletions.
  1. +30 −0 mp/tsuku-67.mp
  2. +34 −0 mp/tsuku-68.mp
View
@@ -127,6 +127,24 @@ enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+vardef kanji.grfour.pine =
+ push_pbox_toexpand("kanji.grfour.pine");
+ build_kanji.lr(480,20)
+ (build_kanji.sscale(yscaled 1.07)(kanji.leftrad.wood))
+ (kanji.grtwo.public);
+ expand_pbox;
+enddef;
+
+vardef kanji.grfour.tip =
+ push_pbox_toexpand("kanji.grfour.tip");
+ kanji.grfour.not_yet;
+ replace_strokep(-3)((70,610)--(930,610));
+ replace_strokep(-4)((160,360)--(840,360));
+ expand_pbox;
+enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
% tsuki/getsu "moon"
begintsuglyph("uni6708",8);
kanji.grone.moon;
@@ -169,6 +187,12 @@ begintsuglyph("uni672A",42);
tsu_render;
endtsuglyph;
+% matsu/sue "tip"
+begintsuglyph("uni672B",43);
+ kanji.grfour.tip;
+ tsu_render;
+endtsuglyph;
+
% hon "book"
begintsuglyph("uni672C",44);
kanji.grone.book;
@@ -199,6 +223,12 @@ begintsuglyph("uni6771",113);
tsu_render;
endtsuglyph;
+% shou/matsu "pine"
+begintsuglyph("uni677E",126);
+ kanji.grfour.pine;
+ tsu_render;
+endtsuglyph;
+
% han/ita "plank"
begintsuglyph("uni677F",127);
kanji.grthree.plank;
View
@@ -35,9 +35,11 @@ beginfont
% AUTODEPS
input buildkanji.mp;
input gradeone.mp;
+input gradethree.mp;
input gradetwo.mp;
input leftrad.mp;
input radical.mp;
+input toprad.mp;
do_late_includes;
@@ -73,6 +75,32 @@ enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+vardef kanji.grfour.plan =
+ push_pbox_toexpand("kanji.grfour.plan");
+ build_kanji.tb(320,10)
+ (kanji.grthree.easy)
+ (kanji.grone.wood);
+ expand_pbox;
+enddef;
+
+vardef kanji.grfour.prosperity =
+ push_pbox_toexpand("kanji.grfour.prosperity");
+ build_kanji.tb(740,100)
+ (kanji.toprad.alt_sparkle_three)
+ (build_kanji.tb(580,180)
+ (kanji.radical.conservative_hat)
+ (kanji.grone.wood));
+ expand_pbox;
+enddef;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% ei/saka "prosperity"
+begintsuglyph("uni6804",4);
+ kanji.grfour.prosperity;
+ tsu_render;
+endtsuglyph;
+
% kou "school"
begintsuglyph("uni6821",33);
kanji.grone.school;
@@ -85,6 +113,12 @@ begintsuglyph("uni6839",57);
tsu_render;
endtsuglyph;
+% an/tsukue "plan"
+begintsuglyph("uni6848",52);
+ kanji.grfour.plan;
+ tsu_render;
+endtsuglyph;
+
% shin/mori "forest"
begintsuglyph("uni68EE",238);
kanji.grone.forest;

0 comments on commit d7571eb

Please sign in to comment.