[ first x-min - x-max x-min - / gadget spline-dim>> first * ]
[ second y-min - y-max y-min - / gadget spline-dim>> second * ] bi 2array
] map :> pts
-
+
GL_LINE_STRIP glBegin
pts [
first2 neg gadget spline-dim>> second + glVertex2f
:: <spline-gadget> ( polynomials dim steps -- gadget )
spline-gadget new
dim >>spline-dim
- polynomials >>polynomials
+ polynomials >>polynomials
steps >>steps ;
: spline. ( curve dim steps -- )
- <spline-gadget> gadget. ;
+ <spline-gadget> gadget. ;