package Ogre::Light; use strict; use warnings; use Ogre::MovableObject; our @ISA = qw(Ogre::MovableObject); ########## GENERATED CONSTANTS BEGIN require Exporter; unshift @Ogre::Light::ISA, 'Exporter'; our %EXPORT_TAGS = ( 'LightTypes' => [qw( LT_POINT LT_DIRECTIONAL LT_SPOTLIGHT )], ); $EXPORT_TAGS{'all'} = [ map { @{ $EXPORT_TAGS{$_} } } keys %EXPORT_TAGS ]; our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} }; our @EXPORT = (); ########## GENERATED CONSTANTS END 1; __END__ =head1 NAME Ogre::Light =head1 SYNOPSIS use Ogre; use Ogre::Light; # (for now see examples/README.txt) =head1 DESCRIPTION See the online API documentation at L B this Perl binding is currently I and subject to API changes. =head1 INSTANCE METHODS =head2 $obj->setType($type) I =over =item $type : int =back I =over =item void =back =head2 $obj->getType() I =over =item int =back =head2 $obj->setDiffuseColour(...) I =over =item ... : this varies... (sorry, look in the .xs file) =back I =over =item void =back =head2 $obj->getDiffuseColour() I =over =item ColourValue * =back =head2 $obj->setSpecularColour(...) I =over =item ... : this varies... (sorry, look in the .xs file) =back I =over =item void =back =head2 $obj->getSpecularColour() I =over =item ColourValue * =back =head2 $obj->setAttenuation($Real range, $Real constant, $Real linear, $Real quadratic) I =over =item $Real range : (no info available) =item $Real constant : (no info available) =item $Real linear : (no info available) =item $Real quadratic : (no info available) =back I =over =item void =back =head2 $obj->getAttenuationRange() I =over =item Real =back =head2 $obj->getAttenuationConstant() I =over =item Real =back =head2 $obj->getAttenuationLinear() I =over =item Real =back =head2 $obj->getAttenuationQuadric() I =over =item Real =back =head2 $obj->setPosition(...) I =over =item ... : this varies... (sorry, look in the .xs file) =back I =over =item void =back =head2 $obj->getPosition() I =over =item Vector3 * =back =head2 $obj->setDirection(...) I =over =item ... : this varies... (sorry, look in the .xs file) =back I =over =item void =back =head2 $obj->getDirection() I =over =item Vector3 * =back =head2 $obj->setSpotlightRange($innerAngle, $outerAngle, $falloff=1.0) I =over =item $innerAngle : Degree (or Radian) * =item $outerAngle : Degree (or Radian) * =item $falloff=1.0 : Real =back I =over =item void =back =head2 $obj->getSpotlightInnerAngle() I =over =item Radian * =back =head2 $obj->getSpotlightOuterAngle() I =over =item Radian * =back =head2 $obj->getSpotlightFalloff() I =over =item Real =back =head2 $obj->setSpotlightInnerAngle($val) I =over =item $val : Degree (or Radian) * =back I =over =item void =back =head2 $obj->setSpotlightOuterAngle($val) I =over =item $val : Degree (or Radian) * =back I =over =item void =back =head2 $obj->setSpotlightFalloff($Real val) I =over =item $Real val : (no info available) =back I =over =item void =back =head2 $obj->setPowerScale($Real power) I =over =item $Real power : (no info available) =back I =over =item void =back =head2 $obj->getPowerScale() I =over =item Real =back =head2 $obj->getBoundingBox() I =over =item AxisAlignedBox * =back =head2 $obj->getMovableType() I =over =item String =back =head2 $obj->getDerivedPosition() I =over =item Vector3 * =back =head2 $obj->getDerivedDirection() I =over =item Vector3 * =back =head2 $obj->setVisible($bool visible) I =over =item $bool visible : (no info available) =back I =over =item void =back =head2 $obj->getBoundingRadius() I =over =item Real =back =head2 $obj->getTypeFlags() I =over =item uint32 =back =head2 $obj->createAnimableValue($valueName) I =over =item $valueName : String =back I =over =item AnimableValue * =back =head2 $obj->resetCustomShadowCameraSetup() I =over =item void =back =head1 AUTHOR Scott Lanning Eslanning@cpan.orgE For licensing information, see README.txt . =cut