Помогите с рисованием на Delphi, компонент paintbox

[Jose]

Помогите пожалуйста надо решить 2 задачи на Делфи (рисование на paitpox):
I) Звёзды, Компоненты: button1, paintbox1, edit1, edit2: 1) edit1 - k - количество звёзд, 2) edit2 - m - максимальный размер.
II) Перекатывание квадрата, Компоненты button2, paintbox2, edit3 - a - сторона квадрата. (квадрат должен перевернутся 2, раза на одну сторону потом на следуюшую)
(в поля edit пользователь водит значения)
P.S Взоранее примного благодарен

[Virtson]

так тут проблемы не с Paintbox,
алгоритм(ы) у тебя есть ?

[Jose]

У мя есть координаты звезды и квадрата
//звезда
paintbox1.Canvas.MoveTo(100,50);
paintbox1.Canvas.LineTo(70,150);
paintbox1.Canvas.LineTo(150,90);
paintbox1.Canvas.LineTo(50,90);
paintbox1.Canvas.LineTo(130,150);
paintbox1.Canvas.LineTo(100,50);
//квадрат
Paintbox2.Canvas.MoveTo(100,100);
Paintbox2.Canvas.LineTo(100,200);
Paintbox2.Canvas.LineTo(200,200);
Paintbox2.Canvas.LineTo(200,100);
Paintbox2.Canvas.LineTo(100,100);

их бы по циклам раскидать и в место точных значений x, y ставить что нить такое чтоб звезда изменяла размер а квадрат перекатывлся, читывая значения в полях edit

[AVer]

Задача №1:

Procedure PaintZvezd(X,Y,Size:Integer);
Begin
Form1.PaintBox1.Canvas.MoveTo(X,Y);
Form1.PaintBox1.Canvas.LineTo(X-(Size-Size div 100*70),Y+Size);
Form1.PaintBox1.Canvas.LineTo(X+Size-Size div 100*50,Y+Size-Size div 100*60);
Form1.PaintBox1.Canvas.LineTo(X-(Size-Size div 100*50),Y+Size-Size div 100*60);
Form1.PaintBox1.Canvas.LineTo(X+Size-Size div 100*70,Y+Size);
Form1.PaintBox1.Canvas.LineTo(X,Y);
End;

procedure TForm1.Button1Click(Sender: TObject);
var i,Size:Integer;
begin
For I:=1 to StrToInt(Edit1.Text) do
Begin
Size:=Random(StrToInt(Edit2.Text)-100)+100;
PaintZvezd(Random(PaintBox1.Width),Random(PaintBox1.Height),Size);
End;
end;

[Speeker]

не было время что либо больше крапать - держи что есть...

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    PaintBox2: TPaintBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
  var
  x,y,c,i,max,k:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
{x:=x+1;
y:=y+1;}
k:=strtoint(edit1.Text);
max:=strtoint(edit2.Text);
Randomize;
for i:=1 to k do
begin
   x:=trunc(random(paintbox1.Width));
   y:=trunc(random(paintbox1.Height));
   c:=trunc(random(max));
 paintbox1.Canvas.MoveTo(x,y-c);
paintbox1.Canvas.LineTo(x-30-c,y+100+2*c);
paintbox1.Canvas.LineTo(x+50+2*c,y+40-trunc(sqrt(c)));
paintbox1.Canvas.LineTo(x-50-2*c,y+40-trunc(sqrt(c)));
paintbox1.Canvas.LineTo(x+30+c,y+100+2*c);
paintbox1.Canvas.LineTo(x,y-c);
end;
//êâàäðàò
Paintbox2.Canvas.MoveTo(100,100);
Paintbox2.Canvas.LineTo(100,200);
Paintbox2.Canvas.LineTo(200,200);
Paintbox2.Canvas.LineTo(200,100);
Paintbox2.Canvas.LineTo(100,100);

end;
end.

с квадратами поступишь примерно так же, отношение числа С желательно подобрать более точно. Напиши получил ли ты ответ на свой вопрос

[Virtson]

квадрат может крутиться вокруг центра или должен именно 'переворачиваться' ?

[Jose]

Aver, у тебя звезды не точные, но все равно спсасибо.

Speeker, у тебя в принципе замечательный код, но вот только при размере 1 звезды не совсем маленькие, хотелось бы чтоб при максимальном размере 1 зведа была очень маленькой. Большое спасибо.
Я тож на паре делал звёды, всё точно работает, вот тока звёзды некоторые далеко за paintbox улетают. Speeker, я всё таки твоим кодом возпользуюсь, если у тя будут идеи по уменьшению размера кидай их в виде кода

Virtson, квадрат не должен крутится на одном месте, он должен перекатится как квадратное колесо таким образом чтобы нижняя сторона в итоге после 2 переворачиваний оказалась с верху

[Speeker]

попробуй так:

paintbox1.Canvas.MoveTo(x,y-c);
paintbox1.Canvas.LineTo(x-5-c,y+35+2*c);
paintbox1.Canvas.LineTo(x+10+2*c,y+15-trunc(sqrt(c)));
paintbox1.Canvas.LineTo(x-10-2*c,y+15-trunc(sqrt(c)));
paintbox1.Canvas.LineTo(x+5+c,y+35+2*c);
paintbox1.Canvas.LineTo(x,y-c);

если тут с цифорками поиграться можно добиться большей пропорциональности

[Jose]

paintbox1.Canvas.MoveTo(x,y-5-c);
paintbox1.Canvas.LineTo(x-c,y+2*c);
paintbox1.Canvas.LineTo(x+3+2*c,y-trunc(sqrt(c)));
paintbox1.Canvas.LineTo(x-3-2*c,y-trunc(sqrt(c)));
paintbox1.Canvas.LineTo(x+c,y+2*c);
paintbox1.Canvas.LineTo(x,y-5-c);
вот так красиво получается.
С садачей № 1 покончено, осталось квадратик покатать

[Speeker]

http://ru.wikipedia.org/wiki/%D0%9C%...82.D0.B2.D0.B5