;
(defjoint
   naal
   基
   '(joint '(#(+0.1036493^+01 +0.0000000^+00 +0.0000000^+00 +0.1144114^+01 
               -0.7255452^+01 -0.1144114^+02)
             #(+0.9193122^+00 +0.0000000^+00 +0.0000000^+00 +0.4070998^+00 
               +0.1600632^+02 +0.2406062^+03)
             (yunit . +0.7845356^+02)
             (xunit . +0.1568495^+03)
             (xlimit 0 400)
             (center . 200))
           '(基の上 (kashira 土))
           nil))
(defjoint
   mincho-patch
   父
   '(joint '(#(+0.1071611^+01 +0.0000000^+00 +0.0000000^+00 +0.1292478^+01 
               -0.2459623^+02 -0.3526584^+03)
             #(+0.1098901^+01 +0.0000000^+00 +0.0000000^+00 +0.1169386^+01 
               -0.1148744^+02 -0.6505173^+02)
             (yunit . +0.2316602^+03)
             (xunit . +0.1612903^+03)
             (xlimit 0 400)
             (center . 200))
           '(はのじ 父の下)
           nil))