![]() |
![]() |
![]() |
function Star(const focalPt: TPointD; innerRadius, outerRadius: double; points: integer): TPathD;
uses Image32, Image32_PNG, Image32_vector, Image32_Extra; ... var img: TImage32; polygon: TPathD; begin img := TImage32.Create(150,150); polygon := Star(PointD(128, 128), 50, 100, 7); DrawGlow(img, polygon, frNonZero, clYellow32, 10)); DrawPolygon(img, polygon, frNonZero, clAqua32); HatchBackground(img, clWhite32, clSilver32, 10); img.SaveToFile('glowing_star.png'); img.Free; end;
![]() |
Copyright ©2019 Angus Johnson - Image32 ver. 1.54 - Documentation last updated on 7-November-2020