![]() |
![]() |
![]() |
function MakePathI(const pts: array of integer): TPathD;
function MakePathD(const pts: array of double): TPathD;
uses Image32, Image32_PNG, Image32_Vector, Image32_Draw; ... var img: TImage32; path: TPathD; pts: TPathD; begin img := TImage32.Create(256,256); //create and draw a RED CSpine path pts := MakePathI([50,200, 40,160, 90,160, 80,200, 120,240, 110,200, 150,160, 140,200, 180,240, 170,200, 210,160, 200,200]); path := CSpline(pts); DrawLine(img, path, 8, clRed32, esRound); //omitted code that shows where the 'pts' are //and where the derived control points are img.SaveToFile('splines.png'); img.Free; end;
![]() |
Copyright ©2019 Angus Johnson - Image32 ver. 1.54 - Documentation last updated on 7-November-2020