KIMURA Shigenobu
skimu****@mac*****
2004年 6月 25日 (金) 22:11:43 JST
On Jun 25, 2004, at 4:24 AM, yasuy****@javao***** wrote: > > (define (canvas-page-save widget) > (let*-values > (((w h) (gdk-drawable-get-size (ref widget 'window)))) > (let* > ((colormap (gdk-drawable-get-colormap (ref widget 'window))) > (pixbuf (gdk-pixbuf-new GDK_COLORSPACE_RGB #f 8 w h)) > (page-num (ref (the-canvas) 'current-page))) > (begin > (gdk-pixbuf-get-from-drawable > pixbuf (ref widget 'window) colormap 0 0 0 0 w h) > (gdk-pixbuf-save #?=pixbuf (format "slide-~s.png" page-num) > "png") > )))) begin は余計？ > slide-0.png > slide-1.png > スライドが10ページ以上あるときを考えて slide-0000.png slide-0001.png .... といファイル名ができた方がうれしいかも。 フォーマットは "slide-~4'0D.png" ってな感じかな。 --skimu
