#!/usr/pkg/bin/ruby31
# rubygut.rb author Pawel

require 'ming/ming'
include Ming

m = SWFMovie.new
m.set_dimension(640, 480)

shape = SWFShape.new
shape.set_line(4, 25, 0, 0 ,128)
shape.move_pen_to(5, 5)
shape.draw_line_to(0, 10)

blur = SWFBlur.new(15,15,2)
f = SWFFilter::set_blur_filter(blur)

sh = SWFShadow.new(50,40,50)

g = SWFGradient.new
g.add_entry(0.0, 0xff, 0,0, 0xff)
g.add_entry(1.0, 0xff,0xff,0xff, 0xff)

SWFColor = Struct.new(:red, :green, :blue, :alpha)

filter = SWFFilter::set_gradient_bevel_filter(g, blur, sh, SWFFilter::MODE_KO)

b = SWFButton.new
b.add_character(shape, SWFButton::UP | SWFButton::HIT| SWFButton::OVER | SWFButton::DOWN)

item = m.add(b)
item.scale_to(10)
item.add_filter(filter)

m.save("rbgradientbevelfilter.swf")
