Saturday, March 15, 2008

ImageMagickで、花模様が回転するGIFアニメーションを生成する

花模様が回転するGIFアニメーションを生成するには、以下のバッチファイルを実行します。

rem 環境によって変えてね
set im=C:\Progra~1\ImageMagick-6.3.8-Q16

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12)*7)^2?#F8C749:#FFFFFF" f1.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+3pi/180*12)*7)^2?#F8C749:#FFFFFF" f2.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+6pi/180*12)*7)^2?#F8C749:#FFFFFF" f3.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+9pi/180*12)*7)^2?#F8C749:#FFFFFF" f4.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+12pi/180*12)*7)^2?#F8C749:#FFFFFF" f5.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+15pi/180*12)*7)^2?#F8C749:#FFFFFF" f6.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+18pi/180*12)*7)^2?#F8C749:#FFFFFF" f7.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+21pi/180*12)*7)^2?#F8C749:#FFFFFF" f8.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+24pi/180*12)*7)^2?#F8C749:#FFFFFF" f9.png

%im%\convert.exe -size 50x50 xc:white -fx "(25-i)^2+(25-j)^2)<=(18+sin(atan2(25-i,25-j)*12+27pi/180*12)*7)^2?#F8C749:#FFFFFF" f10.png

%im%\convert.exe -set delay 7 f1.png f2.png f3.png f4.png f5.png f6.png f7.png f8.png f9.png f10.png -loop 0 sample339.gif

上記バッチでは、少しずつ花模様を回転させた図形を複数のPNG画像として保存し、それらを まとめてanimation GIFとして出力しています。

出力画像(sample339.gif)


関連項目
ImageMagickで、半径が波型に変化する円を描画する

No comments: