Bitmap/Bézier curves/Cubic: Difference between revisions

m
(Factor)
m (→‎{{header|Factor}}: Added USING:)
Line 184:
=={{header|Factor}}==
The points should probably be in a sequence...
<lang factor>!USING: thisarrays giveskernel alocals functionmath math.functions
rosettacode.raster.storage sequences ;
IN: rosetacode.raster.line
 
! this gives a function
:: (cubic-bezier) ( P0 P1 P2 P3 -- bezier )
[ :> x
Line 205 ⟶ 209:
points-to-lines
{R,G,B} swap image draw-lines ;</lang>
 
=={{header|Fortran}}==
{{trans|C}}
Anonymous user