Sample1のソース

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")

こんな感じです。