(cubic-bezier) ( P0 P1 P2 P3 -- bezier )

Vocabulary

rosetta-code.bitmap-bezier

Inputs

P0	an object
P1	an object
P2	an object
P3	an object

Outputs

bezier

an object

Definition

USING: math math.functions math.vectors ;

IN: rosetta-code.bitmap-bezier

:: (cubic-bezier) ( P0 P1 P2 P3 -- bezier )
    [
        :> x 1 x - 3 ^ P0 n*v 1 x - sq 3 * x * P1 n*v 1 x - 3 *
        x sq * P2 n*v x 3 ^ P3 n*v v+ v+ v+
    ] ; inline