View of /lisp/test/genzyouyou.l

Parent Directory

Revision Log

change to CVS wadalab font project

(setq strobe-string (string-append
"46060500262f775f5ecda5f0";16
"7b5020218b707ff999eb1abe";17
"5f15c5ff7bffae7552aefdde";18
"1f9dae6086bfdff41dee0800";19
"25feffe7cf7b5fd718f7dffe";20
"6daffb7f4aa47f7fd77ff756";21
"47973ffdddf8c9b5fd8a76c2";22
"481bf8f9fbe9cb6fb3fbbdf8";23
"6eff77fcaf7f809f6f1e2dee";24
"576d7e577ebe3ff5eb53f68a";25
"1bdaaae72f3fe5ffe86363c6";26
"5e82fb359dffefcfdffffffe";27
"75b4c96be11feff9ddff7dde";28
"7eeec5deff7ff63afdf3cfce";29
"7b4fafae3bfff17e36ffaefa";30
"37d7ff5db7ff39867fbb6cc0";31
"5f7fe7ffef77f73ffdfbaf92";32
"467dfe283fb3bc9ef5b4efbe";33
"7fdff8fb8f0adef3e7aabd60";34
"3630ecb8bfbf5f5dffff30f0";35
"3fdbeb7bfe5c2020bdff50f2";36
"46f9dde2ed4d98fff17dab7e";37
"0fdff2dddbcd0223200adc4e";38
"6f17983e8ad9fcff1e0b6772";39
"206d7a0f69ff772efbf779c2";40
"480a4aee7825fddf7ef6cd3e";41
"79eb9bffee68efd66bdddeac";42
"6f1e9ffffd4de15ffd980e2e";43
"5cc37d9bf9a9df384b92fe96";44
"7774577fabf775db75b7d9e4";45
"6fca7cf6dccff1c7dc5fff84";46
"3175b131b580500000000000";47
))
(defun setstrobe nil (setq i 0) 
  (setq strobe (make-string (// (* 96 96) 8)))
  (loop (cond ((= i 32) (exit))) (setq j 0) 
    (loop (cond ((= j 24) (exit))) 
      (setq c1 (sref strobe-string (/+ (* i 24) j)) c2 
        (sref strobe-string (/+ (* i 24) j 1))) 
      (sset strobe (/+ (* i 12) (// j 2)) 
        (/+ (* (cond ((> c1 57) (/- c1 87)) (t (/- c1 48))) 16) 
          (cond ((> c2 57) (/- c2 87)) (t (/- c2 48))))) (setq j (/+ j 2)))
     (setq i (/1+ i))))
(setstrobe)
(defun genzyouyouinit nil (setq index0 16 index1 0))
(defun genzyouyou nil 
  (loop (setq index1 (/1+ index1)) 
    (cond ((= index1 95) (setq index0 (/1+ index0) index1 0))) 
    (cond ((and (= index0 47) (= index1 52)) (exit)) 
      ((bref strobe (/+ (* (/- index0 16) 96) index1)) 
        (exit 
          (string-append (make-string 1 (/+ index0 160)) 
            (make-string 1 (/+ index1 160))))))))
(setq zinmei 
  ' (1715 3071 3921 3923 4473 4743 4382 1671 2192 4628 1643 2076 2464 
      1832 4504 4666 2006 4850 4733 2486 2837 1684 2667 4474 4631 8405 
      3868 1914 5006 2209 1712 1735 1980 3494 2467 4704 2640 3479 1720 
      2212 1837 2329 2238 3864 5287 3354 4118 2082 4450 2508 4508 3850 
      2952 5437 4582 2623 3183 4670 2064 4406 3935 3507 3017 2516 4479 
      5534 4107 4123 4143 4671 2990 3680 1652 3358 3855 2337 3820 2393 
      3025 3872 3856 4069 1901 1787 3522 1616 1802 2523 3027 5869 5871 
      2524 3124 5880 5879 5886 3610 2976 3550 4294 2683 1641 3746 4591 
      4102 4514 4379 5957 2343 2245 2310 2472 1620 3031 4592 3639 4426 
      3656 3879 4186 6031 4544 1982 3126 4374 3648 2144 3541 2253 2254 
      2103 6160 3685 2814 2627 3433 6211 2907 6213 2532 2963 2977 1615 
      4515 6270 6291 6326 8406 2307 6389 2724 6402 2651 2804 3586 2274 
      4672 3486 1745 4654 2474 3180 8404 2628 4660 4594 4267 2709 6611 
      4093 6640 4351 3823 4638 2275 4243 1675 4520 4729 3687 3133 2109 
      4413 4639 3087 2955 4487 6789 2691 2541 2851 2430 3661 1628 6926 
      3378 4076 1629 6937 7038 3173 4552 3379 4005 1693 2453 7091 2956 
      1780 2260 4171 1781 1856 1993 7193 1611 2048 7229 7233 3052 4308 
      1610 3975 2812 3383 4554 4701 3653 3054 4189 3803 4585 4586 2455 
      3890 3619 2262 2322 2632 7546 2135 7557 4642 7666 4269 3504 7776 
      4558 4643 4524 3865 1674 4477 3851 2970 2251 1989 1604 4027 3187 
      1866 2139 3160 8083 3257 8105 1930 2280 2957 1630 2481 3468 4023 
      4317 2567 4318 3665 3475 2815 4659 4391 8353 3467 2121))
(defun genzinmeiinit nil (setq zinmeilist zinmei))
(defun genzinmei nil 
  (cond ((null zinmeilist) nil) 
    (t 
      (prog1 
        (string-append (make-string 1 (/+ (// (car zinmeilist) 100) 160)) 
          (make-string 1 (/+ (\ (car zinmeilist) 100) 160))) 
        (setq zinmeilist (cdr zinmeilist))))))