Perl/Math::Bezier ... plotting a bezier curve given some control points

doesn't actually draw anything - just gets the data points necessary to plot one. I did this because I needed a series of 22 numbers starting with 0.0125 that gradually ramped up to 7.4 with step getting larger for each iteration.

#!/usr/local/bin/perl -w

use strict;
use Math::Bezier;

my $MAXX = 22.0;
my $MAXY = 7.4;

my $x0 = 0;
my $y0 = 0.0125;
my $x1 = $MAXX*0.5;
my $y1 = 0.0000;
my $x2 = $MAXX;
my $y2 = $MAXY;

my @control = ( $x0, $y0, $x1, $y1, $x2, $y2 );


my $bezier = Math::Bezier->new(@control);

for ( my $i = 0; $i < ($MAXX+1); $i++) {

    my $divisor = $i / $MAXX;
    my ( $x, $y )  = $bezier->point($divisor);
    printf "divisor=%8.4f x=%8.4f y=%8.4f\n", $divisor, $x, $y;

}



unix:~ 1607 $ ./bezier.pl 
divisor=  0.0000 x=  0.0000 y=  0.0125
divisor=  0.0455 x=  1.0000 y=  0.0267
divisor=  0.0909 x=  2.0000 y=  0.0715
divisor=  0.1364 x=  3.0000 y=  0.1469
divisor=  0.1818 x=  4.0000 y=  0.2530
divisor=  0.2273 x=  5.0000 y=  0.3897
divisor=  0.2727 x=  6.0000 y=  0.5570
divisor=  0.3182 x=  7.0000 y=  0.7550
divisor=  0.3636 x=  8.0000 y=  0.9836
divisor=  0.4091 x=  9.0000 y=  1.2428
divisor=  0.4545 x= 10.0000 y=  1.5326
divisor=  0.5000 x= 11.0000 y=  1.8531
divisor=  0.5455 x= 12.0000 y=  2.2042
divisor=  0.5909 x= 13.0000 y=  2.5860
divisor=  0.6364 x= 14.0000 y=  2.9983
divisor=  0.6818 x= 15.0000 y=  3.4413
divisor=  0.7273 x= 16.0000 y=  3.9150
divisor=  0.7727 x= 17.0000 y=  4.4192
divisor=  0.8182 x= 18.0000 y=  4.9541
divisor=  0.8636 x= 19.0000 y=  5.5197
divisor=  0.9091 x= 20.0000 y=  6.1158
divisor=  0.9545 x= 21.0000 y=  6.7426
divisor=  1.0000 x= 22.0000 y=  7.4000