(use graphics.gd)(use util.list)(use srfi-1)(define(file->data p x path)(let1 ls (call-with-input-file path
(^p (port-map identity (^ _ (read p)))))(let1 ls (map (^e (x->integer (floor (+ p (* e x))))) ls)(let1 ls (slices ls 2)(map (^ (e1 e2)(append e1 e2))
ls (cdr ls))))))(define(data->img w h data)(let1 im (gd-image-create-true-color w h)(gd-image-fill im 00(gd-true-color 255255255))(for-each (^e (line! im
(first e)(second e)(third e)(fourth e)(gd-true-color 000))) data)
im))(defined(file->data 150400"/cygdrive/c/tmp/d14.dat"))(definec(file->data 25070"/cygdrive/c/tmp/c14.dat"))(definek(file->data 80600"/cygdrive/c/tmp/k5.dat"))(save-as (data->img 800450 d)"/cygdrive/c/tmp/dragon.png")(save-as (data->img 500800 c)"/cygdrive/c/tmp/c.png")(save-as (data->img 750300 k)"/cygdrive/c/tmp/k.png")
foo bar baz ;;"foo" bar baz ;; 1 回
"foo""bar" baz ;; 2 回
"foo""bar""baz";; 3 回
コレはキーボードマクロで定義してもよさそうだったんですが、取りあえず用意しました。
この例では F11 と M-F11 に割当てていますが、好みのキーに割り当ててください。
コードは以下の通りです。
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters