忍者ブログ
  • 2025.06«
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • » 2025.08
[PR]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
【2025/07/03 10:32 】 |
icon2png(改)
icon2pngを改良してみた。
インデックスカラーを指定した場合、gimpはiconの構成をレイヤーに落とすため
すべて同じパレットを指定してしまう不具合。

例えばレイヤー１が赤１色、レイヤー２が白一色の場合
インデックスカラー１色とすれば、赤と白で画像が２つ出きるはずが
ピンク色で２つできてしまう。

なお、インデックスカラーを決定するのはRGB→インデックスとしたタイミングのみで
レイヤーを後から追加してもインデックスカラーは再計算されない。
このためRGBに戻して追加した後にインデックスカラーにする必要があった。

~/.gimp-2.6/scripts/icon2png.scm

(define (convert-layer-file imagenew colors image filename tattoos idx)
  (let* 
	  (
	   (drawable (car (gimp-image-get-layer-by-tattoo image (aref tattoos idx))))
	   (fn (string-append filename (number->string idx) ".png"))
	   (drawablenew (car (gimp-layer-new-from-drawable drawable imagenew)))
	   )
	(print idx)
	(print fn)
	(gimp-image-add-layer imagenew drawablenew 0)

	(if (> colors 0)
		(gimp-convert-indexed imagenew NO-DITHER  MAKE-PALETTE colors TRUE FALSE "")
	  )

	(file-png-save RUN-NONINTERACTIVE 
				   imagenew
				   drawablenew
				   fn
				   ""
				   0
				   9
				   0
				   0
				   0
				   0
				   0
				   )

	(gimp-image-remove-layer imagenew drawablenew)

	(if (> colors 0)
		(gimp-convert-rgb imagenew)
	  )

	(if (> idx 0)
		(convert-layer-file imagenew colors image filename tattoos (- idx 1))
	  )
	)
  )

(define (icon2png filename colors)
  (let*
	  (
	   (image (car  (gimp-file-load RUN-NONINTERACTIVE filename filename)))
	   (tatooarr (gimp-image-get-layers image))
	   (imagenew (car (gimp-image-new (car (gimp-image-width image)) (car (gimp-image-height image)) RGB)))
	   )
										;(gimp-display-new image)
	(convert-layer-file imagenew colors image filename (cadr tatooarr) (- (car tatooarr) 1))
	(gimp-image-delete image)
	(gimp-image-delete imagenew)
	)
  )



コマンド

gimp -i -b '(icon2png "t.ico" 2)' -b '(gimp-quit 0)'

拍手[0回]

PR
【2012/11/25 09:24 】 | gimp | 有り難いご意見(0)
icon2png
gimpを使ってiconからpngに落とすScript-Fuを作ってみた。

icon2png

(define (convert-layer-file image filename tattoos idx)
  (let* 
	  (
	   (draw (car (gimp-image-get-layer-by-tattoo image (aref tattoos idx))))
	   (fn (string-append filename (number->string idx) ".png"))
	   (transparent (car (gimp-color-picker image draw 0 0 FALSE FALSE 0)))
	   )
	(file-png-save RUN-NONINTERACTIVE 
				   image
				   draw
				   fn
				   fn
				   0
				   9
				   0
				   0
				   0
				   0
				   0

				   )
	(if (> idx 0)
		(convert-layer-file image filename tattoos (- idx 1))
	  )
	))
(define (icon2png filename colors)
  (let*
	  (
	   (image (car  (gimp-file-load RUN-NONINTERACTIVE filename filename)))
	   (tatooarr (gimp-image-get-layers image))
	   )
	(if (> colors 0)
		(gimp-convert-indexed image NO-DITHER  MAKE-PALETTE colors TRUE FALSE ""))
	(convert-layer-file image filename (cadr tatooarr) (- (car tatooarr) 1))
	(gimp-image-delete image)
	))
(icon2png "t.ico" 0)
(gimp-quit 0)



コマンド

cat icon2png | gimp -i -b -

拍手[0回]
【2012/11/24 15:06 】 | gimp | 有り難いご意見(0)
なんとなく覚書

拍手[0回]
【2012/11/11 21:35 】 | その他 | 有り難いご意見(0)
vb.netの配列
Arrayコンストラクタに疑問があったので
アセンブラを見てみた。

拍手[0回]

アセンブラの内容は？
【2012/11/11 14:03 】 | .Net Framework | 有り難いご意見(4)
vbncを使ってemacsでコンパイル
vbncでtarget:exeでコンパイルしてもSystem.Designとか必要になってしまう。


Error : VBNC2017: The library 'System.Design.dll' could not be found.


-nostdlibとしても変わらない。
monoの世界の依存関係がよく分からないので力づくで
ライブラリサーチするようにしてみた。

で、よくよくライブラリフォルダを見てみたら

-libpath:/usr/lib/mono/4.0,/usr/lib/mono/2.0

でいいことに気づいた・・・orz

行番号とカラム番号をgccの出力に揃えたので便利になった～

拍手[0回]

力づくサーチ版
【2012/11/11 07:34 】 | .Net Framework | 有り難いご意見(0)
≪前ページ | ホーム | 次ページ≫

忍者ブログ [PR]