perl 6 bindings to graffiks
Perl 6
Switch branches/tags
Nothing to show
Latest commit ec89125 Jun 15, 2017 @wentam rename
Failed to load latest commit information.
lib add more primitive types Jun 11, 2015
LICENSE Initial commit May 18, 2015
META6.json rename Jun 15, 2017


perl 6 bindings to Graffiks

Example usage

The following will create a spinning cube:

use v6;
use Graffiks;
use Graffiks::Camera;
use Graffiks::PointLight;
use Graffiks::Mesh;
use Graffiks::Material;
use Graffiks::Object; => &init,
             update => &update);

my $object;

sub init ($gfks, $window_width, $window_height) {
  # enable the deferred renderer

  # create, position, and make our camera the active one
  my $camera =;

  # create and position a point light (without light, you won't see anything!)
  my $light =;

  # create a cube mesh
  my $mesh =;

  # create a material
  my $material =;

  # create an object with the previously created mesh and material
  $object =$mesh),$material));

sub update ($gfks, $time_step) {
  # rotate our object based on $time_step
  my $a = $object.angle-w();
  $object.set-rotation(angle => $a+(0.05*$time_step),
                       x => 0,
                       y => 1,
                       z => 1);