kawabata kawabata

## gist:a18ecb3dc338c31fa87a
(defun cjk-colorize-turn-on ()
  (interactive)
  (font-lock-add-keywords
   nil '(("[𠀀-𪛖]+" 0 highlight t)
         ("[𪜀-𫜴]+" 0 font-lock-keywords t)
         ("[𫝀-𬺡]+" 0 font-lock-warning-face t))))

(defun cjk-colorize-turn-off ()
  (interactive)
  (font-lock-remove-keywords

## ndl-porta.el
;;; ndl-porta.el --- NDL (National Diet Library of Japan) PORTA access

;; Copyright (C) 2011 TK

;; Author: TK <kawabata.taichi@gmail.com>
;; Keywords: isbn, bibtex, library

;;; Commentary
;;
;; 国会図書館 PORTA から様々な書誌情報を取り出す。

## tarai.clj
(ns tarai.core
  (:use [overtone.live]))

;; basic.clj より
(defsynth foo [freq 200 dur 0.5]
  (let [src (saw [freq (* freq 1.01) (* 0.99 freq)])
        low (sin-osc (/ freq 2))
        filt (lpf src (line:kr (* 10 freq) freq 10))
        env (env-gen (perc 0.1 dur) :action FREE)]
    (out 0 (pan2 (* 0.1 low env filt)))))

## indic-graphviz.el
;; OpenTypeの Named-Key 形式FontのGSUB Lookupのグラフを作成する。

;; input file
;;   `spot -t GSUB=7' で、features ファイルを作成する。
(defvar indic-feature-file   "~/Dropbox/lessons/graphviz/indic/vrinda.features")
;; output file
(defvar indic-dot-file-fmt   "~/Dropbox/lessons/graphviz/indic/vrinda.%s.dot")
;; image file directory (use fontforge Export("%n.png") function)
(defvar indic-image-file-fmt "~/.tmp/vrinda/%s.png")

## zone-pgm-rainbow
;; zone-pgm-rainbow

(require 'zone)
(defvar zone-programs)
(defvar zpr-hue-factor 50)
(defvar zpr-sat 1.0)
(defvar zpr-light 0.5)

(defun zone-pgm-rainbow ()
  (require 'color nil)

## 戦争終止の勅語.txt
ユタ日報1945.8.15日号

戰爭終止之勅語

朕茲ニ汝忠良ナル臣民ニ告グ。朕ハ現下ノ世界情勢ト帝國ノ現況ニ鑑ミ、ツイニ非常處置ヲ以テ此ノ難局ノ解決ヲ決意セリ。

朕ハ朕ノ政府ニ、北米合衆国、英吉利、中華民國及ビ路西亞各政府ニ彼ラノ共同宣言條項ヲ受諾スル旨ヲ通告スベク命ジタリ。

由來日本國民ノ安寧ト福祉ヲ計ルト倶ニ、全世界ノ人類ノ繁栄ト幸福トニ専心スルコトハ我ガ皇祖皇宗ノ遺訓トシテ、朕ハ常時之ニ近カランコトニ努メタリ。帝國ハ帝國ノ保全ト東亞ノ安定トヲ確保スルタメ、心ナラズトモ英米ニ宣戰セルモ、他國ノ主権ヲ侵害シ、マタハ領土ノ擴大ニ向ケテ進發セシモノニ非ズ。然乍ラ戰ハ既ニ四ケ年ニ？トシ、陸海軍將兵ノ勇敢ナル戰闘、百僚有司ノ精勵ト、一億民ノ献身的奉公トニ依リ、最善ノ努力ヲナセルモ、形勢ハ日々吾ニ不利ニシテ世界ノ動向ハ全ク我ガ利益ニ反スルコトトナレリ。加之敵ハ新タニ最モ殘忍ナル爆彈ヲ使用シ始メ、其ノオ興ヘル破損力實ニ量リ難ク強大ナルモノアリ。之レガ爲ニ倒レタル無辜ノ臣民ハ夥シキ數ニ上ガレリ、若シ戰爭ヲ繼續センカ、唯ニ日本帝國ノ崩壊ト滅亡ノミナラズ全人類文明ヲ破壊ニ導クノ懼レアリ。事態斯クノ如キニ際シ、如何ニシテ数百万臣民ノ生命ヲ救ヒ、我ガ皇祖皇宗ノ叡慮ニ添ウ可ベキカ。此ノ理由ニヨリ朕ハ合衆国、英吉利、蘇連共和國及ビ中華民國ノ共同宣言條項ヲ受諾ス可ク命ジタリ。朕ハ東亞ノ開放ニ向テ不斷ニ帝國ト共力セル我ガ協合國ニ対シ深甚ニ遺憾ノ意ヲ表スルト同時ニ戰場ニ斃レタル將兵其他臣民ニシテ其任務ニ死シタル者及ビ不慮ノ死ニ遭ヒタル者、其等ノ遺族ニ対シ昼夜痛心懊悩セリ。負傷者、受難者ノ福祉、家ヲ失ヒ生活ノ道ヲ斷タレシ者ノ身上ヲ考慮セバ、深ク憂慮ニ耐ヘザルナリ尚ホ今後國民ニ課セラルル苦難ハ真ニ甚大ナルモノアラン。

## criminal_jc.md

      
        
          
            
              
              2 files
            
          
          
            
              
              3 forks
            
          
          
            
              
              0 comments
            
          
          
            
              
              42 stars
            
          
        
        
          
              
          
          
            
                kawabata
                / criminal_jc.md
            
            
              Last active
              June 28, 2022 07:04
                — forked from shunirr/criminal_jc.md
            
              
                女子中学生チケット詐欺事件
	(defun cjk-colorize-turn-on ()
	(interactive)
	(font-lock-add-keywords
	nil '(("[𠀀-𪛖]+" 0 highlight t)
	("[𪜀-𫜴]+" 0 font-lock-keywords t)
	("[𫝀-𬺡]+" 0 font-lock-warning-face t))))

	(defun cjk-colorize-turn-off ()
	(interactive)
	(font-lock-remove-keywords
	;;; ndl-porta.el --- NDL (National Diet Library of Japan) PORTA access

	;; Copyright (C) 2011 TK

	;; Author: TK <kawabata.taichi@gmail.com>
	;; Keywords: isbn, bibtex, library

	;;; Commentary
	;;
	;; 国会図書館 PORTA から様々な書誌情報を取り出す。
	(ns tarai.core
	(:use [overtone.live]))

	;; basic.clj より
	(defsynth foo [freq 200 dur 0.5]
	(let [src (saw [freq (* freq 1.01) (* 0.99 freq)])
	low (sin-osc (/ freq 2))
	filt (lpf src (line:kr (* 10 freq) freq 10))
	env (env-gen (perc 0.1 dur) :action FREE)]
	(out 0 (pan2 (* 0.1 low env filt)))))
	;; OpenTypeの Named-Key 形式FontのGSUB Lookupのグラフを作成する。

	;; input file
	;; `spot -t GSUB=7' で、features ファイルを作成する。
	(defvar indic-feature-file "~/Dropbox/lessons/graphviz/indic/vrinda.features")
	;; output file
	(defvar indic-dot-file-fmt "~/Dropbox/lessons/graphviz/indic/vrinda.%s.dot")
	;; image file directory (use fontforge Export("%n.png") function)
	(defvar indic-image-file-fmt "~/.tmp/vrinda/%s.png")
	;; zone-pgm-rainbow

	(require 'zone)
	(defvar zone-programs)
	(defvar zpr-hue-factor 50)
	(defvar zpr-sat 1.0)
	(defvar zpr-light 0.5)

	(defun zone-pgm-rainbow ()
	(require 'color nil)
	ユタ日報1945.8.15日号

	戰爭終止之勅語

	朕茲ニ汝忠良ナル臣民ニ告グ。朕ハ現下ノ世界情勢ト帝國ノ現況ニ鑑ミ、ツイニ非常處置ヲ以テ此ノ難局ノ解決ヲ決意セリ。

	朕ハ朕ノ政府ニ、北米合衆国、英吉利、中華民國及ビ路西亞各政府ニ彼ラノ共同宣言條項ヲ受諾スル旨ヲ通告スベク命ジタリ。

	由來日本國民ノ安寧ト福祉ヲ計ルト倶ニ、全世界ノ人類ノ繁栄ト幸福トニ専心スルコトハ我ガ皇祖皇宗ノ遺訓トシテ、朕ハ常時之ニ近カランコトニ努メタリ。帝國ハ帝國ノ保全ト東亞ノ安定トヲ確保スルタメ、心ナラズトモ英米ニ宣戰セルモ、他國ノ主権ヲ侵害シ、マタハ領土ノ擴大ニ向ケテ進發セシモノニ非ズ。然乍ラ戰ハ既ニ四ケ年ニ？トシ、陸海軍將兵ノ勇敢ナル戰闘、百僚有司ノ精勵ト、一億民ノ献身的奉公トニ依リ、最善ノ努力ヲナセルモ、形勢ハ日々吾ニ不利ニシテ世界ノ動向ハ全ク我ガ利益ニ反スルコトトナレリ。加之敵ハ新タニ最モ殘忍ナル爆彈ヲ使用シ始メ、其ノオ興ヘル破損力實ニ量リ難ク強大ナルモノアリ。之レガ爲ニ倒レタル無辜ノ臣民ハ夥シキ數ニ上ガレリ、若シ戰爭ヲ繼續センカ、唯ニ日本帝國ノ崩壊ト滅亡ノミナラズ全人類文明ヲ破壊ニ導クノ懼レアリ。事態斯クノ如キニ際シ、如何ニシテ数百万臣民ノ生命ヲ救ヒ、我ガ皇祖皇宗ノ叡慮ニ添ウ可ベキカ。此ノ理由ニヨリ朕ハ合衆国、英吉利、蘇連共和國及ビ中華民國ノ共同宣言條項ヲ受諾ス可ク命ジタリ。朕ハ東亞ノ開放ニ向テ不斷ニ帝國ト共力セル我ガ協合國ニ対シ深甚ニ遺憾ノ意ヲ表スルト同時ニ戰場ニ斃レタル將兵其他臣民ニシテ其任務ニ死シタル者及ビ不慮ノ死ニ遭ヒタル者、其等ノ遺族ニ対シ昼夜痛心懊悩セリ。負傷者、受難者ノ福祉、家ヲ失ヒ生活ノ道ヲ斷タレシ者ノ身上ヲ考慮セバ、深ク憂慮ニ耐ヘザルナリ尚ホ今後國民ニ課セラルル苦難ハ真ニ甚大ナルモノアラン。