view release on metacpan or  search on metacpan

bin/demo.pl  view on Meta::CPAN

75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
 
    my $black = SDL::Color->new(
        -r => 0,
        -g => 0,
        -b => 0,
    );
 
    $self->app->fill($screen_rect, $black);
}
 
sub update_gesture {
    my $self = shift;
    return unless $self->is_gesturing;
 
    # add the current point to our list of points for this gesture
    push @{ $self->{gesture} }, [@_];
}
 
sub end_gesture {
    my $self = shift;