You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/tqtruby/rubylib/tutorial/t10/cannon.rb

72 lines
1.6 KiB

require 'TQt'
class CannonField < TQt::Widget
signals 'angleChanged(int)', 'forceChanged(int)'
slots 'setAngle(int)', 'setForce(int)'
def initialize(parent, name)
super
@ang = 45
@f = 0
setPalette( TQt::Palette.new( TQt::Color.new( 250, 250, 200) ) )
end
def setAngle( degrees )
if degrees < 5
degrees = 5
elsif degrees > 70
degrees = 70
end
if @ang == degrees
return
end
@ang = degrees
repaint()
emit angleChanged( @ang )
end
def setForce( newton )
if newton < 0
newton = 0
end
if @f == newton
return
end
@f = newton
emit forceChanged( @f )
end
def paintEvent( e )
if !e.rect().intersects( cannonRect() )
return
end
cr = cannonRect()
pix = TQt::Pixmap.new( cr.size() )
pix.fill( self, cr.topLeft() )
p = TQt::Painter.new( pix )
p.setBrush( blue )
p.setPen( TQt::NoPen )
p.translate( 0, pix.height() - 1 )
p.drawPie( TQt::Rect.new(-35, -35, 70, 70), 0, 90*16 )
p.rotate( - @ang )
p.drawRect( TQt::Rect.new(33, -4, 15, 8) )
p.end()
p.begin(self)
p.drawPixmap(cr.topLeft(), pix )
p.end()
end
def cannonRect()
r = TQt::Rect.new( 0, 0, 50, 50)
r.moveBottomLeft( rect().bottomLeft() )
return r
end
def sizePolicy()
return TQt::SizePolicy.new( TQt::SizePolicy::Expanding, TQt::SizePolicy::Expanding )
end
end