| ; 単位は400*400の座標系 |
; 単位は400*400の座標系 |
| ; 縦線の太さ |
; 縦線の太さ |
| (declare (minchowidth tateyokoratio minchoheight kazariheight tomeheight meshsize mw) special) |
(declare (minchowidth tateyokoratio minchoheight tatekazari tome1 kazariheight tomeheight meshsize mw) special) |
| ; 縦線に対する横線の太さの比 |
; 縦線に対する横線の太さの比 |
| (setq tateyokoratio 0.3) |
(setq tateyokoratio 0.3) |
| |
|
| (ylen) |
(ylen) |
| (minylen) |
(minylen) |
| ) |
) |
| (do ((l elements (cdr l))(element)) |
(do ((l elements (cdr l))(element)(link)) |
| ((atom l)) |
((atom l)) |
| (setq element (car l)) |
(setq element (car l)) |
| (do ((ll (cadr element)(cdr ll))(ass)) |
(do ((ll (cadr element)(cdr ll))(ass)) |
Diff of /renderer/mincho.l
Parent Directory
| 
Revision Log