1require 'mingc'
2include Mingc
3
4s = newSWFShape()
5l = SWFShape_setLine(s, 40, 0x7f, 0, 0, 0xff)
6f = SWFShape_addSolidFill(s, 0xff, 0, 0, 0xff)
7SWFShape_setRightFill(s, f)
8SWFShape_movePenTo(s, 1000, 1000)
9SWFShape_drawLineTo(s, 6000, 4000)
10SWFShape_end(s)
11
12m = newSWFMovie()
13SWFMovie_setDimension(m, 6400, 4800)
14SWFMovie_setBackground(m, 0xff, 0, 0)
15SWFMovie_setRate(m, 12.0)
16SWFMovie_add(m, s)
17SWFMovie_nextFrame(m)
18
19SWFMovie_save(m, "pippo.swf")
20