[[Ming/Python]]

 #!/usr/bin/python
 from ming import *
 
 Ming_setScale(20.0)
 Ming_useSWFVersion(6)
 
 WIDTH=200
 HEIGHT=200
 
 m=SWFMovie()
 m.setDimension(WIDTH,HEIGHT)
 m.setBackground(255,255,255)
 m.setRate(30.0)
 DIV=16
 shapelist=[]
 for i in range(16):
     s=SWFShape()
     r=16*i
     g=12
     b=255-16*i
     f=s.addFill(r,g,b)
     s.setLine(1,0,0,0)
     s.setRightFill(f)
     s.movePenTo(-WIDTH/DIV,-HEIGHT/DIV)
     s.drawLineTo(WIDTH/DIV,-HEIGHT/DIV)
     s.drawLineTo(WIDTH/DIV,HEIGHT/DIV)
     s.drawLineTo(-WIDTH/DIV,HEIGHT/DIV)
     s.drawLineTo(-WIDTH/DIV,-HEIGHT/DIV)
     shapelist.append(s)
 
 xcount=1
 ycount=1
 sc_width=4*WIDTH/DIV
 sc_height=4*HEIGHT/DIV
 inslist=[]
 for s in shapelist:
     ins=m.add(s)
     ins.moveTo(sc_width*xcount-sc_width/2,sc_height*ycount-sc_height/2)
     inslist.append(ins)
     xcount=xcount+1
     if xcount > 4 :
         xcount=1
         ycount=ycount+1
 
 for ll in range(360):
     for ins in inslist:
         ins.rotateTo(ll)
     m.nextFrame()
 
 m.save("sample.swf")

こんな感じです。

トップ   差分 バックアップ リロード   一覧 単語検索 最終更新   ヘルプ   最終更新のRSS