yasuy****@javao*****
yasuy****@javao*****
2004年 7月 28日 (水) 15:38:05 JST
えんどうです。
> > checkout してみたのですが、mkfixpoint.scm がないらしく、
> > make で以下のエラーが出ました。
>
> あっ、すんません。今commitしました。
cvs から取得しました。
とりあえず、
;; Returns line height of the current font in normal coord.
(define (current-line-height)
(let* ((ctx (ref (the-canvas) 'pcontext))
(met (pango-context-get-metrics ctx (current-font)
(pango-context-get-language ctx)))
)
(screen->normalized-size
(* 1.2 (/ (+ (pango-font-metrics-get-ascent met)
(pango-font-metrics-get-descent met))
PANGO_SCALE)))))
としてスライドを作り直しました。(Debian serge)
http://www.javaopen.org/~yasuyuki/fixpoint/
原稿は以下です。
http://www.javaopen.org/~yasuyuki/fixpoint/gauche-update.fixpoint
http://www.javaopen.org/~yasuyuki/fixpoint/scheme-book.gif
http://www.javaopen.org/~yasuyuki/fixpoint/sicp.jpg
--
ENDO Yasuyuki <yasuy****@javao*****>
http://www.javaopen.org/~yasuyuki/ (Personal/Japanese Only)
http://www.javaopen.org/jfriends/ (Japanese Only)
