summaryrefslogtreecommitdiff
path: root/fonts/iching/iching.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/iching/iching.mf')
-rw-r--r--fonts/iching/iching.mf1347
1 files changed, 1347 insertions, 0 deletions
diff --git a/fonts/iching/iching.mf b/fonts/iching/iching.mf
new file mode 100644
index 0000000000..654c6d9d83
--- /dev/null
+++ b/fonts/iching/iching.mf
@@ -0,0 +1,1347 @@
+% iching.mf
+% This font was designed by Alan M Stanier ( alan@essex.ac.uk ),
+% at Essex University Computer Service, Colchester, Essex CO4 3EA. England.
+%
+% If you make significant additions or improvements to the font,
+% please email me an updated version
+%
+%
+%
+mg:=6.0; % CHANGE THIS TO GET DIFFERENT SIZES OF FONT (font size = 10*mg pt)
+
+mode_setup;
+tracingtitles := 1;
+xbrushsize#:=mg*1pt;
+ybrushsize#:=mg*0.4pt;
+xsmallbrushsize#:=mg*0.8pt;
+ysmallbrushsize#:=mg*0.32pt;
+xtinybrushsize#:=mg*0.6pt;
+ytinybrushsize#:=mg*0.24pt;
+pensize#:=mg*0.4pt;
+thinpensize#:=mg*0.2pt;
+height#:=mg*20pt#;
+bigheight#:=mg*30pt#;
+fullwidth#:=mg*18pt#;
+narrowwidth#:=mg*10pt#;
+biggerwidth#:=mg*14pt#;
+thinwidth#:=mg*5pt#;
+define_pixels(height,bigheight,fullwidth,narrowwidth,thinwidth,biggerwidth);
+
+def getsquarepen = pickup pensquare scaled pensize# enddef;
+def getroundpen = pickup pencircle scaled pensize# enddef;
+def getthinpen = pickup pencircle scaled thinpensize# enddef;
+
+def pentriangle = makepen((-0.5,0.5) -- (0,-0.5) -- (0.5,0.5) .. cycle) enddef;
+
+def getbrush(expr a,b,c,d) =
+l := (c-a)++(d-b);
+if l <= 7: pickup pentriangle xscaled xtinybrushsize# yscaled ytinybrushsize# rotated angle(c-a,d-b)
+elseif l <= 14: pickup pentriangle xscaled xsmallbrushsize# yscaled ysmallbrushsize# rotated angle(c-a,d-b)
+else: pickup pentriangle xscaled xbrushsize# yscaled ybrushsize# rotated angle(c-a,d-b)
+fi
+enddef;
+
+def solid(expr n) = draw(0,mg*n) -- (mg*60,mg*n);
+ fill (mg*60,mg*n) .. (mg*55,mg*(n+5)) --
+ (mg*50,mg*n) -- (mg*60,mg*n) .. cycle;
+enddef;
+
+def broken(expr n) = draw(0,mg*n) -- (mg*25,mg*n);
+ fill (mg*25,mg*n) .. (mg*20,mg*(n+5)) --
+ (mg*15,mg*n) -- (mg*25,mg*n) .. cycle;
+ draw (mg*35,mg*n) -- (mg*60,mg*n);
+ fill (mg*60,mg*n) .. (mg*55,mg*(n+5)) --
+ (mg*50,mg*n) -- (mg*60,mg*n) .. cycle;
+enddef;
+
+def definechar(expr code,name,a,b,c,d,e,f) =
+ beginchar(code,fullwidth#,height#,0); name;
+ getsquarepen;
+ if a=1: solid(50) else: broken(50) fi;
+ if b=1: solid(40) else: broken(40) fi;
+ if c=1: solid(30) else: broken(30) fi;
+ if d=1: solid(20) else: broken(20) fi;
+ if e=1: solid(10) else: broken(10) fi;
+ if f=1: solid(0) else: broken(0) fi;
+ endchar;
+enddef;
+
+def brush(expr a,b,c,d) =
+getbrush(a,b,c,d);
+draw (mg*(a+5),mg*b) -- (mg*(c+5),mg*d)
+enddef;
+
+beginchar(0,fullwidth#,height#,0); "yin-yang";
+getroundpen;
+draw (mg*25,0){right} .. (mg*50,mg*25){up} .. (mg*25,mg*50){left} .. (0,mg*25){down} .. (mg*25,0){right} .. cycle;
+fill (mg*25,0){right} .. (mg*50,mg*25){up} .. (mg*25,mg*50){left} &
+ flex((mg*25,mg*50),(mg*37.5,mg*37.5),(mg*12.5,mg*12.5),(mg*25,0)) .. cycle;
+unfill (mg*25,mg*10){right} .. (mg*27.5,mg*12.5){up} .. (mg*25,mg*15){left} .. (mg*22.5,mg*12.5){down}
+ .. (mg*25,mg*10){right} .. cycle;
+fill (mg*25,mg*35){right} .. (mg*27.5,mg*37.5){up} .. (mg*25,mg*40){left} .. (mg*22.5,mg*37.5){down}
+ .. (mg*25,mg*35){right} .. cycle;
+endchar;
+%
+%
+% Hexagrams
+%
+definechar(1,"ch'ien",1,1,1,1,1,1);
+definechar(2,"k'un",0,0,0,0,0,0);
+definechar(3,"chun",0,1,0,0,0,1);
+definechar(4,"meng",1,0,0,0,1,0);
+definechar(5,"hsu",0,1,0,1,1,1);
+definechar(6,"sung",1,1,1,0,1,0);
+definechar(7,"shih",0,0,0,0,1,0);
+definechar(8,"pi",0,1,0,0,0,0);
+definechar(9,"hsiao ch'u",1,1,0,1,1,1);
+definechar(10,"li",1,1,1,0,1,1);
+definechar(11,"t'ai",0,0,0,1,1,1);
+definechar(12,"p'i",1,1,1,0,0,0);
+definechar(13,"t'ung jen",1,1,1,1,0,1);
+definechar(14,"ta yu",1,0,1,1,1,1);
+definechar(15,"ch'ien",0,0,0,1,0,0);
+definechar(16,"yu",0,0,1,0,0,0);
+definechar(17,"sui",0,1,1,0,0,1);
+definechar(18,"ku",1,0,0,1,1,0);
+definechar(19,"lin",0,0,0,0,1,0);
+definechar(20,"kuan",1,1,0,0,0,0);
+definechar(21,"shih ho",1,0,1,0,0,1);
+definechar(22,"pi",1,0,0,1,0,1);
+definechar(23,"po",1,0,0,0,0,0);
+definechar(24,"fu",0,0,0,0,0,1);
+definechar(25,"wu wang",1,1,1,0,0,1);
+definechar(26,"ta ch'u",1,0,0,1,1,1);
+definechar(27,"i",1,0,0,0,0,1);
+definechar(28,"ta kuo",0,1,1,1,1,0);
+definechar(29,"k'an",0,1,0,0,1,0);
+definechar(30,"li",1,0,1,1,0,1);
+definechar(31,"hsien",0,1,1,1,0,0);
+definechar(32,"heng",0,0,1,1,1,0);
+definechar(33,"tun",1,1,1,1,0,0);
+definechar(34,"ta chuang",0,0,1,1,1,1);
+definechar(35,"chin",1,0,1,0,0,0);
+definechar(36,"ming i",0,0,0,1,0,1);
+definechar(37,"chia jen",1,1,0,1,0,1);
+definechar(38,"k'uei",1,0,1,0,1,1);
+definechar(39,"chien",0,1,0,1,0,0);
+definechar(40,"hsieh",0,0,1,0,1,0);
+definechar(41,"sun",1,0,0,0,1,1);
+definechar(42,"i",1,1,0,0,0,1);
+definechar(43,"kuai",0,1,1,1,1,1);
+definechar(44,"kou",1,1,1,1,1,0);
+definechar(45,"ts'ui",0,1,1,0,0,0);
+definechar(46,"sheng",0,0,0,1,1,0);
+definechar(47,"k'un",0,1,1,0,1,0);
+definechar(48,"ching",0,1,0,1,1,0);
+definechar(49,"ko",0,1,1,1,0,1);
+definechar(50,"ting",1,0,1,1,1,0);
+definechar(51,"chen",0,0,1,0,0,1);
+definechar(52,"ken",1,0,0,1,0,0);
+definechar(53,"chien",1,1,0,1,0,0);
+definechar(54,"kuei mei",0,0,1,0,1,1);
+definechar(55,"feng",0,0,1,1,0,1);
+definechar(56,"lu",1,0,1,1,0,0);
+definechar(57,"sun",1,1,0,1,1,0);
+definechar(58,"tui",0,1,1,0,1,1);
+definechar(59,"huan",1,1,0,0,1,0);
+definechar(60,"chieh",0,1,0,0,1,1);
+definechar(61,"chung fu",1,1,0,0,1,1);
+definechar(62,"hsiao kuo",0,0,1,1,0,0);
+definechar(63,"chi chi",0,1,0,1,0,1);
+definechar(64,"wei chi",1,0,1,0,1,0);
+%
+%
+%
+% Chinese characters
+%
+beginchar(65,narrowwidth#,height#,0);"ch'ien";
+brush(15,45,12,27);
+brush(8,32,21,37);
+brush(9,26,21,32);
+brush(8,28,9,18);
+brush(9,18,12,17);
+brush(12,17,18,20);
+brush(18,20,21,32);
+brush(9,18,18,25);
+brush(13,17,15,0);
+brush(0,7,20,17);
+brush(27,40,23,22);
+brush(25,28,35,33);
+brush(20,20,32,27);
+brush(32,27,22,5);
+brush(22,5,37,5);
+brush(37,5,37,14);
+endchar;
+beginchar(66,narrowwidth#,height#,0);"k'un";
+brush(0,27,13,32);
+brush(1,15,16,27);
+brush(8,40,10,22);
+brush(15,30,18,20);
+brush(22,44,24,0);
+brush(20,28,30,34);
+brush(20,23,30,28);
+brush(20,18,30,22);
+brush(30,22,30,34);
+endchar;
+beginchar(67,narrowwidth#,height#,0);"chun";
+brush(0,27,19,33);
+brush(25,0,25,15);
+brush(0,12,4,20);
+brush(0,12,18,22);
+brush(12,14,17,25);
+getbrush(15,40,30,0);
+draw (mg*15,mg*40){down} .. (mg*15,mg*10) .. (mg*30,0);
+endchar;
+beginchar(68,narrowwidth#,height#,0);"meng";
+brush(10,32,11,40);
+brush(16,32,18,40);
+brush(8,33,21,35);
+brush(4,27,24,30);
+brush(0,20,3,30);
+brush(10,22,20,24);
+brush(20,24,24,30);
+brush(5,19,15,20);
+brush(4,11,15,20);
+brush(5,8,12,12);
+brush(7,7,15,0);
+brush(15,0,16,10);
+brush(6,1,21,17);
+brush(12,17,28,2);
+endchar;
+beginchar(69,narrowwidth#,height#,0);"hsu";
+brush(0,20,2,31);
+brush(4,0,5,13);
+brush(3,27,25,35);
+brush(25,35,22,26);
+brush(8,39,22,42);
+brush(12,20,15,40);
+brush(6,20,10,26);
+brush(10,26,6,29);
+brush(13,25,21,28);
+brush(21,28,18,31);
+brush(7,18,19,21);
+brush(6,12,15,19);
+brush(6,12,23,20);
+brush(23,20,20,2);
+brush(22,0,15,5);
+brush(15,5,17,17);
+brush(11,5,12,14);
+endchar;
+beginchar(70,narrowwidth#,height#,0);"sung";
+brush(11,34,13,30);
+brush(0,22,19,28);
+brush(5,19,14,21);
+brush(5,15,13,17);
+brush(1,10,10,0);
+brush(7,6,15,10);
+brush(10,0,20,7);
+brush(20,7,25,17);
+brush(20,4,24,7);
+brush(17,17,21,21);
+brush(21,21,19,25);
+brush(25,11,31,5);
+brush(23,26,32,20);
+brush(15,10,17,5);
+endchar;
+beginchar(71,narrowwidth#,height#,0);"shih";
+brush(0,28,10,39);
+brush(6,30,7,13);
+brush(8,19,13,21);
+brush(13,21,10,13);
+brush(10,13,15,16);
+brush(7,20,12,32);
+brush(11,30,6,29);
+brush(10,25,6,22);
+brush(16,22,18,13);
+brush(17,19,28,23);
+brush(20,27,22,0);
+brush(20,27,27,30);
+brush(21,12,25,10);
+brush(28,22,25,10);
+endchar;
+beginchar(72,narrowwidth#,height#,0);"pi";
+brush(0,7,0,21);
+brush(0,7,10,12);
+brush(0,15,8,20);
+brush(33,4,32,10);
+brush(12,12,27,22);
+getbrush(22,30,38,4);
+draw (22*mg,30*mg){down} .. (25*mg,5*mg) .. (38*mg,4*mg){right};
+endchar;
+beginchar(73,narrowwidth#,bigheight#,0);"hsiao ch'u";
+brush(0,46,7,55);
+brush(10,52,17,48);
+brush(17,48,13,66);
+brush(27,55,30,50);
+brush(3,22,23,28);
+brush(11,31,18,27);
+brush(17,26,11,18);
+brush(20,13,11,12);
+brush(11,18,20,18);
+brush(20,18,21,12);
+brush(10,11,20,20);
+brush(6,10,8,0);
+brush(8,0,20,1);
+brush(20,1,22,10);
+brush(22,10,8,8);
+brush(15,1,13,9);
+brush(8,4,21,5);
+endchar;
+beginchar(74,narrowwidth#,height#,0);"li";
+brush(0,5,8,20);
+brush(8,20,9,30);
+brush(8,20,13,23);
+brush(10,3,11,12);
+brush(7,12,17,20);
+brush(17,20,19,27);
+brush(11,28,23,30);
+brush(11,35,27,35);
+brush(21,29,23,34);
+brush(20,26,20,12);
+brush(20,25,26,28);
+brush(20,22,26,23);
+brush(20,18,25,20);
+brush(20,16,25,18);
+brush(20,12,24,14);
+brush(17,7,20,12);
+brush(20,12,35,0);
+brush(19,3,22,7);
+brush(22,7,26,23);
+endchar;
+beginchar(75,narrowwidth#,height#,0);"t'ai";
+brush(1,8,13,20);
+brush(13,20,18,40);
+brush(0,18,27,20);
+brush(10,25,20,27);
+brush(9,30,20,31);
+brush(19,20,30,12);
+brush(7,1,15,9);
+brush(10,3,16,0);
+brush(9,10,12,9);
+brush(15,15,17,2);
+brush(18,8,21,12);
+brush(18,8,28,2);
+endchar;
+beginchar(76,narrowwidth#,height#,0);"p'i";
+brush(0,28,25,32);
+brush(3,17,18,30);
+brush(16,30,17,15);
+brush(20,25,25,21);
+brush(7,10,10,0);
+brush(10,0,22,3);
+brush(20,0,26,12);
+brush(8,7,25,11);
+endchar;
+beginchar(77,narrowwidth#,bigheight#,0);"t'ung jen";
+brush(0,4,20,26);
+brush(10,13,30,0);
+brush(6,40,9,58);
+brush(8,55,29,60);
+brush(30,60,27,35);
+brush(28,36,20,37);
+brush(10,45,12,39);
+brush(10,49,22,52);
+brush(12,43,22,47);
+brush(22,47,18,40);
+brush(13,40,21,41);
+endchar;
+beginchar(78,narrowwidth#,bigheight#,0);"ta yu";
+brush(8,52,23,81);
+brush(10,68,30,70);
+brush(18,68,36,52);
+brush(0,11,23,37);
+brush(6,28,27,31);
+brush(17,26,18,3);
+brush(17,21,23,22);
+brush(18,17,23,18);
+brush(19,10,22,11);
+brush(23,22,24,0);
+brush(24,0,20,0);
+endchar;
+beginchar(79,narrowwidth#,height#,0);"ch'ien";
+brush(10,29,13,31);
+brush(13,31,9,33);
+brush(0,22,17,27);
+brush(4,17,10,20);
+brush(6,13,11,15);
+brush(0,10,5,0);
+brush(5,0,10,3);
+brush(10,3,12,10);
+brush(12,10,3,6);
+brush(20,30,22,28);
+brush(23,26,30,32);
+brush(20,22,26,23);
+brush(21,22,21,0);
+brush(11,2,20,8);
+brush(20,10,32,4);
+brush(19,18,30,21);
+brush(19,17,29,19);
+brush(20,12,29,16);
+brush(29,16,30,21);
+brush(25,23,26,2);
+endchar;
+beginchar(80,narrowwidth#,height#,0);"yu";
+brush(0,13,14,19);
+brush(14,19,9,22);
+brush(10,22,15,28);
+brush(17,29,5,25);
+brush(7,3,11,0);
+brush(11,0,10,16);
+brush(21,26,24,33);
+brush(23,29,27,30);
+brush(27,30,25,27);
+brush(18,23,20,18);
+brush(21,27,23,21);
+brush(21,20,26,20);
+brush(26,20,30,24);
+brush(30,24,22,22);
+brush(19,15,24,18);
+brush(18,12,25,17);
+brush(19,9,23,12);
+brush(18,0,26,10);
+brush(27,11,30,14);
+brush(24,14,28,2);
+brush(28,2,23,2);
+brush(27,10,40,6);
+endchar;
+beginchar(81,narrowwidth#,height#,0);"sui";
+brush(0,28,3,2);
+brush(0,33,12,38);
+brush(1,23,8,20);
+brush(13,23,21,40);
+brush(16,33,25,37);
+brush(18,30,27,33);
+brush(22,31,22,26);
+brush(17,22,27,28);
+brush(9,18,18,20);
+brush(19,6,20,20);
+brush(20,20,25,22);
+brush(25,22,26,8);
+brush(26,8,23,10);
+brush(20,16,26,19);
+brush(20,13,26,15);
+brush(12,16,12,4);
+getbrush(15,3,40,3);
+draw flex((15*mg,3*mg),(22*mg,5*mg),(32*mg,0),(40*mg,3*mg));
+getbrush(12,20,13,33);
+draw (12*mg,20*mg){-1,2} .. (13*mg,33*mg){1,2};
+endchar;
+beginchar(82,narrowwidth#,height#,0);"ku";
+brush(13,42,18,37);
+brush(15,36,23,38);
+brush(23,38,30,47);
+brush(15,40,28,45);
+brush(21,48,20,33);
+brush(13,32,28,35);
+brush(2,26,8,20);
+brush(8,20,15,22);
+brush(15,20,17,30);
+brush(4,25,15,27);
+brush(10,30,10,20);
+brush(3,15,14,20);
+brush(14,20,17,18);
+brush(17,18,30,20);
+brush(27,20,27,34);
+brush(20,28,23,24);
+brush(23,24,30,27);
+brush(30,27,32,31);
+brush(32,31,20,28);
+brush(31,23,34,20);
+brush(0,0,33,7);
+brush(8,11,30,18);
+brush(8,11,11,3);
+brush(18,12,20,5);
+brush(23,14,22,6);
+brush(30,18,28,6);
+endchar;
+beginchar(83,narrowwidth#,height#,0);"lin";
+brush(1,6,1,20);
+brush(1,22,13,27);
+brush(1,16,10,20);
+brush(10,20,10,26);
+brush(1,12,13,16);
+brush(8,7,13,13);
+brush(7,10,13,23);
+brush(0,1,25,11);
+brush(15,0,17,12);
+brush(20,3,22,10);
+brush(20,18,26,19);
+brush(20,18,19,21);
+brush(27,19,30,24);
+brush(20,20,30,24);
+brush(20,25,21,35);
+brush(20,29,30,32);
+brush(25,25,27,31);
+brush(29,5,28,13);
+brush(29,5,37,6);
+brush(35,6,37,14);
+brush(28,12,37,14);
+brush(20,3,25,5);
+endchar;
+beginchar(84,narrowwidth#,height#,0);"kuan";
+brush(0,32,15,37);
+brush(5,29,5,38);
+brush(9,32,10,41);
+brush(0,28,7,29);
+brush(0,28,3,20);
+brush(2,24,11,31);
+brush(4,17,6,29);
+brush(0,11,13,26);
+brush(12,24,12,31);
+brush(11,15,8,29);
+brush(11,15,10,3);
+brush(5,0,6,15);
+brush(6,14,13,20);
+brush(7,1,12,6);
+brush(7,7,12,12);
+brush(8,11,22,22);
+brush(12,10,22,12);
+brush(12,0,22,12);
+brush(17,11,16,23);
+brush(18,23,22,27);
+brush(20,30,24,33);
+brush(24,33,24,2);
+brush(24,2,35,0);
+brush(35,0,32,12);
+endchar;
+beginchar(85,narrowwidth#,bigheight#,0);"shih ho";
+brush(9,0,35,3);
+brush(19,1,15,10);
+brush(22,2,20,11);
+brush(25,2,27,12);
+brush(28,3,33,13);
+brush(15,10,30,12);
+brush(20,12,28,18);
+brush(18,13,27,20);
+brush(27,20,32,17);
+brush(24,19,25,37);
+brush(18,20,30,22);
+brush(20,29,30,31);
+brush(0,14,0,24);
+brush(0,20,11,23);
+brush(11,23,6,11);
+brush(6,11,13,17);
+brush(5,60,3,70);
+brush(4,65,15,72);
+brush(13,71,10,60);
+brush(15,50,40,51);
+brush(27,50,28,68);
+brush(22,67,34,69);
+brush(20,58,27,65);
+brush(23,62,27,60);
+brush(27,60,32,67);
+brush(30,63,35,57);
+brush(21,70,22,80);
+brush(21,73,28,73);
+brush(22,77,30,80);
+brush(32,70,34,80);
+brush(33,75,40,78);
+brush(34,76,38,70);
+endchar;
+beginchar(86,narrowwidth#,height#,0);"pi";
+brush(1,5,15,10);
+brush(15,10,9,0);
+brush(14,8,27,3);
+brush(9,10,10,20);
+brush(10,20,20,22);
+brush(8,12,19,15);
+brush(9,15,19,19);
+brush(19,21,20,10);
+brush(10,20,8,30);
+brush(0,25,25,30);
+brush(16,21,20,30);
+brush(15,30,15,40);
+brush(8,34,20,37);
+endchar;
+beginchar(87,narrowwidth#,height#,0);"po";
+brush(0,25,10,32);
+brush(0,25,13,25);
+brush(10,29,13,26);
+brush(13,26,7,20);
+brush(0,16,12,20);
+brush(8,21,8,7);
+brush(8,6,6,8);
+brush(0,7,18,20);
+brush(18,20,19,15);
+brush(2,15,14,10);
+brush(19,7,26,0);
+brush(26,0,23,30);
+endchar;
+beginchar(88,narrowwidth#,height#,0);"fu";
+brush(0,12,10,22);
+brush(0,20,10,30);
+brush(8,4,8,17);
+brush(19,33,16,28);
+brush(16,29,30,33);
+brush(20,15,20,27);
+brush(20,26,27,29);
+brush(20,20,26,23);
+brush(20,16,26,19);
+brush(26,19,27,29);
+brush(16,4,24,16);
+brush(22,12,28,13);
+brush(22,12,30,0);
+brush(27,0,37,0);
+brush(19,2,29,15);
+endchar;
+beginchar(89,narrowwidth#,bigheight#,0);"wu wang";
+brush(13,58,28,78);
+brush(20,82,32,85);
+brush(15,70,35,75);
+brush(40,55,42,65);
+brush(0,10,36,12);
+brush(20,12,18,8);
+brush(18,8,32,2);
+brush(8,22,32,27);
+brush(18,25,19,17);
+brush(19,17,35,19);
+brush(21,34,25,30);
+getbrush(17,0,30,11);
+draw (17*mg,0){right} .. (30*mg,11*mg){up};
+getbrush(32,72,45,55);
+draw (32*mg,72*mg){down} .. (35*mg,55*mg) .. (45*mg,55*mg);
+endchar;
+beginchar(90,narrowwidth#,bigheight#,0);"ta ch'u";
+brush(3,70,21,77);
+brush(12,70,32,59);
+brush(17,42,21,38);
+brush(0,27,30,36);
+brush(21,32,10,22);
+brush(9,20,22,23);
+brush(22,23,10,15);
+brush(10,15,30,20);
+brush(24,18,20,22);
+brush(9,10,13,0);
+brush(13,0,26,3);
+brush(25,0,29,13);
+brush(10,9,28,12);
+brush(11,3,23,8);
+brush(20,2,20,11);
+getbrush(5,57,14,88);
+draw (5*mg,57*mg){1,1} .. (17*mg,70*mg) .. (14*mg,88*mg){up};
+endchar;
+beginchar(91,narrowwidth#,height#,0);"i";
+brush(0,27,16,31);
+brush(10,29,7,22);
+brush(0,20,14,23);
+brush(0,5,1,20);
+brush(0,5,11,11);
+brush(1,15,10,17);
+brush(5,20,7,17);
+brush(7,17,12,23);
+brush(9,7,23,11);
+brush(23,11,17,3);
+brush(22,8,34,0);
+brush(18,9,18,22);
+brush(18,22,30,24);
+brush(30,24,27,6);
+brush(18,13,24,15);
+brush(18,17,25,19);
+brush(23,21,25,29);
+brush(19,29,30,31);
+brush(7,9,8,16);
+endchar;
+beginchar(92,narrowwidth#,bigheight#,0);"ta kuo";
+getbrush(5,43,24,77);
+draw flex((5*mg,43*mg),(22*mg,50*mg),(24*mg,77*mg));
+brush(6,60,30,64);
+brush(17,50,33,45);
+brush(0,0,36,3);
+brush(10,20,5,21);
+brush(5,13,10,12);
+brush(10,12,8,1);
+brush(15,17,18,7);
+brush(30,3,30,20);
+brush(30,18,18,13);
+brush(21,6,21,10);
+brush(21,10,25,12);
+brush(25,12,27,9);
+brush(27,9,21,6);
+brush(23,17,24,22);
+brush(20,19,28,23);
+brush(28,21,29,31);
+brush(29,31,20,24);
+brush(20,19,18,30);
+endchar;
+beginchar(93,narrowwidth#,height#,0);"k'an";
+brush(0,10,18,22);
+brush(7,16,8,32);
+brush(1,19,13,24);
+brush(18,21,20,33);
+brush(18,23,29,25);
+brush(29,25,22,19);
+brush(20,20,10,3);
+brush(19,12,36,0);
+endchar;
+beginchar(94,biggerwidth#,height#,0);"li";
+brush(0,5,21,17);
+brush(21,16,20,0);
+brush(20,1,18,2);
+brush(8,12,9,5);
+brush(15,16,14,6);
+brush(13,6,18,10);
+brush(18,10,15,12);
+brush(10,18,9,24);
+brush(10,18,19,22);
+brush(20,22,21,30);
+brush(10,22,20,32);
+brush(19,24,7,30);
+brush(7,30,23,34);
+brush(19,32,16,41);
+brush(22,22,29,37);
+brush(26,0,26,25);
+brush(33,7,33,24);
+brush(29,6,45,7);
+brush(29,12,39,14);
+brush(29,19,40,20);
+brush(29,22,41,27);
+brush(38,25,35,32);
+endchar;
+beginchar(95,narrowwidth#,height#,0);"hsien";
+brush(0,6,4,22);
+brush(2,17,15,23);
+brush(8,16,11,4);
+brush(8,15,16,17);
+brush(16,17,10,9);
+brush(13,10,25,23);
+brush(26,15,27,0);
+brush(27,0,15,44);
+brush(5,28,27,32);
+brush(28,35,26,41);
+endchar;
+beginchar(96,narrowwidth#,height#,0);"heng";
+brush(0,12,0,24);
+brush(0,13,10,21);
+brush(8,0,8,36);
+brush(12,4,37,9);
+brush(24,7,34,30);
+brush(27,13,18,11);
+brush(18,11,27,35);
+brush(18,30,30,37);
+brush(20,20,28,18);
+brush(22,23,32,29);
+endchar;
+beginchar(97,narrowwidth#,height#,0);"tun";
+brush(0,4,36,0);
+brush(0,4,4,15);
+brush(4,15,0,16);
+brush(0,28,8,19);
+brush(7,8,15,32);
+brush(12,12,17,8);
+brush(17,8,20,34);
+brush(12,20,18,22);
+brush(13,25,19,25);
+brush(18,10,28,18);
+brush(20,17,29,22);
+brush(22,24,31,31);
+brush(22,30,31,32);
+brush(29,22,25,24);
+brush(29,22,29,4);
+brush(29,4,25,10);
+brush(29,17,34,12);
+brush(29,17,37,25);
+endchar;
+beginchar(98,narrowwidth#,bigheight#,0);"ta chuang";
+brush(0,47,15,63);
+brush(15,63,20,77);
+brush(5,61,25,67);
+brush(15,63,31,49);
+brush(0,10,13,17);
+brush(3,2,10,15);
+brush(15,0,12,35);
+brush(7,31,5,18);
+brush(5,18,10,21);
+brush(19,19,34,22);
+brush(21,5,34,9);
+brush(28,8,26,31);
+endchar;
+beginchar(99,narrowwidth#,height#,0);"chin";
+brush(0,20,35,25);
+brush(17,0,15,19);
+brush(25,5,26,20);
+brush(26,20,17,16);
+brush(25,14,17,10);
+brush(25,10,17,5);
+brush(8,37,28,40);
+brush(18,37,10,28);
+brush(10,28,20,32);
+brush(18,34,21,29);
+brush(22,30,26,37);
+brush(26,37,29,32);
+brush(24,29,30,32);
+endchar;
+beginchar(100,narrowwidth#,bigheight#,0);"ming i";
+getbrush(5,0,23,45);
+draw flex((5*mg,0),(20*mg,20*mg),(23*mg,45*mg));
+getbrush(17,55,30,84);
+draw flex((17*mg,55*mg),(25*mg,63*mg),(30*mg,84*mg));
+brush(11,17,32,0);
+brush(4,14,8,20);
+brush(5,15,31,22);
+brush(31,22,27,10);
+brush(27,10,23,13);
+brush(6,20,21,25);
+brush(20,24,27,32);
+brush(27,32,9,29);
+brush(5,33,28,40);
+brush(6,60,4,78);
+brush(15,63,17,79);
+brush(7,62,14,65);
+brush(7,66,15,70);
+brush(6,70,15,77);
+brush(22,68,31,70);
+brush(24,72,31,76);
+brush(27,62,31,59);
+brush(31,59,31,87);
+brush(28,85,33,88);
+endchar;
+beginchar(101,narrowwidth#,bigheight#,0);"chia jen";
+brush(0,0,12,12);
+brush(12,12,20,29);
+brush(12,12,32,0);
+brush(5,60,7,68);
+brush(15,79,20,72);
+brush(8,66,30,70);
+brush(26,72,30,68);
+brush(10,62,20,64);
+brush(20,64,10,57);
+brush(10,49,22,58);
+brush(8,40,28,60);
+brush(10,46,20,42);
+brush(22,50,36,46);
+getbrush(25,42,22,60);
+draw flex((mg*25,mg*42),(mg*27,mg*50),(mg*22,mg*60));
+endchar;
+beginchar(102,biggerwidth#,height#,0);"k'uei";
+brush(0,9,0,27);
+brush(0,9,2,11);
+brush(0,15,9,18);
+brush(0,18,9,20);
+brush(8,10,10,29);
+brush(10,16,22,30);
+brush(15,30,25,30);
+brush(12,27,17,23);
+brush(10,10,22,14);
+brush(15,16,24,18);
+brush(19,0,20,18);
+brush(20,10,30,0);
+brush(25,26,30,30);
+brush(30,25,25,20);
+brush(25,20,33,15);
+brush(33,15,40,17);
+brush(10,29,4,27);
+endchar;
+beginchar(103,narrowwidth#,height#,0);"chien";
+brush(19,42,19,48);
+brush(4,29,5,36);
+brush(5,34,25,41);
+brush(10,31,22,35);
+brush(22,35,29,40);
+brush(10,28,22,31);
+brush(15,25,12,36);
+brush(18,26,18,36);
+brush(0,22,25,27);
+brush(0,6,16,22);
+brush(9,0,13,10);
+brush(8,5,27,0);
+brush(27,0,33,0);
+brush(18,5,18,14);
+brush(13,10,11,18);
+brush(12,13,24,20);
+brush(24,20,12,17);
+brush(20,22,32,18);
+brush(18,11,23,13);
+endchar;
+beginchar(104,narrowwidth#,height#,0);"hsieh";
+brush(25,27,27,0);
+brush(25,30,29,38);
+brush(29,38,18,33);
+brush(20,29,22,35);
+brush(18,21,26,27);
+brush(20,17,19,21);
+brush(15,15,29,20);
+brush(15,8,15,28);
+brush(11,10,15,8);
+brush(0,5,5,23);
+brush(5,10,10,15);
+brush(10,15,10,25);
+brush(6,16,15,22);
+brush(5,21,15,28);
+brush(3,29,10,41);
+brush(5,33,12,36);
+brush(12,36,7,28);
+endchar;
+beginchar(105,narrowwidth#,height#,0);"sun";
+brush(0,11,12,28);
+brush(1,27,12,32);
+brush(8,16,12,9);
+brush(12,9,10,39);
+brush(15,0,26,15);
+brush(28,13,36,7);
+brush(26,15,20,12);
+brush(28,13,30,34);
+brush(20,12,20,30);
+brush(20,30,30,34);
+brush(20,19,30,23);
+brush(20,22,30,27);
+brush(20,42,22,37);
+brush(22,37,32,39);
+brush(22,37,32,45);
+brush(32,45,21,40);
+endchar;
+beginchar(106,narrowwidth#,height#,0);"i";
+brush(0,0,35,7);
+brush(15,4,12,12);
+brush(12,12,30,17);
+brush(30,17,29,8);
+brush(19,13,21,5);
+brush(21,5,25,15);
+brush(10,17,20,27);
+brush(25,27,30,21);
+brush(7,27,35,31);
+brush(18,30,15,37);
+brush(23,32,30,41);
+endchar;
+beginchar(107,narrowwidth#,height#,0);"kuai";
+brush(0,12,30,22);
+brush(22,20,26,30);
+brush(26,30,10,16);
+brush(20,15,32,8);
+getbrush(8,0,15,40);
+draw flex ((8*mg,0),(17*mg,19*mg),(15*mg,40*mg));
+endchar;
+beginchar(108,narrowwidth#,height#,0);"kou";
+brush(15,3,20,20);
+brush(20,20,26,31);
+brush(20,15,30,20);
+brush(15,3,22,12);
+brush(22,12,25,0);
+brush(25,0,33,3);
+brush(27,2,32,12);
+brush(32,12,23,8);
+brush(8,13,15,5);
+brush(5,10,10,17);
+brush(10,17,10,33);
+brush(0,16,15,20);
+getbrush(14,20,6,3);
+draw flex((14*mg,20*mg),(11*mg,5*mg),(6*mg,3*mg));
+endchar;
+beginchar(109,narrowwidth#,height#,0);"ts'ui";
+brush(16,46,18,38);
+brush(12,41,17,42);
+brush(26,50,22,38);
+brush(20,42,27,44);
+brush(20,38,23,35);
+brush(23,35,10,32);
+brush(9,23,17,33);
+brush(15,30,20,27);
+brush(20,26,24,32);
+brush(22,28,27,22);
+brush(0,15,31,17);
+brush(20,0,19,21);
+endchar;
+beginchar(110,narrowwidth#,height#,0);"sheng";
+brush(20,0,21,40);
+brush(0,18,27,27);
+brush(6,10,13,21);
+brush(13,21,12,24);
+brush(7,24,16,32);
+endchar;
+beginchar(111,narrowwidth#,height#,0);"k'un";
+brush(0,30,1,5);
+brush(9,34,36,45);
+brush(36,45,35,0);
+brush(35,0,25,8);
+brush(27,10,10,3);
+brush(20,8,18,33);
+brush(7,22,23,32);
+brush(10,13,20,22);
+brush(20,22,25,18);
+endchar;
+beginchar(112,narrowwidth#,height#,0);"ching";
+brush(20,0,23,63);
+brush(0,28,35,40);
+brush(5,44,30,50);
+getbrush(10,20,15,53);
+draw (mg*10,mg*20){right} .. (mg*14,mg*30) .. (mg*15,mg*53){up};
+endchar;
+beginchar(113,narrowwidth#,height#,0);"ko";
+brush(0,10,35,18);
+brush(22,0,21,32);
+brush(11,18,28,26);
+brush(8,25,15,20);
+brush(11,21,28,30);
+brush(20,30,16,41);
+brush(19,31,25,33);
+brush(25,37,27,43);
+brush(8,35,35,41);
+endchar;
+beginchar(114,narrowwidth#,height#,0);"ting";
+brush(6,0,8,10);
+brush(0,6,12,12);
+brush(8,15,9,25);
+brush(8,17,19,21);
+brush(17,20,17,5);
+brush(21,24,22,4);
+brush(22,12,31,18);
+brush(29,16,31,0);
+brush(21,20,30,23);
+brush(30,23,30,31);
+brush(15,38,16,25);
+brush(16,25,24,30);
+brush(24,30,25,42);
+brush(20,40,27,43);
+brush(17,29,24,33);
+brush(17,33,24,37);
+endchar;
+beginchar(115,narrowwidth#,height#,0);"chen";
+brush(10,41,27,46);
+brush(0,23,7,33);
+brush(6,31,30,39);
+brush(17,25,17,41);
+brush(8,22,12,28);
+brush(12,28,10,30);
+brush(22,32,18,28);
+brush(18,28,22,27);
+brush(23,30,31,37);
+brush(0,1,10,20);
+brush(7,19,22,22);
+brush(9,18,19,20);
+brush(6,12,17,16);
+brush(10,0,10,13);
+brush(10,13,30,6);
+brush(10,2,23,14);
+endchar;
+beginchar(116,narrowwidth#,height#,0);"ken";
+brush(0,0,11,11);
+brush(4,7,4,30);
+brush(4,19,30,4);
+brush(15,16,25,25);
+brush(5,19,23,27);
+brush(23,27,20,42);
+brush(20,40,4,35);
+brush(4,26,18,33);
+endchar;
+beginchar(117,narrowwidth#,height#,0);"chien";
+brush(0,25,3,12);
+brush(3,12,10,36);
+brush(0,39,6,37);
+brush(7,47,10,43);
+brush(19,49,20,10);
+brush(12,41,22,47);
+brush(9,19,37,32);
+brush(28,30,26,32);
+brush(26,32,36,41);
+brush(36,31,35,0);
+brush(25,15,28,28);
+brush(12,36,13,27);
+brush(13,27,23,30);
+brush(23,30,24,37);
+brush(12,30,22,33);
+brush(12,33,22,37);
+endchar;
+beginchar(118,biggerwidth#,bigheight#,0);"kuei mei";
+brush(0,30,2,28);
+brush(2,28,17,30);
+brush(7,22,18,10);
+brush(10,0,26,20);
+brush(25,13,27,6);
+brush(27,6,26,44);
+brush(27,18,44,10);
+brush(20,21,34,30);
+brush(22,30,30,35);
+brush(7,22,13,38);
+brush(3,13,10,19);
+brush(10,19,17,30);
+brush(0,59,11,64);
+brush(6,60,10,90);
+brush(1,80,15,95);
+brush(9,84,20,86);
+brush(20,86,9,77);
+brush(9,77,20,77);
+brush(20,77,8,70);
+brush(6,65,12,69);
+brush(20,61,20,73);
+brush(20,77,34,80);
+brush(25,50,27,71);
+brush(20,64,37,71);
+brush(37,71,28,60);
+brush(28,70,35,79);
+brush(25,82,32,86);
+brush(24,85,32,90);
+brush(25,90,32,93);
+brush(32,93,32,86);
+endchar;
+beginchar(119,narrowwidth#,height#,0);"feng";
+brush(0,29,5,19);
+brush(5,19,25,27);
+brush(24,26,28,32);
+brush(28,32,19,29);
+brush(22,25,22,40);
+brush(18,23,17,42);
+brush(9,20,9,40);
+brush(5,22,15,30);
+brush(7,29,12,32);
+brush(8,35,14,38);
+brush(18,32,25,35);
+brush(18,35,25,38);
+brush(18,38,25,41);
+brush(10,19,20,21);
+brush(10,10,9,15);
+brush(10,12,22,18);
+brush(22,18,18,12);
+brush(18,12,22,12);
+brush(22,12,18,5);
+brush(9,7,16,7);
+brush(3,0,28,4);
+endchar;
+beginchar(120,biggerwidth#,height#,0);"lu";
+brush(1,2,15,23);
+brush(0,15,15,23);
+brush(15,23,8,30);
+brush(10,18,12,2);
+brush(12,2,10,4);
+brush(16,20,22,31);
+brush(18,25,30,32);
+brush(18,2,20,20);
+brush(20,20,30,26);
+brush(20,18,30,22);
+brush(25,0,25,20);
+brush(27,2,34,19);
+brush(28,15,44,3);
+endchar;
+beginchar(121,narrowwidth#,height#,0);"sun";
+brush(10,38,20,40);
+brush(20,40,19,35);
+brush(20,35,11,32);
+brush(11,33,12,28);
+brush(12,28,20,30);
+brush(27,40,32,40);
+brush(32,40,28,34);
+brush(28,34,25,34);
+brush(25,34,25,28);
+brush(25,28,30,28);
+brush(18,16,20,24);
+brush(25,16,27,24);
+brush(15,20,28,22);
+brush(0,10,33,15);
+brush(10,0,21,10);
+brush(25,9,32,0);
+endchar;
+beginchar(122,narrowwidth#,height#,0);"tui";
+brush(0,0,12,17);
+brush(12,17,18,2);
+brush(18,2,30,0);
+brush(30,1,31,6);
+brush(4,24,5,17);
+brush(5,18,15,22);
+brush(14,20,18,30);
+brush(18,30,5,22);
+brush(5,35,8,30);
+brush(10,31,19,43);
+endchar;
+beginchar(123,narrowwidth#,height#,0);"huan";
+brush(1,10,6,0);
+brush(5,2,10,20);
+brush(0,28,5,23);
+brush(7,41,10,37);
+brush(10,8,40,14);
+brush(28,6,40,0);
+brush(18,0,32,27);
+brush(25,21,29,19);
+brush(20,15,26,25);
+brush(20,15,18,21);
+brush(19,18,21,22);
+brush(21,22,32,27);
+brush(18,22,21,37);
+brush(21,31,28,33);
+brush(28,33,23,24);
+endchar;
+beginchar(124,narrowwidth#,height#,0);"chieh";
+brush(9,40,10,52);
+brush(17,44,10,47);
+brush(10,47,17,52);
+brush(22,42,22,53);
+brush(29,48,22,50);
+brush(22,50,29,55);
+brush(0,36,20,41);
+brush(7,20,7,37);
+brush(7,32,16,36);
+brush(7,28,16,32);
+brush(16,30,16,40);
+brush(4,13,14,23);
+brush(11,26,17,21);
+brush(23,0,20,34);
+brush(20,34,28,40);
+brush(28,40,28,27);
+brush(28,27,21,29);
+endchar;
+beginchar(125,biggerwidth#,bigheight#,0);"chung fu";
+brush(0,15,45,20);
+brush(18,0,22,0);
+brush(22,0,26,18);
+brush(26,18,20,24);
+brush(18,22,25,29);
+brush(9,27,29,30);
+brush(10,36,30,50);
+brush(12,36,15,31);
+brush(15,31,22,39);
+brush(22,39,24,34);
+brush(22,32,32,43);
+brush(23,70,27,110);
+brush(10,100,16,84);
+brush(15,90,38,98);
+brush(20,83,35,95);
+brush(20,83,32,88);
+endchar;
+beginchar(126,narrowwidth#,bigheight#,0);"hsiao kuo";
+brush(3,57,7,63);
+brush(13,66,21,58);
+brush(21,58,20,80);
+brush(30,66,36,58);
+brush(0,22,9,24);
+brush(4,17,8,18);
+brush(8,18,7,8);
+brush(13,19,14,8);
+brush(18,22,19,36);
+brush(19,30,28,38);
+brush(28,38,25,23);
+brush(21,21,22,29);
+brush(22,29,27,31);
+brush(18,17,30,20);
+brush(30,20,28,8);
+brush(20,12,21,8);
+brush(21,8,24,10);
+brush(24,10,25,16);
+brush(25,16,21,12);
+getbrush(0,0,32,2);
+draw flex((0,0),(mg*10,mg*5),(mg*20,0),(mg*32,mg*2));
+endchar;
+beginchar(127,biggerwidth#,bigheight#,0);"chi chi";
+brush(0,89,8,99);
+brush(5,87,5,78);
+brush(5,78,15,83);
+brush(15,80,17,91);
+brush(17,91,6,87);
+brush(6,83,13,85);
+brush(22,86,31,90);
+brush(8,65,9,72);
+brush(9,72,15,75);
+brush(8,66,15,72);
+brush(16,60,26,74);
+brush(26,74,29,84);
+brush(21,78,20,72);
+brush(20,75,34,82);
+brush(30,77,30,64);
+brush(30,64,44,59);
+brush(44,59,46,67);
+brush(9,18,11,0);
+brush(11,0,20,26);
+brush(9,30,14,26);
+brush(10,40,19,36);
+brush(23,36,38,41);
+brush(36,40,32,43);
+brush(23,29,30,30);
+brush(23,24,25,30);
+brush(30,30,35,36);
+brush(26,22,32,30);
+brush(30,24,36,22);
+brush(36,22,34,32);
+brush(36,28,41,32);
+brush(38,30,45,23);
+brush(40,28,44,32);
+brush(28,0,28,17);
+brush(28,13,40,19);
+brush(40,21,41,2);
+brush(30,8,40,12);
+endchar;
+beginchar(128,biggerwidth#,bigheight#,0);"wei chi";
+brush(20,60,20,105);
+brush(0,60,20,78);
+brush(20,78,36,70);
+brush(4,72,27,94);
+brush(8,87,27,100);
+brush(0,27,6,24);
+brush(7,40,10,34);
+brush(7,8,13,28);
+brush(10,28,18,30);
+brush(14,22,22,30);
+brush(22,30,13,34);
+brush(13,34,30,44);
+brush(25,43,20,49);
+brush(20,22,25,30);
+brush(23,35,27,33);
+brush(25,27,30,40);
+brush(26,31,38,38);
+brush(30,32,36,30);
+brush(19,3,20,19);
+brush(19,6,30,12);
+brush(20,12,30,18);
+brush(29,22,31,0);
+endchar;
+
+%
+%
+% Change line markers
+%
+beginchar(201,thinwidth#,height#,0); "First change line";
+getthinpen;
+fill fullcircle scaled thinwidth#;
+draw fullcircle scaled thinwidth# shifted (0,mg*10);
+draw fullcircle scaled thinwidth# shifted (0,mg*20);
+draw fullcircle scaled thinwidth# shifted (0,mg*30);
+draw fullcircle scaled thinwidth# shifted (0,mg*40);
+draw fullcircle scaled thinwidth# shifted (0,mg*50);
+endchar;
+%
+beginchar(202,thinwidth#,height#,0); "Second change line";
+getthinpen;
+draw fullcircle scaled thinwidth#;
+fill fullcircle scaled thinwidth# shifted (0,mg*10);
+draw fullcircle scaled thinwidth# shifted (0,mg*20);
+draw fullcircle scaled thinwidth# shifted (0,mg*30);
+draw fullcircle scaled thinwidth# shifted (0,mg*40);
+draw fullcircle scaled thinwidth# shifted (0,mg*50);
+endchar;
+%
+beginchar(203,thinwidth#,height#,0); "Third change line";
+getthinpen;
+draw fullcircle scaled thinwidth#;
+draw fullcircle scaled thinwidth# shifted (0,mg*10);
+fill fullcircle scaled thinwidth# shifted (0,mg*20);
+draw fullcircle scaled thinwidth# shifted (0,mg*30);
+draw fullcircle scaled thinwidth# shifted (0,mg*40);
+draw fullcircle scaled thinwidth# shifted (0,mg*50);
+endchar;
+%
+beginchar(204,thinwidth#,height#,0); "Fourth change line";
+getthinpen;
+draw fullcircle scaled thinwidth#;
+draw fullcircle scaled thinwidth# shifted (0,mg*10);
+draw fullcircle scaled thinwidth# shifted (0,mg*20);
+fill fullcircle scaled thinwidth# shifted (0,mg*30);
+draw fullcircle scaled thinwidth# shifted (0,mg*40);
+draw fullcircle scaled thinwidth# shifted (0,mg*50);
+endchar;
+%
+beginchar(205,thinwidth#,height#,0); "Fifth change line";
+getthinpen;
+draw fullcircle scaled thinwidth#;
+draw fullcircle scaled thinwidth# shifted (0,mg*10);
+draw fullcircle scaled thinwidth# shifted (0,mg*20);
+draw fullcircle scaled thinwidth# shifted (0,mg*30);
+fill fullcircle scaled thinwidth# shifted (0,mg*40);
+draw fullcircle scaled thinwidth# shifted (0,mg*50);
+endchar;
+%
+beginchar(206,thinwidth#,height#,0); "Sixth change line";
+getthinpen;
+draw fullcircle scaled thinwidth#;
+draw fullcircle scaled thinwidth# shifted (0,mg*10);
+draw fullcircle scaled thinwidth# shifted (0,mg*20);
+draw fullcircle scaled thinwidth# shifted (0,mg*30);
+draw fullcircle scaled thinwidth# shifted (0,mg*40);
+fill fullcircle scaled thinwidth# shifted (0,mg*50);
+endchar;
+%
+end