Нарисовать случайным образом кривую Безье

Советы » Графика » Нарисовать случайным образом кривую Безье

procedure

TForm1.Button1Click(Sender: TObject); var

pusat: array

of

TPoint; i: Integer; begin

SetLength(pusat, 4); for

i := Low(pusat) to

High(pusat) do

begin

pusat[i].x := Random(Width); pusat[i].y := Random(Height); end

; Canvas.PolyBezier(pusat); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com